'//////////////////////////////////// ((((((())))))) \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ' ScienSolar v. 1.54 MODULE 3. Updated 09-03-2025 Sub Project_3_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 3_Suma de vectores_ES ' Updated: 25/10/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 3 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "24" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "32" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 1).FormulaR1C1 = "A5" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,03125 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "735" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "SUM OF VECTORS" & Chr(10) & _ " The sum of two arbitrary vectors a = (ax,ay,az), b = (bx,by,bz), distributed in space, can be represented by a resultant vector A = (Ax,Ay,Az), whose coordinates are simply the sum of the corresponding coordinates of each of the vectors:" & Chr(10) & _ " A = (Ax,Ay,Az) = (ax + bx, ay + by, az + bz)" & Chr(10) & _ " Enter the initial coordinates of the first vector in cells A10, B10, C10, the increments of its coordinates in A12, B12, C12. For the second vector correspondingly in A19, B19, C19 and A21, B21, C21. The result is a vector whose coordinates are observed in cells A30, B30, C30 and whose origin can be changed through cells A28, B28, C28." & Chr(10) & _ " Add more vectors and modify the formulas in A30, B30, C30." On Error Resume Next 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 = "735" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Suma de vectores" Cells(m + 4, n + 12).FormulaR1C1 = "SUMA DE VECTORES" 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.3" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""Vec_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""Vec_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""Vec_*"")" Cells(m + 7, n + -1).FormulaR1C1 = "=R[2]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[3]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[4]C[4]" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[5]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Origin:" Cells(m + 8, n + 21).FormulaR1C1 = "En este modelo se puede sumar o restar cualquier n" & ChrW(250) & "mero de vectores expresados __en tres" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 4).FormulaR1C1 = "A_ox" Cells(m + 9, n + 5).FormulaR1C1 = "2" Cells(m + 9, n + 21).FormulaR1C1 = "dimensiones y mostrar el resultado mediante la regla de cabeza-cola o tambi" & ChrW(233) & "n ubicando todos los" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "A_ox" Cells(m + 10, n + 5).FormulaR1C1 = "2" Cells(m + 10, n + 21).FormulaR1C1 = "vectores en el origen." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "A_ox" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "a" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(95+RC[-1])" Cells(m + 3, n + 21).FormulaR1C1 = "La suma de dos vectores arbitrarios" 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 + 6, n + 4).FormulaR1C1 = "Vector resultante:" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-3-2)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = "A_x =" Cells(m + 7, n + 5).FormulaR1C1 = "=R[-7]C[-6]" Cells(m + 8, n + 4).FormulaR1C1 = "A_y =" Cells(m + 8, n + 5).FormulaR1C1 = "=R[-8]C[-5]" Cells(m + 8, n + 21).FormulaR1C1 = "distribuidos en el espacio, se puede representar mediante un vector resultante, cuyas coordenadas" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "6" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C[-3]-1" Cells(m + 9, n + 4).FormulaR1C1 = "A_z =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[-9]C[-4]" Cells(m + 9, n + 21).FormulaR1C1 = "son simplemente la suma de las coordenadas correspondientes de cada uno de los vectores:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "|A| =" Cells(m + 11, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[-11]C[-6]^2+R[-11]C[-5]^2+R[-11]C[-4]^2),2)" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "12" 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 + 18 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(95+RC[-1])" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-3-3)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Presione +OBJ para " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "agregar m" & ChrW(225) & "s vectores" Cells(m + 6, n + 4).FormulaR1C1 = "Presione -OBJ para " Cells(m + 6, n + 21).FormulaR1C1 = "Insertar en A30, B30, C30 las coordenadas del segundo vector." 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 + 7, n + 4).FormulaR1C1 = "eliminar vectores" Cells(m + 7, n + 21).FormulaR1C1 = "Insertar en A21, B21, C21 las coordenadas del primer vector" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "4" Cells(m + 9, n + 0).FormulaR1C1 = "3" Cells(m + 9, n + 1).FormulaR1C1 = "1" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C[-3]-1" Cells(m + 9, n + 4).FormulaR1C1 = "Modificar las coordenadas" Cells(m + 9, n + 21).FormulaR1C1 = "Agregar m" & ChrW(225) & "s vectores presionando +OBJ." 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 = "del vector a la izquierda" Cells(m + 10, n + 21).FormulaR1C1 = "Eliminar vector con -OBJ." 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 = "de Vec_*" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 3 End If ' vector ends If m = m1 + 18 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_3_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 3_Vector Addition_EN ' Updated: 25/10/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 3 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "24" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "32" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,0390625 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "SUM OF VECTORS" & Chr(10) & _ " The sum of two arbitrary vectors a = (ax,ay,az), b = (bx,by,bz), distributed in space, can be represented by a resultant vector A = (Ax,Ay,Az), whose coordinates are simply the sum of the corresponding coordinates of each of the vectors:" & Chr(10) & _ " A = (Ax,Ay,Az) = (ax + bx, ay + by, az + bz)" & Chr(10) & _ " Enter the initial coordinates of the first vector in cells A10, B10, C10, the increments of its coordinates in A12, B12, C12. For the second vector correspondingly in A19, B19, C19 and A21, B21, C21. The result is a vector whose coordinates are observed in cells A30, B30, C30 and whose origin can be changed through cells A28, B28, C28." & Chr(10) & _ " Add more vectors and modify the formulas in A30, B30, C30." On Error Resume Next 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 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Vector sum" Cells(m + 4, n + 12).FormulaR1C1 = "SUM OF VECTORS" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""Vec_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""Vec_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""Vec_*"")" Cells(m + 7, n + -1).FormulaR1C1 = "=R[2]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[3]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[4]C[4]" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[5]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Origin:" Cells(m + 8, n + 21).FormulaR1C1 = "In this model you can add or subtract any number of vectors expressed in three" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "A_ox" Cells(m + 9, n + 5).FormulaR1C1 = "2" Cells(m + 9, n + 21).FormulaR1C1 = "dimensions and show the result by the head-tail rule or also by locating all the" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "A_ox" Cells(m + 10, n + 5).FormulaR1C1 = "2" Cells(m + 10, n + 21).FormulaR1C1 = "vectors at the origin." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "A_ox" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "a" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(95+RC[-1])" Cells(m + 3, n + 21).FormulaR1C1 = "The sum of two arbitrary vectors" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-3-2)" Cells(m + 6, n + 4).FormulaR1C1 = "Resulting vector" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = "A_x =" Cells(m + 7, n + 5).FormulaR1C1 = "=R[-7]C[-6]" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "A_y =" Cells(m + 8, n + 5).FormulaR1C1 = "=R[-8]C[-5]" Cells(m + 8, n + 21).FormulaR1C1 = "distributed in space, can be represented by a resulting vector, whose coordinates" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "6" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C[-3]-1" Cells(m + 9, n + 4).FormulaR1C1 = "A_z =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[-9]C[-4]" Cells(m + 9, n + 21).FormulaR1C1 = "are simply the sum of the corresponding coordinates of each of the vectors:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "|A| =" Cells(m + 11, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[-11]C[-6]^2+R[-11]C[-5]^2+R[-11]C[-4]^2),2)" Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-3-3)" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "12" 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 + 18 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(95+RC[-1])" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "To add more vectors" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = "press +OBJ" Cells(m + 6, n + 4).FormulaR1C1 = "To delete vectors " 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 + 7, n + 4).FormulaR1C1 = "press -OBJ" Cells(m + 7, n + 21).FormulaR1C1 = "Insert into A30, B30, C30 the coordinates of the second vector." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Insert into A21, B21, C21 the coordinates of the first vector" Cells(m + 9, n + -1).FormulaR1C1 = "4" Cells(m + 9, n + 0).FormulaR1C1 = "3" Cells(m + 9, n + 1).FormulaR1C1 = "1" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C[-3]-1" Cells(m + 9, n + 4).FormulaR1C1 = "Modify the vector coordin." 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 = "to the left of Vec_*" Cells(m + 10, n + 21).FormulaR1C1 = "Add more vectors by pressing +OBJ." 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[-19]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Delete vector with -OBJ." Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 3 End If ' vector ends If m = m1 + 18 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_4_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 4_Coordenadas de vectores_ES ' Updated: 28/01/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 4 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "96" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "140" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "0.5" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "500" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,078125 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "350" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "735" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "SUM OF VECTORS" & Chr(10) & _ " The sum of two arbitrary vectors a = (ax,ay,az), b = (bx,by,bz), distributed in space, can be represented by a resultant vector A = (Ax,Ay,Az), whose coordinates are simply the sum of the corresponding coordinates of each of the vectors:" & Chr(10) & _ " A = (Ax,Ay,Az) = (ax + bx, ay + by, az + bz)" & Chr(10) & _ " Enter the initial coordinates of the first vector in cells A10, B10, C10, the increments of its coordinates in A12, B12, C12. For the second vector correspondingly in A19, B19, C19 and A21, B21, C21. The result is a vector whose coordinates are observed in cells A30, B30, C30 and whose origin can be changed through cells A28, B28, C28." & Chr(10) & _ " Add more vectors and modify the formulas in A30, B30, C30." On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 15 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 = "350" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "735" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Suma de vectores" Cells(m + 4, n + 12).FormulaR1C1 = "SUMA DE VECTORES Y PROYECCI" & ChrW(211) & "N DE COORDENADAS" 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.3" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""Vec_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""Vec_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""Vec_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "Modificar " Cells(m + 7, n + -1).FormulaR1C1 = "=R[4]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[5]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[6]C[4]" Cells(m + 7, n + 2).FormulaR1C1 = "="" |""&R[-4]C[-2]&""| =""" Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[2]C[-4]^2+R[2]C[-3]^2+R[2]C[-2]^2)" Cells(m + 7, n + 4).FormulaR1C1 = "a continuaci" & ChrW(243) & "n:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[41]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "********************" Cells(m + 8, n + 21).FormulaR1C1 = "En este modelo se puede sumar o restar cualquier n" & ChrW(250) & "mero de vectores expresados en tres" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< - Resultante ""&R[-6]C[-2]" Cells(m + 9, n + 4).FormulaR1C1 = "********************" Cells(m + 9, n + 21).FormulaR1C1 = "dimensiones y mostrar el resultado mediante la regla de cabeza-cola o tambi" & ChrW(233) & "n ubicando todos los" 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 = "Origen:" Cells(m + 10, n + 21).FormulaR1C1 = "vectores en el origen." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "A_ox" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-9]C&""_z = ""&-R[6]C[1],"""")" Cells(m + 3, n + 4).FormulaR1C1 = "A_ox" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 21).FormulaR1C1 = "La suma de dos vectores arbitrarios" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "A_ox" Cells(m + 4, n + 5).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 6, n + 4).FormulaR1C1 = "Modo:" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-3-2)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 4).FormulaR1C1 = "(0-origen, 1-cabeza-cola)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "********************" Cells(m + 8, n + 21).FormulaR1C1 = "distribuidos en el espacio, se puede representar mediante un vector resultante, cuyas coordenadas" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "********************" Cells(m + 9, n + 21).FormulaR1C1 = "son simplemente la suma de las coordenadas correspondientes de cada uno de los vectores:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "MOSTRAR:" 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 = "Si=0, N0=1" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-18]C&""_y = ""&-R[6]C,"""")" Cells(m + 3, n + 4).FormulaR1C1 = "Valores:" Cells(m + 3, n + 5).FormulaR1C1 = "1" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-3-3)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Coordenadas:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 5, n + 4).FormulaR1C1 = "x:" Cells(m + 5, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 4).FormulaR1C1 = "y:" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 21).FormulaR1C1 = "Insertar en A57, B57, C57 las coordenadas del primer vector." 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 + 7, n + 4).FormulaR1C1 = "z:" Cells(m + 7, n + 5).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "Insertar en A102, B102, C102 las coordenadas del segundo vector y as" & ChrW(237) & " sucesivamente." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Proyecci" & ChrW(243) & "n:" Cells(m + 8, n + 5).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "********************" Cells(m + 9, n + 21).FormulaR1C1 = "Agregar m" & ChrW(225) & "s vectores presionando +OBJ." 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 = "********************" Cells(m + 10, n + 21).FormulaR1C1 = "Eliminar vector con -OBJ." 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 = "Presione +OBJ para " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" 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 12 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-27]C&""_x = ""&-R[6]C[-1],"""")" Cells(m + 3, n + 4).FormulaR1C1 = "agregar m" & ChrW(225) & "s vectores" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Presione -OBJ para " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R26C7" Cells(m + 5, n + 4).FormulaR1C1 = "eliminar vectores." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 4).FormulaR1C1 = "Modificar coordenadas" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "de cada vector en la " Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" 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 + 4).FormulaR1C1 = "columna D junto a Vec_*" 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 = "********************" 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 = "********************" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R29C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "a" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(96+RC[2])" Cells(m + 3, n + 2).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R10C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R10C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R10C3" Cells(m + 7, n + 2).FormulaR1C1 = "="" |""&R[-4]C[-2]&""| =""" Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[2]C[-4]^2+R[2]C[-3]^2+R[2]C[-2]^2)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "-3" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "5" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C" Cells(m + 9, n + 3).FormulaR1C1 = "<<- Introduzca aqu" & ChrW(237) & " las coordenadas" 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 + 3).FormulaR1C1 = "(reemplace las f" & ChrW(243) & "rmulas)." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-9]C&""_z = ""&-R[6]C[1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-18]C&""_y = ""&-R[6]C,"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R27C7" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-27]C&""_x = ""&-R[6]C[-1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R26C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R29C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 + 90 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(96+RC[2])" Cells(m + 3, n + 2).FormulaR1C1 = "=R[-45]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=IF(R18C7=0,R10C1,R[-45]C+R[-43]C)" Cells(m + 7, n + 0).FormulaR1C1 = "=IF(R18C7=0,R10C2,R[-45]C+R[-43]C)" Cells(m + 7, n + 1).FormulaR1C1 = "=IF(R18C7=0,R10C3,R[-45]C+R[-43]C)" Cells(m + 7, n + 2).FormulaR1C1 = "="" |""&R[-4]C[-2]&""| =""" Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[2]C[-4]^2+R[2]C[-3]^2+R[2]C[-2]^2)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1+R[-6]C[3]" Cells(m + 9, n + 0).FormulaR1C1 = "=2+R[-6]C[2]" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C" Cells(m + 9, n + 3).FormulaR1C1 = "<<- Introduzca aqu" & ChrW(237) & " las coordenadas" 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 + 3).FormulaR1C1 = "(reemplace las f" & ChrW(243) & "rmulas)." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-9]C&""_z = ""&-R[6]C[1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 108 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-18]C&""_y = ""&-R[6]C,"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R27C7" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 + 117 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-27]C&""_x = ""&-R[6]C[-1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R26C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 + 126 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R29C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 = 15 End If ' vector ends If m = m1 + 126 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_4_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 4_Vector Coordinates_EN ' Updated: 28/01/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 4 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "96" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "140" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "500" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,0859375 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "A" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "350" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "SUM OF VECTORS" & Chr(10) & _ " The sum of two arbitrary vectors a = (ax,ay,az), b = (bx,by,bz), distributed in space, can be represented by a resultant vector A = (Ax,Ay,Az), whose coordinates are simply the sum of the corresponding coordinates of each of the vectors:" & Chr(10) & _ " A = (Ax,Ay,Az) = (ax + bx, ay + by, az + bz)" & Chr(10) & _ " Enter the initial coordinates of the first vector in cells A10, B10, C10, the increments of its coordinates in A12, B12, C12. For the second vector correspondingly in A19, B19, C19 and A21, B21, C21. The result is a vector whose coordinates are observed in cells A30, B30, C30 and whose origin can be changed through cells A28, B28, C28." & Chr(10) & _ " Add more vectors and modify the formulas in A30, B30, C30." On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 15 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 = "350" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Vector addition" Cells(m + 4, n + 12).FormulaR1C1 = "VECTOR ADDITION AND COORDINATE PROJECTION" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""Vec_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""Vec_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""Vec_*"")" Cells(m + 7, n + -1).FormulaR1C1 = "=R[4]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[5]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[6]C[4]" Cells(m + 7, n + 2).FormulaR1C1 = "="" |""&R[-4]C[-2]&""| =""" Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[2]C[-4]^2+R[2]C[-3]^2+R[2]C[-2]^2)" Cells(m + 7, n + 4).FormulaR1C1 = "Configure below:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[41]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "********************" Cells(m + 8, n + 21).FormulaR1C1 = "In this model you can add or subtract any number of vectors expressed in three" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< - Resulting. ""&R[-6]C[-2]" Cells(m + 9, n + 4).FormulaR1C1 = "********************" Cells(m + 9, n + 21).FormulaR1C1 = "dimensions and display the result using the head-tail rule or by placing all the vectors at the origin." 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 = "Origin:" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "A_ox" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 21).FormulaR1C1 = "The sum of two arbitrary vectors" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-9]C&""_z = ""&-R[6]C[1],"""")" Cells(m + 3, n + 4).FormulaR1C1 = "A_ox" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "A_ox" Cells(m + 4, n + 5).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 6, n + 4).FormulaR1C1 = "Mode:" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-3-2)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 4).FormulaR1C1 = "(0-origin, 1-head-tail)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "********************" Cells(m + 8, n + 21).FormulaR1C1 = "distributed in space can be represented by a resulting vector, whose coordinates" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "********************" Cells(m + 9, n + 21).FormulaR1C1 = "are simply the sum of the corresponding coordinates of each of the vectors:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "SHOW:" 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 = "Yes=0, N0=1" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-18]C&""_y = ""&-R[6]C,"""")" Cells(m + 3, n + 4).FormulaR1C1 = "Values:" Cells(m + 3, n + 5).FormulaR1C1 = "1" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-3-3)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Coordinates:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R27C7" Cells(m + 5, n + 4).FormulaR1C1 = "x:" Cells(m + 5, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 4).FormulaR1C1 = "and:" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 21).FormulaR1C1 = "Insert the coordinates of the first vector in A57, B57, C57." 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 + 7, n + 4).FormulaR1C1 = "z:" Cells(m + 7, n + 5).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "Insert the coordinates of the second vector in A102, B102, C102, and so on." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Projection:" Cells(m + 8, n + 5).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "********************" Cells(m + 9, n + 21).FormulaR1C1 = "Add more vectors by pressing +OBJ." 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 = "********************" Cells(m + 10, n + 21).FormulaR1C1 = "Delete vector with -OBJ." 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 = "Press +OBJ to " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" 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 12 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-27]C&""_x = ""&-R[6]C[-1],"""")" Cells(m + 3, n + 4).FormulaR1C1 = "add more vectors" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Press -OBJ to " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R26C7" Cells(m + 5, n + 4).FormulaR1C1 = "remove vectors." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 4).FormulaR1C1 = "Modify coordinates" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "of each vector in the " Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" 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 + 4).FormulaR1C1 = "column D next to Vec_*" 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 = "********************" 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 = "********************" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R29C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "a" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(96+RC[2])" Cells(m + 3, n + 2).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=R10C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R10C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R10C3" Cells(m + 7, n + 2).FormulaR1C1 = "="" |""&R[-4]C[-2]&""| =""" Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[2]C[-4]^2+R[2]C[-3]^2+R[2]C[-2]^2)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "-3" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "5" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C" Cells(m + 9, n + 3).FormulaR1C1 = "<<- Enter the coordinates here" 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 + 3).FormulaR1C1 = "(replace the formulas)." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-9]C&""_z = ""&-R[6]C[1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-18]C&""_y = ""&-R[6]C,"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R27C7" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-27]C&""_x = ""&-R[6]C[-1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R26C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R29C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 + 90 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=CHAR(96+RC[2])" Cells(m + 3, n + 2).FormulaR1C1 = "=R[-45]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "=IF(R18C7=0,R10C1,R[-45]C+R[-43]C)" Cells(m + 7, n + 0).FormulaR1C1 = "=IF(R18C7=0,R10C2,R[-45]C+R[-43]C)" Cells(m + 7, n + 1).FormulaR1C1 = "=IF(R18C7=0,R10C3,R[-45]C+R[-43]C)" Cells(m + 7, n + 2).FormulaR1C1 = "="" |""&R[-4]C[-2]&""| =""" Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[2]C[-4]^2+R[2]C[-3]^2+R[2]C[-2]^2)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1+R[-6]C[3]" Cells(m + 9, n + 0).FormulaR1C1 = "=2+R[-6]C[2]" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "=""Vec_""&R[-6]C" Cells(m + 9, n + 3).FormulaR1C1 = "<<- Insert the coordinates here." 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 + 3).FormulaR1C1 = "(replace the formulas)." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-9]C&""_z = ""&-R[6]C[1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R28C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C+R[-7]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 108 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-18]C&""_y = ""&-R[6]C,"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R27C7" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 + 117 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R24C7=0,R[-27]C&""_x = ""&-R[6]C[-1],"""")" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R26C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 + 126 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R29C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C+R[-34]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "8092539" Cells(m + 3, n + 1).Font.Size = "12" 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 = 15 End If ' vector ends If m = m1 + 126 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_5_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 05_Producto cruz_ES ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 5 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=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 = "735" Cells(m1, n1 + 9).FormulaR1C1 = " ?" Dim HELPtxt As String HELPtxt = "PRODUCTO CRUZ" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Se llama producto vectorial de dos vectores a y b (se escribe a" & ChrW(233) & " x b) al vector c cuya longitud es igual a |a||b|sin alpha, que corresponde al " & ChrW(225) & "rea del paralelogramo construido sobre estos vectores, y cuya direcci" & ChrW(243) & "n es perpendicular a ambos vectores y se rige por la regla de la mano derecha. Si est" & ChrW(225) & "n dadas las longitudes de los vectores y el " & ChrW(225) & "ngulo entre ellos, entonces se puede hallar el vector" & ChrW(233) & "c. Si los vectores est" & ChrW(225) & "n dados en la forma" & ChrW(233) & "a = (ax,ay,az) y b = (bx,by,bz), entonces el vector c se calcula en coordenadas cartesianas por la f" & ChrW(243) & "rmula:" & ChrW(233) & "" & Chr(10) & _ " a x b = (aybz - azby)i + (azbx - axbz) j+ (axby - aybx)k" & ChrW(233) & "" & Chr(10) & _ " Ingrese las coordenadas iniciales del primer vector en las celdas A10, B10, C10, los incrementos de sus coordenadas en A12, B12, C12. Para el segundo vector correspondientemente en A19, B19, C19" & ChrW(233) & " y A21, B21, C21. El resultado es un vector cuyas coordenadas se observan en las celdas A30, B30, C30 y cuyo origen puede ser modificado a trav" & ChrW(233) & "s de las celdas A28, B28, C28." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " CROSS PRODUCT" & Chr(10) & _ " The vector product of two vectors a and b (written a x b) is called vector c whose length is equal to |a||b|sin alpha, which corresponds to the area of " & ChrW(233) & "" & ChrW(233) & "the parallelogram built on these vectors, and whose direction is perpendicular to both vectors and is given by the right hand rule. If the lengths of the vectors and the angle between them are given, then vector c can be found. If the vectors are given in the form a = (ax,ay,az) and b = (bx,by,bz), then the vector c is calculated in Cartesian coordinates using the formula:" & Chr(10) & _ " a x b = (aybz - azby)i + (azbx - axbz)j+ (axby - aybx)k" & Chr(10) & _ " Enter the initial coordinates of the first vector in cells A10, B10, C10, the increments of its coordinates in A12, B12, C12. For the second vector correspondingly in A19, B19, C19 and A21, B21, C21. The result is a vector whose coordinates are observed in cells A30, B30, C30 and whose origin can be changed through cells A28, B28, C28." 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 = "735" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Cross product" Cells(m + 4, n + 12).FormulaR1C1 = "PRODUCTO VECTORIAL DE DOS VECTORES" 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 = "2" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = " | a x b | =" Cells(m + 7, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[20]C[-6]^2+R[20]C[-5]^2+R[20]C[-4]^2),2)" Cells(m + 7, n + 21).FormulaR1C1 = "Se llama producto vectorial de dos vectores a y b (se escribe a x b) al vector c cuya longitud es" 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 + 4).FormulaR1C1 = "(Eq-5-2)" Cells(m + 8, n + 21).FormulaR1C1 = "igual al producto de las magnitudes de los vectores por el seno del " & ChrW(225) & "ngulo entre ellos y " Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "<< --- a" Cells(m + 9, n + 21).FormulaR1C1 = "cuya direcci" & ChrW(243) & "n es perpendicular a ambos vectores y se rige por la regla de la mano derecha. Si est" & ChrW(225) & "n " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "dadas las longitudes de los vectores y el " & ChrW(225) & "ngulo alpha entre ellos, entonces se puede hallar el vector " 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 = "c determinando su direcci" & ChrW(243) & "n por la regla de la mano derecha y su magnitud por la f" & ChrW(243) & "rmula ab Seno alpha. " 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 = "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 = "Por otra parte, si los vectores est" & ChrW(225) & "n dados en la forma " 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 + 5, n + 27).FormulaR1C1 = "(Eq-3-2)" 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[-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 = "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 + 8, n + 21).FormulaR1C1 = "entonces el vector c se calcula en coordenadas cartesianas por la f" & ChrW(243) & "rmula: " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "3" Cells(m + 9, n + 2).FormulaR1C1 = "<< --- b" 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 + 27).FormulaR1C1 = "(Eq-5-1)" 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 = "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 = "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 + 5, n + 21).FormulaR1C1 = "LAS COORDENADAS DEL PRIMER VECTOR SE CAMBIAN EN:" 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[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 22).FormulaR1C1 = "a_ox en la celda A10" 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 + 8, n + 22).FormulaR1C1 = "a_oy en la celda B10" 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 = "(Eq-5-1)" Cells(m + 9, n + 22).FormulaR1C1 = "a_oz en la celda C10" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "a_x en la celda A12" 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 Cells(m + 12, n + 22).FormulaR1C1 = "a_y en la celda B12" Cells(m + 13, n + 22).FormulaR1C1 = "a_z en la celda C12" Cells(m + 15, n + 21).FormulaR1C1 = "LAS COORDENADAS DEL SEGUNDO VECTOR VECTOR SE CAMBIAN EN:" Cells(m + 17, n + 22).FormulaR1C1 = "b_ox en la celda A19" Cells(m + 18, n + 22).FormulaR1C1 = "b_oy en la celda B19" Cells(m + 19, n + 22).FormulaR1C1 = "b_oz en la celda C19" Cells(m + 21, n + 22).FormulaR1C1 = "b_x en la celda A21" Cells(m + 22, n + 22).FormulaR1C1 = "b_y en la celda B21" Cells(m + 23, n + 22).FormulaR1C1 = "b_z en la celda C21" Cells(m + 25, n + 21).FormulaR1C1 = "La magnitud del vector resultante a x b se muestra en la celda G10." Cells(m + 26, n + 21).FormulaR1C1 = "Las coordenadas del vector resultante se encuentran en las celdas A30, B30 y C30. Oprima el bot" & ChrW(243) & "n" Cells(m + 27, n + 21).FormulaR1C1 = "ubicado en D31 para ver las ecuaciones que tienen lugar para sus componentes. " Cells(m + 29, n + 21).FormulaR1C1 = "EJEMPLO 1. Dados los vectores a = (2,0,0), b = (0,0,3), hallar c = a x b. Soluci" & ChrW(243) & "n: ingrese A12=2," Cells(m + 30, n + 21).FormulaR1C1 = " B12=0, C12=0, y A21=0, B21=0, C21=3. Oprima XYZ. Observar" & ChrW(225) & " las componentes del vector c " Cells(m + 31, n + 21).FormulaR1C1 = "en las celdas A30=0, B30=6 , C30=0. Experimente con otros valores para las coordenadas de " Cells(m + 32, n + 21).FormulaR1C1 = "los vectores, incluyendo valores negativos, decimales y m" & ChrW(250) & "ltiplos de un par" & ChrW(225) & "metro (en este " & ChrW(250) & "ltimo " Cells(m + 33, n + 21).FormulaR1C1 = "caso, el par" & ChrW(225) & "metros se puede escribir en una celda de la columna G). " Cells(m + 34, n + 21).FormulaR1C1 = "Oprima XYZ para ver los resultados. Oprima C para rotar el sistema de coordenadas " Cells(m + 35, n + 21).FormulaR1C1 = "y utilice YZ, XZ y XY para ver los vectores desde diferentes planos, observe c" & ChrW(243) & "mo se comportan las " Cells(m + 36, n + 21).FormulaR1C1 = "coordenadas tanto del vector resultante como de los vectores multiplicando." Cells(m + 38, n + 21).FormulaR1C1 = "EJERCICIO 1. Hallar i x j, en donde i, j son versores del sistema cartesiano." Cells(m + 39, n + 21).FormulaR1C1 = "EJERCICIO 2. Hallar j x i, en donde i, j son versores del sistema cartesiano." Cells(m + 40, n + 21).FormulaR1C1 = "EJERCICIO 3. Hallar k x j, en donde k, j son versores del sistema cartesiano." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_5_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 05_Cross product_EN ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 5 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=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 = "735" Cells(m1, n1 + 9).FormulaR1C1 = " ?" Dim HELPtxt As String HELPtxt = "CROSS PRODUCT" & Chr(10) & _ " The vector product of two vectors a and b (written a x b) is called vector c whose length is equal to |a||b|sin alpha, which corresponds to the area of " & ChrW(233) & "" & ChrW(233) & "the parallelogram built on these vectors, and whose direction is perpendicular to both vectors and is given by the right hand rule. If the lengths of the vectors and the angle between them are given, then vector c can be found. If the vectors are given in the form a = (ax,ay,az) and b = (bx,by,bz), then the vector c is calculated in Cartesian coordinates using the formula:" & Chr(10) & _ " a x b = (aybz - azby)i + (azbx - axbz)j+ (axby - aybx)k" & Chr(10) & _ " Enter the initial coordinates of the first vector in cells A10, B10, C10, the increments of its coordinates in A12, B12, C12. For the second vector correspondingly in A19, B19, C19 and A21, B21, C21. The result is a vector whose coordinates are observed in cells A30, B30, C30 and whose origin can be changed through cells A28, B28, C28." 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 = "735" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Cross product" Cells(m + 4, n + 12).FormulaR1C1 = "VECTOR PRODUCT OF TWO VECTORS" 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 = "2" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = " | a x b | =" Cells(m + 7, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[20]C[-6]^2+R[20]C[-5]^2+R[20]C[-4]^2),2)" Cells(m + 7, n + 21).FormulaR1C1 = "The vector product of two vectors a and b (written a x b) is a vector c whose length is" 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 + 4).FormulaR1C1 = "(Eq-5-2)" Cells(m + 8, n + 21).FormulaR1C1 = "equal to the product of the magnitudes of the vectors times the sine of the angle between them and" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "<< --- a" Cells(m + 9, n + 21).FormulaR1C1 = "whose direction is perpendicular to both vectors and is governed by the right-hand rule. If the lengths are given" 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 = "and the angle alpha between them, then the resulting vector can be found by determining its direction by 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 = "right-hand rule and its magnitude by the formula ab Sine alpha. On the other hand, if the vectors are given " 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 = "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 = "in the form" 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 + 5, n + 27).FormulaR1C1 = "(Eq-3-2)" 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[-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 = "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 + 8, n + 21).FormulaR1C1 = "then the vector c is calculated in Cartesian coordinates by the formula:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "3" Cells(m + 9, n + 2).FormulaR1C1 = "<< --- b" 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 + 27).FormulaR1C1 = "(Eq-5-1)" 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 = "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 = "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 + 5, n + 21).FormulaR1C1 = "The coordinates of the first vector are entered into the cells:" 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[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 22).FormulaR1C1 = "a_ox in cell A10" 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 + 8, n + 22).FormulaR1C1 = "a_oy in cell B10" 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 = "(Eq-5-1)" Cells(m + 9, n + 22).FormulaR1C1 = "a_oz in cell C10" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "a_x in cell A12" 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 Cells(m + 12, n + 22).FormulaR1C1 = "a_y in cell B12" Cells(m + 13, n + 22).FormulaR1C1 = "a_z in cell C12" Cells(m + 15, n + 21).FormulaR1C1 = "The coordinates of the second vector are entered into the cells:" Cells(m + 17, n + 22).FormulaR1C1 = "b_ox in cell A19" Cells(m + 18, n + 22).FormulaR1C1 = "b_oy in cell B19" Cells(m + 19, n + 22).FormulaR1C1 = "b_oz in cell C19" Cells(m + 21, n + 22).FormulaR1C1 = "b_x in cell A21" Cells(m + 22, n + 22).FormulaR1C1 = "b_y in cell B21" Cells(m + 23, n + 22).FormulaR1C1 = "b_z in cell C21" Cells(m + 25, n + 21).FormulaR1C1 = "The magnitude of the resulting vector a x b is shown in cell G10." Cells(m + 26, n + 21).FormulaR1C1 = "The coordinates of the resulting vector are located in cells A30, B30 and C30. Press the button" Cells(m + 27, n + 21).FormulaR1C1 = "located in D31 to see the equations that take place for its components." Cells(m + 29, n + 21).FormulaR1C1 = "EXAMPLE 1. Given the vectors a = (2,0,0), b = (0,0,3), find c = a x b. Solution: enter A12=2," Cells(m + 30, n + 21).FormulaR1C1 = " B12=0, C12=0, and A21=0, B21=0, C21=3. Press XYZ. You will observe the components of the vector c" Cells(m + 31, n + 21).FormulaR1C1 = "in cells A30=0, B30=6, C30=0. Experiment with other values for the coordinates of" Cells(m + 32, n + 21).FormulaR1C1 = "vectors, including negative values, decimals and multiples of a parameter (in the latter" Cells(m + 33, n + 21).FormulaR1C1 = "case, the parameters can be written in a cell in column G)." Cells(m + 34, n + 21).FormulaR1C1 = "Press XYZ to see the results. Press C to rotate the coordinate system" Cells(m + 35, n + 21).FormulaR1C1 = "and use YZ, XZ and XY to view the vectors from different planes, observe how the" Cells(m + 36, n + 21).FormulaR1C1 = "coordinates of both the resulting vector and the multiplying vectors." Cells(m + 38, n + 21).FormulaR1C1 = "EXERCISE 1. Find i x j, where i, j are versions of the Cartesian system." Cells(m + 39, n + 21).FormulaR1C1 = "EXERCISE 2. Find j x i, where i, j are versions of the Cartesian system." Cells(m + 40, n + 21).FormulaR1C1 = "EXERCISE 3. Find k x j, where k, j are versions of the Cartesian system." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_6_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 06_Vector unitario_ES ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 6 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "50" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "a" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "VECTOR UNITARIO" & Chr(10) & _ " (See English version at the end)" & Chr(10) & _ " Un vector unitario es aquel cuyo m" & ChrW(243) & "dulo es igual a la unidad. Se puede construir un vector unitario u a partir de otro que no es unitario a con la f" & ChrW(243) & "rmula vectorial:" & Chr(10) & _ " u = a/|a|" & Chr(10) & _ " a= (ax, ay, az); u = (ux, uy, uz); |a| = raiz(ax^2 + ay^2 + az^2) En las celdas A10, B10 y C10 escriba las coordenadas iniciales del vector a, en A12, B12, C12 los incrementos de coordenadas en a. Las coordenadas del vector unitario u aparecer" & ChrW(225) & "n en A21 = u = a/|a| = ax/raiz(ax^2 + ay^2 + az^2) ; B21 = ay/raiz(ax^2 + ay^2 + az^2) y C21 = az/raiz(ax^2 + ay^2 + az^2). " & Chr(10) & _ " Cambie los valores de las coordenadas del vector a y con los botones de las coordenadas aprecie estos cambios desde diferentes " & ChrW(225) & "ngulos. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " UNIT VECTOR" & Chr(10) & _ " A unit vector is one whose module is equal to unity. A unit vector u can be constructed from another vector a that is not unit with the vector formula:" & Chr(10) & _ " u = a/|a|" & Chr(10) & _ " a= (ax, ay, az); u = (ux, uy, uz); |a| = root(ax^2 + ay^2 + az^2) In cells A10, B10 and C10 write the initial coordinates of the vector a, in A12, B12, C12 the coordinates of a. The coordinates of the unit vector u will appear in A21 = u = a/|a| = ax/root(ax^2 + ay^2 + az^2) ; B21 = ay/root(ax^2 + ay^2 + az^2) and C21 = az/root(ax^2 + ay^2 + az^2)." & Chr(10) & _ " Change the values " & ChrW(233) & "" & ChrW(233) & "of the coordinates of the vector a, and with the help of the coordinate buttons appreciate these changes from different angles." 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 = "a" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!RC" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Unit vector" Cells(m + 4, n + 12).FormulaR1C1 = "VECTOR UNITARIO DE CUALQUIER VECTOR" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" 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 = "1" Cells(m + 7, n + 0).FormulaR1C1 = "1" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<< ---" Cells(m + 7, n + 21).FormulaR1C1 = "1. Escriba las coordenadas de un vector cualquiera en las celdas:" 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 + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "1" Cells(m + 9, n + 1).FormulaR1C1 = "2" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---" Cells(m + 9, n + 22).FormulaR1C1 = "a_ox en la celda A10" 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 = "a_oy en la celda B10" 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 = "a_oz en la celda C10" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "u" 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 = "u" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "a_x en la celda A12" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 22).FormulaR1C1 = "a_y en la celda B12" Cells(m + 6, n + -1).FormulaR1C1 = "uox" Cells(m + 6, n + 0).FormulaR1C1 = "uoy" Cells(m + 6, n + 1).FormulaR1C1 = "uoz" Cells(m + 6, n + 22).FormulaR1C1 = "a_z en la celda C12" 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 = "ux" Cells(m + 8, n + 0).FormulaR1C1 = "uy" Cells(m + 8, n + 1).FormulaR1C1 = "uz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "2. Las coordenadas del vector unitario se calculan en las celdas A21, B21 y C21." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C^2+R[-9]C[1]^2+R[-9]C[2]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-1]^2+R[-9]C^2+R[-9]C[1]^2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-2]^2+R[-9]C[-1]^2+R[-9]C^2)" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-6-1)" Cells(m + 9, n + 21).FormulaR1C1 = "3. Oprima el bot" & ChrW(243) & "n ubicado en D22 para ver las ecuaciones de las componentes del vector unitario." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" 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 = 2 End If ' vector ends If m = m1 + 9 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_6_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 06_Unit vector_EN ' Updated: 27/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 6 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "50" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "a" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "VECTOR UNITARIO" & Chr(10) & _ " (See English version at the end)" & Chr(10) & _ " Un vector unitario es aquel cuyo m" & ChrW(243) & "dulo es igual a la unidad. Se puede construir un vector unitario u a partir de otro que no es unitario a con la f" & ChrW(243) & "rmula vectorial:" & Chr(10) & _ " u = a/|a|" & Chr(10) & _ " a= (ax, ay, az); u = (ux, uy, uz); |a| = raiz(ax^2 + ay^2 + az^2) En las celdas A10, B10 y C10 escriba las coordenadas iniciales del vector a, en A12, B12, C12 los incrementos de coordenadas en a. Las coordenadas del vector unitario u aparecer" & ChrW(225) & "n en A21 = u = a/|a| = ax/raiz(ax^2 + ay^2 + az^2) ; B21 = ay/raiz(ax^2 + ay^2 + az^2) y C21 = az/raiz(ax^2 + ay^2 + az^2). " & Chr(10) & _ " Cambie los valores de las coordenadas del vector a y con los botones de las coordenadas aprecie estos cambios desde diferentes " & ChrW(225) & "ngulos. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " UNIT VECTOR" & Chr(10) & _ " A unit vector is one whose module is equal to unity. A unit vector u can be constructed from another vector a that is not unit with the vector formula:" & Chr(10) & _ " u = a/|a|" & Chr(10) & _ " a= (ax, ay, az); u = (ux, uy, uz); |a| = root(ax^2 + ay^2 + az^2) In cells A10, B10 and C10 write the initial coordinates of the vector a, in A12, B12, C12 the coordinates of a. The coordinates of the unit vector u will appear in A21 = u = a/|a| = ax/root(ax^2 + ay^2 + az^2) ; B21 = ay/root(ax^2 + ay^2 + az^2) and C21 = az/root(ax^2 + ay^2 + az^2)." & Chr(10) & _ " Change the values " & ChrW(233) & "" & ChrW(233) & "of the coordinates of the vector a, and with the help of the coordinate buttons appreciate these changes from different angles." 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 = "a" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!RC" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!RC" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Unit vector" Cells(m + 4, n + 12).FormulaR1C1 = "UNIT VECTOR OF ANY VECTOR" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" 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 = "1" Cells(m + 7, n + 0).FormulaR1C1 = "1" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<< ---" Cells(m + 7, n + 21).FormulaR1C1 = "1. Write the coordinates of any vector in the cells:" 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 + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "1" Cells(m + 9, n + 1).FormulaR1C1 = "2" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---" Cells(m + 9, n + 22).FormulaR1C1 = "a_ox in cell A10" 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 = "a_oy in cell B10" 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 = "a_oz in cell C10" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "u" 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 = "u" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "a_x in cell A12" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 22).FormulaR1C1 = "a_y in cell B12" Cells(m + 6, n + -1).FormulaR1C1 = "uox" Cells(m + 6, n + 0).FormulaR1C1 = "uoy" Cells(m + 6, n + 1).FormulaR1C1 = "uoz" Cells(m + 6, n + 22).FormulaR1C1 = "a_z in cell C12" 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 = "ux" Cells(m + 8, n + 0).FormulaR1C1 = "uy" Cells(m + 8, n + 1).FormulaR1C1 = "uz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "2. The unit vector coordinates are calculated in cells A21, B21, and C21." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C^2+R[-9]C[1]^2+R[-9]C[2]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-1]^2+R[-9]C^2+R[-9]C[1]^2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-2]^2+R[-9]C[-1]^2+R[-9]C^2)" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-6-1)" Cells(m + 9, n + 21).FormulaR1C1 = "3. Press the button located at D22 to view the unit vector component equations." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" 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 = 2 End If ' vector ends If m = m1 + 9 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_7_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 07_Rotacion de un vector_ES ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 7 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=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 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ROTACI" & ChrW(211) & "N DE UN VECTOR ALREDEDOR DE UN VECTOR UNITARIO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Modifique los valores del vector en las celdas G11, G12 y G13 observe los resultados oprimiendo el bot" & ChrW(243) & "n Run. Esto lo puede ver desde diferentes perspectivas con los botones de coordenadas XYZ, YZ, XZ, XY." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " ROTATION OF A VECTOR ABOUT A UNIT VECTOR" & Chr(10) & _ " Modify the values " & ChrW(233) & "" & ChrW(233) & "of the auxiliary vector a in cells G11, G12 y G13 and observe the results by pressing the Run button. You can see this from different perspectives with the XYZ, YZ, XZ, XY coordinate buttons." & Chr(10) & _ " " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 4 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 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Rotaci" & ChrW(243) & "n alrededor de un vector unitario" Cells(m + 4, n + 12).FormulaR1C1 = "ROTACI" & ChrW(211) & "N ALREDEDOR DE UN EJE CON VECTOR UNITARIO" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" 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 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "3" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = "Coordenadas del radio r:" Cells(m + 7, n + 21).FormulaR1C1 = "El modelo muestra las ecuaciones para la construcci" & ChrW(243) & "n de un vector que rota alrededor de un " 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 + 4).FormulaR1C1 = " x =" Cells(m + 8, n + 5).FormulaR1C1 = "2" Cells(m + 8, n + 21).FormulaR1C1 = "vector unitario. Este modelo se puede usar como base para la construcci" & ChrW(243) & "n de otros modelos " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---" Cells(m + 9, n + 4).FormulaR1C1 = " y =" Cells(m + 9, n + 5).FormulaR1C1 = "4" Cells(m + 9, n + 21).FormulaR1C1 = "matem" & ChrW(225) & "ticos o f" & ChrW(237) & "sicos." 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 = " z =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "La posici" & ChrW(243) & "n inicial y las coordenadas del eje se modifican en:" 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 = "a_ox en la celda A10" Cells(m + 3, n + 1).Interior.Color = "36799" 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 = "u" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "u" Cells(m + 3, n + 4).FormulaR1C1 = "Fijar trayectoria (1 o 2):" Cells(m + 3, n + 22).FormulaR1C1 = "a_oy en la celda B10" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-11]C[5]))" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 22).FormulaR1C1 = "a_oz en la celda C10" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=1-COS(RADIANS(R[-12]C[5]))" Cells(m + 6, n + -1).FormulaR1C1 = "uox" Cells(m + 6, n + 0).FormulaR1C1 = "uoy" Cells(m + 6, n + 1).FormulaR1C1 = "uoz" Cells(m + 6, n + 22).FormulaR1C1 = "a_x en la celda A12" 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 + 7, n + 22).FormulaR1C1 = "a_y en la celda B12" Cells(m + 8, n + -1).FormulaR1C1 = "ux" Cells(m + 8, n + 0).FormulaR1C1 = "uy" Cells(m + 8, n + 1).FormulaR1C1 = "uz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "a_z en la celda C12" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C^2+R[-9]C[1]^2+R[-9]C[2]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-1]^2+R[-9]C^2+R[-9]C[1]^2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-2]^2+R[-9]C[-1]^2+R[-9]C^2)" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-6-1)" 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 = "El vector a rotar r_P es el vector n" & ChrW(250) & "mero 3 y sus coordenadas se establecen en las celdas G11, G12 " 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 = " y G13. El vector rotado r alrededor del vector unitario u es el n" & ChrW(250) & "mero 4 y las ecuaciones para sus" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 21).FormulaR1C1 = " coordenadas se hallan de acuerdo a la f" & ChrW(243) & "rmula de rotaci" & ChrW(243) & "n para el nuevo vector:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-7-1)" Cells(m + 6, n + -1).FormulaR1C1 = "roox" Cells(m + 6, n + 0).FormulaR1C1 = "rooy" Cells(m + 6, n + 1).FormulaR1C1 = "rooz" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 22).FormulaR1C1 = "en donde theta es el " & ChrW(225) & "ngulo a rotar." Cells(m + 8, n + -1).FormulaR1C1 = "Coordenadas del vector" Cells(m + 8, n + 0).FormulaR1C1 = "y" Cells(m + 8, n + 1).FormulaR1C1 = "z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "(La explicaci" & ChrW(243) & "n detallada de la matem" & ChrW(225) & "tica se puede obtener en el manual)." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-19]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-17]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---" Cells(m + 9, n + 21).FormulaR1C1 = "Utilice los botones de Ejecutar simulaci" & ChrW(243) & "n para ver la rotaci" & ChrW(243) & "n del vector. " 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 = "Utilice G16=2 para congelar el recorrido del vector despu" & ChrW(233) & "s de ejecutar la simulaci" & ChrW(243) & "n." Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Oprima el bot" & ChrW(243) & "n ubicado en D40 para ver las ecuaciones de las componentes del vector r." Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "EJEMPLO 1. Obtener la simulaci" & ChrW(243) & "n de una part" & ChrW(237) & "cula puntual que est" & ChrW(225) & " rotando alrededor del eje y " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 21).FormulaR1C1 = "con un radio r=5 con origen en y_0=4. Soluci" & ChrW(243) & "n: Se parte del modelo actual y se modifica la orientaci" & ChrW(243) & "n " Cells(m + 6, n + -1).FormulaR1C1 = "rox" Cells(m + 6, n + 0).FormulaR1C1 = "roy" Cells(m + 6, n + 1).FormulaR1C1 = "roz" Cells(m + 6, n + 21).FormulaR1C1 = "del eje y del radio, para ello se introduce A10=0, B10=0 y C10=0. El centro de rotaci" & ChrW(243) & "n se ubica en " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 21).FormulaR1C1 = "B12=4 y el radio de rotaci" & ChrW(243) & "n en G11=5, G12=0, G13=0. Oprima Ejecutar para ver la rotaci" & ChrW(243) & "n. Para " Cells(m + 8, n + -1).FormulaR1C1 = "rx" Cells(m + 8, n + 0).FormulaR1C1 = "ry" Cells(m + 8, n + 1).FormulaR1C1 = "rz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "agregar la part" & ChrW(237) & "cula, verifique que no haya seleccionado ning" & ChrW(250) & "n proyecto en la lista de proyectos y " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-22]C[3]*(R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C+R[-18]C[2]*R[-18]C*R[-9]C[2]-R[-18]C[2]*R[-18]C[2]*R[-9]C)+R[-23]C[3]*(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-22]C[2]*(-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1]+R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C)+R[-23]C[2]*(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-22]C[1]*(-R[-18]C[-2]*R[-18]C[-2]*R[-9]C+R[-18]C[-2]*R[-18]C*R[-9]C[-2]-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1])+R[-23]C[1]*(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-7-2)" Cells(m + 9, n + 21).FormulaR1C1 = "oprima el bot" & ChrW(243) & "n +Vector. En la ventana emergente indique el nombre Q para el nuevo vector, luego " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-24]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "en B43=146 para convertir el vector a un punto; cambie el color del nuevo vector a un rojo encendido " 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 + 11, n + 21).FormulaR1C1 = "y en C50=8 para aumentar el tama–o de la part" & ChrW(237) & "cula, C35=1, para ocultar el radio. Oprima Ejecutar y podr" & ChrW(225) & " " Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 4 End If ' vector ends If m = m1 + 27 Then Cells(m + 12, n + 21).FormulaR1C1 = "observar la part" & ChrW(237) & "cula rotando alrededor del eje y. H" & ChrW(225) & "gala rotar desde diferentes planos. Introduzca " Cells(m + 13, n + 21).FormulaR1C1 = "C49=2 y oprima Ejecutar para ver la trayectoria de la part" & ChrW(237) & "cula; repita la operaci" & ChrW(243) & "n con C49=1." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_7_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 07_Rotation of a vector_EN ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 7 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "2160" 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 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ROTACI" & ChrW(211) & "N DE UN VECTOR ALREDEDOR DE UN VECTOR UNITARIO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Modifique los valores del vector en las celdas G11, G12 y G13 observe los resultados oprimiendo el bot" & ChrW(243) & "n Run. Esto lo puede ver desde diferentes perspectivas con los botones de coordenadas XYZ, YZ, XZ, XY." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " ROTATION OF A VECTOR ABOUT A UNIT VECTOR" & Chr(10) & _ " Modify the values " & ChrW(233) & "" & ChrW(233) & "of the auxiliary vector a in cells G11, G12 y G13 and observe the results by pressing the Run button. You can see this from different perspectives with the XYZ, YZ, XZ, XY coordinate buttons." & Chr(10) & _ " " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 4 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 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "ROTATION AROUND AN AXIS WITH UNIT VECTOR" Cells(m + 4, n + 12).FormulaR1C1 = "ROTATION AROUND AN AXIS WITH UNIT VECTOR" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" 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 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "3" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = "Coordinates of radius r:" Cells(m + 7, n + 21).FormulaR1C1 = "The model shows the equations for the construction of a vector that rotates around a" 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 + 4).FormulaR1C1 = " x =" Cells(m + 8, n + 5).FormulaR1C1 = "2" Cells(m + 8, n + 21).FormulaR1C1 = "unit vector. This model can be used as a starting point for the construction of other " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---" Cells(m + 9, n + 4).FormulaR1C1 = " y =" Cells(m + 9, n + 5).FormulaR1C1 = "4" Cells(m + 9, n + 21).FormulaR1C1 = "mathematical or physical models. The initial position and axis coordinates are entered in:" 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 = " z =" Cells(m + 10, n + 5).FormulaR1C1 = "0" 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 = "a_ox in cell A10" Cells(m + 3, n + 1).Interior.Color = "36799" 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 = "u" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "u" Cells(m + 3, n + 4).FormulaR1C1 = "Fix trajectory (1 or 2):" Cells(m + 3, n + 22).FormulaR1C1 = "a_oy in cell B10" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-11]C[5]))" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 22).FormulaR1C1 = "a_oz in cell C10" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=1-COS(RADIANS(R[-12]C[5]))" Cells(m + 6, n + -1).FormulaR1C1 = "uox" Cells(m + 6, n + 0).FormulaR1C1 = "uoy" Cells(m + 6, n + 1).FormulaR1C1 = "uoz" Cells(m + 6, n + 22).FormulaR1C1 = "a_x in cell A12" 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 + 7, n + 22).FormulaR1C1 = "a_y in cell B12" Cells(m + 8, n + -1).FormulaR1C1 = "ux" Cells(m + 8, n + 0).FormulaR1C1 = "uy" Cells(m + 8, n + 1).FormulaR1C1 = "uz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "a_z in cell C12" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C^2+R[-9]C[1]^2+R[-9]C[2]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-1]^2+R[-9]C^2+R[-9]C[1]^2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-2]^2+R[-9]C[-1]^2+R[-9]C^2)" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-6-1)" 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 = "The vector to rotate r_P is vector number 3 and its coordinates are set in cells G11, G12" 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 = "and G13. The rotated vector r about the unit vector u is the number 4 and the equations for its" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 21).FormulaR1C1 = "coordinates are found according to the rotation formula for the new vector:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-7-1)" Cells(m + 6, n + -1).FormulaR1C1 = "roox" Cells(m + 6, n + 0).FormulaR1C1 = "rooy" Cells(m + 6, n + 1).FormulaR1C1 = "rooz" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 21).FormulaR1C1 = "where theta is the angle to rotate." Cells(m + 8, n + -1).FormulaR1C1 = "Coordenadas del vector" Cells(m + 8, n + 0).FormulaR1C1 = "y" Cells(m + 8, n + 1).FormulaR1C1 = "z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "(Detailed explanation of the mathematics is in the manual)." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-19]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-17]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "<< ---" Cells(m + 9, n + 21).FormulaR1C1 = "Use the Run Simulation buttons to view the vector rotation." 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 = "Use G16=2 to freeze the vector path after running the simulation." Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Press the button located at D40 to see the equations of the components of the vector r." Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "EXAMPLE 1. Obtain the simulation of a point particle that is rotating around the y axis with a radius r=5" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 21).FormulaR1C1 = "originating at y_0=4. " Cells(m + 6, n + -1).FormulaR1C1 = "rox" Cells(m + 6, n + 0).FormulaR1C1 = "roy" Cells(m + 6, n + 1).FormulaR1C1 = "roz" Cells(m + 6, n + 21).FormulaR1C1 = "Solution: Start from the current model and modify the orientation" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 21).FormulaR1C1 = "of the axis and the radius, to do this, enter A10=0, B10=0 and C10=0. The center of rotation is located at" Cells(m + 8, n + -1).FormulaR1C1 = "rx" Cells(m + 8, n + 0).FormulaR1C1 = "ry" Cells(m + 8, n + 1).FormulaR1C1 = "rz" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "B12=4 and the radius of rotation at G11=5, G12=0, G13=0. Press Run to see the rotation." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-22]C[3]*(R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C+R[-18]C[2]*R[-18]C*R[-9]C[2]-R[-18]C[2]*R[-18]C[2]*R[-9]C)+R[-23]C[3]*(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-22]C[2]*(-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1]+R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C)+R[-23]C[2]*(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-22]C[1]*(-R[-18]C[-2]*R[-18]C[-2]*R[-9]C+R[-18]C[-2]*R[-18]C*R[-9]C[-2]-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1])+R[-23]C[1]*(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-7-2)" Cells(m + 9, n + 21).FormulaR1C1 = "To add a particle, verify that you have not selected any projects in the project list and" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-24]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Press the +Vector button. In the pop-up window indicate the name Q for the new vector, then" 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 + 11, n + 21).FormulaR1C1 = "with B43=146 convert the vector to a point; change the color of the new vector to red" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 4 End If ' vector ends If m = m1 + 27 Then Cells(m + 12, n + 21).FormulaR1C1 = "and with C50=8 increase the particle size, and C35=1, to hide the radius. Press Run and you can" Cells(m + 13, n + 21).FormulaR1C1 = "observe the particle rotating around the y axis. Rotate it from different planes. Enter" Cells(m + 14, n + 21).FormulaR1C1 = "C49=2 and press Run to view the particle trajectory; repeat the operation with C49=1." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_8_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 08_Rotacion compuesta_ES ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 8 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "51" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "68" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=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 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ROTACI" & ChrW(211) & "N DE UN VECTOR ALREDEDOR DE UN VECTOR UNITARIO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Modifique los valores en G10 y G11 y observe los resultados oprimiendo el bot" & ChrW(243) & "n Run. Esto lo puede ver desde diferentes perspectivas con los botones de coordenadas XYZ, YZ, XZ, XY." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " ROTATION OF A VECTOR ABOUT A UNIT VECTOR" & Chr(10) & _ " Modify the values in cells G10 y G11 and observe the results by pressing the Run button. You can see this from different perspectives with the XYZ, YZ, XZ, XY coordinate buttons." & Chr(10) & _ " " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 11 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 = "15" Cells(m + 3, n + 19).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Rotaci" & ChrW(243) & "n compuesta" Cells(m + 4, n + 12).FormulaR1C1 = "ROTACI" & ChrW(211) & "N COMPUESTA " Cells(m + 4, n + 23).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "3" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 4).FormulaR1C1 = " P =" Cells(m + 7, n + 5).FormulaR1C1 = "2" Cells(m + 7, n + 21).FormulaR1C1 = "El presente modelo se basa en el modelo ROTACI" & ChrW(211) & "N DE UN VECTOR y se extiende para varios vectores " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " K =" Cells(m + 8, n + 5).FormulaR1C1 = "8" Cells(m + 8, n + 21).FormulaR1C1 = "cuyo n" & ChrW(250) & "mero puede aumentarse. Cada vector se somete a la matr" & ChrW(237) & "z de rotaci" & ChrW(243) & "n:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" 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 + 3).FormulaR1C1 = "Cantidad de vectores:" 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 + 5).FormulaR1C1 = "=COUNTIF(C[-3],""r_*"")" Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-7-2)" 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 = "7434613" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "A" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 10 Call Project_15(15, m, n, m1, n1) Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "A" Cells(m + 3, n + 2).FormulaR1C1 = "Para trazar el recorrido de un vector:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "186" Cells(m + 4, n + 2).FormulaR1C1 = "1. M" & ChrW(225) & "x. pasos = longitud del gr" & ChrW(225) & "fico." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 2).FormulaR1C1 = "2. Haga clic en Restablecer gr" & ChrW(225) & "fico." Cells(m + 6, n + -1).FormulaR1C1 = "Choose the vector to make its graphic:" Cells(m + 6, n + 2).FormulaR1C1 = "3. Elija en el cuadro combinado un vector impar." Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "4. Ejecute la simulaci" & ChrW(243) & "n." Cells(m + 7, n + 21).FormulaR1C1 = "en donde el " & ChrW(225) & "ngulo puede variar con el par" & ChrW(225) & "metro t," Cells(m + 8, n + -1).FormulaR1C1 = "Max. steps:" Cells(m + 8, n + 0).FormulaR1C1 = "45" Cells(m + 8, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-7-5)" 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 = " " Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(RC[-18]>0,""<-- use these cells."","""")" 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 + 2).FormulaR1C1 = " " Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "y a su vez w puede tomar cualquier forma, que en este caso particular:" Cells(m + 3, n + 1).Interior.Color = "7434613" 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 = "u" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "u" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-7-4)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "K y P son par" & ChrW(225) & "metros que dependen del n" & ChrW(250) & "mero del vector.Modifique el valor de estos " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 21).FormulaR1C1 = "par" & ChrW(225) & "metros en las celdas G10 y G11. La orientaci" & ChrW(243) & "n inicial de los vectores y sus coordenadas " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "se pueden personalizar en las filas 39, 57, 75 y 93 respectivamente para cada vector." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C/SQRT(R[-18]C^2+R[-18]C[1]^2+R[-18]C[2]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C/SQRT(R[-18]C[-1]^2+R[-18]C^2+R[-18]C[1]^2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C/SQRT(R[-18]C[-2]^2+R[-18]C[-1]^2+R[-18]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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Oprima Ejecutar para visualizar la simulaci" & ChrW(243) & "n. Cambie los par" & ChrW(225) & "metros K y P para obtener " 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 = "diferentes configurraciones." Cells(m + 3, n + 1).Interior.Color = "7434613" 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 8 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Se pueden dibujar las trayectorias de los vectores impares. Para dibujar la trayectoria del" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 21).FormulaR1C1 = "vector 7 seleccione este vector en la lista ubicada en C19 y oprima Ejecutar." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C+R[-25]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C+R[-25]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C+R[-25]C" Cells(m + 7, n + 21).FormulaR1C1 = "Para agregar o quitar vectores adicionales al modelo utilice los botones +OBJ y -OBJ." 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = " w. =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 4, n + 4).FormulaR1C1 = "(Eq-7-4)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 5, n + 4).FormulaR1C1 = "(Eq-7-3)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*R[-9]C[-2])" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-7-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 + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 4, n + 2).FormulaR1C1 = "w =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 4, n + 2).FormulaR1C1 = "w =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" 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 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 4, n + 2).FormulaR1C1 = "w =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 11 End If ' vector ends If m = m1 + 90 Then ActiveSheet.DropDowns("List2").Select With Selection ' Do While .ListCount > 0 ' borrar lista .ListIndex = .ListCount .RemoveItem (.ListIndex) Loop i = 3 Do While Cells(m1 + i, n1 - 1) <> "" ' incluir todos los vectores a la lista .AddItem Cells(m1 + i, n1 - 1).Value i = i + 9 Loop End With Sheets("CONFIG").Range("V6").Value = "" Cells(m1 + 9, n1 + 4).Select Call DeleteGraphFunction Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_8_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 08_Composite rotation_EN ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 8 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "51" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "68" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=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 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ROTACI" & ChrW(211) & "N DE UN VECTOR ALREDEDOR DE UN VECTOR UNITARIO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Modifique los valores en G10 y G11 y observe los resultados oprimiendo el bot" & ChrW(243) & "n Run. Esto lo puede ver desde diferentes perspectivas con los botones de coordenadas XYZ, YZ, XZ, XY." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " ROTATION OF A VECTOR ABOUT A UNIT VECTOR" & Chr(10) & _ " Modify the values in cells G10 y G11 and observe the results by pressing the Run button. You can see this from different perspectives with the XYZ, YZ, XZ, XY coordinate buttons." & Chr(10) & _ " " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 11 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 = "15" Cells(m + 3, n + 19).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Composite rotation" Cells(m + 4, n + 12).FormulaR1C1 = "COMPOSITE ROTATION" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 7, n + -1).FormulaR1C1 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "3" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 4).FormulaR1C1 = " P =" Cells(m + 7, n + 5).FormulaR1C1 = "2" Cells(m + 7, n + 21).FormulaR1C1 = "This model is based on the ROTATION OF A VECTOR model and is extended for several vectors," Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " K =" Cells(m + 8, n + 5).FormulaR1C1 = "8" Cells(m + 8, n + 21).FormulaR1C1 = "whose number can be increased. Each vector is subjected to the rotation matrix:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" 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 + 3).FormulaR1C1 = "Number of vectors:" 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 + 5).FormulaR1C1 = "=COUNTIF(C[-3],""r_*"")" Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-7-2)" 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 = "7434613" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "A" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 10 Call Project_15(15, m, n, m1, n1) Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "A" Cells(m + 3, n + 2).FormulaR1C1 = "To trace the path of a vector:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "186" Cells(m + 4, n + 2).FormulaR1C1 = "1. Max. steps = length of graph." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 2).FormulaR1C1 = "2. Click Reset Graph." Cells(m + 6, n + -1).FormulaR1C1 = "Choose the vector to make its graphic:" Cells(m + 6, n + 2).FormulaR1C1 = "3. Choose an odd vector from the combo box." Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "4. Run the simulation." Cells(m + 7, n + 21).FormulaR1C1 = "where the angle can vary with the parameter t," Cells(m + 8, n + -1).FormulaR1C1 = "Max. steps:" Cells(m + 8, n + 0).FormulaR1C1 = "45" Cells(m + 8, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-7-5)" 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 = " " Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(RC[-18]>0,""<-- use these cells."","""")" 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 + 2).FormulaR1C1 = " " Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "and also w can take any form, which in this particular case:" Cells(m + 3, n + 1).Interior.Color = "7434613" 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 = "u" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "u" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-7-4)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "K and P are parameters that depend on the number of the vector. Modify the value of these" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-16]C+R[-18]C" Cells(m + 7, n + 21).FormulaR1C1 = "parameters in cells G10 and G11. The initial orientation of the vectors and their coordinates" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "can be customized in rows 39, 57, 75 and 93 respectively for each vector." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-18]C/SQRT(R[-18]C^2+R[-18]C[1]^2+R[-18]C[2]^2)" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C/SQRT(R[-18]C[-1]^2+R[-18]C^2+R[-18]C[1]^2)" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C/SQRT(R[-18]C[-2]^2+R[-18]C[-1]^2+R[-18]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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Press Run to view the simulation. Change the parameters K and P to obtain" 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 = "different configurations." Cells(m + 3, n + 1).Interior.Color = "7434613" 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 8 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "The paths of the odd vectors can be drawn. To draw the trajectory of the" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 21).FormulaR1C1 = "vector 7, press Reset Graph, select this vector from the list located in C19 and press Run." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C+R[-25]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C+R[-25]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C+R[-25]C" Cells(m + 7, n + 21).FormulaR1C1 = "To add or remove additional vectors to the model use the +OBJ and -OBJ buttons." 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = " w. =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 4, n + 4).FormulaR1C1 = "(Eq-7-4)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 5, n + 4).FormulaR1C1 = "(Eq-7-3)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*R[-9]C[-2])" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-7-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 + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 4, n + 2).FormulaR1C1 = "w =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 4, n + 2).FormulaR1C1 = "w =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=(R[-9]C+1)*R6C1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 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 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=""<< --- Vector "" &R[3]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "0" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16776960" 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 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-18]C+2" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""r_""&RC[-1]" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 4, n + 2).FormulaR1C1 = "w =" Cells(m + 4, n + 3).FormulaR1C1 = "=R11C7*POWER(R10C7,R[-1]C[-2]-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-1]C[1]*R5C9))" Cells(m + 5, n + 3).FormulaR1C1 = "=1-COS(RADIANS(R[-1]C*R5C9))" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-4]C[4]*(R30C2*R30C1*R[-9]C[1]-R30C2*R30C2*R[-9]C+R30C3*R30C1*R[-9]C[2]-R30C3*R30C3*R[-9]C)+R[-4]C[3]*(R30C2*R[-9]C[2]-R30C3*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-4]C[3]*(-R30C1*R30C1*R[-9]C+R30C1*R30C2*R[-9]C[-1]+R30C3*R30C2*R[-9]C[1]-R30C3*R30C3*R[-9]C)+R[-4]C[2]*(-R30C1*R[-9]C[1]+R30C3*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-4]C[2]*(-R30C1*R30C1*R[-9]C+R30C1*R30C3*R[-9]C[-2]-R30C2*R30C2*R[-9]C+R30C2*R30C3*R[-9]C[-1])+R[-4]C[1]*(R30C1*R[-9]C[-1]-R30C2*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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 11 End If ' vector ends If m = m1 + 90 Then ActiveSheet.DropDowns("List2").Select With Selection ' Do While .ListCount > 0 ' borrar lista .ListIndex = .ListCount .RemoveItem (.ListIndex) Loop i = 3 Do While Cells(m1 + i, n1 - 1) <> "" ' incluir todos los vectores a la lista .AddItem Cells(m1 + i, n1 - 1).Value i = i + 9 Loop End With Sheets("CONFIG").Range("V6").Value = "" Cells(m1 + 9, n1 + 4).Select Call DeleteGraphFunction Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_9_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 09_Rotcion tangencial_ES ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 9 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "=CONFIG!R4C7" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "=CONFIG!R5C7" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "360" 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 = "=CONFIG!R6C7" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ROTACI" & ChrW(211) & "N TANGENCIAL DE UN VECTOR ALREDEDOR DE UN VECTOR UNITARIO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Un vector B que es perpendicular al radio de rotaci" & ChrW(243) & "n r y al eje de rotaci" & ChrW(243) & "n con vector unitario u se puede hallar por el producto cruz B = u x r, siendo el vector unitario un vector de magnitud 1 y direcci" & ChrW(243) & "n la misma del vector A." & Chr(10) & _ " Modifique los valores del vector auxiliar A en las celdas G11, G12, G13 y G16 y observe los resultados oprimiendo el bot" & ChrW(243) & "n Run. Esto lo puede ver desde diferentes perspectivas con los botones de coordenadas XYZ, YZ, XZ, XY." & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " TANGENTIAL ROTATION OF A VECTOR ABOUT A UNIT VECTOR" & Chr(10) & _ " A vector B that is perpendicular to the radius of rotation r and to the axis of rotation with the unit vector u can be found by the cross product B = u x r, where the unit vector is a vector of magnitude 1 and in the same direction as vector A." & Chr(10) & _ " Modify the values " & ChrW(233) & "" & ChrW(233) & "of the auxiliary vector A in cells G11, G12, G13, G16 and observe the results by pressing the Run button. You can see this from different perspectives with the XYZ, YZ, XZ, XY coordinate buttons." & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 5 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 = "=CONFIG!R6C7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Rotaci" & ChrW(243) & "n tangencial" Cells(m + 4, n + 12).FormulaR1C1 = "ROTACI" & ChrW(211) & "N TANGENCIAL ALREDEDOR DE UN EJE" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + 4).FormulaR1C1 = "Coordenadas del radio r:" Cells(m + 7, n + -1).FormulaR1C1 = "4" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<-- Posici" & ChrW(243) & "n " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " x =" Cells(m + 8, n + 5).FormulaR1C1 = "2" Cells(m + 8, n + 21).FormulaR1C1 = "1. La posici" & ChrW(243) & "n inicial y las coordenadas del eje se modifican en:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "<-- Inclinaci" & ChrW(243) & "n" Cells(m + 9, n + 4).FormulaR1C1 = " y =" Cells(m + 9, n + 5).FormulaR1C1 = "4" Cells(m + 9, n + 22).FormulaR1C1 = "a_ox en la celda A10" 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 = " z =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 22).FormulaR1C1 = "a_oy en la celda B10" 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 = "a_oz en la celda C10" Cells(m + 3, n + 1).Interior.Color = "16711680" 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 = "u" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "u" Cells(m + 3, n + 4).FormulaR1C1 = "Fijar trayectoria (1 o 2):" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-11]C[5]))" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 22).FormulaR1C1 = "a_x en la celda A12" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 2).FormulaR1C1 = "=1-COS(RADIANS(R[-12]C[5]))" Cells(m + 5, n + 4).FormulaR1C1 = "(oprima luego Ejecutar.)" Cells(m + 5, n + 22).FormulaR1C1 = "a_y en la celda B12" Cells(m + 6, n + 22).FormulaR1C1 = "a_z en la celda C12" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "El vector a rotar r_P es el vector n" & ChrW(250) & "mero 3 y sus coordenadas se establecen en las celdas G11, G12 " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C*R[-9]C+R[-9]C[1]*R[-9]C[1]+R[-9]C[2]*R[-9]C[2])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-1]*R[-9]C[-1]+R[-9]C*R[-9]C+R[-9]C[1]*R[-9]C[1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-2]*R[-9]C[-2]+R[-9]C[-1]*R[-9]C[-1]+R[-9]C*R[-9]C)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = " y G13. El vector rotado r alrededor del vector unitario u es el n" & ChrW(250) & "mero 4 y las ecuaciones para sus" 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 = " coordenadas se hallan de acuerdo a la f" & ChrW(243) & "rmula de rotaci" & ChrW(243) & "n para el nuevo vector:" 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 = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-7-1)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 22).FormulaR1C1 = "en donde theta es el " & ChrW(225) & "ngulo a rotar." Cells(m + 6, n + 21).FormulaR1C1 = "El vector B tangente se obtiene multiplicando vectorialmente B = u x r" 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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 27).FormulaR1C1 = "(Eq-8-1)" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-19]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-17]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "<-- Radio de la circunferencia" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Utilice los botones de Ejecutar simulaci" & ChrW(243) & "n para ver la rotaci" & ChrW(243) & "n del vector. " 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 = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-22]C[3]*(R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C+R[-18]C[2]*R[-18]C*R[-9]C[2]-R[-18]C[2]*R[-18]C[2]*R[-9]C)+R[-23]C[3]*(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-22]C[2]*(-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1]+R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C)+R[-23]C[2]*(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-22]C[1]*(-R[-18]C[-2]*R[-18]C[-2]*R[-9]C+R[-18]C[-2]*R[-18]C*R[-9]C[-2]-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1])+R[-23]C[1]*(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-7-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 + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=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 = "B" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C[1]*R[-9]C[2]-R[-27]C[2]*R[-9]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*R[-9]C[1]+R[-27]C[1]*R[-9]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*R[-9]C[-1]-R[-27]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[-33]C[4]" 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 = 5 End If ' vector ends If m = m1 + 36 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_9_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 09_Tangential rotation_EN ' Updated: 26/03/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 9 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "=CONFIG!R4C7" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "=CONFIG!R5C7" 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 = "=CONFIG!R6C7" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "TANGENTIAL ROTATION OF A VECTOR ABOUT A UNIT VECTOR" & Chr(10) & _ " A vector B that is perpendicular to the radius of rotation r and to the axis of rotation with the unit vector u can be found by the cross product B = u x r, where the unit vector is a vector of magnitude 1 and in the same direction as vector A." & Chr(10) & _ " Modify the values " & ChrW(233) & "" & ChrW(233) & "of the auxiliary vector A in cells G11, G12, G13, G16 and observe the results by pressing the Run button. You can see this from different perspectives with the XYZ, YZ, XZ, XY coordinate buttons." & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 5 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 = "=CONFIG!R6C7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Tangential rotation" Cells(m + 4, n + 12).FormulaR1C1 = "TANGENTIAL ROTATION AROUND AN AXIS" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + 4).FormulaR1C1 = "Coordinates of radius r:" Cells(m + 7, n + -1).FormulaR1C1 = "4" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<-- Position" Cells(m + 8, n + 4).FormulaR1C1 = " x =" Cells(m + 8, n + 5).FormulaR1C1 = "2" Cells(m + 8, n + 21).FormulaR1C1 = "1. The initial position and axis coordinates are modified in cells:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "<-- Tilt" Cells(m + 9, n + 4).FormulaR1C1 = " y =" Cells(m + 9, n + 5).FormulaR1C1 = "4" 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 = " z =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 22).FormulaR1C1 = "a_ox in cell A10" 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 + 22).FormulaR1C1 = "a_oy in cell B10" Cells(m + 3, n + 1).Interior.Color = "16711680" 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 = "u" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "u" Cells(m + 3, n + 4).FormulaR1C1 = "Fix trajectory (1 or 2):" Cells(m + 3, n + 22).FormulaR1C1 = "a_oz in cell C10" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "=SIN(RADIANS(R[-11]C[5]))" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 2).FormulaR1C1 = "=1-COS(RADIANS(R[-12]C[5]))" Cells(m + 5, n + 4).FormulaR1C1 = "(then press Run.)" Cells(m + 5, n + 22).FormulaR1C1 = "a_x in cell A12" Cells(m + 6, n + 22).FormulaR1C1 = "a_y in cell B12" 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 + 7, n + 22).FormulaR1C1 = "a_z in cell C12" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C*R[-9]C+R[-9]C[1]*R[-9]C[1]+R[-9]C[2]*R[-9]C[2])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-1]*R[-9]C[-1]+R[-9]C*R[-9]C+R[-9]C[1]*R[-9]C[1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C/SQRT(R[-9]C[-2]*R[-9]C[-2]+R[-9]C[-1]*R[-9]C[-1]+R[-9]C*R[-9]C)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "The vector to rotate r_P is the vector number 3 and its coordinates are set in cells G11, G12" 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 = " and G13. The rotated vector r about the unit vector u is the number 4 and the equations for its" 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 + 11, n + 21).FormulaR1C1 = " coordinates are found according to the rotation formula for the new vector:" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-7-1)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "where theta is the angle to rotate." 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 + 7, n + 21).FormulaR1C1 = "The tangent vector B is obtained by vector multiplying B = u x r:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-19]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-18]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-17]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "<-- Radius of the circumference" Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-8-1)" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "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 = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 21).FormulaR1C1 = "Use the Run Simulation buttons to view the vector rotation." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-22]C[3]*(R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C+R[-18]C[2]*R[-18]C*R[-9]C[2]-R[-18]C[2]*R[-18]C[2]*R[-9]C)+R[-23]C[3]*(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-22]C[2]*(-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1]+R[-18]C[1]*R[-18]C*R[-9]C[1]-R[-18]C[1]*R[-18]C[1]*R[-9]C)+R[-23]C[2]*(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-22]C[1]*(-R[-18]C[-2]*R[-18]C[-2]*R[-9]C+R[-18]C[-2]*R[-18]C*R[-9]C[-2]-R[-18]C[-1]*R[-18]C[-1]*R[-9]C+R[-18]C[-1]*R[-18]C*R[-9]C[-1])+R[-23]C[1]*(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])" Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-7-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 + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=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 = "B" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-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 + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C[1]*R[-9]C[2]-R[-27]C[2]*R[-9]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*R[-9]C[1]+R[-27]C[1]*R[-9]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*R[-9]C[-1]-R[-27]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[-33]C[4]" 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 = 5 End If ' vector ends If m = m1 + 36 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_10_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 10_Coordenadas cilindricas_ES ' Updated: 30/01/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 10 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "x" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "=CONFIG!R4C9" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,1015625 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "60" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "375" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "(Eq-rho)" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "COORDENADAS CIL" & ChrW(205) & "NDRICAS EN CARTESIANAS" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Las f" & ChrW(243) & "rmulas matem" & ChrW(225) & "ticas para este caso son las ecuaciones: " & Chr(10) & _ " x=rho cos phi, y= rho sin phi, z=z." & Chr(10) & _ " Para dibujar los vectores unitarios de las coordenadas cil" & ChrW(237) & "ndricas en las cartesianas se utilizan las f" & ChrW(243) & "rmulas: " & Chr(10) & _ " unit rho= i cos phi + j sin phi, " & Chr(10) & _ " unit phi = - i sin phi + j cos phi, " & Chr(10) & _ " unit z = k," & Chr(10) & _ " en donde por unit se designan los vectores unitarios. En las celdas A12, B12, C12 se introducen estas ecuaciones para rho unitario, en A21, B21, C21 para phi unitario y en A30, B30, C30 para z. " & Chr(10) & _ " Para ejecutar una simulaci" & ChrW(243) & "n, introduzcca un valor para rho en la celda E12=2 y para phi en E13=45, E14=1, asegur" & ChrW(225) & "ndose de que est" & ChrW(233) & "n limpias las celdas E19, E29 y E21. luego oprima el bot" & ChrW(243) & "n Run. Los " & ChrW(225) & "ngulos empezar" & ChrW(225) & "n a recorrerse de 8 en 8 desde 45 hasta 360 grados. Para cambiar la posici" & ChrW(243) & "n inicial del sistema cil" & ChrW(237) & "ndrico acuda a los par" & ChrW(225) & "metros del vector A. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " CYLINDRICAL COORDINATES IN CARTESIANS" & Chr(10) & _ " The mathematical formulas for this case are the equations:" & Chr(10) & _ " x=rho cos phi, y= rho sin phi, z=z." & Chr(10) & _ " To draw the unit vectors of the cylindrical coordinates in the Cartesians, the formulas are used:" & Chr(10) & _ " unit rho= i cos phi + j sin phi, " & Chr(10) & _ " unit phi = - i sin phi + j cos phi, " & Chr(10) & _ " unit z = k," & Chr(10) & _ " where unit designates the unit vectors. These equations for the rho unit are in cells A12, B12, C12, in A21, B21, C21 for the phi unit, and in A30, B30, C30 for z." & Chr(10) & _ " To run a simulation, enter a value for rho in cell E12=2, phi in E13=45, E14=1 (be sure that E19, E29 y E21 are clean) and then press the Run button. The angles will begin to travel in 8 steps from 45 to 360 degrees. To change the initial position of the cylindrical system, go to the parameters of vector A." & Chr(10) & _ " " & Chr(10) & _ " " & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-rho)" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "z" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 3, n + 19).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Coordenadas cil" & ChrW(237) & "ndricas" Cells(m + 4, n + 12).FormulaR1C1 = "COORDENADAS CIL" & ChrW(205) & "NDRICAS" 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 + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 2).FormulaR1C1 = "A CARTESIANAS:" Cells(m + 7, n + 4).FormulaR1C1 = "RESULTADO:" Cells(m + 7, n + 5).FormulaR1C1 = "(Eq-9-1)" Cells(m + 7, n + 21).FormulaR1C1 = "El modelo permite visualizar los vectores unitarios de las coordenadas cil" & ChrW(237) & "ndricas representadas " Cells(m + 8, n + 2).FormulaR1C1 = "(borrar E18, E19 y GE20)" Cells(m + 8, n + 4).FormulaR1C1 = "=IF(R[2]C[-4]>0,""<-- use these cells."","""")" Cells(m + 8, n + 21).FormulaR1C1 = "en las cartesianas. Oprima los botones de ecuaciones para ver las ecuaciones (las ecuaciones deben" Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[24]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[24]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "rho =" Cells(m + 9, n + 3).FormulaR1C1 = "2" Cells(m + 9, n + 4).FormulaR1C1 = "x =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[23]C[-3]*RC[-6]" Cells(m + 9, n + 21).FormulaR1C1 = "encontrarse en la hoja 3DModels)." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[22]C[4]" Cells(m + 10, n + 2).FormulaR1C1 = "phi =" Cells(m + 10, n + 3).FormulaR1C1 = "=R[-8]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "y =" Cells(m + 10, n + 5).FormulaR1C1 = "=R[22]C[-3]*R[-1]C[-5]" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 2).FormulaR1C1 = "z=" Cells(m + 11, n + 3).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "z =" Cells(m + 11, n + 5).FormulaR1C1 = "=RC[-2]" Cells(m + 11, n + 21).FormulaR1C1 = "Los diferentes tipos de coordenadas se utilizan para simplificar los problemas matem" & ChrW(225) & "ticos y " Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "(Eq-phi)" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-phi)" Cells(m + 3, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 3, n + 21).FormulaR1C1 = "f" & ChrW(237) & "sicos que tienen cierta simetr" & ChrW(237) & "a. Por ejemplo, un campo el" & ChrW(233) & "ctrico de una carga puntual tiene " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica, por lo tanto representarlo y estudiarlo resulta m" & ChrW(225) & "s conveniente y sencillo " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 2).FormulaR1C1 = "A CIL" & ChrW(205) & "NDRICAS" Cells(m + 5, n + 4).FormulaR1C1 = "RESULTADO:" Cells(m + 5, n + 5).FormulaR1C1 = "(Eq-9-2)" Cells(m + 5, n + 21).FormulaR1C1 = "hacerlo desde las coordenadas esf" & ChrW(233) & "ricas, mientras que el campo el" & ChrW(233) & "ctrico de una l" & ChrW(237) & "nea recta " Cells(m + 6, n + 2).FormulaR1C1 = "(borrar E12, E13 y E14)" Cells(m + 6, n + 21).FormulaR1C1 = "infinita y cargada tiene simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica. Para ver ejemplos de estas dos simetr" & ChrW(237) & "as ver los " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 2).FormulaR1C1 = "x =" Cells(m + 7, n + 4).FormulaR1C1 = "rho =" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(RC[-2]="""",R[-7]C[-2],SQRT(RC[-2]^2+R[1]C[-2]^2))" Cells(m + 7, n + 21).FormulaR1C1 = "proyectos SIMETR" & ChrW(205) & "A CIL" & ChrW(205) & "NDRICA y SIMETR" & ChrW(205) & "A ESF" & ChrW(201) & "RICA." Cells(m + 8, n + 2).FormulaR1C1 = "y =" Cells(m + 8, n + 4).FormulaR1C1 = "phi =" Cells(m + 8, n + 5).FormulaR1C1 = "=IF(R[-1]C[-2]="""",R[-7]C[-2],DEGREES(IF(AND(R[-1]C[-2]>0,RC[-2]<0),2*PI()+ASIN(RC[-2]/R[-1]C),IF(AND(R[-1]C[-2]<=0,RC[-2]>=0),ACOS(R[-1]C[-2]/R[-1]C),IF(AND(R[-1]C[-2]<0,RC[-2]<0),ATAN(RC[-2]/R[-1]C[-2])+PI(),IF(R[-1]C[-2]=0,2*PI()-ACOS(R[-1]C[-2]/R[-1]C),ATAN(RC[-2]/R[-1]C[-2])))))))" Cells(m + 9, n + -1).FormulaR1C1 = "=-SIN(RADIANS(R[15]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=COS(RADIANS(R[15]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "z =" Cells(m + 9, n + 4).FormulaR1C1 = "z=" Cells(m + 9, n + 5).FormulaR1C1 = "=IF(R[-2]C[-2]="""",R[-7]C[-2],RC[-2])" Cells(m + 9, n + 21).FormulaR1C1 = "El sistema de coordenadas cil" & ChrW(237) & "ndricas es un sistema ortogonal que tiene tres vectores unitarios " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[14]C[4]" Cells(m + 10, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 10, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" 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 + 27).FormulaR1C1 = "(Eq-9-3)" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "(Eq-z)" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-z)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "MOSTRAR VECTOR:" Cells(m + 4, n + 21).FormulaR1C1 = "Para convertir un punto P(r) = P(x,y,z) que est" & ChrW(225) & " expresada en coordenadas cartesianas, a " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "rho=0, r=1" Cells(m + 5, n + 5).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "coordenadas cil" & ChrW(237) & "ndricas, P(rho, phi, z) se necesitan las siguientes f" & ChrW(243) & "rmulas de conversi" & ChrW(243) & "n:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 4).FormulaR1C1 = "DESPLAZAMIENTO DEL" Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-9-4)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "ORIGEN:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "1" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "A_ox =" Cells(m + 9, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[6]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "A_oy =" Cells(m + 10, n + 5).FormulaR1C1 = "0" 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 = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " " Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-7]C[5]=0,"" "",""r"")" Cells(m + 3, n + 4).FormulaR1C1 = "FIJACI" & ChrW(211) & "N DE TRAYECTORIA:" Cells(m + 3, n + 21).FormulaR1C1 = "Utilice las celdas E12, E13 y E14 para ingresar los valores de las coordenadas cil" & ChrW(237) & "ndricas " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "(1 " & ChrW(243) & " 2)" Cells(m + 4, n + 21).FormulaR1C1 = "de un punto respectivamente y obtener las cartesianas del mismo punto en las celdas " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=IF(R[-23]C[1]="""",R[-16]C[3],IF(R[-16]C[1]="""",R[-23]C[1]))" Cells(m + 5, n + 4).FormulaR1C1 = "rho=" Cells(m + 5, n + 5).FormulaR1C1 = "1" Cells(m + 5, n + 21).FormulaR1C1 = "G12, G13 y G14. Oprima cualquier bot" & ChrW(243) & "n del sistema de coordenadas para visualizar " Cells(m + 6, n + 2).FormulaR1C1 = "=IF(R[-24]C[1]="""",R[-16]C[3],IF(R[-17]C[1]="""",R[-23]C[1]))" Cells(m + 6, n + 4).FormulaR1C1 = "phi =" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "los resultados en este. " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-6]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=IF(R[-11]C[4]=0,RC[1],0)" Cells(m + 7, n + 2).FormulaR1C1 = "=IF(R[-25]C[1]="""",R[-16]C[3],IF(R[-18]C[1]="""",R[-23]C[3]))" Cells(m + 7, n + 4).FormulaR1C1 = "z=" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "(luego oprima Ejecutar.)" Cells(m + 8, n + 21).FormulaR1C1 = "Para convertir un punto P(rho, phi, z) que est" & ChrW(225) & " expresada en coordenadas cil" & ChrW(237) & "ndricas, a " Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R[-27]C[4]="""",R[-20]C[4],IF(R[-20]C[4]="""",R[-27]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=IF(R[-27]C[3]="""",R[-19]C[3],IF(R[-20]C[3]="""",R[-26]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-13]C[4]=0,0,R[-2]C[1])" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "coordenadas cartesianas, P(x, y, z) se necesitan las siguientes f" & ChrW(243) & "rmulas de conversi" & ChrW(243) & "n:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "MOSTRAR x, y, z:" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "S" & ChrW(205) & " = 0, NO=1" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-9-5)" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-3]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "Utilice las celdas E19, E20 y E21 para ingresar los valores de las coordenadas cartesianas " Cells(m + 8, n + 21).FormulaR1C1 = "de un punto respectivamente y obtener las cil" & ChrW(237) & "ndricas del mismo punto en las celdas " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 21).FormulaR1C1 = "G19, G20 y G21. Debe elimiar el contenido de las celdas E12, E13 y E14 para que el modelo " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "trabaje correctamente. Oprima cualquier bot" & ChrW(243) & "n del sistema de coordenadas para visualizar " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "los resultados en este. " Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "z" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 0).FormulaR1C1 = "z" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Experimente con diferentes puntos en el espacio. Cuando se introducen las coordenadas " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-12]C[4]" Cells(m + 5, n + 21).FormulaR1C1 = "cil" & ChrW(237) & "ndricas, se debe asegurar de borrar completamente las celdas donde se ingresan las" Cells(m + 6, n + 21).FormulaR1C1 = "cartesianas y viceverssa. El modelo utiliza varias f" & ChrW(243) & "rmulas para hallar el " & ChrW(225) & "ngulo phi debido" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "al comportamiento de las funciones seno y coseno en los diferentes cuadrantes, sin " Cells(m + 8, n + 21).FormulaR1C1 = "embargo todaas estas f" & ChrW(243) & "rmulas son equivalentes. " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-47]C" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "Borre las celdas E19, E20 y E21 e ingrese E12=2, E13 = I5, E14 =2 y oprima Ejecutar (Run), " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "observar" & ChrW(225) & " el recorrido de las coordenadas a lo largo del " & ChrW(225) & "ngulo phi. Ingrese G35=2 y vuelva" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 4 Call Project_15(15, m, n, m1, n1) Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 3, n + 21).FormulaR1C1 = "a oprimir Ejecutar, ver" & ChrW(225) & " los diferentes radios del cilindro durante el recorrido. Con G35=1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "186" Cells(m + 4, n + 21).FormulaR1C1 = "se borrar" & ChrW(225) & "n los radios luego de oprimir Ejecutar. Con la celda G26 podr" & ChrW(225) & " permutar entre" 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 = "el radio en cil" & ChrW(237) & "ndricas y el radio en cartesianas. Finalmente con las celdas G30 y G31 se " Cells(m + 6, n + -1).FormulaR1C1 = "Choose the vector to make its graphic:" Cells(m + 6, n + 21).FormulaR1C1 = "puede desplazar el origen de coordenadas cil" & ChrW(237) & "ndricas con respecto al de las cartesianas." Cells(m + 8, n + -1).FormulaR1C1 = "Max. steps:" Cells(m + 8, n + 0).FormulaR1C1 = "50" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "x" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "8" Cells(m + 3, n + 0).FormulaR1C1 = "x" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "To plot a graph:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-30]C[4]" Cells(m + 5, n + 2).FormulaR1C1 = "1. Max. steps = lenght of the graph." Cells(m + 6, n + 2).FormulaR1C1 = "2. Click Reset graph." Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-25]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "3. Choose in combo box a vector." Cells(m + 8, n + 2).FormulaR1C1 = "4. Run simulation or rotate." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 2).FormulaR1C1 = "<-- To keep the graph insert 2." Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "y" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "9" Cells(m + 3, n + 0).FormulaR1C1 = "y" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-39]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "Z" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "10" Cells(m + 3, n + 0).FormulaR1C1 = "Z" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-48]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-65]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 10 End If ' vector ends If m = m1 + 81 Then ActiveSheet.DropDowns("List2").Select With Selection ' Do While .ListCount > 0 ' borrar lista .ListIndex = .ListCount .RemoveItem (.ListIndex) Loop i = 3 Do While Cells(m1 + i, n1 - 1) <> "" ' incluir todos los vectores a la lista .AddItem Cells(m1 + i, n1 - 1).Value i = i + 9 Loop End With Sheets("CONFIG").Range("V6").Value = "" Cells(m1 + 9, n1 + 4).Select Call DeleteGraphFunction Cells(m + 17, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 18, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 19, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 20, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<-- use these cells."","""")" Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_10_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 10_Cylindrical Coordinates_EN ' Updated: 30/01/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 10 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "x" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "=CONFIG!R4C9" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,109375 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "60" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "(Eq-rho)" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CYLINDRICAL COORDINATES" & Chr(10) & _ " The mathematical formulas for this case are the equations:" & Chr(10) & _ " x=rho cos phi, y= rho sin phi, z=z." & Chr(10) & _ " To draw the unit vectors of the cylindrical coordinates in the Cartesians, the formulas are used:" & Chr(10) & _ " unit rho= i cos phi + j sin phi, " & Chr(10) & _ " unit phi = - i sin phi + j cos phi, " & Chr(10) & _ " unit z = k," & Chr(10) & _ " where unit designates the unit vectors. These equations for the rho unit are in cells A12, B12, C12, in A21, B21, C21 for the phi unit, and in A30, B30, C30 for z." & Chr(10) & _ " To run a simulation, enter a value for rho in cell E12=2, phi in E13=45, E14=1 (be sure that E19, E29 y E21 are clean) and then press the Run button. The angles will begin to travel in 8 steps from 45 to 360 degrees. To change the initial position of the cylindrical system, go to the parameters of vector A." & Chr(10) & _ " " & Chr(10) & _ " " & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-rho)" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "z" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 3, n + 19).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Cylindrical coordinates" Cells(m + 4, n + 12).FormulaR1C1 = "CYLINDRICAL COORDINATES" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 7, n + -1).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[29]C+R[27]C" Cells(m + 7, n + 2).FormulaR1C1 = "TO CARTESIANS:" Cells(m + 7, n + 4).FormulaR1C1 = "RESULT:" Cells(m + 7, n + 5).FormulaR1C1 = "(Eq-9-1)" Cells(m + 7, n + 21).FormulaR1C1 = "The model allows you to visualize the unit vectors of the cylindrical coordinates represented in the " Cells(m + 8, n + 2).FormulaR1C1 = "(delete E18, E19 and GE20)" Cells(m + 8, n + 21).FormulaR1C1 = "Cartesian coordinates. Press the equation buttons to view the equations (the equations must" Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[24]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[24]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "rho =" Cells(m + 9, n + 3).FormulaR1C1 = "3" Cells(m + 9, n + 4).FormulaR1C1 = "x =" Cells(m + 9, n + 5).FormulaR1C1 = "=R[23]C[-3]*RC[-6]" Cells(m + 9, n + 21).FormulaR1C1 = "be found in the 3DModels sheet)." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[22]C[4]" Cells(m + 10, n + 2).FormulaR1C1 = "phi =" Cells(m + 10, n + 3).FormulaR1C1 = "=R[-8]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "y =" Cells(m + 10, n + 5).FormulaR1C1 = "=R[22]C[-3]*R[-1]C[-5]" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 2).FormulaR1C1 = "z=" Cells(m + 11, n + 3).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "z =" Cells(m + 11, n + 5).FormulaR1C1 = "=RC[-2]" Cells(m + 11, n + 21).FormulaR1C1 = "Different types of coordinates are used to simplify mathematical and physical problems that have a certain " Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "(Eq-phi)" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-phi)" Cells(m + 3, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 3, n + 21).FormulaR1C1 = "symmetry. For example, an electric field of a point charge has spherical symmetry, therefore it is more convenient " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "and simple to represent and study it from spherical coordinates, while the electric field of an infinite, charged " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 2).FormulaR1C1 = "TO CYLINDRICAL" Cells(m + 5, n + 4).FormulaR1C1 = "RESULT:" Cells(m + 5, n + 5).FormulaR1C1 = "(Eq-9-2)" Cells(m + 5, n + 21).FormulaR1C1 = "straight line has cylindrical symmetry. To see examples of these two symmetries see the projects CYLINDRICAL " Cells(m + 6, n + 2).FormulaR1C1 = "(delete E12, E13 and E14)" Cells(m + 6, n + 21).FormulaR1C1 = "SYMMETRY and SPHERICAL SYMMETRY." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 2).FormulaR1C1 = "x =" Cells(m + 7, n + 4).FormulaR1C1 = "rho =" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(RC[-2]="""",R[-7]C[-2],SQRT(RC[-2]^2+R[1]C[-2]^2))" Cells(m + 8, n + 2).FormulaR1C1 = "y =" Cells(m + 8, n + 4).FormulaR1C1 = "phi =" Cells(m + 8, n + 5).FormulaR1C1 = "=IF(R[-1]C[-2]="""",R[-7]C[-2],DEGREES(IF(AND(R[-1]C[-2]>0,RC[-2]<0),2*PI()+ASIN(RC[-2]/R[-1]C),IF(AND(R[-1]C[-2]<=0,RC[-2]>=0),ACOS(R[-1]C[-2]/R[-1]C),IF(AND(R[-1]C[-2]<0,RC[-2]<0),ATAN(RC[-2]/R[-1]C[-2])+PI(),IF(R[-1]C[-2]=0,2*PI()-ACOS(R[-1]C[-2]/R[-1]C),ATAN(RC[-2]/R[-1]C[-2])))))))" Cells(m + 8, n + 21).FormulaR1C1 = "The cylindrical coordinate system is an orthogonal system that has three unit vectors" Cells(m + 9, n + -1).FormulaR1C1 = "=-SIN(RADIANS(R[15]C[3]))" Cells(m + 9, n + 0).FormulaR1C1 = "=COS(RADIANS(R[15]C[2]))" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + 2).FormulaR1C1 = "z =" Cells(m + 9, n + 4).FormulaR1C1 = "z=" Cells(m + 9, n + 5).FormulaR1C1 = "=IF(R[-2]C[-2]="""",R[-7]C[-2],RC[-2])" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[14]C[4]" Cells(m + 10, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 10, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||" Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-9-3)" 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 = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "(Eq-z)" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-z)" Cells(m + 3, n + 21).FormulaR1C1 = "To convert a point P(r) = P(x,y,z) that is expressed in Cartesian coordinates, to cylindrical coordinates, " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "SHOW VECTOR:" Cells(m + 4, n + 21).FormulaR1C1 = "P(rho, phi, z) the following conversion formulas are needed:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "rho=0, r=1" Cells(m + 5, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-9-4)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 4).FormulaR1C1 = "DISPLACEMENT OF THE" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "ORIGIN:" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "1" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "A_ox =" Cells(m + 9, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[6]C[4]" Cells(m + 10, n + 4).FormulaR1C1 = "A_oy =" Cells(m + 10, n + 5).FormulaR1C1 = "0" 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 = "Use cells E12, E13 and E14 to enter the values of the cylindrical coordinates of a point respectively " Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " " Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-7]C[5]=0,"" "",""r"")" Cells(m + 3, n + 4).FormulaR1C1 = "FIX PATH:" Cells(m + 3, n + 21).FormulaR1C1 = "and obtain the Cartesian coordinates of the same point in cells G12, G13 and G14. Press any coordinate " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "(1 or 2)" Cells(m + 4, n + 21).FormulaR1C1 = "system button to view the results." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 2).FormulaR1C1 = "=IF(R[-23]C[1]="""",R[-16]C[3],IF(R[-16]C[1]="""",R[-23]C[1]))" Cells(m + 5, n + 4).FormulaR1C1 = "rho=" Cells(m + 5, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 2).FormulaR1C1 = "=IF(R[-24]C[1]="""",R[-16]C[3],IF(R[-17]C[1]="""",R[-23]C[1]))" Cells(m + 6, n + 4).FormulaR1C1 = "phi =" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "To convert a point P(rho, phi, z) that is expressed in cylindrical coordinates, to Cartesian " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-6]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=IF(R[-11]C[4]=0,RC[1],0)" Cells(m + 7, n + 2).FormulaR1C1 = "=IF(R[-25]C[1]="""",R[-16]C[3],IF(R[-18]C[1]="""",R[-23]C[3]))" Cells(m + 7, n + 4).FormulaR1C1 = "z=" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 7, n + 21).FormulaR1C1 = "coordinates, P(x, y, z) the following conversion formulas are needed:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "(then press Run.)" Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R[-27]C[4]="""",R[-20]C[4],IF(R[-20]C[4]="""",R[-27]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=IF(R[-27]C[3]="""",R[-19]C[3],IF(R[-20]C[3]="""",R[-26]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-13]C[4]=0,0,R[-2]C[1])" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-9-5)" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "SHOW x, y, z:" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "YES = 0, NO=1" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-3]C[4]" Cells(m + 5, n + 21).FormulaR1C1 = "Use cells E19, E20 and E21 to enter the Cartesian coordinate values of a point respectively and obtain the " Cells(m + 6, n + 21).FormulaR1C1 = "cylindrical coordinates of the same point in cells G19, G20 and G21. You must delete the contents of " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "cells E12, E13 and E14 for the model to work correctly. Press any button in the coordinate system to " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "view the results in it." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Experiment with different points in space. When entering cylindrical coordinates, be sure to completely " 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 + 2).FormulaR1C1 = "7" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "delete the cells where Cartesian and vice versa are entered. The model uses several formulas to find the angle" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "z" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 0).FormulaR1C1 = "z" Cells(m + 3, n + 21).FormulaR1C1 = "phi due to the behavior of the sine and cosine functions in the different quadrants, however all these formulas " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "are equivalent." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-12]C[4]" Cells(m + 6, n + 21).FormulaR1C1 = "Delete cells E19, E20 and E21 and enter E12=2, E13 = I5, E14 =2 and press Run, you will see the coordinates " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "travel along the phi angle. Enter G35=2 and press Run again, you will see the different radii of the cylinder " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "during the tour. With G35=1 the radios will be deleted after pressing Run. With cell G26 you can switch " Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-47]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "between the cylindrical radius and the Cartesian radius. Finally, with cells G30 and G31 you can move the " 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 = "origin of cylindrical coordinates with respect to that of Cartesian coordinates." 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 = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 4 Call Project_15(15, m, n, m1, n1) Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "186" Cells(m + 4, n + 2).FormulaR1C1 = "To plot a graph:" 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 + 2).FormulaR1C1 = "1. Max. steps = lenght of the graph." Cells(m + 6, n + -1).FormulaR1C1 = "Choose the vector to make its graphic:" Cells(m + 6, n + 2).FormulaR1C1 = "2. Click Reset graph." Cells(m + 7, n + 2).FormulaR1C1 = "3. Choose in combo box a vector." Cells(m + 8, n + -1).FormulaR1C1 = "Max. steps:" Cells(m + 8, n + 0).FormulaR1C1 = "50" Cells(m + 8, n + 2).FormulaR1C1 = "4. Run simulation or rotate." 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 = "<-- To keep the graph insert 2." 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 + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "x" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "8" Cells(m + 3, n + 0).FormulaR1C1 = "x" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-30]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-25]C" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "y" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "9" Cells(m + 3, n + 0).FormulaR1C1 = "y" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-39]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-34]C" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "Z" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "10" Cells(m + 3, n + 0).FormulaR1C1 = "Z" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-48]C[4]" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-65]C" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "12611584" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 10 End If ' vector ends If m = m1 + 81 Then ActiveSheet.DropDowns("List2").Select With Selection ' Do While .ListCount > 0 ' borrar lista .ListIndex = .ListCount .RemoveItem (.ListIndex) Loop i = 3 Do While Cells(m1 + i, n1 - 1) <> "" ' incluir todos los vectores a la lista .AddItem Cells(m1 + i, n1 - 1).Value i = i + 9 Loop End With Sheets("CONFIG").Range("V6").Value = "" Cells(m1 + 9, n1 + 4).Select Call DeleteGraphFunction Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub