'//////////////////////////////////// ((((((())))))) \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ' ScienSolar v. 1.54 MODULE 5. Updated 01-04-2024 Sub Project_21_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 21_Funciones_ES ' Updated: 1/04/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 21 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 = "3" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "1" 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 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[6]C[1],C[15]:C[25],10,FALSE)" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "0.5" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[5]C[1],C[15]:C[25],11,FALSE)" 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(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "Instrucciones para elaborar su propio manual de funciones " & Chr(10) & _ " Valores iniciales: " & Chr(10) & _ " Bot" & ChrW(243) & "n -> Avanzar de una funci" & ChrW(243) & "n a la siguiente. " & Chr(10) & _ " Bot" & ChrW(243) & "n <- Retroceder a la funci" & ChrW(243) & "n anterior. " & Chr(10) & _ " G14 =0 Valor de la funci" & ChrW(243) & "n en un punto del espacio, " & Chr(10) & _ " El punto se indica en las celdas A11, B11, C11 para una funci" & ChrW(243) & "n f(x,y,z) " & Chr(10) & _ " G14 = 1 Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (YZ). " & Chr(10) & _ " G14 = 2 Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (XZ) " & Chr(10) & _ " G14 = 3 Obtener la forma de la funci" & ChrW(243) & "n en tres dimensiones f (x,y) " & Chr(10) & _ " G15 Si f= f(x,y) indique en esta celda el valor de x para observar z= f(y) con x=const. " & Chr(10) & _ " " & Chr(10) & _ " C" & ChrW(243) & "mo introducir una nueva funci" & ChrW(243) & "n: " & Chr(10) & _ " En la " & ChrW(250) & "ltima fila de la tabla de arriba: " & Chr(10) & _ " 1. En la columna Etiqueta escriba la etiqueta que aparecer" & ChrW(225) & " en el eje z. " & Chr(10) & _ " 2. Si la funci" & ChrW(243) & "n tiene nuevas constantes, def" & ChrW(237) & "nalas en la parte derecha de la tabla, si es necesario con sus potencias en la columna Potencia. " & Chr(10) & _ " 3. En la columna Funci" & ChrW(243) & "n defina la funci" & ChrW(243) & "n z=f(x,y) utilizando las celdas de los valores de las respectivas constantes; en calidad de la variable x utilizar la celda A11 y de y la celda B11. Si solo depende de una variable, omitir la otra. " & Chr(10) & _ " 4. En las dos " & ChrW(250) & "ltimas columnas establecer el nombre de los ejes x,y respectivamente. " & Chr(10) & _ " 5. Oprima XYZ para ver el resultado. Si la funci" & ChrW(243) & "n tiene una escala muy grande o muy peque–a, ajustar la escala, encontrando el factor adecuado e ingres" & ChrW(225) & "ndolo en la columna Escala. " & Chr(10) & _ " 6. Si desea que aparezca la ecuaci" & ChrW(243) & "n en el sistema de coordenadas, agregue la ecuaci" & ChrW(243) & "n en la hoja 3DModels y p" & ChrW(243) & "ngale el nombre (Eq-a), en donde a es el n" & ChrW(250) & "mero consecutivo de la ecuaci" & ChrW(243) & "n. " & Chr(10) & _ " 7. Si su n" & ChrW(250) & "mero de funciones es m" & ChrW(225) & "s de 12, contin" & ChrW(250) & "e la lista consecutiva y si es necesario borre estas instrucciones, o c" & ChrW(243) & "rtelas y p" & ChrW(233) & "guelas en otro lugar de la hoja. " & Chr(10) & _ " 8. Puede editar las funciones ya existentes y modificarlas a su parecer. " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m + 3, n + 5).FormulaR1C1 = "15" 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 = "=IF(R[7]C[4]=0,"""",IF(R[7]C[4]=1,""o[5]x=[""&R[8]C[4]&"";""&R[8]C[4]&""]o2[5]y=[0;500]o3[5]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,001654412s"",IF(R[7]C[4]=2,""o[5]x=[0;500]o2[0,1]y=[50;50]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,003033088s"",IF(R[7]C[4]=3,""o[20]x=[0;500]o2[20]y=[0;500]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,002450715s"",""""))))" Cells(m + 4, n + 12).FormulaR1C1 = "=UPPER(VLOOKUP(R[3]C[-7],C[7]:C[11],5,FALSE))&"" ""&VLOOKUP(R[3]C[-7],C[7]:C[11],2,FALSE)" Cells(m + 4, n + 24).FormulaR1C1 = "MANUAL DE FUNCIONES " Cells(m + 5, n + -1).FormulaR1C1 = "85" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + 19).FormulaR1C1 = "_____________" Cells(m + 6, n + 20).FormulaR1C1 = "______________________________________________________" Cells(m + 6, n + 24).FormulaR1C1 = "____________________________________________________" Cells(m + 6, n + 28).FormulaR1C1 = "________________" 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 = "Ecuaci" & ChrW(243) & "n No." Cells(m + 7, n + 5).FormulaR1C1 = "=R[-5]C[2]+1" Cells(m + 7, n + 21).FormulaR1C1 = " FACTOR:" Cells(m + 7, n + 22).FormulaR1C1 = "=VLOOKUP(RC[-17],C[-3]:C[1],4,FALSE)" Cells(m + 8, n + -1).FormulaR1C1 = "300" Cells(m + 8, n + 0).FormulaR1C1 = "498" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[3]C[3]=0,""<< -- Ingrese las coordenadas del punto a evaluar"","""")" Cells(m + 8, n + 6).FormulaR1C1 = "=IF(R[2]C[-6]>0,""<-- use these cells."","""")" Cells(m + 8, n + 19).FormulaR1C1 = "No." Cells(m + 8, n + 20).FormulaR1C1 = "Etiqueta" Cells(m + 8, n + 21).FormulaR1C1 = "Funci" & ChrW(243) & "n" Cells(m + 8, n + 22).FormulaR1C1 = "Escala" Cells(m + 8, n + 23).FormulaR1C1 = "Descripci" & ChrW(243) & "n" Cells(m + 8, n + 24).FormulaR1C1 = "| Constante" Cells(m + 8, n + 25).FormulaR1C1 = "Valor " Cells(m + 8, n + 26).FormulaR1C1 = "Potencia (10^)" Cells(m + 8, n + 27).FormulaR1C1 = "Unidades" Cells(m + 8, n + 28).FormulaR1C1 = "Eje x" Cells(m + 8, n + 29).FormulaR1C1 = "Eje y" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=VLOOKUP(R[-2]C[4],C[18]:C[22],3,FALSE)" Cells(m + 9, n + 2).FormulaR1C1 = "<< -- Funci" & ChrW(243) & "n." Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "1" Cells(m + 9, n + 20).FormulaR1C1 = "n_s ()" Cells(m + 9, n + 21).FormulaR1C1 = "=(1/(EXP(RC[4]*R[-1]C[-21]/(R[1]C[4]*R[-1]C[-22]))-1))*R[-2]C[1]" Cells(m + 9, n + 22).FormulaR1C1 = "90" Cells(m + 9, n + 23).FormulaR1C1 = "Distribuci" & ChrW(243) & "n de Bose-Einstein" Cells(m + 9, n + 24).FormulaR1C1 = "| h" Cells(m + 9, n + 25).FormulaR1C1 = "6.6" Cells(m + 9, n + 26).FormulaR1C1 = "-34" Cells(m + 9, n + 27).FormulaR1C1 = "J s" Cells(m + 9, n + 28).FormulaR1C1 = "T" Cells(m + 9, n + 29).FormulaR1C1 = "w" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=IF(R[-8]C[6]=RC[24]*R[-2]C[-2],2,1)" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "2" Cells(m + 10, n + 20).FormulaR1C1 = "E(w) " Cells(m + 10, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-2]C[-21]*R[-1]C)*R[-3]C[1]" Cells(m + 10, n + 22).FormulaR1C1 = "0.8" Cells(m + 10, n + 23).FormulaR1C1 = "Energ" & ChrW(237) & "a media del fot" & ChrW(243) & "n" Cells(m + 10, n + 24).FormulaR1C1 = "| k_B" Cells(m + 10, n + 25).FormulaR1C1 = "1.38" Cells(m + 10, n + 26).FormulaR1C1 = "-23" Cells(m + 10, n + 27).FormulaR1C1 = "J/¡K" Cells(m + 10, n + 29).FormulaR1C1 = "w" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Gr" & ChrW(225) & "fica:" Cells(m + 11, n + 5).FormulaR1C1 = "1" Cells(m + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "3" Cells(m + 11, n + 20).FormulaR1C1 = "u (w,T) " Cells(m + 11, n + 21).FormulaR1C1 = "=(R[-2]C*R[-2]C[4]*R[-3]C[-21]^3/(R[1]C[4]^3*PI()^2))*R[-4]C[1]" Cells(m + 11, n + 22).FormulaR1C1 = "0.03" Cells(m + 11, n + 23).FormulaR1C1 = "Densidad espectral de energ" & ChrW(237) & "a media" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 11, n + 26).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "¡K" Cells(m + 11, n + 28).FormulaR1C1 = "T" Cells(m + 11, n + 29).FormulaR1C1 = "w" 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 = "Ec-1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=""Ec-""&R[-5]C[5]" Cells(m + 3, n + 4).FormulaR1C1 = "=VLOOKUP(R[-5]C[1],C[15]:C[25],10,FALSE)& "" =""" Cells(m + 3, n + 5).FormulaR1C1 = "300" Cells(m + 3, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 3, n + 19).FormulaR1C1 = "4" Cells(m + 3, n + 20).FormulaR1C1 = "u (v,T) " Cells(m + 3, n + 21).FormulaR1C1 = "=(8*PI()*R[-3]C*R[-3]C[4]*R[-4]C[-21]^3/(RC[4]^3))*R[-5]C[1]" Cells(m + 3, n + 22).FormulaR1C1 = "0.002" Cells(m + 3, n + 23).FormulaR1C1 = "F" & ChrW(243) & "rmula de Planck - Distribuci" & ChrW(243) & "n espectral de energ" & ChrW(237) & "a del cuerpo negro" Cells(m + 3, n + 24).FormulaR1C1 = "| c" Cells(m + 3, n + 25).FormulaR1C1 = "1" Cells(m + 3, n + 26).FormulaR1C1 = "8" Cells(m + 3, n + 27).FormulaR1C1 = "m/s" Cells(m + 3, n + 28).FormulaR1C1 = "T" Cells(m + 3, n + 29).FormulaR1C1 = "v" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 4, n + 19).FormulaR1C1 = "5" Cells(m + 4, n + 20).FormulaR1C1 = "I (v,T) " Cells(m + 4, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-1]C/4)*R[-6]C[1]" Cells(m + 4, n + 22).FormulaR1C1 = "0.025" Cells(m + 4, n + 23).FormulaR1C1 = " Irradianza espectral del cuerpo negro" Cells(m + 4, n + 24).FormulaR1C1 = "| A" Cells(m + 4, n + 25).FormulaR1C1 = "1" Cells(m + 4, n + 26).FormulaR1C1 = "0" Cells(m + 4, n + 27).FormulaR1C1 = "m2" Cells(m + 4, n + 28).FormulaR1C1 = "T" Cells(m + 4, n + 29).FormulaR1C1 = "v" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "200" Cells(m + 5, n + 1).FormulaR1C1 = "200" Cells(m + 5, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 5, n + 19).FormulaR1C1 = "6" Cells(m + 5, n + 20).FormulaR1C1 = "F(r)" Cells(m + 5, n + 21).FormulaR1C1 = "=(RC[4]*R[1]C[4]*R[2]C[4]/R[-6]C[-21]^2)*RC[1]" Cells(m + 5, n + 22).FormulaR1C1 = "1000" Cells(m + 5, n + 23).FormulaR1C1 = "Fuerza el" & ChrW(233) & "ctrica - Ley de Coulomb" Cells(m + 5, n + 24).FormulaR1C1 = "| k_e" Cells(m + 5, n + 25).FormulaR1C1 = "8.99" Cells(m + 5, n + 26).FormulaR1C1 = "9" Cells(m + 5, n + 27).FormulaR1C1 = "Nm^2/C^2" Cells(m + 5, n + 28).FormulaR1C1 = "T" Cells(m + 5, n + 29).FormulaR1C1 = "r" Cells(m + 6, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 6, n + 19).FormulaR1C1 = "7" Cells(m + 6, n + 24).FormulaR1C1 = "| q1" Cells(m + 6, n + 25).FormulaR1C1 = "5" Cells(m + 6, n + 26).FormulaR1C1 = "-3" Cells(m + 6, n + 27).FormulaR1C1 = "C" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-4]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-13]C[3]-50" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-13]C[2]*2" Cells(m + 7, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 7, n + 19).FormulaR1C1 = "8" Cells(m + 7, n + 24).FormulaR1C1 = "| q2" Cells(m + 7, n + 25).FormulaR1C1 = "5" Cells(m + 7, n + 26).FormulaR1C1 = "-3" Cells(m + 7, n + 27).FormulaR1C1 = "C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 8, n + 19).FormulaR1C1 = "9" Cells(m + 8, n + 24).FormulaR1C1 = "|" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "10" Cells(m + 9, n + 24).FormulaR1C1 = "|" 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 + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "11" Cells(m + 10, n + 24).FormulaR1C1 = "|" 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 + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "12" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 3, n + 1).Interior.Color = "11892015" 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 = 2 End If ' vector ends If m = m1 + 9 Then Cells(m + 14, n + 18).FormulaR1C1 = "Instrucciones para elaborar su propio manual de funciones" Cells(m + 16, n + 18).FormulaR1C1 = "Valores iniciales:" Cells(m + 18, n + 19).FormulaR1C1 = "Bot" & ChrW(243) & "n ->" Cells(m + 18, n + 20).FormulaR1C1 = "Avanzar de una funci" & ChrW(243) & "n a la siguiente." Cells(m + 19, n + 19).FormulaR1C1 = "Bot" & ChrW(243) & "n <-" Cells(m + 19, n + 20).FormulaR1C1 = "Retroceder a la funci" & ChrW(243) & "n anterior." Cells(m + 20, n + 19).FormulaR1C1 = "G14 =0" Cells(m + 20, n + 20).FormulaR1C1 = "Valor de la funci" & ChrW(243) & "n en un punto del espacio, " Cells(m + 21, n + 20).FormulaR1C1 = "El punto se indica en las celdas A11, B11, C11 para una funci" & ChrW(243) & "n f(x,y,z)" Cells(m + 22, n + 19).FormulaR1C1 = "G14 = 1" Cells(m + 22, n + 20).FormulaR1C1 = "Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (YZ)." Cells(m + 23, n + 19).FormulaR1C1 = "G14 = 2" Cells(m + 23, n + 20).FormulaR1C1 = "Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (XZ)" Cells(m + 24, n + 19).FormulaR1C1 = "G14 = 3" Cells(m + 24, n + 20).FormulaR1C1 = "Obtener la forma de la funci" & ChrW(243) & "n en tres dimensiones f (x,y)" Cells(m + 25, n + 19).FormulaR1C1 = "G15 " Cells(m + 25, n + 20).FormulaR1C1 = "Si f= f(x,y) indique en esta celda el valor de x para observar z= f(y) con x=const." Cells(m + 27, n + 18).FormulaR1C1 = "C" & ChrW(243) & "mo introducir una nueva funci" & ChrW(243) & "n:" Cells(m + 29, n + 18).FormulaR1C1 = "En la " & ChrW(250) & "ltima fila de la tabla de arriba:" Cells(m + 30, n + 18).FormulaR1C1 = "1. En la columna Etiqueta escriba la etiqueta que aparecer" & ChrW(225) & " en el eje z." Cells(m + 31, n + 18).FormulaR1C1 = "2. Si la funci" & ChrW(243) & "n tiene nuevas constantes, def" & ChrW(237) & "nalas en la parte derecha de la tabla, si es necesario con sus potencias en la columna Potencia." Cells(m + 32, n + 18).FormulaR1C1 = "3. En la columna Funci" & ChrW(243) & "n defina la funci" & ChrW(243) & "n z=f(x,y) utilizando las celdas de los valores de las " Cells(m + 33, n + 19).FormulaR1C1 = "respectivas constantes; en calidad de la variable x utilizar la celda A11 y de " Cells(m + 34, n + 19).FormulaR1C1 = "y la celda B11. Si solo depende de una variable, omitir la otra. " Cells(m + 35, n + 18).FormulaR1C1 = "4. En las dos " & ChrW(250) & "ltimas columnas establecer el nombre de los ejes x,y respectivamente." Cells(m + 36, n + 18).FormulaR1C1 = "5. Oprima XYZ para ver el resultado. Si la funci" & ChrW(243) & "n tiene una escala muy grande o muy peque–a, ajustar" Cells(m + 37, n + 19).FormulaR1C1 = "la escala, encontrando el factor adecuado e ingres" & ChrW(225) & "ndolo en la columna Escala. " Cells(m + 38, n + 18).FormulaR1C1 = "6. Si desea que aparezca la ecuaci" & ChrW(243) & "n en el sistema de coordenadas, agregue la ecuaci" & ChrW(243) & "n en la hoja" Cells(m + 39, n + 19).FormulaR1C1 = "3DModels y p" & ChrW(243) & "ngale el nombre (Eq-a), en donde a es el n" & ChrW(250) & "mero consecutivo de la ecuaci" & ChrW(243) & "n." Cells(m + 40, n + 18).FormulaR1C1 = "7. Si su n" & ChrW(250) & "mero de funciones es m" & ChrW(225) & "s de 12, contin" & ChrW(250) & "e la lista consecutiva y si es necesario borre " Cells(m + 41, n + 19).FormulaR1C1 = "estas instrucciones, o c" & ChrW(243) & "rtelas y p" & ChrW(233) & "guelas en otro lugar de la hoja." Cells(m + 42, n + 18).FormulaR1C1 = "8. Puede editar las funciones ya existentes y modificarlas a su parecer. " Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_21_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 21_Functions_EN ' Updated: 1/04/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 21 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 = "3" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "1" 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 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[6]C[1],C[15]:C[25],10,FALSE)" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "0.5" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[5]C[1],C[15]:C[25],11,FALSE)" 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(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "Instructions for creating your own functions manual" & Chr(10) & _ " Initial values:" & Chr(10) & _ " Button -> Advance from one function to the next." & Chr(10) & _ " Button <- Go back to the previous function." & Chr(10) & _ " G14 =0 Value of the function at a point in space," & Chr(10) & _ " The point is indicated in cells A11, B11, C11 for a function f(x,y,z)" & Chr(10) & _ " G14 = 1 Obtain the form of the function in two dimensions (YZ)." & Chr(10) & _ " G14 = 2 Obtain the form of the function in two dimensions (XZ)" & Chr(10) & _ " G14 = 3 Obtain the form of the three-dimensional function f (x,y)" & Chr(10) & _ " G15 If f= f(x,y) indicate in this cell the value of x to observe z= f(y) with x=const." & Chr(10) & _ " " & Chr(10) & _ " How to introduce a new function:" & Chr(10) & _ " In the last row of the table above:" & Chr(10) & _ " 1. In the Label column, type the label that will appear on the z-axis." & Chr(10) & _ " 2. If the function has new constants, define them on the right side of the table, if necessary with their powers in the Power column." & Chr(10) & _ " 3. In the Function column define the function z=f(x,y) using the cells of the values of the respective constants; as the variable x use cell A11 and for the variabley use cell B11. If it only depends on one variable, skip the other." & Chr(10) & _ " 4. In the last two columns, establish the name of the x and y axes respectively." & Chr(10) & _ " 5. Press XYZ to view the result. If the function has a very large or very small scale, adjust the scale by finding the appropriate factor and entering it in the Scale column." & Chr(10) & _ " 6. If you want the equation to appear in the coordinate system, add the equation to the 3DModels sheet and name it (Eq-a), where a is the consecutive number in the equation." & Chr(10) & _ " 7. If your number of functions is more than 12, continue the list consecutively and if necessary delete these instructions, or cut and paste them elsewhere on the sheet." & Chr(10) & _ " 8. You can edit the already existing functions and modify them for your needs." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m + 3, n + 5).FormulaR1C1 = "15" 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 = "=IF(R[7]C[4]=0,"""",IF(R[7]C[4]=1,""o[5]x=[""&R[8]C[4]&"";""&R[8]C[4]&""]o2[5]y=[0;500]o3[5]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,001654412s"",IF(R[7]C[4]=2,""o[5]x=[0;500]o2[0,1]y=[50;50]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,003033088s"",IF(R[7]C[4]=3,""o[20]x=[0;500]o2[20]y=[0;500]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,002450715s"",""""))))" Cells(m + 4, n + 12).FormulaR1C1 = "=UPPER(VLOOKUP(R[3]C[-7],C[7]:C[11],5,FALSE))&"" ""&VLOOKUP(R[3]C[-7],C[7]:C[11],2,FALSE)" Cells(m + 4, n + 24).FormulaR1C1 = "FUNCTION'S MANUAL" Cells(m + 5, n + -1).FormulaR1C1 = "85" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + 19).FormulaR1C1 = "_____________" Cells(m + 6, n + 20).FormulaR1C1 = "______________________________________________________" Cells(m + 6, n + 24).FormulaR1C1 = "____________________________________________________" Cells(m + 6, n + 28).FormulaR1C1 = "________________" 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 = "Equation No." Cells(m + 7, n + 5).FormulaR1C1 = "=R[-5]C[2]+1" Cells(m + 7, n + 21).FormulaR1C1 = " FACTOR:" Cells(m + 7, n + 22).FormulaR1C1 = "=VLOOKUP(RC[-17],C[-3]:C[1],4,FALSE)" Cells(m + 8, n + -1).FormulaR1C1 = "300" Cells(m + 8, n + 0).FormulaR1C1 = "498" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[3]C[3]=0,""<< -- Enter the coordinates of the point to evaluate."","""")" Cells(m + 8, n + 6).FormulaR1C1 = "=IF(R[2]C[-6]>0,""<-- use these cells."","""")" Cells(m + 8, n + 19).FormulaR1C1 = "No." Cells(m + 8, n + 20).FormulaR1C1 = "Label" Cells(m + 8, n + 21).FormulaR1C1 = "Function" Cells(m + 8, n + 22).FormulaR1C1 = "Scale" Cells(m + 8, n + 23).FormulaR1C1 = "Description" Cells(m + 8, n + 24).FormulaR1C1 = "| Constant" Cells(m + 8, n + 25).FormulaR1C1 = "Value" Cells(m + 8, n + 26).FormulaR1C1 = "Power" Cells(m + 8, n + 27).FormulaR1C1 = "Units" Cells(m + 8, n + 28).FormulaR1C1 = "X Axis Label" Cells(m + 8, n + 29).FormulaR1C1 = "Y Axis Label" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=VLOOKUP(R[-2]C[4],C[18]:C[22],3,FALSE)" Cells(m + 9, n + 2).FormulaR1C1 = "<< -- Funci" & ChrW(243) & "n." Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "1" Cells(m + 9, n + 20).FormulaR1C1 = "n_s ()" Cells(m + 9, n + 21).FormulaR1C1 = "=(1/(EXP(RC[4]*R[-1]C[-21]/(R[1]C[4]*R[-1]C[-22]))-1))*R[-2]C[1]" Cells(m + 9, n + 22).FormulaR1C1 = "90" Cells(m + 9, n + 23).FormulaR1C1 = "Bose-Einstein Distribution" Cells(m + 9, n + 24).FormulaR1C1 = "| h" Cells(m + 9, n + 25).FormulaR1C1 = "6.6" Cells(m + 9, n + 26).FormulaR1C1 = "-34" Cells(m + 9, n + 27).FormulaR1C1 = "J s" Cells(m + 9, n + 28).FormulaR1C1 = "T" Cells(m + 9, n + 29).FormulaR1C1 = "w" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=IF(R[-8]C[6]=RC[24]*R[-2]C[-2],2,1)" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "2" Cells(m + 10, n + 20).FormulaR1C1 = "E(w) " Cells(m + 10, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-2]C[-21]*R[-1]C)*R[-3]C[1]" Cells(m + 10, n + 22).FormulaR1C1 = "0.8" Cells(m + 10, n + 23).FormulaR1C1 = "Average photon energy" Cells(m + 10, n + 24).FormulaR1C1 = "| k_B" Cells(m + 10, n + 25).FormulaR1C1 = "1.38" Cells(m + 10, n + 26).FormulaR1C1 = "-23" Cells(m + 10, n + 27).FormulaR1C1 = "J/¡K" Cells(m + 10, n + 29).FormulaR1C1 = "w" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Graph:" Cells(m + 11, n + 5).FormulaR1C1 = "1" Cells(m + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "3" Cells(m + 11, n + 20).FormulaR1C1 = "u (w,T) " Cells(m + 11, n + 21).FormulaR1C1 = "=(R[-2]C*R[-2]C[4]*R[-3]C[-21]^3/(R[1]C[4]^3*PI()^2))*R[-4]C[1]" Cells(m + 11, n + 22).FormulaR1C1 = "0.03" Cells(m + 11, n + 23).FormulaR1C1 = "Average energy spectral density" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 11, n + 26).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "¡K" Cells(m + 11, n + 28).FormulaR1C1 = "T" Cells(m + 11, n + 29).FormulaR1C1 = "w" 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 = "Ec-1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=""Ec-""&R[-5]C[5]" Cells(m + 3, n + 4).FormulaR1C1 = "=VLOOKUP(R[-5]C[1],C[15]:C[25],10,FALSE)& "" =""" Cells(m + 3, n + 5).FormulaR1C1 = "300" Cells(m + 3, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 3, n + 19).FormulaR1C1 = "4" Cells(m + 3, n + 20).FormulaR1C1 = "u (v,T) " Cells(m + 3, n + 21).FormulaR1C1 = "=(8*PI()*R[-3]C*R[-3]C[4]*R[-4]C[-21]^3/(RC[4]^3))*R[-5]C[1]" Cells(m + 3, n + 22).FormulaR1C1 = "0.002" Cells(m + 3, n + 23).FormulaR1C1 = "Planck Formula - Blackbody Energy Spectral Distribution" Cells(m + 3, n + 24).FormulaR1C1 = "| c" Cells(m + 3, n + 25).FormulaR1C1 = "1" Cells(m + 3, n + 26).FormulaR1C1 = "8" Cells(m + 3, n + 27).FormulaR1C1 = "m/s" Cells(m + 3, n + 28).FormulaR1C1 = "T" Cells(m + 3, n + 29).FormulaR1C1 = "v" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 4, n + 19).FormulaR1C1 = "5" Cells(m + 4, n + 20).FormulaR1C1 = "I (v,T) " Cells(m + 4, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-1]C/4)*R[-6]C[1]" Cells(m + 4, n + 22).FormulaR1C1 = "0.025" Cells(m + 4, n + 23).FormulaR1C1 = "Black body spectral irradiance" Cells(m + 4, n + 24).FormulaR1C1 = "| A" Cells(m + 4, n + 25).FormulaR1C1 = "1" Cells(m + 4, n + 26).FormulaR1C1 = "0" Cells(m + 4, n + 27).FormulaR1C1 = "m2" Cells(m + 4, n + 28).FormulaR1C1 = "T" Cells(m + 4, n + 29).FormulaR1C1 = "v" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "200" Cells(m + 5, n + 1).FormulaR1C1 = "200" Cells(m + 5, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 5, n + 19).FormulaR1C1 = "6" Cells(m + 5, n + 20).FormulaR1C1 = "F(r)" Cells(m + 5, n + 21).FormulaR1C1 = "=(RC[4]*R[1]C[4]*R[2]C[4]/R[-6]C[-21]^2)*RC[1]" Cells(m + 5, n + 22).FormulaR1C1 = "1000" Cells(m + 5, n + 23).FormulaR1C1 = "Electric force - Coulomb's law" Cells(m + 5, n + 24).FormulaR1C1 = "| k_e" Cells(m + 5, n + 25).FormulaR1C1 = "8.99" Cells(m + 5, n + 26).FormulaR1C1 = "9" Cells(m + 5, n + 27).FormulaR1C1 = "Nm^2/C^2" Cells(m + 5, n + 28).FormulaR1C1 = "T" Cells(m + 5, n + 29).FormulaR1C1 = "r" Cells(m + 6, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 6, n + 19).FormulaR1C1 = "7" Cells(m + 6, n + 24).FormulaR1C1 = "| q1" Cells(m + 6, n + 25).FormulaR1C1 = "5" Cells(m + 6, n + 26).FormulaR1C1 = "-3" Cells(m + 6, n + 27).FormulaR1C1 = "C" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-4]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-13]C[3]-50" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-13]C[2]*2" Cells(m + 7, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 7, n + 19).FormulaR1C1 = "8" Cells(m + 7, n + 24).FormulaR1C1 = "| q2" Cells(m + 7, n + 25).FormulaR1C1 = "5" Cells(m + 7, n + 26).FormulaR1C1 = "-3" Cells(m + 7, n + 27).FormulaR1C1 = "C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 8, n + 19).FormulaR1C1 = "9" Cells(m + 8, n + 24).FormulaR1C1 = "|" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "10" Cells(m + 9, n + 24).FormulaR1C1 = "|" 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 + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "11" Cells(m + 10, n + 24).FormulaR1C1 = "|" 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 + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "12" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 3, n + 1).Interior.Color = "11892015" 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 = 2 End If ' vector ends If m = m1 + 9 Then Cells(m + 14, n + 18).FormulaR1C1 = "Instructions for creating your own functions manual" Cells(m + 16, n + 18).FormulaR1C1 = "Initial values:" Cells(m + 18, n + 19).FormulaR1C1 = "Button -> Advance from one function to the next." Cells(m + 19, n + 19).FormulaR1C1 = "Button <- Go back to the previous function." Cells(m + 20, n + 19).FormulaR1C1 = "G14 =0 Value of the function at a point in space," Cells(m + 21, n + 20).FormulaR1C1 = "the point is indicated in cells A11, B11, C11 for a function f(x,y,z)" Cells(m + 22, n + 19).FormulaR1C1 = "G14 = 1 Obtain the form of the function in two dimensions (YZ)." Cells(m + 23, n + 19).FormulaR1C1 = "G14 = 2 Obtain the form of the function in two dimensions (XZ)" Cells(m + 24, n + 19).FormulaR1C1 = "G14 = 3 Obtain the form of the three-dimensional function f (x,y)" Cells(m + 25, n + 19).FormulaR1C1 = "G15 If f= f(x,y) indicate in this cell the value of x to observe z= f(y) with x=const." Cells(m + 27, n + 18).FormulaR1C1 = "How to introduce a new function:" Cells(m + 29, n + 18).FormulaR1C1 = "In the last row of the table above:" Cells(m + 30, n + 18).FormulaR1C1 = "1. In the Label column, type the label that will appear on the z-axis." Cells(m + 31, n + 18).FormulaR1C1 = "2. If the function has new constants, define them on the right side of the table, if necessary with their " Cells(m + 32, n + 19).FormulaR1C1 = "powers in the Power column." Cells(m + 33, n + 18).FormulaR1C1 = "3. In the Function column define the function z=f(x,y) using the cells of the values of the respective " Cells(m + 34, n + 19).FormulaR1C1 = "constants; as the variable x use cell A11 and for the variable y the cell B11. If it only depends on one " Cells(m + 35, n + 19).FormulaR1C1 = "variable, skip the other." Cells(m + 36, n + 18).FormulaR1C1 = "4. In the last two columns, establish the name of the x and y axes respectively." Cells(m + 37, n + 18).FormulaR1C1 = "5. Press XYZ to view the result. If the function has a very large or very small scale, adjust the scale by " Cells(m + 38, n + 19).FormulaR1C1 = "finding the appropriate factor and entering it in the Scale column." Cells(m + 39, n + 18).FormulaR1C1 = "6. If you want the equation to appear in the coordinate system, add the equation to the 3DModels sheet " Cells(m + 40, n + 19).FormulaR1C1 = "and name it (Eq-a), where a is the consecutive number in the equation." Cells(m + 41, n + 18).FormulaR1C1 = "7. If your number of functions is more than 12, continue the list consecutively and if necessary " Cells(m + 42, n + 19).FormulaR1C1 = "delete these instructions, or cut and paste them elsewhere on the sheet." Cells(m + 43, n + 18).FormulaR1C1 = "8. You can edit the already existing functions and modify them for your needs." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_22_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 22_ScienSolar_ES ' Updated: 1/04/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 22 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 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "2" 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 = "450" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "-65" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "360" 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 = "=R[5]C" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "720" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "a" 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 = "=R[4]C/2" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "SCIENSOLAR LOGO" & Chr(10) & _ " De manera demostrativa se presenta el logotipo de ScienSolar en tres dimensiones. " & Chr(10) & _ " Oprima Ejecutar y espere a que la simulaci" & ChrW(243) & "n termine. Luego vuelva a oprimir Ejecutar para ver el proceso inverso. " & Chr(10) & _ " Para iniciar de nuevo oprima Anular. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " SCIENSOLAR LOGO" & Chr(10) & _ " Demonstratively, the ScienSolar logo is presented in three dimensions." & Chr(10) & _ " Click Run and wait for the simulation to finish. Then press Run again to see the reverse process." & Chr(10) & _ " To start over, press Set to zero." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 3 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 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "=R[4]C/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Logotipo de ScienSolar" Cells(m + 4, n + 12).FormulaR1C1 = "LOGOTIPO DE SCIENSOLAR" 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 = "aox" Cells(m + 6, n + 0).FormulaR1C1 = "aoy" Cells(m + 6, n + 1).FormulaR1C1 = "aoz" Cells(m + 7, n + -1).FormulaR1C1 = "8" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 5).FormulaR1C1 = "=R[-5]C[2]-180" Cells(m + 8, n + -1).FormulaR1C1 = "ax" Cells(m + 8, n + 0).FormulaR1C1 = "ay" Cells(m + 8, n + 1).FormulaR1C1 = "az" Cells(m + 8, n + 21).FormulaR1C1 = "Modelo demostrativo de construcci" & ChrW(243) & "n de objetos tridimensionales de cualquier forma." Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "-2" Cells(m + 10, n + -1).FormulaR1C1 = "2" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[9]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Oprima el bot" & ChrW(243) & "n >> para iniciar la simulaci" & ChrW(243) & "n." 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 + 11, n + 21).FormulaR1C1 = "Luego de terminada la simulaci" & ChrW(243) & "n, vuelva a oprimir >> para ejecutar la simulaci" & ChrW(243) & "n reversiva." Cells(m + 3, n + 1).Interior.Color = "14277081" 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 + 9 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "b" Cells(m + 3, n + 21).FormulaR1C1 = "Oprima << -- para volver al inicio." 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 = "box" Cells(m + 6, n + 0).FormulaR1C1 = "boy" Cells(m + 6, n + 1).FormulaR1C1 = "boz" 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 = "=R[-7]C+R[-9]C" Cells(m + 8, n + -1).FormulaR1C1 = "bx" Cells(m + 8, n + 0).FormulaR1C1 = "by" Cells(m + 8, n + 1).FormulaR1C1 = "bz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "2" 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 = "=IF(R[-17]C[6]>720,1,2)" 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 = "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 = "a x b" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "a x 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 + 6, n + -1).FormulaR1C1 = "a x box" Cells(m + 6, n + 0).FormulaR1C1 = "a x boy" Cells(m + 6, n + 1).FormulaR1C1 = "a x boz" 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 + -1).FormulaR1C1 = "a x bx" Cells(m + 8, n + 0).FormulaR1C1 = "a x by" Cells(m + 8, n + 1).FormulaR1C1 = "a x bz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2]" 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 = "=R[-9]C" 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" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 = "" Cells(m1 + 2, n1 - 1).Value = 3 End If ' vector ends If m = m1 + 18 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_22_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 22_ScienSolar_EN ' Updated: 1/04/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 22 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 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "2" 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 = "450" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "-65" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "360" 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 = "=R[5]C" 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 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "=R[4]C/2" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "SCIENSOLAR LOGO" & Chr(10) & _ " Demonstratively, the ScienSolar logo is presented in three dimensions." & Chr(10) & _ " Click Run and wait for the simulation to finish. Then press Run again to see the reverse process." & Chr(10) & _ " To start over, press Set to zero." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 3 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 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "=R[4]C/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "ScienSolar logo" Cells(m + 4, n + 12).FormulaR1C1 = "SCIENSOLAR LOGO" 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 = "aox" Cells(m + 6, n + 0).FormulaR1C1 = "aoy" Cells(m + 6, n + 1).FormulaR1C1 = "aoz" Cells(m + 7, n + -1).FormulaR1C1 = "8" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 5).FormulaR1C1 = "=R[-5]C[2]-180" Cells(m + 8, n + -1).FormulaR1C1 = "ax" Cells(m + 8, n + 0).FormulaR1C1 = "ay" Cells(m + 8, n + 1).FormulaR1C1 = "az" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Demonstrative model for the construction of three-dimensional objects of any shape." Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "-2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "2" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[9]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Press the >> button to start the simulation." 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 + 11, n + 21).FormulaR1C1 = "After the simulation is finished, press >> again to run the reversal simulation." Cells(m + 3, n + 1).Interior.Color = "14277081" 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 + 9 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "b" Cells(m + 3, n + 21).FormulaR1C1 = "Press << -- to return to the start." 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 = "box" Cells(m + 6, n + 0).FormulaR1C1 = "boy" Cells(m + 6, n + 1).FormulaR1C1 = "boz" 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 = "=R[-7]C+R[-9]C" Cells(m + 8, n + -1).FormulaR1C1 = "bx" Cells(m + 8, n + 0).FormulaR1C1 = "by" Cells(m + 8, n + 1).FormulaR1C1 = "bz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "2" 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 = "=IF(R[-17]C[6]>720,1,2)" 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 = "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 = "a x b" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "a x 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 + 6, n + -1).FormulaR1C1 = "a x box" Cells(m + 6, n + 0).FormulaR1C1 = "a x boy" Cells(m + 6, n + 1).FormulaR1C1 = "a x boz" 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 + -1).FormulaR1C1 = "a x bx" Cells(m + 8, n + 0).FormulaR1C1 = "a x by" Cells(m + 8, n + 1).FormulaR1C1 = "a x bz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2]" 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 = "=R[-9]C" 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" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 = "" Cells(m1 + 2, n1 - 1).Value = 3 End If ' vector ends If m = m1 + 18 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_23_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 23_Bateria_ES ' Updated: 5/04/24 ' Created by: Ariel Becerra (23/02/24) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 23 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 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "15" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel Becerra (23/02/24)" Cells(m1 + 1, n1 + 1).FormulaR1C1 = "A14" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "680" 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 = "25" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "L" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")" Cells(m1 + 3, n1 + 1).FormulaR1C1 = "BatteryOff" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "V (POTENCIAL DENTRO DE LA BATERêA)" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "0" 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 12 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")" Cells(m + 3, n + 1).FormulaR1C1 = "BatteryOff" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "V (POTENCIAL DENTRO DE LA BATER" & ChrW(205) & "A)" Cells(m + 3, n + 5).FormulaR1C1 = "0" 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 = "200" Cells(m + 4, n + 2).FormulaR1C1 = "FEM - Funcionamiento de la bater" & ChrW(237) & "a " Cells(m + 4, n + 12).FormulaR1C1 = "MODELO DE FUNCIONAMIENTO DE LA BATER" & ChrW(205) & "A DE PLOMO" Cells(m + 4, n + 24).FormulaR1C1 = "BATER" & ChrW(205) & "A DE PLOMO Y FEM" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 24).FormulaR1C1 = "CONSERVACI" & ChrW(211) & "N DE LA CARGA" Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||C" & ChrW(193) & "LCULO DE MASA DE H2SO4|||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "100" Cells(m + 7, n + 1).FormulaR1C1 = "360" Cells(m + 7, n + 2).FormulaR1C1 = "DATOS INICIALES:" Cells(m + 7, n + 21).FormulaR1C1 = "INTRODUCCI" & ChrW(211) & "N" Cells(m + 8, n + 2).FormulaR1C1 = "Capacidad de la bater" & ChrW(237) & "a" Cells(m + 8, n + 4).FormulaR1C1 = "C (Ah) =" Cells(m + 8, n + 5).FormulaR1C1 = "100" Cells(m + 8, n + 21).FormulaR1C1 = "La bater" & ChrW(237) & "a de plomo es un dispositivo que almacena energ" & ChrW(237) & "a el" & ChrW(233) & "ctrica en forma de energ" & ChrW(237) & "a qu" & ChrW(237) & "mica. En " Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "2" Cells(m + 9, n + 2).FormulaR1C1 = "Carga inicial de la bater" & ChrW(237) & "a:" Cells(m + 9, n + 4).FormulaR1C1 = "Q (C) =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[-1]C*3600" Cells(m + 9, n + 21).FormulaR1C1 = "una bater" & ChrW(237) & "a recargable la energ" & ChrW(237) & "a el" & ChrW(233) & "ctrica que se le suministra del exterior se utiliza para completar" 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 + 2).FormulaR1C1 = "Masa molar del H2 SO4:" Cells(m + 10, n + 4).FormulaR1C1 = "m (g/mole) =" Cells(m + 10, n + 5).FormulaR1C1 = "98" Cells(m + 10, n + 21).FormulaR1C1 = "una reacci" & ChrW(243) & "n qu" & ChrW(237) & "mica y convertir unos compuestos qu" & ChrW(237) & "micos en otros de mayor energ" & ChrW(237) & "a qu" & ChrW(237) & "mica. " 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 + 2).FormulaR1C1 = "Carga del electr" & ChrW(243) & "n" Cells(m + 11, n + 4).FormulaR1C1 = "q_e ( C ) = " Cells(m + 11, n + 5).FormulaR1C1 = "1.6E-19" Cells(m + 11, n + 21).FormulaR1C1 = "Cuando la bater" & ChrW(237) & "a est" & ChrW(225) & " cargada, al cerrar el circuito, la energ" & ChrW(237) & "a qu" & ChrW(237) & "mica se convierte de nuevo en " Cells(m + 3, n + 1).Interior.Color = "16746932" 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 = "SO4-" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "SO4-" Cells(m + 3, n + 1).FormulaR1C1 = "SO4-" Cells(m + 3, n + 2).FormulaR1C1 = "N" & ChrW(250) & "mero de Avogadro:" Cells(m + 3, n + 4).FormulaR1C1 = "N_A =" Cells(m + 3, n + 5).FormulaR1C1 = "6.02E+23" Cells(m + 3, n + 21).FormulaR1C1 = "energ" & ChrW(237) & "a el" & ChrW(233) & "ctrica y se producen las reacciones inverrsas. En este modelo se pueden estudiar la ley " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 1).FormulaR1C1 = "=""o[20]x=[20;20]o2[""&R[36]C[2]&""]y=[""&R[34]C[2]&"";""&R[35]C[2]&""]o3[40]z=[""&R[-6]C-100&"";""&R[-6]C-100&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01171875s""" Cells(m + 4, n + 2).FormulaR1C1 = "RESULTADOS:" Cells(m + 4, n + 21).FormulaR1C1 = "de conservaci" & ChrW(243) & "n de la carga y el funcionamiento de la bater" & ChrW(237) & "a como una FEM." Cells(m + 5, n + -1).FormulaR1C1 = "2" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 2).FormulaR1C1 = "N" & ChrW(250) & "mero de electrones" Cells(m + 5, n + 4).FormulaR1C1 = "n =" Cells(m + 5, n + 5).FormulaR1C1 = "=R[-5]C/R[-3]C" Cells(m + 6, n + 2).FormulaR1C1 = "No. de mol" & ChrW(233) & "c. de de H2SO4 " Cells(m + 6, n + 4).FormulaR1C1 = "N(H2SO4) =" Cells(m + 6, n + 5).FormulaR1C1 = "=R[-6]C/R[-4]C" Cells(m + 6, n + 21).FormulaR1C1 = "Oprima el bot" & ChrW(243) & "n <<-- para poner en posici" & ChrW(243) & "n inicial la simulaci" & ChrW(243) & "n y >> para iniciar la simulaci" & ChrW(243) & "n." 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 + 2).FormulaR1C1 = "N" & ChrW(250) & "mero total de moles:" Cells(m + 7, n + 4).FormulaR1C1 = "X (moles) =" Cells(m + 7, n + 5).FormulaR1C1 = "=R[-1]C/R[-4]C" Cells(m + 8, n + -1).FormulaR1C1 = "20" Cells(m + 8, n + 0).FormulaR1C1 = "200" Cells(m + 8, n + 1).FormulaR1C1 = "260" Cells(m + 8, n + 2).FormulaR1C1 = "Masa de H2SO4 requerida:" Cells(m + 8, n + 4).FormulaR1C1 = "M (g) =" Cells(m + 8, n + 5).FormulaR1C1 = "=R[-7]C*R[-1]C" Cells(m + 8, n + 21).FormulaR1C1 = "CONSERVACI" & ChrW(211) & "N DE LA CARGA:" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||||||||||||||||||||||||||||" 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 = "Cuando se cierra el circuito, en el interior de la bater" & ChrW(237) & "a, en las paredes del electrodo negativo " 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 + 11, n + 21).FormulaR1C1 = "sucede la siguiente reacci" & ChrW(243) & "n qu" & ChrW(237) & "mica: " Cells(m + 3, n + 1).Interior.Color = "16731466" 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 = "H+" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "H+" Cells(m + 3, n + 1).FormulaR1C1 = "H+" Cells(m + 3, n + 2).FormulaR1C1 = "|||||||DIFERENCIA DE POTENCIAL ENTRE BORNES||||||" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 1).FormulaR1C1 = "=""o[40]x=[-20;25]o2[""&R[31]C[2]&""]y=[""&R[29]C[2]&"";""&R[30]C[2]&""]o3[40]z=[""&R[-15]C-120&"";""&R[-15]C-40&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01640625s""" Cells(m + 4, n + 2).FormulaR1C1 = "DATOS INICIALES:" Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-36-1)" Cells(m + 5, n + -1).FormulaR1C1 = "5" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 2).FormulaR1C1 = "Potencial de referencia" Cells(m + 5, n + 4).FormulaR1C1 = "V_o =" Cells(m + 5, n + 5).FormulaR1C1 = "2" Cells(m + 6, n + 2).FormulaR1C1 = "FEM borne negativo" Cells(m + 6, n + 4).FormulaR1C1 = "FEM_1 =" Cells(m + 6, n + 5).FormulaR1C1 = "6" Cells(m + 6, n + 21).FormulaR1C1 = "Loa dos electrones sobrantes en la reacci" & ChrW(243) & "n se dirigen por el circuito externo para hacer parte de la " 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 + 2).FormulaR1C1 = "FEM borne positivo" Cells(m + 7, n + 4).FormulaR1C1 = "FEM_2 =" Cells(m + 7, n + 5).FormulaR1C1 = "6" Cells(m + 7, n + 21).FormulaR1C1 = "reacci" & ChrW(243) & "n en el segundo electrodo," Cells(m + 8, n + -1).FormulaR1C1 = "21" Cells(m + 8, n + 0).FormulaR1C1 = "40" Cells(m + 8, n + 1).FormulaR1C1 = "281" Cells(m + 8, n + 2).FormulaR1C1 = "Resistencia interna" Cells(m + 8, n + 4).FormulaR1C1 = "r =" Cells(m + 8, n + 5).FormulaR1C1 = "0.5" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "Grosor de electrodos:" Cells(m + 9, n + 4).FormulaR1C1 = "dx =" Cells(m + 9, n + 5).FormulaR1C1 = "20" Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-36-2)" 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 + 2).FormulaR1C1 = "Para el circuito cerrado:" 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 + 2).FormulaR1C1 = "Corriente en la bombilla:" Cells(m + 11, n + 4).FormulaR1C1 = "I =" Cells(m + 11, n + 5).FormulaR1C1 = "5" Cells(m + 11, n + 21).FormulaR1C1 = "y de esta manera se forma una corriente el" & ChrW(233) & "ctrica fuera del circuito que perdura mientras haya en " Cells(m + 3, n + 1).Interior.Color = "16761348" 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 9 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-28]C[7]<100,"""",""electron"")" Cells(m + 3, n + 1).FormulaR1C1 = "electron" Cells(m + 3, n + 2).FormulaR1C1 = "RESULTADOS:" Cells(m + 3, n + 21).FormulaR1C1 = "el fluido iones de slfato disponibles. Cuando la bater" & ChrW(237) & "a se descarga completamente todas las " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[-29]C[6]<140,"""",""s[10]r=[100;100]s2[180]phi=[270;270]s3[10]theta=[""&R[24]C[2]&"";""&R[24]C[2]+15&""]color=[8]origin[cart.]=[-10;100;""&R[-24]C-30&""]tfactor=0,01432292s"")" Cells(m + 4, n + 2).FormulaR1C1 = "FEM (desconectada)" Cells(m + 4, n + 4).FormulaR1C1 = "FEM =" Cells(m + 4, n + 5).FormulaR1C1 = "=ABS(R[-6]C)+ABS(R[-7]C)" Cells(m + 4, n + 21).FormulaR1C1 = "mol" & ChrW(233) & "culas de " & ChrW(225) & "cido sulf" & ChrW(250) & "rico han dado como resultado agua y sulfato de plomo. De las f" & ChrW(243) & "rmulas" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 2).FormulaR1C1 = "Voltaje entre bornes:" Cells(m + 5, n + 4).FormulaR1C1 = "DeltaV =" Cells(m + 5, n + 5).FormulaR1C1 = "=R[-1]C-R[32]C[-2]*R[-6]C" Cells(m + 5, n + 21).FormulaR1C1 = "qu" & ChrW(237) & "micas se puede deducir que, en conjunto, por cada dos iones de sulfato que se gastan se producen" Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||||||||" Cells(m + 6, n + 21).FormulaR1C1 = "dos electrones, en otras palabras por cada mol" & ChrW(233) & "cula de " & ChrW(225) & "cido sulfurico se produce un electr" & ChrW(243) & "n." 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 + 8, n + -1).FormulaR1C1 = "-9.99999999999999" Cells(m + 8, n + 0).FormulaR1C1 = "177.714596145697" Cells(m + 8, n + 1).FormulaR1C1 = "267.067960895016" Cells(m + 8, n + 2).FormulaR1C1 = " " Cells(m + 8, n + 21).FormulaR1C1 = "Ejemplo 1:" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "8" Cells(m + 9, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 21).FormulaR1C1 = "Una bater" & ChrW(237) & "a de plomo tiene una capacidad de 100 Ah. " 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 = "a) Hallar la carga total cuando est" & ChrW(225) & " totalmente cargada." 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 + 11, n + 21).FormulaR1C1 = "b) ÀCu" & ChrW(225) & "ntos gramos de " & ChrW(225) & "cido sulf" & ChrW(250) & "rico gasta la bater" & ChrW(237) & "a hasta descargarse totalmente?" Cells(m + 3, n + 1).Interior.Color = "16731466" 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 = "V" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "V" Cells(m + 3, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "o[0,5]x=[20;20]o2[7]y=[0;200]o3[2]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,002459491s" Cells(m + 4, n + 2).FormulaR1C1 = "<<-- Gr" & ChrW(225) & "fica del potencial" Cells(m + 4, n + 21).FormulaR1C1 = "a) 100 Ah = 100A * 3600 s = 100 C/s * 3600 s = 360000 C" Cells(m + 5, n + -1).FormulaR1C1 = "27" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 22).FormulaR1C1 = "Colocar G11=100 y observar la carga en G12." Cells(m + 6, n + 2).FormulaR1C1 = "////////////////////////////////" Cells(m + 6, n + 4).FormulaR1C1 = "|" Cells(m + 6, n + 21).FormulaR1C1 = "b) Por cada electr" & ChrW(243) & "n que se libera en el circuito se gasta una mol" & ChrW(233) & "cula de " & ChrW(225) & "cido sulf" & ChrW(250) & "rico. Convirti" & ChrW(233) & "ndo " 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 + 2).FormulaR1C1 = "CONFIGURACI" & ChrW(211) & "N MOD. 3D:" Cells(m + 7, n + 4).FormulaR1C1 = "|" Cells(m + 7, n + 22).FormulaR1C1 = "la cantidad de carga a electrones y relacion" & ChrW(225) & "ndola con la cantidad de mas de " & ChrW(225) & "cido " Cells(m + 8, n + -1).FormulaR1C1 = "20" Cells(m + 8, n + 0).FormulaR1C1 = "200" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "Freno del ciclo::" Cells(m + 8, n + 3).FormulaR1C1 = "=IF(R[-42]C[4]>160,180,R[-42]C[4])" Cells(m + 8, n + 4).FormulaR1C1 = "|" Cells(m + 8, n + 22).FormulaR1C1 = "sulf" & ChrW(250) & "rico se obtiene luego de algunos c" & ChrW(225) & "lculos que la masa gastada es 366,3 g." Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-1]C[-1]> para ver el " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 21).FormulaR1C1 = "potencial a lo largo de la bater" & ChrW(237) & "a mientras est" & ChrW(225) & " conectada la bombilla externa. " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "-30" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-17]C[2]-R[-54]C[4]*R[-19]C[2]" Cells(m + 7, n + 21).FormulaR1C1 = "Cambie los siguientes par" & ChrW(225) & "metros iniciales y vuelva a ejecutar la simulaci" & ChrW(243) & "n:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "250" 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 + 22).FormulaR1C1 = "Potencial de referencia" Cells(m + 9, n + 24).FormulaR1C1 = "G26" 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 = "FEM negativa" Cells(m + 10, n + 24).FormulaR1C1 = "G27" 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 + 11, n + 22).FormulaR1C1 = "FEM positiva" Cells(m + 11, n + 24).FormulaR1C1 = "G28" 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 + 81 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "10" Cells(m + 3, n + 2).FormulaR1C1 = "<<--Ir, l" & ChrW(237) & "nea punteada sup" Cells(m + 3, n + 22).FormulaR1C1 = "Resistencia interna" Cells(m + 3, n + 24).FormulaR1C1 = "G29" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Grosor electrodos:" Cells(m + 4, n + 24).FormulaR1C1 = "G30" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "6" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 22).FormulaR1C1 = "Corriente en la bombilla " Cells(m + 5, n + 24).FormulaR1C1 = "G32" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "-30" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C[2]+R[-64]C[4]*R[-28]C[2]" Cells(m + 7, n + 21).FormulaR1C1 = "Cambiando estos datos que caracterizan la bater" & ChrW(237) & "a y el circuito externo, se pueden ver los resultados " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "de la FEM y el voltaje entre los bornes en las celdas G34 y G35 respectivamente." Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "30" 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 = "Las unidades del voltaje y las FEM se dan en voltios, mientras que el grosos de los electrodos en cm." 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 = "Estas unidades pueden ser tratadas a conveniencia por el usuario. " 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 = "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 + 90 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "11" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-91]C[7]=0,"""",""(Eq-36-7)"")" Cells(m + 3, n + 2).FormulaR1C1 = "<<-- Ir, flecha doble" Cells(m + 3, n + 21).FormulaR1C1 = "Pregunta: Si se mide el voltaje de una bater" & ChrW(237) & "a cargada con un volt" & ChrW(237) & "metro antes y despu" & ChrW(233) & "s " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "de conecatrla a un circuito externo, " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R[-93]C[6]=0,1,0)" Cells(m + 5, n + 22).FormulaR1C1 = "a) ÀEl voltaje entre los bornes de la bater" & ChrW(237) & "a cambi" & ChrW(243) & "?" Cells(m + 6, n + 22).FormulaR1C1 = "b) ÀLa FEM cambi" & ChrW(243) & "?" 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 + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-11]C-R[-20]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "2" 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 = "2" 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 = "3506772" 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-36-3)" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "12" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-100]C[7]=0,""(Eq-36-3)"",""(Eq-36-4)"")" Cells(m + 3, n + 2).FormulaR1C1 = "<<-- Delta V, flecha doble" 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[-45]C" Cells(m + 7, n + 0).FormulaR1C1 = "250" 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 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-45]C+R[-36]C-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "3" 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 = "3506772" 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 = 12 End If ' vector ends If m = m1 + 99 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_23_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 23_Battery_EN ' Updated: 5/04/24 ' Created by: Ariel Becerra (23/02/24) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 23 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 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "15" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel Becerra (23/02/24)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "680" Cells(m1 + 1, n1 + 4).FormulaR1C1 = " " Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "L" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")" Cells(m1 + 3, n1 + 1).FormulaR1C1 = "BatteryOff" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "V (POTENTIAL WITHIN THE BATTERY)" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "0" 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 12 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")" Cells(m + 3, n + 1).FormulaR1C1 = "BatteryOff" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5" Cells(m + 3, n + 4).FormulaR1C1 = "V (POTENTIAL WITHIN THE BATTERY)" Cells(m + 3, n + 5).FormulaR1C1 = "0" 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 = "200" Cells(m + 4, n + 2).FormulaR1C1 = "EMF - Battery Operation" Cells(m + 4, n + 12).FormulaR1C1 = "LEAD BATTERY OPERATING MODEL" Cells(m + 4, n + 24).FormulaR1C1 = "LEAD BATTERY AND EMF" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 24).FormulaR1C1 = "CONSERVATION OF CHARGE" Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||H2SO4 MASS CALCULATION|||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "100" Cells(m + 7, n + 1).FormulaR1C1 = "360" Cells(m + 7, n + 2).FormulaR1C1 = "INITIAL DATA:" Cells(m + 7, n + 21).FormulaR1C1 = "INTRODUCTION" Cells(m + 8, n + 2).FormulaR1C1 = "Battery capacity:" Cells(m + 8, n + 4).FormulaR1C1 = "C (Ah) =" Cells(m + 8, n + 5).FormulaR1C1 = "100" Cells(m + 8, n + 21).FormulaR1C1 = "The lead battery is a device that stores electrical energy in the form of chemical energy. In a rechargeable " Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "2" Cells(m + 9, n + 2).FormulaR1C1 = "Initial battery charge:" Cells(m + 9, n + 4).FormulaR1C1 = "Q (C) =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[-1]C*3600" Cells(m + 9, n + 21).FormulaR1C1 = "battery, the electrical energy supplied from outside is used to complete a chemical reaction and convert " 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 + 2).FormulaR1C1 = "Molar mass of H2 SO4:" Cells(m + 10, n + 4).FormulaR1C1 = "m (g/mole) =" Cells(m + 10, n + 5).FormulaR1C1 = "98" Cells(m + 10, n + 21).FormulaR1C1 = "some chemical compounds into others with greater chemical energy. When the battery is charged, " 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 + 2).FormulaR1C1 = "electron charge:" Cells(m + 11, n + 4).FormulaR1C1 = "q_e ( C ) = " Cells(m + 11, n + 5).FormulaR1C1 = "1.6E-19" Cells(m + 11, n + 21).FormulaR1C1 = "by closing the circuit, the chemical energy is converted back into electrical energy and the reverse " Cells(m + 3, n + 1).Interior.Color = "16746932" 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 = "SO4-" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "SO4-" Cells(m + 3, n + 1).FormulaR1C1 = "SO4-" Cells(m + 3, n + 2).FormulaR1C1 = "Avogadro's number:" Cells(m + 3, n + 4).FormulaR1C1 = "N_A =" Cells(m + 3, n + 5).FormulaR1C1 = "6.02E+23" Cells(m + 3, n + 21).FormulaR1C1 = "reactions occur. In this model, the law of conservation of charge and the operation of the battery as " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 1).FormulaR1C1 = "=""o[20]x=[20;20]o2[""&R[36]C[2]&""]y=[""&R[34]C[2]&"";""&R[35]C[2]&""]o3[40]z=[""&R[-6]C-100&"";""&R[-6]C-100&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01367188s""" Cells(m + 4, n + 2).FormulaR1C1 = "RESULTS:" Cells(m + 4, n + 21).FormulaR1C1 = "an EMF can be studied." Cells(m + 5, n + -1).FormulaR1C1 = "2" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 2).FormulaR1C1 = "Number of electrons:" Cells(m + 5, n + 4).FormulaR1C1 = "n =" Cells(m + 5, n + 5).FormulaR1C1 = "=R[-5]C/R[-3]C" Cells(m + 6, n + 2).FormulaR1C1 = "H2SO4 molec. number:" Cells(m + 6, n + 4).FormulaR1C1 = "N(H2SO4) =" Cells(m + 6, n + 5).FormulaR1C1 = "=R[-6]C/R[-4]C" Cells(m + 6, n + 21).FormulaR1C1 = "Press the <<-- button to set to zero the simulation and >> to start the simulation." 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 + 2).FormulaR1C1 = "Total number of moles:" Cells(m + 7, n + 4).FormulaR1C1 = "X (moles) =" Cells(m + 7, n + 5).FormulaR1C1 = "=R[-1]C/R[-4]C" Cells(m + 8, n + -1).FormulaR1C1 = "20" Cells(m + 8, n + 0).FormulaR1C1 = "200" Cells(m + 8, n + 1).FormulaR1C1 = "260" Cells(m + 8, n + 2).FormulaR1C1 = "Mass of H2SO4 required:" Cells(m + 8, n + 4).FormulaR1C1 = "M (g) =" Cells(m + 8, n + 5).FormulaR1C1 = "=R[-7]C*R[-1]C" Cells(m + 8, n + 21).FormulaR1C1 = "CONSERVATION OF CHARGE:" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||||| |" 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 = "When the circuit is closed, inside the battery, on the walls of the negative electrode, 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 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "following chemical reaction occurs:" Cells(m + 3, n + 1).Interior.Color = "16731466" 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 = "H+" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "H+" Cells(m + 3, n + 1).FormulaR1C1 = "H+" Cells(m + 3, n + 2).FormulaR1C1 = "|||||||POTENTIAL DIFFERENCE BETWEEN TERMINALS||||||" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 1).FormulaR1C1 = "=""o[40]x=[-20;25]o2[""&R[31]C[2]&""]y=[""&R[29]C[2]&"";""&R[30]C[2]&""]o3[40]z=[""&R[-15]C-120&"";""&R[-15]C-40&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01640625s""" Cells(m + 4, n + 2).FormulaR1C1 = "INITIAL DATA:" Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-36-1)" Cells(m + 5, n + -1).FormulaR1C1 = "5" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 2).FormulaR1C1 = "Reference potential:" Cells(m + 5, n + 4).FormulaR1C1 = "V_o =" Cells(m + 5, n + 5).FormulaR1C1 = "2" Cells(m + 6, n + 2).FormulaR1C1 = "EMF negative terminal:" Cells(m + 6, n + 4).FormulaR1C1 = "FEM_1 =" Cells(m + 6, n + 5).FormulaR1C1 = "6" Cells(m + 6, n + 21).FormulaR1C1 = "The two electrons left over from the reaction are directed through the external circuit to take part " 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 + 2).FormulaR1C1 = "EMF positive terminal:" Cells(m + 7, n + 4).FormulaR1C1 = "FEM_2 =" Cells(m + 7, n + 5).FormulaR1C1 = "6" Cells(m + 7, n + 21).FormulaR1C1 = "in the reaction at the second electrode," Cells(m + 8, n + -1).FormulaR1C1 = "21" Cells(m + 8, n + 0).FormulaR1C1 = "40" Cells(m + 8, n + 1).FormulaR1C1 = "281" Cells(m + 8, n + 2).FormulaR1C1 = "internal resistance:" Cells(m + 8, n + 4).FormulaR1C1 = "r =" Cells(m + 8, n + 5).FormulaR1C1 = "0.5" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "Electrode thickness:" Cells(m + 9, n + 4).FormulaR1C1 = "dx =" Cells(m + 9, n + 5).FormulaR1C1 = "20" Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-36-2)" 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 + 2).FormulaR1C1 = "For the closed circuit:" 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 + 2).FormulaR1C1 = "Current in the bulb:" Cells(m + 11, n + 4).FormulaR1C1 = "I =" Cells(m + 11, n + 5).FormulaR1C1 = "5" Cells(m + 11, n + 21).FormulaR1C1 = "and in this way an electric current is formed outside the circuit that lasts as long as there are " Cells(m + 3, n + 1).Interior.Color = "16761348" 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 9 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-28]C[7]<100,"""",""electron"")" Cells(m + 3, n + 1).FormulaR1C1 = "electron" Cells(m + 3, n + 2).FormulaR1C1 = "RESULTS:" Cells(m + 3, n + 21).FormulaR1C1 = "available sulfur ions in the fluid. When the battery is completely discharged all sulfuric acid " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[-29]C[6]<140,"""",""s[10]r=[100;100]s2[180]phi=[270;270]s3[10]theta=[""&R[24]C[2]&"";""&R[24]C[2]+15&""]color=[8]origin[cart.]=[-10;100;""&R[-24]C-30&""]tfactor=0,01432292s"")" Cells(m + 4, n + 2).FormulaR1C1 = "EMF:" Cells(m + 4, n + 4).FormulaR1C1 = "FEM =" Cells(m + 4, n + 5).FormulaR1C1 = "=ABS(R[-6]C)+ABS(R[-7]C)" Cells(m + 4, n + 21).FormulaR1C1 = "molecules have resulted in water and lead sulfate. From the chemical formulas it can be deduced that, " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "0" Cells(m + 5, n + 1).FormulaR1C1 = "2" Cells(m + 5, n + 2).FormulaR1C1 = "Voltage between terminals:" Cells(m + 5, n + 4).FormulaR1C1 = "DeltaV =" Cells(m + 5, n + 5).FormulaR1C1 = "=R[-1]C-R[32]C[-2]*R[-6]C" Cells(m + 5, n + 21).FormulaR1C1 = "overall, for every two sulfate ions that are spent, two electrons, in other words for each molecule of " Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||||| ||" Cells(m + 6, n + 21).FormulaR1C1 = "sulfuric acid one electron is produced." 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 + 8, n + -1).FormulaR1C1 = "-9.99999999999999" Cells(m + 8, n + 0).FormulaR1C1 = "177.714596145697" Cells(m + 8, n + 1).FormulaR1C1 = "267.067960895016" Cells(m + 8, n + 2).FormulaR1C1 = " " Cells(m + 8, n + 21).FormulaR1C1 = "Example 1:" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "8" Cells(m + 9, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 21).FormulaR1C1 = "A lead battery has a capacity of 100 Ah." 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 = "a) Find the total charge when it is fully charged." 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 + 11, n + 21).FormulaR1C1 = "b) How many grams of sulfuric acid does the battery use until it is completely discharged?" Cells(m + 3, n + 1).Interior.Color = "16731466" 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 = "V" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "V" Cells(m + 3, n + 21).FormulaR1C1 = "Solution:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "o[0,5]x=[20;20]o2[7]y=[0;200]o3[2]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,002170139s" Cells(m + 4, n + 2).FormulaR1C1 = "<<-- Potential graph" Cells(m + 4, n + 21).FormulaR1C1 = "a) 100 Ah = 100A * 3600 s = 100 C/s * 3600 s = 360000 C" Cells(m + 5, n + -1).FormulaR1C1 = "27" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 22).FormulaR1C1 = "Set G11=100 and observe the charge in G12." Cells(m + 6, n + 2).FormulaR1C1 = "////////////////////////////////" Cells(m + 6, n + 4).FormulaR1C1 = "|" Cells(m + 6, n + 21).FormulaR1C1 = "b) For each electron that is released in the circuit, one molecule of sulfuric acid is spent. " 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 + 2).FormulaR1C1 = "3D MODEL CONFIG.:" Cells(m + 7, n + 4).FormulaR1C1 = "|" Cells(m + 7, n + 22).FormulaR1C1 = "Converting the amount of charge to electrons and relating it to the excess amount " Cells(m + 8, n + -1).FormulaR1C1 = "20" Cells(m + 8, n + 0).FormulaR1C1 = "200" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "Cycle stop::" Cells(m + 8, n + 3).FormulaR1C1 = "=IF(R[-42]C[4]>160,180,R[-42]C[4])" Cells(m + 8, n + 4).FormulaR1C1 = "|" Cells(m + 8, n + 22).FormulaR1C1 = "of sulfuric acid, we obtain after some calculations that the mass spent is 366.3 g." Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-1]C[-1]