Sub Project_11_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 11_Coordenadas esfericas_ES ' Updated: 31/01/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 11 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "x" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "=CONFIG!R4C9" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,1132812 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "40" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "(Eq-r)" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "COORDENADAS ESF" & ChrW(201) & "RICAS EN CARTESIANAS" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Las f" & ChrW(243) & "rmulas matem" & ChrW(225) & "ticas para este caso son las ecuaciones: " & Chr(10) & _ " x=r cos phi sin theta, y= r sin phi sin theta, z=r cos theta." & Chr(10) & _ " Para dibujar los vectores unitarios de las coordenadas esf" & ChrW(233) & "ricas en las cartesianas se utilizan las f" & ChrW(243) & "rmulas: " & Chr(10) & _ " r = i cos phi sin theta + j sin phi sin theta + k cos theta," & Chr(10) & _ " phi = - i sin phi + j cos theta," & Chr(10) & _ " theta = i cos phi cos theta + j sin phi cos theta - k sin theta," & Chr(10) & _ " en donde a la izquierda del signo igual est" & ChrW(225) & "n los vectores unitarios y a la derecha los " & ChrW(225) & "ngulos propiamente dichos. En las celdas A12, B12, C12 se introducen estas ecuaciones para r unitario, en A21, B21, C21 para phi unitario y en A30, B30, C30 para theta unitario. " & Chr(10) & _ " Para ejecutar una simulaci" & ChrW(243) & "n, introduzcca un valor para r en la celda E9=2 y para phi en E10=45 luego oprima el bot" & ChrW(243) & "n Run. Los " & ChrW(225) & "ngulos empezar" & ChrW(225) & "n a recorrerse de 4 en 4 desde 45 hasta 180 grados para theta. Para cambiar la posici" & ChrW(243) & "n inicial del sistema cil" & ChrW(237) & "ndrico acuda a los par" & ChrW(225) & "metros del vector r" & ChrW(233) & "ox, r" & ChrW(233) & "oy, r" & ChrW(233) & "oz. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " SPHERICAL COORDINATES IN CARTESIANS" & Chr(10) & _ " The mathematical formulas for this case are the equations:" & Chr(10) & _ " x=r cos phi sin theta, y= r sin phi sin theta, z=r cos theta." & Chr(10) & _ " To draw the unit vectors of the spherical coordinates in the Cartesians, the formulas are used:" & Chr(10) & _ " r = i cos phi sin theta + j sin phi sin theta + k cos theta," & Chr(10) & _ " phi = - i sin phi + j cos theta, theta = i cos phi cos theta + j sin phi cos theta - k sin theta," & Chr(10) & _ " where to the left of the equal sign are the unit vectors and to the right the angles themselves.These equations for unit r are in cells A12, B12, C12, in A21, B21, C21 for unit phi, and in A30, B30, C30 for unit theta." & Chr(10) & _ " To run a simulation, enter a value for r in cell E9=2 and for phi in cell E10=45, and then press the Run button. The angles will start to go in 4 from 45 to 180 degrees for theta. To change the initial position of the cylindrical system, go to the vector parameters r" & ChrW(233) & "ox, r" & ChrW(233) & "oy, r" & ChrW(233) & "oz." On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-r)" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "z" Cells(m + 3, n + 5).FormulaR1C1 = "375" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "CoordenadasEsfericas" Cells(m + 4, n + 12).FormulaR1C1 = "COORDENADAS ESF" & ChrW(201) & "RICAS" Cells(m + 4, n + 23).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "PUNTO DE OBSERVACI" & ChrW(211) & "N:" Cells(m + 6, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 2).FormulaR1C1 = "A CARTESIANAS:" Cells(m + 7, n + 4).FormulaR1C1 = "RESULTADO:" Cells(m + 7, n + 5).FormulaR1C1 = "(Eq-11-1)" Cells(m + 7, n + 21).FormulaR1C1 = "El modelo permite visualizar los vectores unitarios de las coordenadas esf" & ChrW(233) & "ricas representadas " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "(borrar E18, E19 y GE20)" Cells(m + 8, n + 4).FormulaR1C1 = "=IF(R[2]C[-4]>0,""<-- use these cells."","""")" Cells(m + 8, n + 21).FormulaR1C1 = "en las cartesianas. Oprima los botones de ecuaciones para poder visualizarlas (las ecuaciones deben" Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[24]C[3]))*SIN(RADIANS(R[25]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[24]C[2]))*SIN(RADIANS(R[25]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "=COS(RADIANS(R[25]C[1]))" Cells(m + 9, n + 2).FormulaR1C1 = "r=" Cells(m + 9, n + 3).FormulaR1C1 = "=4" Cells(m + 9, n + 4).FormulaR1C1 = "x =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[23]C[-3]*RC[-6]" Cells(m + 9, n + 21).FormulaR1C1 = "encontrarse en la hoja 3DModels)." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[22]C[4]" Cells(m + 10, n + 2).FormulaR1C1 = "phi =" Cells(m + 10, n + 3).FormulaR1C1 = "=R[-8]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "y =" Cells(m + 10, n + 5).FormulaR1C1 = "=R[22]C[-3]*R[-1]C[-5]" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 2).FormulaR1C1 = "theta=" Cells(m + 11, n + 3).FormulaR1C1 = "45" Cells(m + 11, n + 4).FormulaR1C1 = "z =" Cells(m + 11, n + 5).FormulaR1C1 = "=IF(R[-2]C[-2]="""",R[7]C[-2],R[-2]C[-2]*COS(RADIANS(RC[-2])))" Cells(m + 11, n + 21).FormulaR1C1 = "Los diferentes tipos de coordenadas se utilizan para simplificar los problemas matem" & ChrW(225) & "ticos y " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "(Eq-phi)" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-phi)" Cells(m + 3, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 3, n + 21).FormulaR1C1 = "f" & ChrW(237) & "sicos que tienen cierta simetr" & ChrW(237) & "a. Por ejemplo, un campo el" & ChrW(233) & "ctrico de una carga puntual tiene " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica, por lo tanto representarlo y estudiarlo resulta m" & ChrW(225) & "s conveniente y sencillo " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "A ESF" & ChrW(201) & "RICAS" Cells(m + 5, n + 4).FormulaR1C1 = "RESULTADO:" Cells(m + 5, n + 5).FormulaR1C1 = "(Eq-11-2)" Cells(m + 5, n + 21).FormulaR1C1 = "hacerlo desde las coordenadas esf" & ChrW(233) & "ricas, mientras que el campo el" & ChrW(233) & "ctrico de una l" & ChrW(237) & "nea recta " Cells(m + 6, n + 2).FormulaR1C1 = "(borrar E12, E13 y E14)" Cells(m + 6, n + 21).FormulaR1C1 = "infinita y cargada tiene simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica. Para ver ejemplos de estas dos simetr" & ChrW(237) & "as ver los " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 2).FormulaR1C1 = "x =" Cells(m + 7, n + 4).FormulaR1C1 = "r =" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(RC[-2]="""",R[-7]C[-2],SQRT(RC[-2]^2+R[1]C[-2]^2+R[2]C[-2]^2))" Cells(m + 7, n + 21).FormulaR1C1 = "proyectos SIMETR" & ChrW(205) & "A CIL" & ChrW(205) & "NDRICA y SIMETR" & ChrW(205) & "A ESF" & ChrW(201) & "RICA." Cells(m + 8, n + 2).FormulaR1C1 = "y =" Cells(m + 8, n + 4).FormulaR1C1 = "phi =" Cells(m + 8, n + 5).FormulaR1C1 = "=IF(R[-1]C[-2]="""",R[-7]C[-2],DEGREES(IF(AND(R[-1]C[-2]>0,RC[-2]<0),2*PI()+ASIN(RC[-2]/R[-1]C),IF(AND(R[-1]C[-2]<=0,RC[-2]>=0),ACOS(R[-1]C[-2]/R[-1]C),IF(AND(R[-1]C[-2]<0,RC[-2]<0),ATAN(RC[-2]/R[-1]C[-2])+PI(),IF(R[-1]C[-2]=0,2*PI()-ACOS(R[-1]C[-2]/R[-1]C),ATAN(RC[-2]/R[-1]C[-2])))))))" Cells(m + 9, n + -1).FormulaR1C1 = "=-SIN(RADIANS(R[15]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=COS(RADIANS(R[15]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "z =" Cells(m + 9, n + 4).FormulaR1C1 = "theta=" Cells(m + 9, n + 5).FormulaR1C1 = "=IF(R[-2]C[-2]="""",R[-7]C[-2],DEGREES(ACOS(RC[-2]/R[-2]C)))" Cells(m + 9, n + 21).FormulaR1C1 = "El sistema de coordenadas esf" & ChrW(233) & "ricas es un sistema ortogonal que tiene tres vectores unitarios " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[14]C[4]" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 11, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-11-3)" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "(Eq-theta)" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-theta)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Para convertir un punto P(r) = P(x,y,z) que est" & ChrW(225) & " expresada en coordenadas cartesianas, a " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 21).FormulaR1C1 = "coordenadas esf" & ChrW(233) & "ricas, P(rho, phi, theta) se necesitan las siguientes f" & ChrW(243) & "rmulas de conversi" & ChrW(243) & "n:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 4).FormulaR1C1 = "DESPLAZAMIENTO DEL" Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-11-4)" Cells(m + 8, n + 4).FormulaR1C1 = "ORIGEN:" Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[6]C[3]))*COS(RADIANS(R[7]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[6]C[2]))*COS(RADIANS(R[7]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "=-SIN(RADIANS(R[7]C[1]))" Cells(m + 9, n + 4).FormulaR1C1 = "r_ox =" Cells(m + 9, n + 5).FormulaR1C1 = "=0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[6]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "r_oy =" Cells(m + 10, n + 5).FormulaR1C1 = "=0" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "r_oz =" Cells(m + 11, n + 5).FormulaR1C1 = "=0" Cells(m + 3, n + 1).Interior.Color = "13535550" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = "FIJACI" & ChrW(211) & "N DE TRAYECTORIA:" Cells(m + 3, n + 21).FormulaR1C1 = "Utilice las celdas E12, E13 y E14 para ingresar los valores de las coordenadas esf" & ChrW(233) & "ricas" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "(valores 1 " & ChrW(243) & " 2)" Cells(m + 4, n + 21).FormulaR1C1 = "de un punto respectivamente y obtener las cartesianas del mismo punto en las celdas " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=IF(R[-23]C[1]="""",R[-16]C[3],IF(R[-16]C[1]="""",R[-23]C[1]))" Cells(m + 5, n + 4).FormulaR1C1 = "r=" Cells(m + 5, n + 5).FormulaR1C1 = "=1" Cells(m + 5, n + 21).FormulaR1C1 = "G12, G13 y G14. Oprima cualquier bot" & ChrW(243) & "n del sistema de coordenadas para visualizar " Cells(m + 6, n + 2).FormulaR1C1 = "=IF(R[-24]C[1]="""",R[-16]C[3],IF(R[-17]C[1]="""",R[-23]C[1]))" Cells(m + 6, n + 4).FormulaR1C1 = "phi =" Cells(m + 6, n + 5).FormulaR1C1 = "=1" Cells(m + 6, n + 21).FormulaR1C1 = "los resultados en este. " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-6]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-5]C[4]" Cells(m + 7, n + 2).FormulaR1C1 = "=IF(R[-25]C[1]="""",R[-16]C[3],IF(R[-18]C[1]="""",R[-23]C[1]))" Cells(m + 7, n + 4).FormulaR1C1 = "theta=" Cells(m + 7, n + 5).FormulaR1C1 = "=1" Cells(m + 8, n + 4).FormulaR1C1 = "(luego oprima Ejecutar.)" Cells(m + 8, n + 21).FormulaR1C1 = "Para convertir un punto P(rho, phi, theta) que est" & ChrW(225) & " expresada en coordenadas esf" & ChrW(233) & "ricas, a " Cells(m + 9, n + -1).FormulaR1C1 = "=R35C4*R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R35C4*R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R35C4*R[-27]C" Cells(m + 9, n + 21).FormulaR1C1 = "coordenadas cartesianas, P(x, y, z) se necesitan las siguientes f" & ChrW(243) & "rmulas de conversi" & ChrW(243) & "n:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "MOSTRAR x, y, z:" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "S" & ChrW(205) & " = 0, NO=1" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-11-5)" Cells(m + 3, n + 1).Interior.Color = "8421504" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-3]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-7]C" Cells(m + 7, n + 21).FormulaR1C1 = "Utilice las celdas E19, E20 y E21 para ingresar los valores de las coordenadas cartesianas " Cells(m + 8, n + 21).FormulaR1C1 = "de un punto respectivamente y obtener las esf" & ChrW(233) & "ricas del mismo punto en las celdas " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 21).FormulaR1C1 = "G19, G20 y G21. Debe elimiar el contenido de las celdas E12, E13 y E14 para que el modelo " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "trabaje correctamente. Oprima cualquier bot" & ChrW(243) & "n del sistema de coordenadas para visualizar " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "los resultados en este. " Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "z" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 0).FormulaR1C1 = "z" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Experimente con diferentes puntos en el espacio. Cuando se introducen las coordenadas " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-12]C[4]" Cells(m + 5, n + 21).FormulaR1C1 = "esf" & ChrW(233) & "ricas, se debe asegurar de borrar completamente las celdas donde se ingresan las" Cells(m + 6, n + 21).FormulaR1C1 = "cartesianas y viceverssa. El modelo utiliza varias f" & ChrW(243) & "rmulas para hallar el " & ChrW(225) & "ngulo phi debido" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "al comportamiento de las funciones seno y coseno en los diferentes cuadrantes, sin " Cells(m + 8, n + 21).FormulaR1C1 = "embargo todaas estas f" & ChrW(243) & "rmulas son equivalentes. " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-47]C" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "Borre las celdas E19, E20 y E21 e ingrese E12=2, E13 = I5, E14 =45 y oprima Ejecutar (Run), " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "observar" & ChrW(225) & " el recorrido de las coordenadas a lo largo del " & ChrW(225) & "ngulo phi. Ingrese G35=2 y vuelva" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "x" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 3, n + 0).FormulaR1C1 = "x" Cells(m + 3, n + 21).FormulaR1C1 = "a oprimir Ejecutar, ver" & ChrW(225) & " los diferentes radios unitarios de una esfera durante el recorrido. Con G35=1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "se borrar" & ChrW(225) & "n los radios luego de oprimir Ejecutar. Con la celda G41 podr" & ChrW(225) & " ocultar/mostrar" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-21]C[4]" Cells(m + 5, n + 21).FormulaR1C1 = "las coordenadas cartesianas. Finalmente con las celdas G30 y G31 se puede desplazar " Cells(m + 6, n + 21).FormulaR1C1 = "el origen de coordenadas esf" & ChrW(233) & "ricas con respecto al de las cartesianas." Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "y" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "8" Cells(m + 3, n + 0).FormulaR1C1 = "y" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-30]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-25]C" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 8 End If ' vector ends If m = m1 + 63 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub