'//////////////////////////////////// ((((((())))))) \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ' ScienSolar v. 1.54 MODULE 4. Updated 09-03-2025 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 Sub Project_11_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 11_Spherical Coordinates_EN ' 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,08984375 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 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "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." 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 = "15" Cells(m + 3, n + 19).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Spherical coordinates" Cells(m + 4, n + 12).FormulaR1C1 = "SPHERICAL COORDINATES" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" 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 = "REFERENCE POINT" 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 = "TO THE CARTESIANS:" Cells(m + 7, n + 4).FormulaR1C1 = "RESULT:" Cells(m + 7, n + 5).FormulaR1C1 = "(Eq-11-1)" Cells(m + 7, n + 21).FormulaR1C1 = "The model allows you to visualize the unit vectors of the spherical coordinates represented in the Cartesian " 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 = "(clean E18, E19 and GE20)" Cells(m + 8, n + 21).FormulaR1C1 = "coordinates. Press the equation buttons to view them (the equations should be found in the 3DModels sheet)." 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 + 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 = "fi =" 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 + 10, n + 21).FormulaR1C1 = "Different types of coordinates are used to simplify mathematical and physical problems that have a certain " 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 = "symmetry. For example, an electric field of a point charge has spherical symmetry, therefore it is more convenient " 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 = "and simple to represent and study it from spherical coordinates, while the electric field of an infinite, charged " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "straight line has cylindrical symmetry. To see examples of these two symmetries see the projects CYLINDRICAL " 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 = "TO THE SPHERICAL:" Cells(m + 5, n + 4).FormulaR1C1 = "RESULT:" Cells(m + 5, n + 5).FormulaR1C1 = "(Eq-11-2)" Cells(m + 5, n + 21).FormulaR1C1 = "SYMMETRY and SPHERICAL SYMMETRY." Cells(m + 6, n + 2).FormulaR1C1 = "(clean E12, E13 and E14)" 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 = "The spherical coordinate system is an orthogonal system that has three unit vectors." 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 + 27).FormulaR1C1 = "(Eq-11-3)" 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 + 10, n + 2).FormulaR1C1 = " << ---" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 + 21).FormulaR1C1 = "To convert a point P(r) = P(x,y,z) that is expressed in Cartesian coordinates, to" 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 + 3, n + 21).FormulaR1C1 = "spherical coordinates, P(rho, phi, theta) the following conversion formulas are needed:" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-11-4)" 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 = "DISPLACEMENT OF THE" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "ORIGIN:" 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 + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 + 10, n + 21).FormulaR1C1 = "Use cells E12, E13 and E14 to enter the values of the spherical coordinates of a point respectively " 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 + 11, n + 21).FormulaR1C1 = "and obtain the Cartesian coordinates of the same point in cells G12, G13 and G14. Press any button in the " 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 = "FIX PATH:" Cells(m + 3, n + 21).FormulaR1C1 = "coordinate system to view the results." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "(values 1 or 2)" 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 = "To convert a point P(rho, phi, theta) that is expressed in spherical coordinates, to Cartesian coordinates, " 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 = "P(x, y, z) the following conversion formulas are needed:" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "(then press Run.)" Cells(m + 8, n + 27).FormulaR1C1 = "(Eq-11-5)" 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 + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "SHOW 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 = "YES = 0, NO=1" Cells(m + 11, n + 5).FormulaR1C1 = "2" 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 + 4, n + 21).FormulaR1C1 = "Use cells E19, E20 and E21 to enter the Cartesian coordinate values of a point respectively and obtain the spherical" 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 + 5, n + 21).FormulaR1C1 = "coordinates of the same point in cells G19, G20 and G21. You must delete the contents of cells E12, E13, " Cells(m + 6, n + 21).FormulaR1C1 = "and E14 so that the model work correctly. Press any button in the coordinate system to view the results." 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 + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Experiment with different points in space. When entering spherical coordinates, you must make sure to " 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 + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "completely delete the cells where Cartesian coordinates are entered and vice versa. The model uses several " 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 = "formulas to find the angle phi due to the behavior of the sine and cosine functions in the different quadrants, " 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 = "however all these formulas are equivalent." 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 = "Delete cells E19, E20 and E21 and enter E12=2, E13 = I5, E14 =45 and press Run, you will see the coordinates " 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 = "travel along the phi angle. Enter G35=2 and press Run again, you will see the different unit radii of a sphere " Cells(m + 6, n + 21).FormulaR1C1 = "during the walkthrough. With G35=1 the radios will be deleted after pressing Run. With cell G41 you can " 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 = "hide/show the Cartesian coordinates. Finally, with cells G30 and G31 you can move the origin of spherical " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "coordinates with respect to that of Cartesian coordinates." 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 + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "x" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "8" Cells(m + 3, n + 0).FormulaR1C1 = "x" 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[-21]C[4]" 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 = "9" 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 + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" 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 + 9, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(R[-9]C[-4]>0,"" For aditional formula (FA),"","""")" 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 + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<-- use these cells."","""")" 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 Cells(m + 17, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 18, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 19, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 20, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<-- use these cells."","""")" Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_12_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 12_SimetrIa plana_ES ' Updated: 27/03/24 ' 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 12 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = "=CONFIG!R3C9" 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 = "=CONFIG!R4C6" 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 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "g" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO VECTORIAL DE SIMETR" & ChrW(205) & "A PLANA" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " El modelo muestra la distribuci" & ChrW(243) & "n en el espacio de un campo de simetr" & ChrW(237) & "a plana, espec" & ChrW(237) & "ficamente el campo vectorial A= (0,0,1). A continuaci" & ChrW(243) & "n vemos las componentes del vector A en coordenadas cartesianas:" & Chr(10) & _ " A12 = 0" & Chr(10) & _ " B12 0" & Chr(10) & _ " C12 = 1" & Chr(10) & _ " En la celda C7 los par" & ChrW(225) & "metros de este campo pueden ser modificados de la siguiente manera: " & Chr(10) & _ " El primer par" & ChrW(233) & "ntesis cuadrado o[ ] indica el paso de incremento de la coordenada x, y el segundo, es decir x=[ ; ], el rango de visualizaci" & ChrW(243) & "n de x. " & Chr(10) & _ " El tercer par" & ChrW(233) & "ntesis cuadrado o2[ ] indica el paso de incremento de la coordenada y, y el cuarto, es decir y=[ ; ], el rango de visualizaci" & ChrW(243) & "n de y. " & Chr(10) & _ " El quinto par" & ChrW(233) & "ntesis cuadrado o3[ ] indica el paso de incremento de la coordenada z, y el sexto, es decir z=[ ; ], el rango de visualizaci" & ChrW(243) & "n de z. " & Chr(10) & _ " El par" & ChrW(225) & "metro color se utiliza para colorear el vector seg" & ChrW(250) & "n su longitud, el n" & ChrW(250) & "mero indica aproximadamente la longitud del vector m" & ChrW(225) & "s grande, el color se distribuye entre rojo (vector m" & ChrW(225) & "s peque" & ChrW(233) & "o) y violeta (vector m" & ChrW(225) & "s grande). El " & ChrW(250) & "ltimo par" & ChrW(233) & "ntesis [ ] indica el origen de las coordenadas, donde comienzan las distribuciones vectoriales. Encierre solo valores num" & ChrW(233) & "ricos entre punto y coma, no modifique la estructura de esta cadena, excepto si es un experto en MS Excel." & Chr(10) & _ " Puede modificar los valores entre los par" & ChrW(233) & "ntesis cuadrados y verificar los resultados, por ejemplo para ver el campo en el plano yz entre --8 y 8 para ambas coordenadas en multiplos de 2 coloque o[1]x=[0;0]o2[2]y=[-8;8]o3[2]z=[-8;8]. Oprima XYZ para ver los resultados. Oprima YZ para ver desde el frente." & Chr(10) & _ " Cambie los valores del campo en A12=1, B12=1, C12=2 y observe los resultados. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " PLANE SYMMETRY VECTOR FIELD" & Chr(10) & _ " The model shows the distribution in space of a plane symmetry field, specifically the vector field A= (0,0,1). Next we see the components of vector A in Cartesian coordinates:" & Chr(10) & _ " A12 = 0, B12 0, C12 = 1" & Chr(10) & _ " In cell C7 you can modify the parameters of this field as follows:" & Chr(10) & _ " The first square bracket or [ ] indicates the increment step of the x-coordinate, and the second, that is, x=[ ; ], the display range of x." & Chr(10) & _ " The third bracket o2[ ] indicates the increment step of the y-coordinate, and the fourth, that is y=[ ; ], the display range of y." & Chr(10) & _ " The fifth bracket o3[ ] indicates the increment step of the z coordinate, and the sixth, that is, z=[ ; ], the display range of z." & Chr(10) & _ " The color parameter is used to color the vector according to its length, the number indicates approximately the length of the largest vector, the color is distributed between red (smallest vector) and purple (largest vector). The last parenthesis [ ] indicates the origin of the coordinates, where vector distributions begin. Enclose only numeric values " & ChrW(233) & "" & ChrW(233) & "between semicolons, do not modify the structure of this string, except if you are an expert in MS Excel." & Chr(10) & _ " You can modify the values " & ChrW(233) & "" & ChrW(233) & "in square brackets and check the results, for example to see the field in the yz plane between --8 and 8 for both coordinates in multiples of 2 put o[1]x=[0;0 ]o2[ 2] y=[-8;8]o3[2]z=[-8;8]. Press XYZ to see the results. Press YZ to view from the front." & Chr(10) & _ " Change the field values " & ChrW(233) & "" & ChrW(233) & "to A12=1, B12=1, C12=2 and observe the results." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "g" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=""o[""&R[5]C[4]&""]x=[""&R[6]C[4]&"";""&R[7]C[4]&""]o2[""&R[10]C[4]&""]y=[""&R[11]C[4]&"";""&R[12]C[4]&""]o3[""&R[15]C[4]&""]z=[""&R[16]C[4]&"";""&R[17]C[4]&""]color=[50]origin[cart.]=[0;0;0]tfactor=0,002011139s""" Cells(m + 4, n + 2).FormulaR1C1 = "Campo de simetr" & ChrW(237) & "a plana" Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO DE SIMETR" & ChrW(205) & "A PLANA" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "101" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + 4).FormulaR1C1 = "DISTRIBUCI" & ChrW(211) & "N DE " Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "LOS VECTORES:" Cells(m + 8, n + -1).FormulaR1C1 = "64" Cells(m + 8, n + 0).FormulaR1C1 = "64" Cells(m + 8, n + 1).FormulaR1C1 = "83" Cells(m + 8, n + 2).FormulaR1C1 = "<-- coordenadas variables." Cells(m + 8, n + 4).FormulaR1C1 = "EJE X:" Cells(m + 8, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n muestra la distribuci" & ChrW(243) & "n de vectores en una determinada regi" & ChrW(243) & "n del espacio de un " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=1000/ABS(R[-1]C)" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---F" & ChrW(211) & "RMULA DEL CAMPO" Cells(m + 9, n + 4).FormulaR1C1 = "Paso:" Cells(m + 9, n + 5).FormulaR1C1 = "40" Cells(m + 9, n + 21).FormulaR1C1 = "campo vectorial de simetr" & ChrW(237) & "a plana." 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 = "x_inicial:" Cells(m + 10, n + 5).FormulaR1C1 = "-100" 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 = "x_final" Cells(m + 11, n + 5).FormulaR1C1 = "100" Cells(m + 11, n + 21).FormulaR1C1 = "1. Modifique en la columna G los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n del campo." Cells(m + 3, n + 1).Interior.Color = "15773696" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 4).FormulaR1C1 = "=IF(R[-2]C[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 12, n + 21).FormulaR1C1 = "2. El campo que se muestra en la simulaci" & ChrW(243) & "n es E_z = 1000/|z|. La f" & ChrW(243) & "rmula del campo se encuentra" Cells(m + 13, n + 4).FormulaR1C1 = "EJE Y:" Cells(m + 13, n + 21).FormulaR1C1 = "en la celda C12." Cells(m + 14, n + 4).FormulaR1C1 = "Paso:" Cells(m + 14, n + 5).FormulaR1C1 = "40" Cells(m + 14, n + 21).FormulaR1C1 = "3. Intente modificar la f" & ChrW(243) & "rmula del campo, por ejemplo coloque C12=0 y en " Cells(m + 15, n + 4).FormulaR1C1 = "y_inicial:" Cells(m + 15, n + 5).FormulaR1C1 = "-100" Cells(m + 15, n + 21).FormulaR1C1 = "la celda B12=1000/ABS(B11) para obtener un campo dirigido hacia la derecha." Cells(m + 16, n + 4).FormulaR1C1 = "y_final" Cells(m + 16, n + 5).FormulaR1C1 = "100" Cells(m + 17, n + 21).FormulaR1C1 = "En las celdas G12 - G24 se pueden editar los par" & ChrW(225) & "metros de distribuci" & ChrW(243) & "n de los vectores en cada " Cells(m + 18, n + 4).FormulaR1C1 = "EJE Z:" Cells(m + 18, n + 21).FormulaR1C1 = "coordenada." Cells(m + 19, n + 4).FormulaR1C1 = "Paso:" Cells(m + 19, n + 5).FormulaR1C1 = "60" Cells(m + 20, n + 4).FormulaR1C1 = "z_inicial:" Cells(m + 20, n + 5).FormulaR1C1 = "-100" Cells(m + 21, n + 4).FormulaR1C1 = "z_final" Cells(m + 21, n + 5).FormulaR1C1 = "100" Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_12_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 12_Plane Symmetry_EN ' Updated: 27/03/24 ' 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 12 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = "=CONFIG!R3C9" 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 = "=CONFIG!R4C6" 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 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "g" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "PLANE SYMMETRY VECTOR FIELD" & Chr(10) & _ " The model shows the distribution in space of a plane symmetry field, specifically the vector field A= (0,0,1). Next we see the components of vector A in Cartesian coordinates:" & Chr(10) & _ " A12 = 0, B12 0, C12 = 1" & Chr(10) & _ " In cell C7 you can modify the parameters of this field as follows:" & Chr(10) & _ " The first square bracket or [ ] indicates the increment step of the x-coordinate, and the second, that is, x=[ ; ], the display range of x." & Chr(10) & _ " The third bracket o2[ ] indicates the increment step of the y-coordinate, and the fourth, that is y=[ ; ], the display range of y." & Chr(10) & _ " The fifth bracket o3[ ] indicates the increment step of the z coordinate, and the sixth, that is, z=[ ; ], the display range of z." & Chr(10) & _ " The color parameter is used to color the vector according to its length, the number indicates approximately the length of the largest vector, the color is distributed between red (smallest vector) and purple (largest vector). The last parenthesis [ ] indicates the origin of the coordinates, where vector distributions begin. Enclose only numeric values " & ChrW(233) & "" & ChrW(233) & "between semicolons, do not modify the structure of this string, except if you are an expert in MS Excel." & Chr(10) & _ " You can modify the values in square brackets and check the results, for example to see the field in the yz plane between --8 and 8 for both coordinates in multiples of 2 put o[1]x=[0;0 ]o2[ 2] y=[-8;8]o3[2]z=[-8;8]. Press XYZ to see the results. Press YZ to view from the front." & Chr(10) & _ " Change the field values " & ChrW(233) & "" & ChrW(233) & "to A12=1, B12=1, C12=2 and observe the results." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "g" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" 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 + 1).FormulaR1C1 = "=""o[""&R[5]C[4]&""]x=[""&R[6]C[4]&"";""&R[7]C[4]&""]o2[""&R[10]C[4]&""]y=[""&R[11]C[4]&"";""&R[12]C[4]&""]o3[""&R[15]C[4]&""]z=[""&R[16]C[4]&"";""&R[17]C[4]&""]color=[50]origin[cart.]=[0;0;0]tfactor=0,002011139s""" Cells(m + 4, n + 2).FormulaR1C1 = "Plane Symmetry Field" Cells(m + 4, n + 12).FormulaR1C1 = "PLANE SYMMETRY FIELD" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "101" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + 4).FormulaR1C1 = "DISTRIBUTION OF" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "THE VECTORS:" Cells(m + 8, n + -1).FormulaR1C1 = "64" Cells(m + 8, n + 0).FormulaR1C1 = "64" Cells(m + 8, n + 1).FormulaR1C1 = "83" Cells(m + 8, n + 2).FormulaR1C1 = "<-- Variable Coordinates." Cells(m + 8, n + 4).FormulaR1C1 = "X AXIS:" Cells(m + 8, n + 21).FormulaR1C1 = "The simulation shows the distribution of vectors in a certain region of space of a" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=1000/ABS(R[-1]C)" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---FIELD FORMULA" Cells(m + 9, n + 4).FormulaR1C1 = "Step:" Cells(m + 9, n + 5).FormulaR1C1 = "40" Cells(m + 9, n + 21).FormulaR1C1 = "flat symmetry vector field." 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 = "x_initial:" Cells(m + 10, n + 5).FormulaR1C1 = "-100" 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 = "x_end" Cells(m + 11, n + 5).FormulaR1C1 = "100" Cells(m + 11, n + 21).FormulaR1C1 = "1. Modify the field display parameters in column G." Cells(m + 3, n + 1).Interior.Color = "15773696" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 21).FormulaR1C1 = "2. The field shown in the simulation is E_z = 1000/|z|. The field formula is found" Cells(m + 13, n + 4).FormulaR1C1 = "AXIS Y:" Cells(m + 13, n + 21).FormulaR1C1 = "in cell C12." Cells(m + 14, n + 4).FormulaR1C1 = "Step:" Cells(m + 14, n + 5).FormulaR1C1 = "40" Cells(m + 14, n + 21).FormulaR1C1 = "3. Try to modify the field formula, for example put C12=0 and in" Cells(m + 15, n + 4).FormulaR1C1 = "y_initial:" Cells(m + 15, n + 5).FormulaR1C1 = "-100" Cells(m + 15, n + 21).FormulaR1C1 = "cell B12=1000/ABS(B11) to obtain a field directed to the right." Cells(m + 16, n + 4).FormulaR1C1 = "and finally" Cells(m + 16, n + 5).FormulaR1C1 = "100" Cells(m + 17, n + 21).FormulaR1C1 = "In cells G12 - G24 you can edit the vector distribution parameters in each" Cells(m + 18, n + 4).FormulaR1C1 = "Z AXIS:" Cells(m + 18, n + 21).FormulaR1C1 = "coordinate." Cells(m + 19, n + 4).FormulaR1C1 = "Step:" Cells(m + 19, n + 5).FormulaR1C1 = "60" Cells(m + 20, n + 4).FormulaR1C1 = "z_initial:" Cells(m + 20, n + 5).FormulaR1C1 = "-100" Cells(m + 21, n + 4).FormulaR1C1 = "z_final" Cells(m + 21, n + 5).FormulaR1C1 = "100" Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_13_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 13_Simetria cilindrica_ES ' Updated: 27/03/24 ' 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 13 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE SIMETR" & ChrW(205) & "A CIL" & ChrW(205) & "NDRICA " & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " El modelo muestra la distribuci" & ChrW(243) & "n en el espacio de un campo de simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica, espec" & ChrW(237) & "ficamente el campo vectorial A= (rho unitario)k/rho = A/(raiz((Ax)^2 + (Ay)^2))^2. A continuaci" & ChrW(243) & "n vemos las componentes del vector A en coordenadas cil" & ChrW(237) & "ndricas:" & Chr(10) & _ " A12 = k Ax/(raiz((Ax)^2 + (Ay)^2))^2 " & Chr(10) & _ " B12 = k Ay/(raiz((Ax)^2 + (Ay)^2))^2 " & Chr(10) & _ " C12 = k Az/(raiz((Ax)^2 + (Ay)^2))^2 " & Chr(10) & _ " En la celda C7 los par" & ChrW(225) & "metros de este campo pueden ser modificados de la siguiente manera: " & Chr(10) & _ " El primer par" & ChrW(233) & "ntesis cuadrado c[ ] indica el paso de incremento de la coordenada rho, y el segundo, es decir rho=[ ; ], el rango de visualizaci" & ChrW(243) & "n de rho. " & Chr(10) & _ " El tercer par" & ChrW(233) & "ntesis cuadrado c2[ ] indica el paso de incremento de la coordenada rho, y el cuarto, es decir phi=[ ; ], el rango de visualizaci" & ChrW(243) & "n de phi. " & Chr(10) & _ " El quinto par" & ChrW(233) & "ntesis cuadrado c3[ ] indica el paso de incremento de la coordenada z, y el sexto, es decir z=[ ; ], el rango de visualizaci" & ChrW(243) & "n de z. " & Chr(10) & _ " El par" & ChrW(225) & "metro color se utiliza para colorear el vector seg" & ChrW(250) & "n su longitud, el n" & ChrW(250) & "mero indica aproximadamente la longitud del vector m" & ChrW(225) & "s grande, el color se distribuye entre rojo (vector m" & ChrW(225) & "s peque" & ChrW(233) & "o) y violeta (vector m" & ChrW(225) & "s grande). El " & ChrW(250) & "ltimo par" & ChrW(233) & "ntesis [ ] indica el origen de las coordenadas, donde comienzan las distribuciones vectoriales. Encierre solo valores num" & ChrW(233) & "ricos entre punto y coma, no modifique la estructura de esta cadena, excepto si es un experto en MS Excel." & Chr(10) & _ " Puede modificar los valores entre los par" & ChrW(233) & "ntesis cuadrados y verificar los resultados, por ejemplo para un radio del cilindro igual a 5 y un recorrido del phi desde 90 a 270 modifique el valor rho=[5;5] y de phi=[90;270]. Oprima XYZ para ver los resultados. Oprima XY para ver desde arriba." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF CYLINDRICAL SYMMETRY" & Chr(10) & _ " The model shows the distribution in space of a cylindrical symmetry field, specifically the vector field A= (unitary rho)k/rho = A/(root((Ax)^2 + (Ay)^2))^2. Next we see the components of vector A in cylindrical coordinates:" & Chr(10) & _ " A12 = k Ax/(root((Ax)^2 + (Ay)^2))^2" & Chr(10) & _ " B12 = k Ay/(root((Ax)^2 + (Ay)^2))^2" & Chr(10) & _ " C12 = k Az/(root((Ax)^2 + (Ay)^2))^2" & Chr(10) & _ " In cell C7 the parameters of this field can be modified as follows:" & Chr(10) & _ " The first square bracket c[ ] indicates the increment step of the rho coordinate, and the second, that is, rho=[ ; ], the display range of rho." & Chr(10) & _ " The third square bracket c2[ ] indicates the increment step of the rho coordinate, and the fourth, that is, phi=[ ; ], the display range of rho." & Chr(10) & _ " The fifth square bracket c3[ ] indicates the increment step of the z coordinate, and the sixth, that is, z=[ ; ], the display range of z." & Chr(10) & _ " The color parameter is used to color the vector according to its length, the number indicates approximately the length of the largest vector, the color is distributed between red (smallest vector) and purple (largest vector). The last parenthesis [ ] indicates the origin of the coordinates, where vector distributions begin. Enclose only numeric values " & ChrW(233) & "" & ChrW(233) & "between semicolons, do not modify the structure of this string, except if you are an expert in MS Excel." & Chr(10) & _ " You can modify the values " & ChrW(233) & "" & ChrW(233) & "between the square brackets and verify the results, for example for a radius of the cylinder equal to 5 and a range of phi from 90 to 270 modify the value rho=[5;5] and of phi=[90;270 ]. Press XYZ to see the results. Press XY to view from top." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "A" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=""c[""&R[3]C[4]&""]rho=[""&R[4]C[4]&"";""&R[5]C[4]&""]c2[""&R[8]C[4]&""]phi=[""&R[9]C[4]&"";""&R[10]C[4]&""]c3[""&R[13]C[4]&""]z=[""&R[14]C[4]&"";""&R[15]C[4]&""]color=[50]origin[cart.]=[0;0;0]tfactor=0,002517097s""" Cells(m + 4, n + 2).FormulaR1C1 = "Campo de simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica" Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO DE SIMETR" & ChrW(205) & "A CIL" & ChrW(205) & "NDRICA" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "658" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "k =" Cells(m + 5, n + 5).FormulaR1C1 = "5000" Cells(m + 6, n + 4).FormulaR1C1 = "rho:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Paso:" Cells(m + 7, n + 5).FormulaR1C1 = "80" Cells(m + 8, n + -1).FormulaR1C1 = "240" Cells(m + 8, n + 0).FormulaR1C1 = "-5.8783046359073E-14" Cells(m + 8, n + 1).FormulaR1C1 = "40" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "rho_inicial:" Cells(m + 8, n + 5).FormulaR1C1 = "80" Cells(m + 8, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n muestra la distribuci" & ChrW(243) & "n de vectores en una determinada regi" & ChrW(243) & "n del espacio de un " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-4]C[6]*R[-1]C)/(R[-1]C^2+R[-1]C[1]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=(R[-4]C[5]*R[-1]C)/(R[-1]C[-1]^2+R[-1]C^2)" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---F" & ChrW(211) & "RMULAS DEL CAMPO" Cells(m + 9, n + 4).FormulaR1C1 = "rho_final" Cells(m + 9, n + 5).FormulaR1C1 = "300" Cells(m + 9, n + 21).FormulaR1C1 = "campo vectorial de simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica." 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "phi:" Cells(m + 11, n + 21).FormulaR1C1 = "1. Modifique en la columna G los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n del campo.La f" & ChrW(243) & "rmula del campo se " Cells(m + 3, n + 1).Interior.Color = "130835" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 4).FormulaR1C1 = "Paso:" Cells(m + 12, n + 5).FormulaR1C1 = "5" Cells(m + 12, n + 22).FormulaR1C1 = "encuentra en las celda A12 y B12; en calidad de coordenadas x, y, z se toman las " Cells(m + 13, n + 4).FormulaR1C1 = "phi_inicial:" Cells(m + 13, n + 5).FormulaR1C1 = "0" Cells(m + 13, n + 22).FormulaR1C1 = "celdas A11, B11 y C11 respectivamente." Cells(m + 14, n + 4).FormulaR1C1 = "phi_final" Cells(m + 14, n + 5).FormulaR1C1 = "360" Cells(m + 14, n + 21).FormulaR1C1 = "2. El campo que se muestra en la simulaci" & ChrW(243) & "n es E(rho) = k/rho =krho/rho^2 = (kx/rho^2, ky/rho^2). " Cells(m + 15, n + 21).FormulaR1C1 = "3. Intente modificar la f" & ChrW(243) & "rmula del campo, por ejemplo simule el campo E(rho) = k/rho^2, en donde " Cells(m + 16, n + 4).FormulaR1C1 = "Z:" Cells(m + 16, n + 22).FormulaR1C1 = "rho = raiz(x^2+y^2)." Cells(m + 17, n + 4).FormulaR1C1 = "Paso:" Cells(m + 17, n + 5).FormulaR1C1 = "20" Cells(m + 17, n + 21).FormulaR1C1 = "4. Oprima XY para ver la simetr" & ChrW(237) & "a desde arriba." Cells(m + 18, n + 4).FormulaR1C1 = "z_inicial:" Cells(m + 18, n + 5).FormulaR1C1 = "0" Cells(m + 19, n + 4).FormulaR1C1 = "z_final" Cells(m + 19, n + 5).FormulaR1C1 = "50" Cells(m + 20, n + 20).FormulaR1C1 = "Nota al exportar c" & ChrW(243) & "digo con el bot" & ChrW(243) & "n C" & ChrW(243) & "digo: Algunos sistemas operativos presentan problemas al exportar el c" & ChrW(243) & "digo " Cells(m + 21, n + 21).FormulaR1C1 = "cuando se indica el nombre del archivo con caracteres especiales (como tildes u otros). Para evitar " Cells(m + 22, n + 21).FormulaR1C1 = "esos problemas indique el nombre del archivo sin tildes ni caracteres especiales. " Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_13_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 13_Cylindrical Symmetry_EN ' Updated: 27/03/24 ' 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 13 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE SIMETR" & ChrW(205) & "A CIL" & ChrW(205) & "NDRICA " & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " El modelo muestra la distribuci" & ChrW(243) & "n en el espacio de un campo de simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica, espec" & ChrW(237) & "ficamente el campo vectorial A= (rho unitario)k/rho = A/(raiz((Ax)^2 + (Ay)^2))^2. A continuaci" & ChrW(243) & "n vemos las componentes del vector A en coordenadas cil" & ChrW(237) & "ndricas:" & Chr(10) & _ " A12 = k Ax/(raiz((Ax)^2 + (Ay)^2))^2 " & Chr(10) & _ " B12 = k Ay/(raiz((Ax)^2 + (Ay)^2))^2 " & Chr(10) & _ " C12 = k Az/(raiz((Ax)^2 + (Ay)^2))^2 " & Chr(10) & _ " En la celda C7 los par" & ChrW(225) & "metros de este campo pueden ser modificados de la siguiente manera: " & Chr(10) & _ " El primer par" & ChrW(233) & "ntesis cuadrado c[ ] indica el paso de incremento de la coordenada rho, y el segundo, es decir rho=[ ; ], el rango de visualizaci" & ChrW(243) & "n de rho. " & Chr(10) & _ " El tercer par" & ChrW(233) & "ntesis cuadrado c2[ ] indica el paso de incremento de la coordenada rho, y el cuarto, es decir phi=[ ; ], el rango de visualizaci" & ChrW(243) & "n de phi. " & Chr(10) & _ " El quinto par" & ChrW(233) & "ntesis cuadrado c3[ ] indica el paso de incremento de la coordenada z, y el sexto, es decir z=[ ; ], el rango de visualizaci" & ChrW(243) & "n de z. " & Chr(10) & _ " El par" & ChrW(225) & "metro color se utiliza para colorear el vector seg" & ChrW(250) & "n su longitud, el n" & ChrW(250) & "mero indica aproximadamente la longitud del vector m" & ChrW(225) & "s grande, el color se distribuye entre rojo (vector m" & ChrW(225) & "s peque" & ChrW(233) & "o) y violeta (vector m" & ChrW(225) & "s grande). El " & ChrW(250) & "ltimo par" & ChrW(233) & "ntesis [ ] indica el origen de las coordenadas, donde comienzan las distribuciones vectoriales. Encierre solo valores num" & ChrW(233) & "ricos entre punto y coma, no modifique la estructura de esta cadena, excepto si es un experto en MS Excel." & Chr(10) & _ " Puede modificar los valores entre los par" & ChrW(233) & "ntesis cuadrados y verificar los resultados, por ejemplo para un radio del cilindro igual a 5 y un recorrido del phi desde 90 a 270 modifique el valor rho=[5;5] y de phi=[90;270]. Oprima XYZ para ver los resultados. Oprima XY para ver desde arriba." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF CYLINDRICAL SYMMETRY" & Chr(10) & _ " The model shows the distribution in space of a cylindrical symmetry field, specifically the vector field A= (unitary rho)k/rho = A/(root((Ax)^2 + (Ay)^2))^2. Next we see the components of vector A in cylindrical coordinates:" & Chr(10) & _ " A12 = k Ax/(root((Ax)^2 + (Ay)^2))^2" & Chr(10) & _ " B12 = k Ay/(root((Ax)^2 + (Ay)^2))^2" & Chr(10) & _ " C12 = k Az/(root((Ax)^2 + (Ay)^2))^2" & Chr(10) & _ " In cell C7 the parameters of this field can be modified as follows:" & Chr(10) & _ " The first square bracket c[ ] indicates the increment step of the rho coordinate, and the second, that is, rho=[ ; ], the display range of rho." & Chr(10) & _ " The third square bracket c2[ ] indicates the increment step of the rho coordinate, and the fourth, that is, phi=[ ; ], the display range of rho." & Chr(10) & _ " The fifth square bracket c3[ ] indicates the increment step of the z coordinate, and the sixth, that is, z=[ ; ], the display range of z." & Chr(10) & _ " The color parameter is used to color the vector according to its length, the number indicates approximately the length of the largest vector, the color is distributed between red (smallest vector) and purple (largest vector). The last parenthesis [ ] indicates the origin of the coordinates, where vector distributions begin. Enclose only numeric values " & ChrW(233) & "" & ChrW(233) & "between semicolons, do not modify the structure of this string, except if you are an expert in MS Excel." & Chr(10) & _ " You can modify the values " & ChrW(233) & "" & ChrW(233) & "between the square brackets and verify the results, for example for a radius of the cylinder equal to 5 and a range of phi from 90 to 270 modify the value rho=[5;5] and of phi=[90;270 ]. Press XYZ to see the results. Press XY to view from top." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "A" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=""c[""&R[3]C[4]&""]rho=[""&R[4]C[4]&"";""&R[5]C[4]&""]c2[""&R[8]C[4]&""]phi=[""&R[9]C[4]&"";""&R[10]C[4]&""]c3[""&R[13]C[4]&""]z=[""&R[14]C[4]&"";""&R[15]C[4]&""]color=[50]origin[cart.]=[0;0;0]tfactor=0,002647701s""" Cells(m + 4, n + 2).FormulaR1C1 = "Cylindrical Symmetry Field" Cells(m + 4, n + 12).FormulaR1C1 = "CYLINDRICAL SYMMETRY FIELD" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "658" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "k =" Cells(m + 5, n + 5).FormulaR1C1 = "5000" Cells(m + 6, n + 4).FormulaR1C1 = "rho:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Step:" Cells(m + 7, n + 5).FormulaR1C1 = "80" Cells(m + 8, n + -1).FormulaR1C1 = "240" Cells(m + 8, n + 0).FormulaR1C1 = "-5.8783046359073E-14" Cells(m + 8, n + 1).FormulaR1C1 = "40" Cells(m + 8, n + 2).FormulaR1C1 = " <-- Variable coordinates" Cells(m + 8, n + 4).FormulaR1C1 = "rho_initial:" Cells(m + 8, n + 5).FormulaR1C1 = "80" Cells(m + 8, n + 21).FormulaR1C1 = "The simulation shows the distribution of vectors in a certain region of space of a" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-4]C[6]*R[-1]C)/(R[-1]C^2+R[-1]C[1]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=(R[-4]C[5]*R[-1]C)/(R[-1]C[-1]^2+R[-1]C^2)" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---FIELD FORMULAS" Cells(m + 9, n + 4).FormulaR1C1 = "rho_final" Cells(m + 9, n + 5).FormulaR1C1 = "300" Cells(m + 9, n + 21).FormulaR1C1 = "vector field of cylindrical symmetry." 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 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Phi:" Cells(m + 11, n + 21).FormulaR1C1 = "1. Modify the field display parameters in column G. The field formula is located in cells A12 " Cells(m + 3, n + 1).Interior.Color = "130835" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 4).FormulaR1C1 = "Step:" Cells(m + 12, n + 5).FormulaR1C1 = "5" Cells(m + 12, n + 22).FormulaR1C1 = "and B12; Cells A11, B11 and C11 are taken as x, y and z coordinates respectively." Cells(m + 13, n + 4).FormulaR1C1 = "initial_phi:" Cells(m + 13, n + 5).FormulaR1C1 = "0" Cells(m + 13, n + 21).FormulaR1C1 = "2. The field shown in the simulation is E(rho) = k/rho =krho/rho^2 = (kx/rho^2, ky/rho^2)." Cells(m + 14, n + 4).FormulaR1C1 = "phi_final" Cells(m + 14, n + 5).FormulaR1C1 = "360" Cells(m + 14, n + 21).FormulaR1C1 = "3. Try to modify the field formula, for example simulate the field E(rho) = k/rho^2, where" Cells(m + 15, n + 22).FormulaR1C1 = "rho = root(x^2+y^2)." Cells(m + 16, n + 4).FormulaR1C1 = "Z:" Cells(m + 16, n + 21).FormulaR1C1 = "4. Press XY to view the symmetry from above." Cells(m + 17, n + 4).FormulaR1C1 = "Step:" Cells(m + 17, n + 5).FormulaR1C1 = "20" Cells(m + 18, n + 4).FormulaR1C1 = "z_initial:" Cells(m + 18, n + 5).FormulaR1C1 = "0" Cells(m + 19, n + 4).FormulaR1C1 = "z_final" Cells(m + 19, n + 5).FormulaR1C1 = "50" Cells(m + 19, n + 21).FormulaR1C1 = "Note: When exporting code with the Code button some operating systems have problems" Cells(m + 20, n + 21).FormulaR1C1 = "when the file name is indicated with special characters (such as accents or others). To avoid these " Cells(m + 21, n + 21).FormulaR1C1 = "problems, indicate the file name without accents or special characters." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_14_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 14_Simetria esferica_ES ' Updated: 27/03/24 ' 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 14 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = "=CONFIG!R3C9" 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 = "=CONFIG!R4C6" 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 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "=CONFIG!R5C9" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE SIMETR" & ChrW(205) & "A ESF" & ChrW(201) & "RICA" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " El modelo muestra la distribuci" & ChrW(243) & "n en el espacio de un campo de simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica, espec" & ChrW(237) & "ficamente el campo A = 1/r^2 = A/(raiz((Ax)^2 + (Ay)^2+(Az)^2 ))^3 que puede ser el campo de una carga puntual. A continuaci" & ChrW(243) & "n vemos las componentes del vector A en coordenadas esf" & ChrW(233) & "ricas:" & Chr(10) & _ " A12 = k Ax/(raiz((Ax)^2 + (Ay)^2) + (Az)^2)^3 " & Chr(10) & _ " B12 = k Ay/(raiz((Ax)^2 + (Ay)^2) + (Az)^2 )^3 " & Chr(10) & _ " C12 = k Az/(raiz((Ax)^2 + (Ay)^2) + (Az)^2 )^3," & Chr(10) & _ " en donde k es una constante que en este caso es negativa simulando el campo de una carga puntual negativa localizada en el centro de la esfera. En la celda C7 los par" & ChrW(225) & "metros de este campo pueden ser modificados de la siguiente manera: " & Chr(10) & _ " El primer par" & ChrW(233) & "ntesis cuadrado s[ ] indica el paso de incremento de la coordenada r, y el segundo, es decir r=[ ; ], el rango de visualizaci" & ChrW(243) & "n de r. " & Chr(10) & _ " El tercer par" & ChrW(233) & "ntesis cuadrado s2[ ] indica el paso de incremento de la coordenada phi, y el cuarto, es decir phi=[ ; ], el rango de visualizaci" & ChrW(243) & "n de phi. " & Chr(10) & _ " El quinto par" & ChrW(233) & "ntesis cuadrado s3[ ] indica el paso de incremento de la coordenada theta, y el sexto, es decir theta=[ ; ], el rango de visualizaci" & ChrW(243) & "n de theta. " & Chr(10) & _ " El par" & ChrW(225) & "metro color se utiliza para colorear el vector seg" & ChrW(250) & "n su longitud, el n" & ChrW(250) & "mero indica aproximadamente la longitud del vector m" & ChrW(225) & "s grande, el color se distribuye entre rojo (vector m" & ChrW(225) & "s peque" & ChrW(233) & "o) y violeta (vector m" & ChrW(225) & "s grande). El " & ChrW(250) & "ltimo par" & ChrW(233) & "ntesis [ ] indica el origen de las coordenadas, donde comienzan las distribuciones vectoriales. Encierre solo valores num" & ChrW(233) & "ricos entre punto y coma, no modifique la estructura de esta cadena, excepto si es un experto en MS Excel." & Chr(10) & _ " Puede modificar los valores entre los par" & ChrW(233) & "ntesis cuadrados y verificar los resultados, por eejmplo para un radio de la esfera igual a 10 y un recorrido de phi desde 90 a 180 en pasos de 5 modifique de la siguiente manera: s[5]r=[5;5]s2[5]phi=[90;180]s3[5]theta=[0;180]" & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF SPHERICAL SYMMETRY" & Chr(10) & _ " The model shows the distribution in space of a field of spherical symmetry, specifically the field A = 1/r^2 = A/(root((Ax)^2 + (Ay)^2+(Az)^2 ) ) ^ 3 which can be the field of a point charge. Next we see the components of vector A in spherical coordinates:" & Chr(10) & _ " A12 = k Ax/(root((Ax)^2 + (Ay)^2) + (Az)^2)^3" & Chr(10) & _ " B12 = k Ay/(root ((Ax)^2 + (Ay)^2) + (Az)^2 )^3" & Chr(10) & _ " C12 = k Az/(root((Ax)^2 + (Ay)^2) + (Az)^2 )^3," & Chr(10) & _ " where k is a constant that in this case is negative simulating the field of a negative point charge located in the center of the sphere. In cell C7 you can modify the parameters of this field as follows:" & Chr(10) & _ " The first bracket s[ ] indicates the increment step of the coordinate r, and the second, that is, r=[ ; ], the display range of r." & Chr(10) & _ " The third bracket s2[ ] indicates the increment step of the phi coordinate, and the fourth, that is, phi=[ ; ], the display range of phi." & Chr(10) & _ " The fifth bracket s3[ ] indicates the increment step of the theta coordinate, and the sixth, that is, theta=[ ; ], the display range of theta." & Chr(10) & _ " The color parameter is used to color the vector according to its length, the number indicates approximately the length of the largest vector, the color is distributed between red (smallest vector) and purple (largest vector). The last parenthesis [ ] indicates the origin of the coordinates, where vector distributions begin. Enclose only numeric values " & ChrW(233) & "" & ChrW(233) & "between semicolons, do not modify the structure of this string, except if you are an expert in MS Excel." & Chr(10) & _ " You can modify the values " & ChrW(233) & "" & ChrW(233) & "between square brackets and check the results, for example for a radius of the sphere equal to 10 and a range of phi from 90 to 180 in steps of 5 modify as follows: s[5]r= [ 5; 5]s2[5]phi=[90;180]s3[5]theta=[0;180]" Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "A" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=""s[""&R[3]C[4]&""]r=[""&R[4]C[4]&"";""&R[5]C[4]&""]s2[""&R[8]C[4]&""]phi=[""&R[9]C[4]&"";""&R[10]C[4]&""]s3[""&R[13]C[4]&""]theta=[""&R[14]C[4]&"";""&R[15]C[4]&""]color=[50]origin[cart.]=[""&R[19]C[4]&"";""&R[20]C[4]&"";""&R[21]C[4]&""]tfactor=0,002446619s""" Cells(m + 4, n + 2).FormulaR1C1 = "Campo de simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica" Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO DE SIMETR" & ChrW(205) & "A ESF" & ChrW(201) & "RICA" Cells(m + 4, n + 23).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "562" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "k =" Cells(m + 5, n + 5).FormulaR1C1 = "-800000" Cells(m + 6, n + 4).FormulaR1C1 = "r:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Paso:" Cells(m + 7, n + 5).FormulaR1C1 = "80" Cells(m + 7, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n muestra la distribuci" & ChrW(243) & "n de vectores en una determinada regi" & ChrW(243) & "n del espacio de un " Cells(m + 8, n + -1).FormulaR1C1 = "9.67086519515441" Cells(m + 8, n + 0).FormulaR1C1 = "-1.35915146682131" Cells(m + 8, n + 1).FormulaR1C1 = "-139.658967036375" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Coordenadas variables"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "r_inicial:" Cells(m + 8, n + 5).FormulaR1C1 = "140" Cells(m + 8, n + 21).FormulaR1C1 = "campo vectorial de simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-1]C*R[-4]C[6]/POWER(R[-1]C^2+R[-1]C[1]^2+R[-1]C[2]^2,3/2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-1]C*R[-4]C[5]/POWER(R[-1]C[-1]^2+R[-1]C^2+R[-1]C[1]^2,3/2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-1]C*R[-4]C[4]/POWER(R[-1]C[-2]^2+R[-1]C[-1]^2+R[-1]C^2,3/2)" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---F" & ChrW(211) & "RMULA DEL CAMPO" Cells(m + 9, n + 4).FormulaR1C1 = "r_final" Cells(m + 9, n + 5).FormulaR1C1 = "140" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "1. Modifique en la columna G los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n del campo." Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "phi:" Cells(m + 11, n + 21).FormulaR1C1 = "2. El campo que se muestra en la simulaci" & ChrW(243) & "n es E(r) = k/r^2 = (kx/r^3, ky/r^3,kz/r^3). La f" & ChrW(243) & "rmula del " Cells(m + 3, n + 1).Interior.Color = "16777075" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 4).FormulaR1C1 = "Paso:" Cells(m + 12, n + 5).FormulaR1C1 = "10" Cells(m + 12, n + 22).FormulaR1C1 = "campo se encuentra en las celdas A12=E_x, B12=E_y y C12=E_z." Cells(m + 13, n + 4).FormulaR1C1 = "phi_inicial:" Cells(m + 13, n + 5).FormulaR1C1 = "0" Cells(m + 13, n + 21).FormulaR1C1 = "3. El signo menos de la constante k indica la direcci" & ChrW(243) & "n del campo hacia el centro." Cells(m + 14, n + 4).FormulaR1C1 = "phi_final" Cells(m + 14, n + 5).FormulaR1C1 = "360" Cells(m + 14, n + 21).FormulaR1C1 = "4. En las celdas G26, G27 y G28 se puede desplazar el origen del sistema de coordenadas esf" & ChrW(233) & "rico, " Cells(m + 15, n + 22).FormulaR1C1 = "sin embargo esto no desplaza el origen de la fuente de campo, el cual se encuentra " Cells(m + 16, n + 4).FormulaR1C1 = "theta:" Cells(m + 16, n + 22).FormulaR1C1 = "en el origen de coordenadas (por ejemplo una carga puntual negativa). " Cells(m + 17, n + 4).FormulaR1C1 = "Paso:" Cells(m + 17, n + 5).FormulaR1C1 = "10" Cells(m + 17, n + 21).FormulaR1C1 = "5. Intente desplazar el origen del sistema de coordenadas esf" & ChrW(233) & "rico hacia la derecha, por ejemplo" Cells(m + 18, n + 4).FormulaR1C1 = "theta_inicial:" Cells(m + 18, n + 5).FormulaR1C1 = "0" Cells(m + 18, n + 22).FormulaR1C1 = "colocando G27=100. En este caso se podr" & ChrW(225) & " notar que aunque el campo seguir" & ChrW(225) & "" Cells(m + 19, n + 4).FormulaR1C1 = "theta_final" Cells(m + 19, n + 5).FormulaR1C1 = "180" Cells(m + 19, n + 22).FormulaR1C1 = " teniendo simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica con respecto al origen cartesiano, esta simetr" & ChrW(237) & "a no se " Cells(m + 20, n + 22).FormulaR1C1 = "podr" & ChrW(225) & " observar si el origen de coordenadas esf" & ChrW(233) & "ricas no coincide con la posici" & ChrW(243) & "n " Cells(m + 21, n + 4).FormulaR1C1 = "DESPLAZAMIENTO DEL" Cells(m + 21, n + 22).FormulaR1C1 = "de la fuente de campo. La posici" & ChrW(243) & "n de la fuente de campo se modifica en la misma " Cells(m + 22, n + 4).FormulaR1C1 = "ORIGEN:" Cells(m + 22, n + 22).FormulaR1C1 = "f" & ChrW(243) & "rmula del campo, es decir en las celdas A12, B12 y C12. Pruebe adivinar c" & ChrW(243) & "mo ser" & ChrW(237) & "a la" Cells(m + 23, n + 4).FormulaR1C1 = "x_0" Cells(m + 23, n + 5).FormulaR1C1 = "0" Cells(m + 23, n + 22).FormulaR1C1 = "f" & ChrW(243) & "rmula para que la carga puntual se desplace tambien 100 unidades a la derecha y " Cells(m + 24, n + 4).FormulaR1C1 = "y_0" Cells(m + 24, n + 5).FormulaR1C1 = "0" Cells(m + 24, n + 22).FormulaR1C1 = "modifique respectivamente la f" & ChrW(243) & "rmula. Recuerde que para actualizar sus cambios" Cells(m + 25, n + 4).FormulaR1C1 = "z_0" Cells(m + 25, n + 5).FormulaR1C1 = "0" Cells(m + 25, n + 22).FormulaR1C1 = "debe oprimir XYZ u otro bot" & ChrW(243) & "n de actualizaci" & ChrW(243) & "n." Cells(m + 27, n + 21).FormulaR1C1 = "Nota: al exportar c" & ChrW(243) & "digo con el bot" & ChrW(243) & "n C" & ChrW(243) & "digo, algunos sistemas operativos presentan problemas" Cells(m + 28, n + 22).FormulaR1C1 = "cuando se indica el nombre del archivo con caracteres especiales (como tildes u otros)." Cells(m + 29, n + 22).FormulaR1C1 = " Para evitar esos problemas indique el nombre del archivo sin tildes ni caracteres " Cells(m + 30, n + 22).FormulaR1C1 = "especiales. " Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_14_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 14_Spherical Symmetry_EN ' Updated: 27/03/24 ' 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 14 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = "=CONFIG!R3C9" 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 = "=CONFIG!R4C6" 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 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "=CONFIG!R5C9" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE SIMETR" & ChrW(205) & "A ESF" & ChrW(201) & "RICA" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " El modelo muestra la distribuci" & ChrW(243) & "n en el espacio de un campo de simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica, espec" & ChrW(237) & "ficamente el campo A = 1/r^2 = A/(raiz((Ax)^2 + (Ay)^2+(Az)^2 ))^3 que puede ser el campo de una carga puntual. A continuaci" & ChrW(243) & "n vemos las componentes del vector A en coordenadas esf" & ChrW(233) & "ricas:" & Chr(10) & _ " A12 = k Ax/(raiz((Ax)^2 + (Ay)^2) + (Az)^2)^3 " & Chr(10) & _ " B12 = k Ay/(raiz((Ax)^2 + (Ay)^2) + (Az)^2 )^3 " & Chr(10) & _ " C12 = k Az/(raiz((Ax)^2 + (Ay)^2) + (Az)^2 )^3," & Chr(10) & _ " en donde k es una constante que en este caso es negativa simulando el campo de una carga puntual negativa localizada en el centro de la esfera. En la celda C7 los par" & ChrW(225) & "metros de este campo pueden ser modificados de la siguiente manera: " & Chr(10) & _ " El primer par" & ChrW(233) & "ntesis cuadrado s[ ] indica el paso de incremento de la coordenada r, y el segundo, es decir r=[ ; ], el rango de visualizaci" & ChrW(243) & "n de r. " & Chr(10) & _ " El tercer par" & ChrW(233) & "ntesis cuadrado s2[ ] indica el paso de incremento de la coordenada phi, y el cuarto, es decir phi=[ ; ], el rango de visualizaci" & ChrW(243) & "n de phi. " & Chr(10) & _ " El quinto par" & ChrW(233) & "ntesis cuadrado s3[ ] indica el paso de incremento de la coordenada theta, y el sexto, es decir theta=[ ; ], el rango de visualizaci" & ChrW(243) & "n de theta. " & Chr(10) & _ " El par" & ChrW(225) & "metro color se utiliza para colorear el vector seg" & ChrW(250) & "n su longitud, el n" & ChrW(250) & "mero indica aproximadamente la longitud del vector m" & ChrW(225) & "s grande, el color se distribuye entre rojo (vector m" & ChrW(225) & "s peque" & ChrW(233) & "o) y violeta (vector m" & ChrW(225) & "s grande). El " & ChrW(250) & "ltimo par" & ChrW(233) & "ntesis [ ] indica el origen de las coordenadas, donde comienzan las distribuciones vectoriales. Encierre solo valores num" & ChrW(233) & "ricos entre punto y coma, no modifique la estructura de esta cadena, excepto si es un experto en MS Excel." & Chr(10) & _ " Puede modificar los valores entre los par" & ChrW(233) & "ntesis cuadrados y verificar los resultados, por eejmplo para un radio de la esfera igual a 10 y un recorrido de phi desde 90 a 180 en pasos de 5 modifique de la siguiente manera: s[5]r=[5;5]s2[5]phi=[90;180]s3[5]theta=[0;180]" & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF SPHERICAL SYMMETRY" & Chr(10) & _ " The model shows the distribution in space of a field of spherical symmetry, specifically the field A = 1/r^2 = A/(root((Ax)^2 + (Ay)^2+(Az)^2 ) ) ^ 3 which can be the field of a point charge. Next we see the components of vector A in spherical coordinates:" & Chr(10) & _ " A12 = k Ax/(root((Ax)^2 + (Ay)^2) + (Az)^2)^3" & Chr(10) & _ " B12 = k Ay/(root ((Ax)^2 + (Ay)^2) + (Az)^2 )^3" & Chr(10) & _ " C12 = k Az/(root((Ax)^2 + (Ay)^2) + (Az)^2 )^3," & Chr(10) & _ " where k is a constant that in this case is negative simulating the field of a negative point charge located in the center of the sphere. In cell C7 you can modify the parameters of this field as follows:" & Chr(10) & _ " The first bracket s[ ] indicates the increment step of the coordinate r, and the second, that is, r=[ ; ], the display range of r." & Chr(10) & _ " The third bracket s2[ ] indicates the increment step of the phi coordinate, and the fourth, that is, phi=[ ; ], the display range of phi." & Chr(10) & _ " The fifth bracket s3[ ] indicates the increment step of the theta coordinate, and the sixth, that is, theta=[ ; ], the display range of theta." & Chr(10) & _ " The color parameter is used to color the vector according to its length, the number indicates approximately the length of the largest vector, the color is distributed between red (smallest vector) and purple (largest vector). The last parenthesis [ ] indicates the origin of the coordinates, where vector distributions begin. Enclose only numeric values " & ChrW(233) & "" & ChrW(233) & "between semicolons, do not modify the structure of this string, except if you are an expert in MS Excel." & Chr(10) & _ " You can modify the values " & ChrW(233) & "" & ChrW(233) & "between square brackets and check the results, for example for a radius of the sphere equal to 10 and a range of phi from 90 to 180 in steps of 5 modify as follows: s[5]r= [ 5; 5]s2[5]phi=[90;180]s3[5]theta=[0;180]" Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "A" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=""s[""&R[3]C[4]&""]r=[""&R[4]C[4]&"";""&R[5]C[4]&""]s2[""&R[8]C[4]&""]phi=[""&R[9]C[4]&"";""&R[10]C[4]&""]s3[""&R[13]C[4]&""]theta=[""&R[14]C[4]&"";""&R[15]C[4]&""]color=[50]origin[cart.]=[""&R[19]C[4]&"";""&R[20]C[4]&"";""&R[21]C[4]&""]tfactor=0,002543928s""" Cells(m + 4, n + 2).FormulaR1C1 = "Spherical Symmetry Field" Cells(m + 4, n + 12).FormulaR1C1 = "SPHERICAL SYMMETRY FIELD" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "562" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "k =" Cells(m + 5, n + 5).FormulaR1C1 = "-800000" Cells(m + 6, n + 4).FormulaR1C1 = "r:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Step:" Cells(m + 7, n + 5).FormulaR1C1 = "80" Cells(m + 7, n + 21).FormulaR1C1 = "The simulation shows the distribution of vectors in a certain region of space of avector field of spherical " Cells(m + 8, n + -1).FormulaR1C1 = "9.67086519515441" Cells(m + 8, n + 0).FormulaR1C1 = "-1.35915146682131" Cells(m + 8, n + 1).FormulaR1C1 = "-139.658967036375" Cells(m + 8, n + 2).FormulaR1C1 = " <-- Variable coordinates" Cells(m + 8, n + 4).FormulaR1C1 = "r_initial:" Cells(m + 8, n + 5).FormulaR1C1 = "140" Cells(m + 8, n + 21).FormulaR1C1 = "symmetry." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-1]C*R[-4]C[6]/POWER(R[-1]C^2+R[-1]C[1]^2+R[-1]C[2]^2,3/2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-1]C*R[-4]C[5]/POWER(R[-1]C[-1]^2+R[-1]C^2+R[-1]C[1]^2,3/2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-1]C*R[-4]C[4]/POWER(R[-1]C[-2]^2+R[-1]C[-1]^2+R[-1]C^2,3/2)" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---FIELD FORMULA" Cells(m + 9, n + 4).FormulaR1C1 = "r_final" Cells(m + 9, n + 5).FormulaR1C1 = "140" Cells(m + 9, n + 21).FormulaR1C1 = "1. Modify the field display parameters in column G." 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 = "2. The field shown in the simulation is E(r) = k/r^2 = (kx/r^3, ky/r^3,kz/r^3). The field formula is found" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Phi:" Cells(m + 11, n + 21).FormulaR1C1 = " in cells A12=E_x, B12=E_y, and C12=E_z." Cells(m + 3, n + 1).Interior.Color = "16777075" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 4).FormulaR1C1 = "Step:" Cells(m + 12, n + 5).FormulaR1C1 = "10" Cells(m + 12, n + 21).FormulaR1C1 = "3. The minus sign of the constant k indicates the direction of the field towards the center." Cells(m + 13, n + 4).FormulaR1C1 = "initial_phi:" Cells(m + 13, n + 5).FormulaR1C1 = "0" Cells(m + 13, n + 21).FormulaR1C1 = "4. In cells G26, G27 and G28 the origin of the spherical coordinate system can be moved, however this " Cells(m + 14, n + 4).FormulaR1C1 = "phi_final" Cells(m + 14, n + 5).FormulaR1C1 = "360" Cells(m + 14, n + 22).FormulaR1C1 = "does not move the origin of the field source, which is located at the coordinate origin " Cells(m + 15, n + 22).FormulaR1C1 = "(for example a negative point charge )." Cells(m + 16, n + 4).FormulaR1C1 = "theta:" Cells(m + 16, n + 21).FormulaR1C1 = "5. Try moving the origin of the spherical coordinate system to the right, for example by setting G27=100. " Cells(m + 17, n + 4).FormulaR1C1 = "Step:" Cells(m + 17, n + 5).FormulaR1C1 = "10" Cells(m + 17, n + 22).FormulaR1C1 = "In this case it can be noted that although the field will continue to have spherical symmetry " Cells(m + 18, n + 4).FormulaR1C1 = "initial_theta:" Cells(m + 18, n + 5).FormulaR1C1 = "0" Cells(m + 18, n + 22).FormulaR1C1 = "with respect to the Cartesian origin, this symmetry cannot be observed if the origin " Cells(m + 19, n + 4).FormulaR1C1 = "theta_final" Cells(m + 19, n + 5).FormulaR1C1 = "180" Cells(m + 19, n + 22).FormulaR1C1 = "of spherical coordinates does not coincide with the position of the field source. " Cells(m + 20, n + 22).FormulaR1C1 = "The position of the field source is modified in the field formula itself, that is, in " Cells(m + 21, n + 4).FormulaR1C1 = "DISPLACEMENT OF THE" Cells(m + 21, n + 22).FormulaR1C1 = "cells A12, B12 and C12. Try to guess what the formula would be so that the point charge " Cells(m + 22, n + 4).FormulaR1C1 = "ORIGIN:" Cells(m + 22, n + 22).FormulaR1C1 = "also moves 100 units to the right and modify the formula accordingly. Remember to update" Cells(m + 23, n + 4).FormulaR1C1 = "x_0" Cells(m + 23, n + 5).FormulaR1C1 = "0" Cells(m + 23, n + 22).FormulaR1C1 = " your changes you must press XYZ or another update button." Cells(m + 24, n + 4).FormulaR1C1 = "y_0" Cells(m + 24, n + 5).FormulaR1C1 = "0" Cells(m + 25, n + 4).FormulaR1C1 = "z_0" Cells(m + 25, n + 5).FormulaR1C1 = "0" Cells(m + 26, n + 21).FormulaR1C1 = "Note: When exporting code using the Code button, some operating systems have problems when you indicate " Cells(m + 27, n + 21).FormulaR1C1 = "the file name with special characters (such as accent marks or others)." Cells(m + 28, n + 21).FormulaR1C1 = "To avoid these problems, indicate the file name without accents or special characters." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_15(ByVal VecType, m, n, m1, n1 As Integer) ' Module to build trajectories ' This module is reserved for plotting trajectories that vectors make during a simulation or rotation of the axes. ' Credits: PhD. Ariel Becerra, Universidad de Pamplona, www.sciensolar.com 'definir el patr‹n de medida de los botones Dim PatronW As Double Dim PatronH As Double Cells(m + 1, n).Select PatronW = ActiveSheet.Cells(1, 1).Width PatronH = ActiveSheet.Cells(1, 2).Height PatronT = ActiveSheet.Cells(m + 7, n + 2).Top If m1 = m Then ' vector de referencia MsgBox "You must have at least one vector to graph its trajectory. The vector whose trajectory you want to graph will be added. Add again the module 15." ActiveSheet.Cells(m + 5, n + 1).FormulaR1C1 = 0 ' transparencia ActiveSheet.Cells(m + 7, n - 1).FormulaR1C1 = "0" ActiveSheet.Cells(m + 7, n).FormulaR1C1 = "0" ActiveSheet.Cells(m + 7, n + 1).FormulaR1C1 = "0" ActiveSheet.Cells(m + 9, n - 1).FormulaR1C1 = "4" ActiveSheet.Cells(m + 9, n).FormulaR1C1 = "4" ActiveSheet.Cells(m + 9, n + 1).FormulaR1C1 = "4" ActiveSheet.Cells(m1 + 1, n1 + 1).FormulaR1C1 = "GRF" 'para el pr‹ximo vector End If If m > m1 Then ' interface para la gr_fica ' a continuaci‹n se lee la lista de vectores i = 3 Do While Cells(m1 + i, n1 - 1) <> "" i = i + 9 If Cells(m1 + i + 1, n1).Value = "186" Then ' verificar si ya existe un m‹dulo para graficar. MsgBox "Ya existe un m‹dulo para graficar. Utilice el m‹dulo " _ & Cells(m1 + i, n1 - 1).Value & " para graficar cualquier vector. Se actualizar_ la lista de vecctores disponibles. " ActiveSheet.DropDowns("List2").Select With Selection ' actualizar la lista para incluir los vectores posteriores Do While .ListCount > 0 ' incluye los vectores depu_s del actual .ListIndex = .ListCount .RemoveItem (.ListIndex) Loop i = 3 Do While Cells(m1 + i, n1 - 1) <> "" ' incluye todos los vectores anteriores al m‹dulo de gr_fico .AddItem Cells(m1 + i, n1 - 1).Value i = i + 9 Loop MsgBox "Se ha actualizado la lista en el m‹dulo de gr_fica." End With Cells(m1 + i + 1, n1 - 1).Select GoTo fin End If Loop 'bot‹n Nuevo ActiveSheet.Buttons.Add(PatronW * (n - 1), PatronT + 32, PatronW * 2, PatronH - 2).Select ' agrega el bot‹n de gr_fica Selection.name = "ResetGraph" Selection.Characters.Text = "Reset graph" Selection.OnAction = "DeleteGraphFunction" 'introducir lista desplegable ActiveSheet.DropDowns.Add(PatronW * (n + 1 / 3), PatronT, PatronW / 2, PatronH).Select With Selection .name = "List2" .LinkedCell = "CONFIG!$V$6" .DropDownLines = 8 .Display3DShading = True .AddItem "1" ' valor 1 i = 12 Do While Cells(m1 + i + 9, n1 - 1) <> "" ' incluye todos los vectores anteriores al m‹dulo de gr_fico .AddItem Cells(m1 + i, n1 - 1).Value i = i + 9 Loop End With ActiveSheet.Cells(m + 3, n + 1).Select ' color del vector With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 10092543 .TintAndShade = 0 .PatternTintAndShade = 0 End With 'datos de la forma libre: ActiveSheet.Cells(m + 6, n - 1).Value = "Choose the vector to make its graphic:" ActiveSheet.Cells(m + 8, n - 1).Value = "Max. steps:" ActiveSheet.Cells(m + 8, n).Value = ActiveSheet.Cells(m1 + 1, n1 + 7).Value + 5 ActiveSheet.Cells(m + 7, n - 1).Value = "" ActiveSheet.Cells(m + 6, n).Value = "" ActiveSheet.Cells(m + 6, n + 1).Value = "" ActiveSheet.Cells(m + 8, n + 1).Value = "" ActiveSheet.Cells(m + 5, n + 1).FormulaR1C1 = 0 ' transparencia ActiveSheet.Cells(m + 4, n).FormulaR1C1 = "186" ActiveSheet.Cells(m + 7, n).FormulaR1C1 = "" ActiveSheet.Cells(m + 7, n + 1).FormulaR1C1 = "" ActiveSheet.Cells(m + 9, n - 1).FormulaR1C1 = "" ActiveSheet.Cells(m + 9, n).FormulaR1C1 = "" ActiveSheet.Cells(m + 9, n + 1).FormulaR1C1 = "" ActiveSheet.Cells(m + 10, n + 2).Value = "<-- To keep the graph insert 2." ActiveSheet.Cells(m + 3, n).Value = "" ActiveSheet.Cells(m + 10, n + 3).FormulaR1C1 = "" ActiveSheet.Cells(m + 11, n + 3).FormulaR1C1 = "" ActiveSheet.Cells(m + 4, n + 2).FormulaR1C1 = "To plot a graph:" ActiveSheet.Cells(m + 5, n + 2).FormulaR1C1 = "1. Max. steps = lenght of the graph." ActiveSheet.Cells(m + 6, n + 2).FormulaR1C1 = "2. Click Reset graph." ActiveSheet.Cells(m + 7, n + 2).FormulaR1C1 = "3. Choose in combo box a vector." ActiveSheet.Cells(m + 8, n + 2).FormulaR1C1 = "4. Run simulation or rotate." ActiveSheet.Cells(m + 9, n + 2).FormulaR1C1 = "" ActiveSheet.Cells(m + 11, n - 1).FormulaR1C1 = "1" 'formato de la caja de conifg Range(Cells(m + 4, n - 1), Cells(m + 11, n + 1)).Select With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With Selection.Borders(xlInsideVertical).LineStyle = xlYes With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.1 .PatternTintAndShade = 0 End With fin: End If End Sub Sub Project_16_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 16_Movimiento parabolico_ES ' Updated: 28/03/24 ' 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 16 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 + 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 = "0.1" 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 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "=IF(R[1]C> C button to view the system from different views." & Chr(10) & _ " You will observe how the image moves with the displacement of the focal length. Modify different parameters and observe the behavior of the lens. To return to the initial parameters, click Reset and reload the model." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 17 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[28]C[5]=1,"""",""Objeto"")" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Imagen de una lente" Cells(m + 4, n + 12).FormulaR1C1 = "IMAGEN PRODUCIDA POR UNA LENTE" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "=SIN(RADIANS(R[13]C[6]))" Cells(m + 6, n + 0).FormulaR1C1 = "=COS(RADIANS(R[13]C[5]))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[2]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[3]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[4]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = "OBJETO|||||||||||||||||" Cells(m + 8, n + -1).FormulaR1C1 = "=SIN(RADIANS(R[5]C[6]))" Cells(m + 8, n + 0).FormulaR1C1 = "=COS(RADIANS(R[5]C[5]))" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Posici" & ChrW(243) & "n:" Cells(m + 8, n + 7).FormulaR1C1 = "TIPO DE LENTE:" Cells(m + 8, n + 21).FormulaR1C1 = "Para construir la imagen de un objeto que se encuentra en el mismo plano que la lente (plano YZ) " Cells(m + 9, n + -1).FormulaR1C1 = "=R[3]C[6]*R[-1]C[1]*R[-3]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[3]C[5]*R[-1]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[3]C[4]*R[-1]C[-1]*R[-3]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = " x. =" Cells(m + 9, n + 5).FormulaR1C1 = "30" Cells(m + 9, n + 7).FormulaR1C1 = "=IF(R[11]C[-2]>0,"" C O N V E X A "",IF(R[11]C[-2]<0, "" C " & ChrW(211) & " N C A V A "","" V I D R I O P L A N O ""))" Cells(m + 9, n + 21).FormulaR1C1 = "y que est" & ChrW(225) & " inclinado un " & ChrW(225) & "ngulo determinado con respecto a la vertical (celda G16) se procede de la " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = " y =" Cells(m + 10, n + 5).FormulaR1C1 = "-100" Cells(m + 10, n + 21).FormulaR1C1 = "siguiente manera para la lente convexa:" 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 = " z =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 22).FormulaR1C1 = "Se toman dos haces de luz que salen de la cabeza del objeto, uno que pasa por el centro " Cells(m + 3, n + 1).Interior.Color = "13434777" 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 + 9 Then ' vector 16 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[19]C[5]=1,"""",""Imagen"")" Cells(m + 3, n + 1).FormulaR1C1 = "_120" Cells(m + 3, n + 4).FormulaR1C1 = "Altura =" Cells(m + 3, n + 5).FormulaR1C1 = "40" Cells(m + 3, n + 22).FormulaR1C1 = "de la lente y el otro que se dirige a la lente y se encuentra con ella a una altura " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Inclinaci" & ChrW(243) & "n:" Cells(m + 4, n + 5).FormulaR1C1 = "=R[-11]C[2]" Cells(m + 4, n + 22).FormulaR1C1 = "determinada (celda G25). La direcci" & ChrW(243) & "n del primer haz no cambia despu" & ChrW(233) & "s de pasar por la " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "FIJAR TRAYECTORIA|||||||" Cells(m + 5, n + 22).FormulaR1C1 = "lente. Para determinar el camino del segundo haz se traza un eje " & ChrW(243) & "ptico auxiliar (G32) " Cells(m + 6, n + 4).FormulaR1C1 = "S" & ChrW(205) & "=2, NO=1" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 22).FormulaR1C1 = "paralelo al haz y que pase por centro de la lente, proyect" & ChrW(225) & "ndolo hacia el plano focal." Cells(m + 7, n + -1).FormulaR1C1 = "=R[90]C+R[92]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[90]C+R[92]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[90]C+R[92]C" Cells(m + 7, n + 22).FormulaR1C1 = "El punto de intersecci" & ChrW(243) & "n del eje auxiliar con el plano focal es prec" & ChrW(237) & "samente el foco auxiliar, " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "SISTEMA|||||||||||||||||" Cells(m + 8, n + 22).FormulaR1C1 = "a trav" & ChrW(233) & "s del cual debe pasar el segundo haz despu" & ChrW(233) & "s de su refracci" & ChrW(243) & "n en la lente. " Cells(m + 9, n + -1).FormulaR1C1 = "=-R[90]C+R[63]C+R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[90]C+R[63]C+R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[90]C+R[63]C+R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Alto lente:" Cells(m + 9, n + 5).FormulaR1C1 = "150" Cells(m + 9, n + 22).FormulaR1C1 = "Estos dos haces se encuentran en un punto, el cual es el punto en donde" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-4]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "" & ChrW(193) & "ngulo incl.:" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 22).FormulaR1C1 = "se encuentra la cabeza de la imagen. Se procede de la misma manera para encontrar " 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 = "Dist. focal:" Cells(m + 11, n + 5).FormulaR1C1 = "50" Cells(m + 11, n + 22).FormulaR1C1 = "la cola de la imagen. " Cells(m + 3, n + 1).Interior.Color = "49407" 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 + 18 Then ' vector 15 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 4).FormulaR1C1 = "Altura cruce rayo-lente:" Cells(m + 3, n + 21).FormulaR1C1 = "Para el caso de la lente c" & ChrW(243) & "ncava el proceso de construcci" & ChrW(243) & "n de los haces es similar, con la diferencia " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Altura:" Cells(m + 4, n + 5).FormulaR1C1 = "50" Cells(m + 4, n + 21).FormulaR1C1 = "de que el haz que va paralelo al eje auxiliar, despu" & ChrW(233) & "s de refractarse en la lente, sigue de tal manera " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "Grosor del rayo (0 -5):" Cells(m + 5, n + 21).FormulaR1C1 = "que su prolongaci" & ChrW(243) & "n pasa por el foco auxiliar, este " & ChrW(250) & "ltimo siendo la intersecci" & ChrW(243) & "n del plano focal " Cells(m + 6, n + 4).FormulaR1C1 = "Rayo 1:" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "con el eje auxiliar (como en el caso anterior)." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 4).FormulaR1C1 = "Rayo 2:" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "||||||||||||||||||||||||" Cells(m + 8, n + 21).FormulaR1C1 = "EJEMPLO DE LENTE CONVEXA:" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C[6]*R[-21]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C[4]*R[-21]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "Distancia focal: " Cells(m + 9, n + 25).FormulaR1C1 = "G23 = 50" 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 (S" & ChrW(205) & "=0, NO=1):" Cells(m + 10, n + 22).FormulaR1C1 = "Posici" & ChrW(243) & "n del objeto:" Cells(m + 10, n + 25).FormulaR1C1 = "G13 = -100" Cells(m + 10, n + 26).FormulaR1C1 = "(imagen real)" Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R23C7<0,5,3)" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "Eje auxiliar:" Cells(m + 11, n + 5).FormulaR1C1 = "1" Cells(m + 11, n + 22).FormulaR1C1 = "Posici" & ChrW(243) & "n del objeto:" Cells(m + 11, n + 25).FormulaR1C1 = "G13 = -20" Cells(m + 11, n + 26).FormulaR1C1 = "(imagen virtual)" Cells(m + 3, n + 1).Interior.Color = "65535" 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 + 27 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[1]C[5]=1,"""",""Lente"")" Cells(m + 3, n + 4).FormulaR1C1 = "Plano focal:" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 22).FormulaR1C1 = "eje auxiliar:" Cells(m + 3, n + 25).FormulaR1C1 = "G32 = 0" Cells(m + 3, n + 26).FormulaR1C1 = "(0= mostrar, 1= ocultar eje auxiliar)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Etiquetas:" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 22).FormulaR1C1 = "Plano focal:" Cells(m + 4, n + 25).FormulaR1C1 = "G33=0" Cells(m + 4, n + 26).FormulaR1C1 = "(0= mostrar, 1= ocultarplano focal)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 22).FormulaR1C1 = "Etiquetas:" Cells(m + 5, n + 25).FormulaR1C1 = "G34=0" Cells(m + 5, n + 26).FormulaR1C1 = "(0= mostrar, 1= ocultar etiquetas)" 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 + 21).FormulaR1C1 = "Oprima los botones de ejecutar la simulaci" & ChrW(243) & "n para ver la imagen de diferentes inclinaciones del " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "objeto. Oprima G18 =2 (verifique que G16=I5) y oprima ejecutar para congelar el recorrido tanto" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "del objeto como de la imagen. " 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R23C7<0,5,3)" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "EJEMPLO DE LENTE C" & ChrW(211) & "NCAVA:" Cells(m + 3, n + 1).Interior.Color = "65535" 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 13 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-8]C[5]=1,"""",""Plano focal"")" Cells(m + 3, n + 2).FormulaR1C1 = "6" Cells(m + 3, n + 3).FormulaR1C1 = "0" Cells(m + 3, n + 22).FormulaR1C1 = "Distancia focal: " Cells(m + 3, n + 25).FormulaR1C1 = "G23 = -50" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Posici" & ChrW(243) & "n del objeto:" Cells(m + 4, n + 25).FormulaR1C1 = "G13 = -100" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-11]C[4]" Cells(m + 5, n + 22).FormulaR1C1 = "eje auxiliar:" Cells(m + 5, n + 25).FormulaR1C1 = "G32 = 0" Cells(m + 5, n + 26).FormulaR1C1 = "(0= mostrar, 1= ocultar eje auxiliar)" Cells(m + 6, n + -1).FormulaR1C1 = "t=" Cells(m + 6, n + 22).FormulaR1C1 = "Plano focal:" Cells(m + 6, n + 25).FormulaR1C1 = "G33=0" Cells(m + 6, n + 26).FormulaR1C1 = "(0= mostrar, 1= ocultarplano focal)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-23]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 22).FormulaR1C1 = "Etiquetas:" Cells(m + 7, n + 25).FormulaR1C1 = "G34=0" Cells(m + 7, n + 26).FormulaR1C1 = "(0= mostrar, 1= ocultar etiquetas)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "Oprima los botones de ejecutar la simulaci" & ChrW(243) & "n para ver la imagen de diferentes inclinaciones del " 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "objeto (verifique que G16=I5) ." 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 + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 45 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 2).FormulaR1C1 = "1" Cells(m + 3, n + 3).FormulaR1C1 = "0" Cells(m + 3, n + 21).FormulaR1C1 = "Para experimentar diferentes distancias focales consecutivamente, coloque G16 = 0 y G23 =I5-50" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "(la celda I5 es el contador). Verifique que G18 = 1. Oprima el bot" & ChrW(243) & "n Ejecutar o los botones " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-20]C[4]" Cells(m + 5, n + 21).FormulaR1C1 = "contiguos a este para analizar diferentes planos focales. " Cells(m + 6, n + -1).FormulaR1C1 = "t=" 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 + 21).FormulaR1C1 = "Puede oprimir XYZ y el bot" & ChrW(243) & "n C para rotar todo el sistema " & ChrW(243) & "ptico 360 grados. " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "(Las ecuaciones con las que se construy" & ChrW(243) & " el modelo est" & ChrW(225) & "n analizadas en los libros de ScienSolar.)" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 54 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "7" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-11]C[2]" Cells(m + 5, n + 2).FormulaR1C1 = "2" Cells(m + 5, n + 3).FormulaR1C1 = "0" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[-35]C-R[-53]C-R[-33]C/R[-33]C[1]*(R[-35]C[1]-R[-53]C[1]))/(R[3]C-R[-33]C*R[3]C[1]/R[-33]C[1])" Cells(m + 6, n + 2).FormulaR1C1 = "3" Cells(m + 6, n + 3).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 2).FormulaR1C1 = "4" Cells(m + 7, n + 3).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "5" Cells(m + 8, n + 3).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-41]C[6]*R[-57]C-R[-54]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-56]C-R[-54]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-41]C[4]+1)*R[-57]C[-1]-R[-54]C-R[-56]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" 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 + 63 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "8" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[54]C*R126C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[54]C*R126C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[54]C*R126C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" 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 + 72 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "9" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-17]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[54]C*R128C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[54]C*R128C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[54]C*R128C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" 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 + 81 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "10" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-25]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-81]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C*R63C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C*R63C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C*R63C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 90 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "11" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-33]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[45]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[45]C*R144C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[45]C*R144C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[45]C*R144C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 99 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "12" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-65]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[45]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[45]C*R146C2+0.001" Cells(m + 9, n + 0).FormulaR1C1 = "=R[45]C*R146C2+0.001" Cells(m + 9, n + 1).FormulaR1C1 = "=R[45]C*R146C2+0.001" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 108 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "13" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-80]C[5]=1,"""",""Eje auxiliar"")" 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 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-84]C[4]" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[-94]C[5]-R[-89]C-R[-87]C/R[-87]C[1]*(R[-89]C[1]-R[-107]C[1]))/(R[-51]C-R[-87]C*R[-51]C[1]/R[-87]C[1])" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-90]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-90]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-90]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-54]C*R117C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-54]C*R117C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-54]C*R117C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = "AUX1" Call AddNewVector End If ' vector ends If m = m1 + 117 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX1" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "t=" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[10]C-R[1]C-R[12]C/R[12]C[1]*(R[10]C[1]-R[1]C[1]))/(R[3]C-R[12]C*R[3]C[1]/R[12]C[1])" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-63]C+R[-61]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-63]C+R[-61]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-63]C+R[-61]C" Cells(m + 8, n + -1).FormulaR1C1 = "s=" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-1]C[1]/R[10]C[1]-R[8]C[1]/R[10]C[1]+R[1]C[1]/R[10]C[1]*R[-2]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(-R[-104]C[6]*R[-120]C+R[-9]C)" Cells(m + 9, n + 0).FormulaR1C1 = "=(R[-99]C+R[-9]C)" Cells(m + 9, n + 1).FormulaR1C1 = "=(-(R[-104]C[4]+1)*R[-120]C[-1]+R[-9]C)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "4" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 = "AUX2" Call AddNewVector End If ' vector ends If m = m1 + 126 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX2" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-126]C+R[-124]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-126]C+R[-124]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-126]C+R[-124]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(-R[-126]C)" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-2]C)" Cells(m + 9, n + 1).FormulaR1C1 = "=(-R[-2]C+0.01)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 = "AUX3" Call AddNewVector End If ' vector ends If m = m1 + 135 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX3" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 6, n + -1).FormulaR1C1 = "t=" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[10]C-R[1]C-R[12]C*POWER(R[12]C[1],-1)*(R[10]C[1]-R[1]C[1]))/(R[3]C-R[12]C*R[3]C[1]*POWER(R[12]C[1],-1))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 8, n + -1).FormulaR1C1 = "s=" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-1]C[1]/R[10]C[1]-R[8]C[1]/R[10]C[1]+R[1]C[1]/R[10]C[1]*R[-2]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-54]C+R[-135]C+R[-81]C+R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-54]C+R[-135]C+R[-81]C+R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-54]C+R[-135]C+R[-81]C+R[-18]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = "AUX4" Call AddNewVector End If ' vector ends If m = m1 + 144 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX4" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-144]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-144]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-144]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-144]C-R[-144]C)" Cells(m + 9, n + 0).FormulaR1C1 = "=(R[-144]C-R[-20]C)" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-144]C-R[-20]C)+0.0001" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = 17 End If ' vector ends If m = m1 + 144 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_18_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 18_Lens_EN ' Updated: 30/03/24 ' Created by: (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 18 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" 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 = " (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "=IF(R[28]C[5]=1,"""",""Objeto"")" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "IMAGEN DE UNA LENTE CONVEXA Y DE UNA LENTE C" & ChrW(211) & "NCAVA" & Chr(10) & _ " El modelo muestra c" & ChrW(243) & "mo se puede construir la imagen en una lente de un objeto que tiene una posici" & ChrW(243) & "n y orientaci" & ChrW(243) & "n arbitrarias delante de la lente. " & Chr(10) & _ " Tanto el objeto como la imagen se representan con flechas. La construcci" & ChrW(243) & "n se hace por medio de dos haces que salen de la parte superior del objeto, uno de ellos pasa por un punto determinado de la lente y el otro por el origen. Al trasladar el primer haz paralelamente hasta el origen, este va a intersectarse con el plano focal de la lente en un punto determinado. Este punto de intersecci" & ChrW(243) & "n es por donde pasar" & ChrW(225) & " el primer haz y su proyecci" & ChrW(243) & "n hasta que se intersecte con el segundo haz (que pas" & ChrW(243) & " por el origen) determinar" & ChrW(225) & " el punto superior de la imagen. Para determinar el punto en donde inicia la imagen se procede de la misma manera con otros dos haces. " & Chr(10) & _ " " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " IMAGE OF A CONVEX LENS AND A CONCAVE LENS" & Chr(10) & _ " The model shows how the image can be constructed in a lens of an object having an arbitrary position and orientation in front of the lens." & Chr(10) & _ " Both the object and the image are represented by arrows. The construction is carried out by means of two rays that come out of the upper part of the object, one of them passes through a certain point of the lens and the other through the origin. By translating the first ray parallel to the origin, it will intersect the focal plane of the lens at a certain point. This intersection point is where the first ray will pass and its projection to the intersection with the second ray (which passed through the origin) will determine the top point of the image. To determine the point where the image begins, proceed in the same way with two other rays." & Chr(10) & _ " Press the >> C button to view the system from different views." & Chr(10) & _ " You will observe how the image moves with the displacement of the focal length. Modify different parameters and observe the behavior of the lens. To return to the initial parameters, click Reset and reload the model." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 17 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[28]C[5]=1,"""",""Objeto"")" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Image of a lens" Cells(m + 4, n + 12).FormulaR1C1 = "IMAGE OF A LENS" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "=SIN(RADIANS(R[13]C[6]))" Cells(m + 6, n + 0).FormulaR1C1 = "=COS(RADIANS(R[13]C[5]))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[2]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[3]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[4]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = "OBJECT|||||||||||||||||" Cells(m + 8, n + -1).FormulaR1C1 = "=SIN(RADIANS(R[5]C[6]))" Cells(m + 8, n + 0).FormulaR1C1 = "=COS(RADIANS(R[5]C[5]))" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Position:" Cells(m + 8, n + 7).FormulaR1C1 = "LENS TYPE:" Cells(m + 8, n + 21).FormulaR1C1 = "To construct the image of an object that is in the same plane as the lens (YZ plane) and that is inclined at " Cells(m + 9, n + -1).FormulaR1C1 = "=R[3]C[6]*R[-1]C[1]*R[-3]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[3]C[5]*R[-1]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[3]C[4]*R[-1]C[-1]*R[-3]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = " x. =" Cells(m + 9, n + 5).FormulaR1C1 = "30" Cells(m + 9, n + 7).FormulaR1C1 = "=IF(R[11]C[-2]>0,"" C O N V E X "",IF(R[11]C[-2]<0, "" C O N C A V E "","" FLAT GLASS ""))" Cells(m + 9, n + 21).FormulaR1C1 = "a certain angle with respect to the vertical (cell G16), we proceed as follows:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = " y =" Cells(m + 10, n + 5).FormulaR1C1 = "-100" Cells(m + 10, n + 21).FormulaR1C1 = "for convex lens:" 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 = " z =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 21).FormulaR1C1 = "Two beams of light are taken coming out of the head of the object, one passing through the center of the " Cells(m + 3, n + 1).Interior.Color = "13434777" 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 + 9 Then ' vector 16 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[19]C[5]=1,"""",""Imagen"")" Cells(m + 3, n + 1).FormulaR1C1 = "_120" Cells(m + 3, n + 4).FormulaR1C1 = "Height =" Cells(m + 3, n + 5).FormulaR1C1 = "40" Cells(m + 3, n + 21).FormulaR1C1 = "lens and the other directed to the lens and meeting it at a given height (cell G25). The direction of the first " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Inclination:" Cells(m + 4, n + 5).FormulaR1C1 = "=R[-11]C[2]" Cells(m + 4, n + 21).FormulaR1C1 = "beam does not change after passing through the lens. To determine the path of the second beam, an " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "FIX PATH|||||||" Cells(m + 5, n + 21).FormulaR1C1 = "auxiliary optical axis (G32) is drawn parallel to the beam and passes through the center of the lens, " Cells(m + 6, n + 4).FormulaR1C1 = "YES=2, NO=1" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "projecting it towards the focal plane. The point of intersection of the auxiliary axis with the focal plane " Cells(m + 7, n + -1).FormulaR1C1 = "=R[90]C+R[92]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[90]C+R[92]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[90]C+R[92]C" Cells(m + 7, n + 21).FormulaR1C1 = "is the auxiliary focus, through which the second beam must pass after its refraction in the lens. These two " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "SYSTEM|||||||||||||||||" Cells(m + 8, n + 21).FormulaR1C1 = "beams meet at a point, which is the point where the image head is located. We proceed in the same " Cells(m + 9, n + -1).FormulaR1C1 = "=-R[90]C+R[63]C+R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[90]C+R[63]C+R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[90]C+R[63]C+R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "High lens:" Cells(m + 9, n + 5).FormulaR1C1 = "150" Cells(m + 9, n + 21).FormulaR1C1 = "way to find the tail of the image." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-4]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "Angle included:" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "In the case of the concave lens, the beam construction process is similar, with the difference that the " 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 = "Focal distance:" Cells(m + 11, n + 5).FormulaR1C1 = "50" Cells(m + 11, n + 21).FormulaR1C1 = "beam that goes parallel to the auxiliary axis, after refracting in the lens, continues in such a way" Cells(m + 3, n + 1).Interior.Color = "49407" 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 + 18 Then ' vector 15 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 4).FormulaR1C1 = "Beam-lens crossing height:" Cells(m + 3, n + 21).FormulaR1C1 = "that its extension passes through the auxiliary focus, the latter being the intersection of the focal plane " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Height:" Cells(m + 4, n + 5).FormulaR1C1 = "50" Cells(m + 4, n + 21).FormulaR1C1 = "with the auxiliary axis (as in the previous case)." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "Beam thickness (0 -5):" Cells(m + 6, n + 4).FormulaR1C1 = "Ray 1:" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "EXAMPLE OF CONVEX LENS:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 4).FormulaR1C1 = "Ray 2:" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 7, n + 22).FormulaR1C1 = "Focal distance:" Cells(m + 7, n + 25).FormulaR1C1 = "G23 = 50" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "||||||||||||||||||||||||" Cells(m + 8, n + 22).FormulaR1C1 = "Object position:" Cells(m + 8, n + 25).FormulaR1C1 = "G13 = -100" Cells(m + 8, n + 26).FormulaR1C1 = "(real image)" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C[6]*R[-21]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C[4]*R[-21]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "Object position:" Cells(m + 9, n + 25).FormulaR1C1 = "G13 = -20" Cells(m + 9, n + 26).FormulaR1C1 = "(virtual image)" 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 = "SHOW (YES=0, NO=1):" Cells(m + 10, n + 22).FormulaR1C1 = "Auxiliary axle:" Cells(m + 10, n + 25).FormulaR1C1 = "G32 = 0" Cells(m + 10, n + 26).FormulaR1C1 = "(0= show, 1= hide auxiliary axis)" Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R23C7<0,5,3)" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "Auxiliary axis:" Cells(m + 11, n + 5).FormulaR1C1 = "1" Cells(m + 11, n + 22).FormulaR1C1 = "Focal plane:" Cells(m + 11, n + 25).FormulaR1C1 = "G33=0" Cells(m + 11, n + 26).FormulaR1C1 = "(0= show, 1= hide focal plane)" Cells(m + 3, n + 1).Interior.Color = "65535" 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 + 27 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[1]C[5]=1,"""",""Lente"")" Cells(m + 3, n + 4).FormulaR1C1 = "Focal plane:" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 22).FormulaR1C1 = "Tags:" Cells(m + 3, n + 25).FormulaR1C1 = "G34=0" Cells(m + 3, n + 26).FormulaR1C1 = "(0= show, 1= hide labels)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Tags:" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Press the simulation run buttons to see the image with different inclinations of the object. Press " Cells(m + 6, n + 21).FormulaR1C1 = "G18 =2 (check that G16=I5) and press run to freeze the path of both the object and the image." 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 + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "EXAMPLE OF CONCAVE LENS:" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "Focal distance:" Cells(m + 9, n + 25).FormulaR1C1 = "G23 = -50" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "Object position:" Cells(m + 10, n + 25).FormulaR1C1 = "G13 = -100" Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R23C7<0,5,3)" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "Auxiliary axle:" Cells(m + 11, n + 25).FormulaR1C1 = "G32 = 0" Cells(m + 11, n + 26).FormulaR1C1 = "(0= show, 1= hide auxiliary axis)" Cells(m + 3, n + 1).Interior.Color = "65535" 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 13 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-8]C[5]=1,"""",""Plano focal"")" Cells(m + 3, n + 2).FormulaR1C1 = "6" Cells(m + 3, n + 3).FormulaR1C1 = "0" Cells(m + 3, n + 22).FormulaR1C1 = "Focal plane:" Cells(m + 3, n + 25).FormulaR1C1 = "G33=0" Cells(m + 3, n + 26).FormulaR1C1 = "(0= show, 1= hide focal plane)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Tags:" Cells(m + 4, n + 25).FormulaR1C1 = "G34=0" Cells(m + 4, n + 26).FormulaR1C1 = "(0= show, 1= hide labels)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-11]C[4]" Cells(m + 6, n + -1).FormulaR1C1 = "t=" Cells(m + 6, n + 21).FormulaR1C1 = "Press the simulation run buttons to view the image of different inclinations of the object" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-23]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 21).FormulaR1C1 = "(check that G16=I5)." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "To experiment different focal lengths consecutively, set G16 = 0 and G23 =I5-50 (cell I5 is the counter). " 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Verify that G18 = 1. Press the Run button or the buttons next to it to analyze different focal planes." 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 + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 45 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 2).FormulaR1C1 = "1" Cells(m + 3, n + 3).FormulaR1C1 = "0" Cells(m + 3, n + 21).FormulaR1C1 = "You can press XYZ and the C button to rotate the entire optical system 360 degrees." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "(The equations with which the model was built are analyzed in the ScienSolar books.)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-20]C[4]" Cells(m + 6, n + -1).FormulaR1C1 = "t=" 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 + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 54 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "7" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-11]C[2]" Cells(m + 5, n + 2).FormulaR1C1 = "2" Cells(m + 5, n + 3).FormulaR1C1 = "0" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[-35]C-R[-53]C-R[-33]C/R[-33]C[1]*(R[-35]C[1]-R[-53]C[1]))/(R[3]C-R[-33]C*R[3]C[1]/R[-33]C[1])" Cells(m + 6, n + 2).FormulaR1C1 = "3" Cells(m + 6, n + 3).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 2).FormulaR1C1 = "4" Cells(m + 7, n + 3).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "5" Cells(m + 8, n + 3).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-41]C[6]*R[-57]C-R[-54]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-56]C-R[-54]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-41]C[4]+1)*R[-57]C[-1]-R[-54]C-R[-56]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" 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 + 63 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "8" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[54]C*R126C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[54]C*R126C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[54]C*R126C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" 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 + 72 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "9" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-17]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[54]C*R128C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[54]C*R128C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[54]C*R128C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" 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 + 81 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "10" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-25]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-81]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C*R63C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C*R63C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C*R63C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 90 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "11" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-33]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[45]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[45]C*R144C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[45]C*R144C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[45]C*R144C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 99 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "12" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-65]C[2]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[45]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[45]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[45]C*R146C2+0.001" Cells(m + 9, n + 0).FormulaR1C1 = "=R[45]C*R146C2+0.001" Cells(m + 9, n + 1).FormulaR1C1 = "=R[45]C*R146C2+0.001" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 + 108 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "13" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-80]C[5]=1,"""",""Eje auxiliar"")" 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 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-84]C[4]" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[-94]C[5]-R[-89]C-R[-87]C/R[-87]C[1]*(R[-89]C[1]-R[-107]C[1]))/(R[-51]C-R[-87]C*R[-51]C[1]/R[-87]C[1])" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-90]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-90]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-90]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-54]C*R117C2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-54]C*R117C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-54]C*R117C2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = "AUX1" Call AddNewVector End If ' vector ends If m = m1 + 117 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX1" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "t=" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[10]C-R[1]C-R[12]C/R[12]C[1]*(R[10]C[1]-R[1]C[1]))/(R[3]C-R[12]C*R[3]C[1]/R[12]C[1])" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-63]C+R[-61]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-63]C+R[-61]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-63]C+R[-61]C" Cells(m + 8, n + -1).FormulaR1C1 = "s=" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-1]C[1]/R[10]C[1]-R[8]C[1]/R[10]C[1]+R[1]C[1]/R[10]C[1]*R[-2]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(-R[-104]C[6]*R[-120]C+R[-9]C)" Cells(m + 9, n + 0).FormulaR1C1 = "=(R[-99]C+R[-9]C)" Cells(m + 9, n + 1).FormulaR1C1 = "=(-(R[-104]C[4]+1)*R[-120]C[-1]+R[-9]C)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "4" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 = "AUX2" Call AddNewVector End If ' vector ends If m = m1 + 126 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX2" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-126]C+R[-124]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-126]C+R[-124]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-126]C+R[-124]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(-R[-126]C)" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-2]C)" Cells(m + 9, n + 1).FormulaR1C1 = "=(-R[-2]C+0.01)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 = "AUX3" Call AddNewVector End If ' vector ends If m = m1 + 135 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX3" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 6, n + -1).FormulaR1C1 = "t=" Cells(m + 6, n + 0).FormulaR1C1 = "=(R[10]C-R[1]C-R[12]C*POWER(R[12]C[1],-1)*(R[10]C[1]-R[1]C[1]))/(R[3]C-R[12]C*R[3]C[1]*POWER(R[12]C[1],-1))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C+R[-52]C" Cells(m + 8, n + -1).FormulaR1C1 = "s=" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-1]C[1]/R[10]C[1]-R[8]C[1]/R[10]C[1]+R[1]C[1]/R[10]C[1]*R[-2]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-54]C+R[-135]C+R[-81]C+R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-54]C+R[-135]C+R[-81]C+R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-54]C+R[-135]C+R[-81]C+R[-18]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = "AUX4" Call AddNewVector End If ' vector ends If m = m1 + 144 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "AUX4" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-144]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-144]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-144]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-144]C-R[-144]C)" Cells(m + 9, n + 0).FormulaR1C1 = "=(R[-144]C-R[-20]C)" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-144]C-R[-20]C)+0.0001" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = 17 End If ' vector ends If m = m1 + 144 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_19_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 19_Piramide 3D_ES ' Updated: 30/03/24 ' 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 19 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 + 0, n1 + 0).FormulaR1C1 = "60" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "77" 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 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "Height:" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "h" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "PIR" & ChrW(193) & "MIDE SOBRE BASE DE 6 ARISTAS" & Chr(10) & _ " Modifique la altura en la celda I5 y oprima el bot" & ChrW(243) & "n de la celda F3 para ver resultados. Las dimensiones de la base se modifican en la celda H6. El " & ChrW(225) & "ngulo interno entre las aristas de la base se establece en la celda I6 = 60 grados. Con el bot" & ChrW(243) & "n Run puede simular el cambio de altura desde el valor indicado en I5 un n" & ChrW(250) & "mero de veces indicado en I4 cada vez incrementando o disminuyendo en el valor indicado en I3. El bot" & ChrW(243) & "n Selected hace el mismo trabajo pero con el valor de cualquier otra celda." & Chr(10) & _ " Por ejemplo, ponga los valores I3=1, I4 = 60, I6 = 0, y deje seleccionada la celda I6, presione Selected y observar" & ChrW(225) & " que la pir" & ChrW(225) & "mide desarmada se compondr" & ChrW(225) & " al cabo de 60 pasos. " & Chr(10) & _ " Ejemplo 2, ponga los valores I3 = -0,5, I4 = 60 , H6 = 5, y deje seleccionada la celda H6, presione Selected y observar" & ChrW(225) & " que la pir" & ChrW(225) & "mide ir" & ChrW(225) & " cambiando el tama" & ChrW(233) & "o de su base durante 60 pasos" & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " PYRAMID ON A 6-EDGE BASE" & Chr(10) & _ " Modify the height in cell I5 and press the button in cell F3 to see the results. The base dimensions are changed in cell H6. The internal angle between the edges of the base is set in cell I6 = 60 degrees. With the Run button you can simulate the change in height from the value indicated in I5 a number of times indicated in I4 by increasing or decreasing each time the value indicated in I3. The Selected button does the same but with the value of any other cell." & Chr(10) & _ " For example, put the values " & ChrW(233) & "" & ChrW(233) & "I3=1, I4=60, I6=0, and leave cell I6 selected, press Selected and you will see that the disassembled pyramid will be composed after 60 steps." & Chr(10) & _ " Example 2, put the values " & ChrW(233) & "" & ChrW(233) & "I3=-0.5, I4=60, H6=5, and leave cell H6 selected, press Selected and you will see that the pyramid will change the size of its base by 60 steps" & Chr(10) & _ " " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "h" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" 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 = "Pir" & ChrW(225) & "mide 3D" Cells(m + 4, n + 12).FormulaR1C1 = "PIR" & ChrW(193) & "MIDE n-ANGULAR" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "8" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "=R[6]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[7]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[8]C[4]+R[4]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = "DATOS INICIALES:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Lado de la base:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[2]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "L =" Cells(m + 9, n + 5).FormulaR1C1 = "5" Cells(m + 9, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n permite caracterizar cualquier pir" & ChrW(225) & "mide que tiene como base un pol" & ChrW(237) & "gono de lados iguales " 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 = "Altura:" Cells(m + 10, n + 21).FormulaR1C1 = "y cualquier n" & ChrW(250) & "mero de lados. " Cells(m + 11, n + -1).FormulaR1C1 = "5" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "h =" Cells(m + 11, n + 5).FormulaR1C1 = "=R[-9]C[2]/(-R[-11]C[2]*10)+9" Cells(m + 11, n + 21).FormulaR1C1 = "Los par" & ChrW(225) & "metros iniciales que deben ingresarse son:" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 4).FormulaR1C1 = "POSICI" & ChrW(211) & "N" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "x =" Cells(m + 4, n + 5).FormulaR1C1 = "5" Cells(m + 4, n + 21).FormulaR1C1 = "Lado de la base:" Cells(m + 4, n + 23).FormulaR1C1 = "G12" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "y =" Cells(m + 5, n + 5).FormulaR1C1 = "5" Cells(m + 5, n + 21).FormulaR1C1 = "Altura de la pir" & ChrW(225) & "mide:" Cells(m + 5, n + 23).FormulaR1C1 = "G14 " Cells(m + 5, n + 24).FormulaR1C1 = "(Oprima Ejecutar para cambiar consecutivamente su altura)" Cells(m + 6, n + 4).FormulaR1C1 = "z =" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 21).FormulaR1C1 = "Posici" & ChrW(243) & "n centro de la base:" Cells(m + 6, n + 23).FormulaR1C1 = "G16, G17, G18." 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 + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[5]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 8, n + 21).FormulaR1C1 = "Tipo de pir" & ChrW(225) & "mide (triangular, cuadrada, pentagonal, etc): Utilice los botones +OBJ y -OBJ para agregar o quitar " Cells(m + 9, n + -1).FormulaR1C1 = "=R[9]C-R[27]C/2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[9]C-R[27]C/2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[4]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "RESULTADOS:" Cells(m + 9, n + 21).FormulaR1C1 = "caras a la pir" & ChrW(225) & "mide." 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 = "N =" Cells(m + 10, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""TRG_*"")" 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 + 4).FormulaR1C1 = "b =" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[-9]C^2+R[7]C^2)" Cells(m + 11, n + 6).FormulaR1C1 = "(Eq-19-b)" Cells(m + 11, n + 21).FormulaR1C1 = "Los par" & ChrW(225) & "metros que caracterizan a la pir" & ChrW(225) & "mide y que se arrojan como resultados son: " 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 = "d" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "d" Cells(m + 3, n + 4).FormulaR1C1 = "a =" Cells(m + 3, n + 5).FormulaR1C1 = "=SQRT(R[15]C[-6]^2+R[15]C[-5]^2+R[15]C[-4]^2)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "V =" Cells(m + 4, n + 5).FormulaR1C1 = "=ABS(R[8]C*R[-11]C/3)" Cells(m + 4, n + 6).FormulaR1C1 = "(Eq-19-V)" Cells(m + 4, n + 23).FormulaR1C1 = "G22" Cells(m + 4, n + 24).FormulaR1C1 = "N" Cells(m + 4, n + 25).FormulaR1C1 = "N" & ChrW(250) & "mero de caras laterales de la pir" & ChrW(225) & "mide." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 23).FormulaR1C1 = "G23" Cells(m + 5, n + 24).FormulaR1C1 = "b" Cells(m + 5, n + 25).FormulaR1C1 = "Longitud de la arista vertical." Cells(m + 6, n + 4).FormulaR1C1 = "BASE:" Cells(m + 6, n + 23).FormulaR1C1 = "G24" Cells(m + 6, n + 24).FormulaR1C1 = "a" Cells(m + 6, n + 25).FormulaR1C1 = "Apotema." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 4).FormulaR1C1 = "alpha =" Cells(m + 7, n + 5).FormulaR1C1 = "=180-R[1]C" Cells(m + 7, n + 6).FormulaR1C1 = "(Eq-19-a)" Cells(m + 7, n + 23).FormulaR1C1 = "G25" Cells(m + 7, n + 24).FormulaR1C1 = "V" Cells(m + 7, n + 25).FormulaR1C1 = "Volumen." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "theta =" Cells(m + 8, n + 5).FormulaR1C1 = "=360/R[-7]C" Cells(m + 8, n + 6).FormulaR1C1 = "(Eq-19-t)" Cells(m + 8, n + 22).FormulaR1C1 = "BASE:" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-18]C-R[27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C-R[27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-18]C-R[27]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "d =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[-18]C/(2*COS(RADIANS((180-R[-1]C)/2)))" Cells(m + 9, n + 6).FormulaR1C1 = "(Eq-19-d)" Cells(m + 9, n + 23).FormulaR1C1 = "G28" Cells(m + 9, n + 24).FormulaR1C1 = "alpha" Cells(m + 9, n + 25).FormulaR1C1 = "" & ChrW(193) & "ngulo interior entre cara y cara." 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 = "a_base =" Cells(m + 10, n + 5).FormulaR1C1 = "=SQRT(R[-10]C[-6]^2+R[-10]C[-5]^2)" Cells(m + 10, n + 23).FormulaR1C1 = "G29" Cells(m + 10, n + 24).FormulaR1C1 = "theta" Cells(m + 10, n + 25).FormulaR1C1 = "" & ChrW(193) & "ngulo exterior de avance de cada cara." 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 + 4).FormulaR1C1 = "P =" Cells(m + 11, n + 5).FormulaR1C1 = "=R[-10]C*R[-20]C" Cells(m + 11, n + 6).FormulaR1C1 = "(Eq-19-P)" Cells(m + 11, n + 23).FormulaR1C1 = "G30" Cells(m + 11, n + 24).FormulaR1C1 = "d" Cells(m + 11, n + 25).FormulaR1C1 = "Distancia desde uno de los v" & ChrW(233) & "rtices hasta el centro." 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 = "a" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "a" Cells(m + 3, n + 4).FormulaR1C1 = "S =" Cells(m + 3, n + 5).FormulaR1C1 = "=R[-1]C*R[-2]C/2" Cells(m + 3, n + 6).FormulaR1C1 = "(Eq-19-S)" Cells(m + 3, n + 23).FormulaR1C1 = "G31" Cells(m + 3, n + 24).FormulaR1C1 = "a_base" Cells(m + 3, n + 25).FormulaR1C1 = "Apotema de la base." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 4, n + 23).FormulaR1C1 = "G32" Cells(m + 4, n + 24).FormulaR1C1 = "P" Cells(m + 4, n + 25).FormulaR1C1 = "Per" & ChrW(237) & "metro de la base." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 23).FormulaR1C1 = "G33" Cells(m + 5, n + 24).FormulaR1C1 = "S" Cells(m + 5, n + 25).FormulaR1C1 = "" & ChrW(193) & "rea de la base." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 21).FormulaR1C1 = "Las f" & ChrW(243) & "rmulas para calcular algunos de estos par" & ChrW(225) & "metros se muestran en la simulaci" & ChrW(243) & "n a trav" & ChrW(233) & "s de sus " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "NOTA: " Cells(m + 8, n + 21).FormulaR1C1 = "respectivos botones." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-21]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "POR FAVOR" 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 = "LEA LAS INSTRUCCIONES" 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 + 4).FormulaR1C1 = "PARA AGREGAR O QUITAR" 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 = "L" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "L" Cells(m + 3, n + 1).FormulaR1C1 = "=(RC[-2]-1)/2-1" Cells(m + 3, n + 2).FormulaR1C1 = "=""TRG_""&RC[-1]" Cells(m + 3, n + 4).FormulaR1C1 = "NUEVAS CARAS." 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C-R[-16]C[6]*SIN(RADIANS((180-R[-17]C[6])/2))" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C+R[-16]C[5]*COS(RADIANS((180-R[-17]C[5])/2))" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R12C7*SIN(RADIANS(R29C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R12C7*COS(RADIANS(R29C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "2315831" 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 = "b" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "b" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R30C7*SIN(RADIANS(R29C7*(R[-15]C[2]+1)+(180-R29C7)/2))" Cells(m + 9, n + 0).FormulaR1C1 = "=R30C7*COS(RADIANS(R29C7*(R[-15]C[1]+1)+(180-R29C7)/2))" Cells(m + 9, n + 1).FormulaR1C1 = "=R14C7" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" 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 + 54 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=(RC[-2]-1)/2-1" Cells(m + 3, n + 2).FormulaR1C1 = "=""TRG_""&RC[-1]" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R12C7*SIN(RADIANS(R29C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R12C7*COS(RADIANS(R29C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "2315831" 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 + 63 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R30C7*SIN(RADIANS(R29C7*(R[-15]C[2]+1)+(180-R29C7)/2))" Cells(m + 9, n + 0).FormulaR1C1 = "=R30C7*COS(RADIANS(R29C7*(R[-15]C[1]+1)+(180-R29C7)/2))" Cells(m + 9, n + 1).FormulaR1C1 = "=R14C7" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" 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 + 72 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=(RC[-2]-1)/2-1" Cells(m + 3, n + 2).FormulaR1C1 = "=""TRG_""&RC[-1]" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R12C7*SIN(RADIANS(R29C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R12C7*COS(RADIANS(R29C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "2315831" 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 + 81 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R30C7*SIN(RADIANS(R29C7*(R[-15]C[2]+1)+(180-R29C7)/2))" Cells(m + 9, n + 0).FormulaR1C1 = "=R30C7*COS(RADIANS(R29C7*(R[-15]C[1]+1)+(180-R29C7)/2))" Cells(m + 9, n + 1).FormulaR1C1 = "=R14C7" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" 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 = 10 End If ' vector ends If m = m1 + 81 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_19_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 19_3D Pyramid_EN ' Updated: 30/03/24 ' 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 19 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 + 0, n1 + 0).FormulaR1C1 = "60" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "77" 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 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "Height:" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "h" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "PIR" & ChrW(193) & "MIDE SOBRE BASE DE 6 ARISTAS" & Chr(10) & _ " Modifique la altura en la celda I5 y oprima el bot" & ChrW(243) & "n de la celda F3 para ver resultados. Las dimensiones de la base se modifican en la celda H6. El " & ChrW(225) & "ngulo interno entre las aristas de la base se establece en la celda I6 = 60 grados. Con el bot" & ChrW(243) & "n Run puede simular el cambio de altura desde el valor indicado en I5 un n" & ChrW(250) & "mero de veces indicado en I4 cada vez incrementando o disminuyendo en el valor indicado en I3. El bot" & ChrW(243) & "n Selected hace el mismo trabajo pero con el valor de cualquier otra celda." & Chr(10) & _ " Por ejemplo, ponga los valores I3=1, I4 = 60, I6 = 0, y deje seleccionada la celda I6, presione Selected y observar" & ChrW(225) & " que la pir" & ChrW(225) & "mide desarmada se compondr" & ChrW(225) & " al cabo de 60 pasos. " & Chr(10) & _ " Ejemplo 2, ponga los valores I3 = -0,5, I4 = 60 , H6 = 5, y deje seleccionada la celda H6, presione Selected y observar" & ChrW(225) & " que la pir" & ChrW(225) & "mide ir" & ChrW(225) & " cambiando el tama" & ChrW(233) & "o de su base durante 60 pasos" & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " PYRAMID ON A 6-EDGE BASE" & Chr(10) & _ " Modify the height in cell I5 and press the button in cell F3 to see the results. The base dimensions are changed in cell H6. The internal angle between the edges of the base is set in cell I6 = 60 degrees. With the Run button you can simulate the change in height from the value indicated in I5 a number of times indicated in I4 by increasing or decreasing each time the value indicated in I3. The Selected button does the same but with the value of any other cell." & Chr(10) & _ " For example, put the values " & ChrW(233) & "" & ChrW(233) & "I3=1, I4=60, I6=0, and leave cell I6 selected, press Selected and you will see that the disassembled pyramid will be composed after 60 steps." & Chr(10) & _ " Example 2, put the values " & ChrW(233) & "" & ChrW(233) & "I3=-0.5, I4=60, H6=5, and leave cell H6 selected, press Selected and you will see that the pyramid will change the size of its base by 60 steps" & Chr(10) & _ " " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "h" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" 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 = "3D pyramid" Cells(m + 4, n + 12).FormulaR1C1 = "n-ANGULAR PYRAMID" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "8" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "=R[6]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[7]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[8]C[4]+R[4]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = "INITIAL DATA:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Base side:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[2]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "L =" Cells(m + 9, n + 5).FormulaR1C1 = "5" Cells(m + 9, n + 21).FormulaR1C1 = "The simulation allows us to characterize any pyramid that has as its base a polygon with equal and " 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 = "Height:" Cells(m + 10, n + 21).FormulaR1C1 = "any number of sides. The initial parameters that must be entered are:" Cells(m + 11, n + -1).FormulaR1C1 = "5" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "h =" Cells(m + 11, n + 5).FormulaR1C1 = "=R[-9]C[2]/(-R[-11]C[2]*10)+9" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 4).FormulaR1C1 = "POSITION" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "x =" Cells(m + 4, n + 5).FormulaR1C1 = "5" Cells(m + 4, n + 21).FormulaR1C1 = "Base side:" Cells(m + 4, n + 23).FormulaR1C1 = "G12" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "y =" Cells(m + 5, n + 5).FormulaR1C1 = "5" Cells(m + 5, n + 21).FormulaR1C1 = "Pyramid height:" Cells(m + 5, n + 23).FormulaR1C1 = "G14 " Cells(m + 5, n + 24).FormulaR1C1 = "(Press Run to consecutively change the pyramide height)" Cells(m + 6, n + 4).FormulaR1C1 = "z =" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 21).FormulaR1C1 = "Center position of the base:" Cells(m + 6, n + 23).FormulaR1C1 = "G16, G17, G18." 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 + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[5]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 8, n + 21).FormulaR1C1 = "Pyramid type (triangular, square, pentagonal, etc): Use the +OBJ and -OBJ buttons to add or remove" Cells(m + 9, n + -1).FormulaR1C1 = "=R[9]C-R[27]C/2" Cells(m + 9, n + 0).FormulaR1C1 = "=R[9]C-R[27]C/2" Cells(m + 9, n + 1).FormulaR1C1 = "=R[9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[4]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "RESULTS:" Cells(m + 9, n + 21).FormulaR1C1 = "faces to the pyramid." 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 = "N =" Cells(m + 10, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""TRG_*"")" 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 + 4).FormulaR1C1 = "b =" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[-9]C^2+R[7]C^2)" Cells(m + 11, n + 6).FormulaR1C1 = "(Eq-19-b)" Cells(m + 11, n + 21).FormulaR1C1 = "The result parameters that characterize the pyramid are:" 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 = "d" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "d" Cells(m + 3, n + 4).FormulaR1C1 = "a =" Cells(m + 3, n + 5).FormulaR1C1 = "=SQRT(R[15]C[-6]^2+R[15]C[-5]^2+R[15]C[-4]^2)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "V =" Cells(m + 4, n + 5).FormulaR1C1 = "=ABS(R[8]C*R[-11]C/3)" Cells(m + 4, n + 6).FormulaR1C1 = "(Eq-19-V)" Cells(m + 4, n + 23).FormulaR1C1 = "G22" Cells(m + 4, n + 24).FormulaR1C1 = "N" Cells(m + 4, n + 25).FormulaR1C1 = "Number of lateral faces of the pyramid." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 23).FormulaR1C1 = "G23" Cells(m + 5, n + 24).FormulaR1C1 = "b" Cells(m + 5, n + 25).FormulaR1C1 = "Length of the vertical edge." Cells(m + 6, n + 4).FormulaR1C1 = "BASE:" Cells(m + 6, n + 23).FormulaR1C1 = "G24" Cells(m + 6, n + 24).FormulaR1C1 = "a" Cells(m + 6, n + 25).FormulaR1C1 = "Apothem." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 4).FormulaR1C1 = "alpha =" Cells(m + 7, n + 5).FormulaR1C1 = "=180-R[1]C" Cells(m + 7, n + 6).FormulaR1C1 = "(Eq-19-a)" Cells(m + 7, n + 23).FormulaR1C1 = "G25" Cells(m + 7, n + 24).FormulaR1C1 = "V" Cells(m + 7, n + 25).FormulaR1C1 = "Volume." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "theta =" Cells(m + 8, n + 5).FormulaR1C1 = "=360/R[-7]C" Cells(m + 8, n + 6).FormulaR1C1 = "(Eq-19-t)" Cells(m + 8, n + 22).FormulaR1C1 = "BASE:" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-18]C-R[27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C-R[27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-18]C-R[27]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "d =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[-18]C/(2*COS(RADIANS((180-R[-1]C)/2)))" Cells(m + 9, n + 6).FormulaR1C1 = "(Eq-19-d)" Cells(m + 9, n + 23).FormulaR1C1 = "G28" Cells(m + 9, n + 24).FormulaR1C1 = "alpha" Cells(m + 9, n + 25).FormulaR1C1 = "Interior angle between face and face." 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 = "a_base =" Cells(m + 10, n + 5).FormulaR1C1 = "=SQRT(R[-10]C[-6]^2+R[-10]C[-5]^2)" Cells(m + 10, n + 23).FormulaR1C1 = "G29" Cells(m + 10, n + 24).FormulaR1C1 = "theta" Cells(m + 10, n + 25).FormulaR1C1 = "Exterior angle of advance of each face." 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 + 4).FormulaR1C1 = "P =" Cells(m + 11, n + 5).FormulaR1C1 = "=R[-10]C*R[-20]C" Cells(m + 11, n + 6).FormulaR1C1 = "(Eq-19-P)" Cells(m + 11, n + 23).FormulaR1C1 = "G30" Cells(m + 11, n + 24).FormulaR1C1 = "d" Cells(m + 11, n + 25).FormulaR1C1 = "Distance from one of the vertices to the center." 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 = "a" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "a" Cells(m + 3, n + 4).FormulaR1C1 = "S =" Cells(m + 3, n + 5).FormulaR1C1 = "=R[-1]C*R[-2]C/2" Cells(m + 3, n + 6).FormulaR1C1 = "(Eq-19-S)" Cells(m + 3, n + 23).FormulaR1C1 = "G31" Cells(m + 3, n + 24).FormulaR1C1 = "a_base" Cells(m + 3, n + 25).FormulaR1C1 = "Apothem of the base." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "|||||||||||||||||||||||" Cells(m + 4, n + 23).FormulaR1C1 = "G32" Cells(m + 4, n + 24).FormulaR1C1 = "P" Cells(m + 4, n + 25).FormulaR1C1 = "Base perimeter." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 23).FormulaR1C1 = "G33" Cells(m + 5, n + 24).FormulaR1C1 = "S" Cells(m + 5, n + 25).FormulaR1C1 = "Base area." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 21).FormulaR1C1 = "The formulas to calculate some of these parameters are shown in the simulation through their" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "NOTE:" Cells(m + 8, n + 21).FormulaR1C1 = " respective buttons." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-18]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-21]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "PLEASE" 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 = "READ THE INSTRUCTIONS" 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 + 4).FormulaR1C1 = "TO ADD OR REMOVE" 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 = "L" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "L" Cells(m + 3, n + 1).FormulaR1C1 = "=(RC[-2]-1)/2-1" Cells(m + 3, n + 2).FormulaR1C1 = "=""TRG_""&RC[-1]" Cells(m + 3, n + 4).FormulaR1C1 = "NEW FACES." 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C-R[-16]C[6]*SIN(RADIANS((180-R[-17]C[6])/2))" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C+R[-16]C[5]*COS(RADIANS((180-R[-17]C[5])/2))" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R12C7*SIN(RADIANS(R29C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R12C7*COS(RADIANS(R29C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "2315831" 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 = "b" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "b" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R30C7*SIN(RADIANS(R29C7*(R[-15]C[2]+1)+(180-R29C7)/2))" Cells(m + 9, n + 0).FormulaR1C1 = "=R30C7*COS(RADIANS(R29C7*(R[-15]C[1]+1)+(180-R29C7)/2))" Cells(m + 9, n + 1).FormulaR1C1 = "=R14C7" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" 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 + 54 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=(RC[-2]-1)/2-1" Cells(m + 3, n + 2).FormulaR1C1 = "=""TRG_""&RC[-1]" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R12C7*SIN(RADIANS(R29C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R12C7*COS(RADIANS(R29C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "2315831" 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 + 63 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R30C7*SIN(RADIANS(R29C7*(R[-15]C[2]+1)+(180-R29C7)/2))" Cells(m + 9, n + 0).FormulaR1C1 = "=R30C7*COS(RADIANS(R29C7*(R[-15]C[1]+1)+(180-R29C7)/2))" Cells(m + 9, n + 1).FormulaR1C1 = "=R14C7" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" 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 + 72 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=(RC[-2]-1)/2-1" Cells(m + 3, n + 2).FormulaR1C1 = "=""TRG_""&RC[-1]" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R12C7*SIN(RADIANS(R29C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R12C7*COS(RADIANS(R29C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "2315831" 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 + 81 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" 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 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R30C7*SIN(RADIANS(R29C7*(R[-15]C[2]+1)+(180-R29C7)/2))" Cells(m + 9, n + 0).FormulaR1C1 = "=R30C7*COS(RADIANS(R29C7*(R[-15]C[1]+1)+(180-R29C7)/2))" Cells(m + 9, n + 1).FormulaR1C1 = "=R14C7" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" 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 = 10 End If ' vector ends If m = m1 + 81 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_20_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 20_PV = nRT_ES ' Updated: 30/03/24 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 20 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "950" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "=CONFIG!R3C9" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "500" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "T" 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 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "V" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "=CONFIG!R5C9" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "P" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "P" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "120" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "HELP Comment:" & Chr(10) & _ " 1. To create new projects, press the +Vector button without selecting any project in the project list." & Chr(10) & _ " 2. To load an existing project, select a project from the list and then press +Vector" & Chr(10) & _ " 3. To export a new project, press the Get Code button. The code will be saved on your PC in the same directory where this file is located." & Chr(10) & _ " " & Chr(10) & _ " If necessary, use this comment to create your own HELP comment for your project. To do this, simply replace this text with your own (Right Click, Edit Comment) and avoid special characters." & Chr(10) & _ " After pressing Get Code, your comment will be updated and saved in the same txt file as your project and will be uploaded after the project appears in ScienSolar.To include the new project in ScienSolar, perform the following steps:" & Chr(10) & _ " a) Open the txt file where the project was saved; b) copy all the contents of the file and paste it in the VBA Editor of the Excel file ScienSolar; b) add the project name and number to the list on the CONFIG sheet; a) Verify that the number is correlative and that it agrees with the project header number, if not modify it in the header or in the list as necessary;" & ChrW(211) & "" & Chr(10) & _ " " & Chr(10) & _ " Right click to delete or edit this comment." & Chr(10) & _ " " & Chr(10) & _ " For documentation on ScienSolar, please visit www.sciensolar.com. ScienSolar was designed for 3D physics modeling in MS Excel.It is normal that for some projects it takes time to load it in the sheet, it depends on the number of objects in your project and the performance of your PC." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "P" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "P" Cells(m + 3, n + 5).FormulaR1C1 = "120" Cells(m + 3, n + 9).FormulaR1C1 = "SOME VECTORS WERE U N D E R S C A L E D !" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "o[10]x=[0;250]o2[10]y=[10;250]o3[2]z=[0;0]color=[150]origin[cart.]=[0;0;0]tfactor=0,001787475s" Cells(m + 4, n + 2).FormulaR1C1 = " << -- Configuraci" & ChrW(243) & "n de la gr" & ChrW(225) & "fica 3D" Cells(m + 4, n + 12).FormulaR1C1 = "ECUACI" & ChrW(211) & "N DE ESTADO DE LOS GASES" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "507" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Constantes:" Cells(m + 8, n + -1).FormulaR1C1 = "242" Cells(m + 8, n + 0).FormulaR1C1 = "241" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "<< -- Valores de V, T." Cells(m + 8, n + 4).FormulaR1C1 = "N =" Cells(m + 8, n + 5).FormulaR1C1 = "10" Cells(m + 8, n + 6).FormulaR1C1 = "x 10^23 mol." Cells(m + 8, n + 21).FormulaR1C1 = "En esta simulaci" & ChrW(243) & "n, se presentan las tres magnitudes termodin" & ChrW(225) & "micas (T, V, P) como tres coordenadas" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-1]C[4]*RC[4]*R[-1]C[-2]/R[-1]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "<< -- F" & ChrW(243) & "rmula P = P(V,T)" Cells(m + 9, n + 4).FormulaR1C1 = "k =" Cells(m + 9, n + 5).FormulaR1C1 = "10" Cells(m + 9, n + 6).FormulaR1C1 = "x 10^(-17) erg/¡K" Cells(m + 9, n + 21).FormulaR1C1 = "en el espacio tridimensional (x,y,z)." 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "0" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "En este caso la funci" & ChrW(243) & "n P=P(V,T) es representada en el eje z y depende de las dos variables V y T de " Cells(m + 3, n + 1).Interior.Color = "16777075" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 21).FormulaR1C1 = "la forma P = NkT/V, en donde N es la cantidad de part" & ChrW(237) & "culas del gas, V su volumen, P la presi" & ChrW(243) & "n; T la " Cells(m + 13, n + 21).FormulaR1C1 = "temperatura y k la constante de Boltzman." Cells(m + 15, n + 21).FormulaR1C1 = "Las unidades las puede trabajar el usuario a conveniencia. Para este caso, las unidades de las constantes" Cells(m + 16, n + 21).FormulaR1C1 = "se introdujeron aqu" & ChrW(237) & " a manera de ejemplo en el sistema cgs. " Cells(m + 18, n + 21).FormulaR1C1 = "Se pueden observar por ejemplo las isotermas, que son curvas P vs V a temperatura constante, o tambi" & ChrW(233) & "n " Cells(m + 19, n + 21).FormulaR1C1 = "las isochoras P vs T a volumen constante. " Cells(m + 21, n + 21).FormulaR1C1 = "La advertencia SOME VECTORS WERE U N D E R S C A L E D ! En la simulaci" & ChrW(243) & "n se refiere a que algunos " Cells(m + 22, n + 21).FormulaR1C1 = "valores de la presi" & ChrW(243) & "n P que se salen de la escala del sistema de coordenadas fueron reducidos al tama–o " Cells(m + 23, n + 21).FormulaR1C1 = "de los ejes, por lo tanto no debe representar ning" & ChrW(250) & "n malentendido, pues las magnitudes P, V y T son " Cells(m + 24, n + 21).FormulaR1C1 = "escalares. " Cells(m + 26, n + 21).FormulaR1C1 = "La configuraci" & ChrW(243) & "n de la gr" & ChrW(225) & "fica se modifica en la celda C7, por ejemplo para observar una sola isoterma," Cells(m + 27, n + 21).FormulaR1C1 = "digamos T=70 grados K, modifique en C7 la cadena o[10]x=[0;200] por o[10]x=[70;70] y oprima el bot" & ChrW(243) & "n" Cells(m + 28, n + 21).FormulaR1C1 = "ubicado en F3 para ver el resultado. Para una sola isochora, V=100, el valor en C7 ser" & ChrW(237) & "a:" Cells(m + 29, n + 21).FormulaR1C1 = "o[10]x=[0;250]o2[10]y=[100;100]o3[2]z=[0;0]color=[150]origin[cart.]=[0;0;0]tfactor=0,001302083s" Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_20_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 20_PV = nRT_EN ' Updated: 30/03/24 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 20 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 to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' 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 = "2" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "950" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "=CONFIG!R3C9" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "500" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "T" 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 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "V" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "=CONFIG!R5C9" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "P" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "P" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "120" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "HELP Comment:" & Chr(10) & _ " 1. To create new projects, press the +Vector button without selecting any project in the project list." & Chr(10) & _ " 2. To load an existing project, select a project from the list and then press +Vector" & Chr(10) & _ " 3. To export a new project, press the Get Code button. The code will be saved on your PC in the same directory where this file is located." & Chr(10) & _ " " & Chr(10) & _ " If necessary, use this comment to create your own HELP comment for your project. To do this, simply replace this text with your own (Right Click, Edit Comment) and avoid special characters." & Chr(10) & _ " After pressing Get Code, your comment will be updated and saved in the same txt file as your project and will be uploaded after the project appears in ScienSolar.To include the new project in ScienSolar, perform the following steps:" & Chr(10) & _ " a) Open the txt file where the project was saved; b) copy all the contents of the file and paste it in the VBA Editor of the Excel file ScienSolar; b) add the project name and number to the list on the CONFIG sheet; a) Verify that the number is correlative and that it agrees with the project header number, if not modify it in the header or in the list as necessary;" & ChrW(211) & "" & Chr(10) & _ " " & Chr(10) & _ " Right click to delete or edit this comment." & Chr(10) & _ " " & Chr(10) & _ " For documentation on ScienSolar, please visit www.sciensolar.com. ScienSolar was designed for 3D physics modeling in MS Excel.It is normal that for some projects it takes time to load it in the sheet, it depends on the number of objects in your project and the performance of your PC." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "P" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "P" Cells(m + 3, n + 5).FormulaR1C1 = "120" Cells(m + 3, n + 9).FormulaR1C1 = "SOME VECTORS WERE U N D E R S C A L E D !" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "o[10]x=[0;250]o2[10]y=[10;250]o3[2]z=[0;0]color=[150]origin[cart.]=[0;0;0]tfactor=0,001787475s" Cells(m + 4, n + 2).FormulaR1C1 = "<< -- 3D graph configuration" Cells(m + 4, n + 12).FormulaR1C1 = "EQUATION OF STATE OF GASES" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "507" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Constants:" Cells(m + 8, n + -1).FormulaR1C1 = "242" Cells(m + 8, n + 0).FormulaR1C1 = "241" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "<< -- V, T values." Cells(m + 8, n + 4).FormulaR1C1 = "N =" Cells(m + 8, n + 5).FormulaR1C1 = "10" Cells(m + 8, n + 6).FormulaR1C1 = "x 10^23 mol." Cells(m + 8, n + 21).FormulaR1C1 = "In this simulation, the three thermodynamic quantities (T, V, P) are presented as three coordinates " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-1]C[4]*RC[4]*R[-1]C[-2]/R[-1]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "<< -- Formula P = P(V,T)" Cells(m + 9, n + 4).FormulaR1C1 = "k =" Cells(m + 9, n + 5).FormulaR1C1 = "10" Cells(m + 9, n + 6).FormulaR1C1 = "x 10^(-17) erg/¡K" Cells(m + 9, n + 21).FormulaR1C1 = "in three-dimensional space (x,y,z)." 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "0" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "In this case the function P=P(V,T) is represented on the z axis and depends on the two variables V " Cells(m + 3, n + 1).Interior.Color = "16777075" 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 = 1 End If ' vector ends If m = m1 + 0 Then Cells(m + 12, n + 21).FormulaR1C1 = "and T of the form P = NkT/V, where N is the number of gas particles, V its volume , P the pressure; T the " Cells(m + 13, n + 21).FormulaR1C1 = "temperature and k the Boltzman constant." Cells(m + 15, n + 21).FormulaR1C1 = "The units can be operated by the user at their convenience. For this case, the units of the constants " Cells(m + 16, n + 21).FormulaR1C1 = "were introduced here as an example in the cgs system." Cells(m + 18, n + 21).FormulaR1C1 = "For example, isotherms can be observed, which are P vs V curves at constant temperature, or also P " Cells(m + 19, n + 21).FormulaR1C1 = "vs T isochores at constant volume." Cells(m + 21, n + 21).FormulaR1C1 = "The warning SOME VECTORS WERE U N D E R S C A L E D ! In the simulation it refers to the fact that " Cells(m + 22, n + 21).FormulaR1C1 = "some values of the pressure P that go outside the scale of the coordinate system were reduced " Cells(m + 23, n + 21).FormulaR1C1 = "to the size of the axes, therefore it should not represent any misunderstanding, since the " Cells(m + 24, n + 21).FormulaR1C1 = "magnitudes P, V and T are scalars." Cells(m + 26, n + 21).FormulaR1C1 = "The graph configuration is modified in cell C7, for example to observe a single isotherm, say T=70 degrees K, " Cells(m + 27, n + 21).FormulaR1C1 = "modify in C7 the string o[10]x=[0;200] by o[10]x= [70;70] and press the button located in F3 to see the result. " Cells(m + 28, n + 21).FormulaR1C1 = "For a single isochore, V=100, the value at C7 would be:" Cells(m + 29, n + 21).FormulaR1C1 = "o[10]x=[0;250]o2[10]y=[100;100]o3[2]z=[0;0]color=[150]origin[cart.]=[0;0;0 ]tfactor=0.001302083s" Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub