'//////////////////////////////////// ((((((())))))) \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ' ScienSolar v. 1.54 MODULE 6. Updated 09-03-2025 Sub Project_26_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 26_Fuerza magnetica_ES ' Updated: 6/04/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 26 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 = "40" 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 = "dl_1" 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 = "FUERZA MAGN" & ChrW(201) & "TICA ENTRE DOS ELEMENTOS DE CORRIENTE (See at the end the English version)" & Chr(10) & _ " El objetivo de este modelo es analizar la ley de Ampere para la interacci" & ChrW(243) & "n entre corrientes. " & Chr(10) & _ " Las cargas el" & ChrW(233) & "ctricas en movimiento generan campo magn" & ChrW(233) & "tico a su alrededor. Por otra parte, una carga en movimiento en un campo magn" & ChrW(233) & "tico externo experimenta una fuerza. A partir de estas dos afirmaciones podemos entonces decir que dos alambres que tienen corriente pueden experimentar fuerzas de interacci" & ChrW(243) & "n. A principios del siglo XIX el f" & ChrW(237) & "sico franc" & ChrW(233) & "s Andre-Marie Ampere estudi" & ChrW(243) & " a profundidad esta interacci" & ChrW(243) & "n entre corrientes y para el caso de dos elementos infinitesimales de corriente, estableci" & ChrW(243) & " la fuerza de interacci" & ChrW(243) & "n, siendo" & Chr(10) & _ " dF12 =K I1 I2 dL2 x [dL1 x r12]/r12^3 " & Chr(10) & _ " la fuerza magn" & ChrW(233) & "tica de la corriente 1 sobre la corriente 2 y " & Chr(10) & _ " dF21 =K I1 I2 dL1 x [dL2 x r21]/ r21^3" & Chr(10) & _ " la fuerza magn" & ChrW(233) & "tica de 2 sobre 1; I1 e I2 son las corrientes, dL1 y dL2 son vectores que representan longitudes infinitesimales de alambres que transportan estas corrientes, r12 es la distancia desde I1 hasta I2, r21 es la distancia desde I2 hasta I1, K es una constante que depende del sistema de unidades. La ecuaci" & ChrW(243) & "n arriba descrita es un doble producto cruz. " & Chr(10) & _ " A partir de esta ecuaci" & ChrW(243) & "n, se puede dibujar en tres dimensiones la fuerza magn" & ChrW(233) & "tica de una corriente sobre la otra, a partir de las magnitudes (celdas G14 y G15), direcci" & ChrW(243) & "n (A12, B12, C12 y A30, B30, C30), de las corrientes y la distancia r que las separa (A21, B21, C21). Modifique estos valores a conveniencia y observe el comportamiento de las fuerzas. Explique por qu" & ChrW(233) & " en algunos casos supuestamente no se cumple la 3a ley de Newton. " & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "dl_1" 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 = "Fuerza magn" & ChrW(233) & "tica - Ley de Ampere" Cells(m + 4, n + 12).FormulaR1C1 = "FUERZA MAGN" & ChrW(201) & "TICA ENTRE DOS ELEMENTOS DE CORRIENTE" 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 + 7, n + -1).FormulaR1C1 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "2" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<<-- Posici" & ChrW(243) & "n de dL_1." Cells(m + 7, n + 4).FormulaR1C1 = "K=" Cells(m + 7, n + 5).FormulaR1C1 = "2" Cells(m + 8, n + -1).FormulaR1C1 = "Alambre 1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "El objetivo de este modelo es analizar la ley de Ampere para la interacci" & ChrW(243) & "n entre corrientes. " 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 = "<<-- Coordenadas del vector dL_1." Cells(m + 9, n + 21).FormulaR1C1 = "Las cargas el" & ChrW(233) & "ctricas en movimiento generan campo magn" & ChrW(233) & "tico a su alrededor. Por otra parte," 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 = "Intensidad de las corrientes" Cells(m + 10, n + 21).FormulaR1C1 = "una carga en movimiento en un campo magn" & ChrW(233) & "tico externo experimenta una fuerza. A partir " Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "3" Cells(m + 11, n + 4).FormulaR1C1 = " I_1 = " Cells(m + 11, n + 5).FormulaR1C1 = "2" Cells(m + 11, n + 21).FormulaR1C1 = "de estas dos afirmaciones podemos entonces decir que dos alambres que tienen corriente pueden " 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 + 9 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = " I_2 = " Cells(m + 3, n + 5).FormulaR1C1 = "3" Cells(m + 3, n + 21).FormulaR1C1 = "experimentar fuerzas de interacci" & ChrW(243) & "n. A principios del siglo XIX el f" & ChrW(237) & "sico franc" & ChrW(233) & "s Andre-Marie Ampere " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "estudi" & ChrW(243) & " a profundidad esta interacci" & ChrW(243) & "n entre corrientes y para el caso de dos elementos" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0,3" Cells(m + 5, n + 4).FormulaR1C1 = "RESULTADO:" Cells(m + 5, n + 21).FormulaR1C1 = " infinitesimales de corriente, estableci" & ChrW(243) & " la fuerza de interacci" & ChrW(243) & "n, siendo" Cells(m + 6, n + -1).FormulaR1C1 = "K i1i2/r^3 =" Cells(m + 6, n + 0).FormulaR1C1 = "=R[-8]C[5]*R[-4]C[5]*R[-3]C[5]/POWER(SQRT(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2),3)" Cells(m + 6, n + 4).FormulaR1C1 = " |r| = " Cells(m + 6, n + 5).FormulaR1C1 = "=SQRT(R[3]C[-6]^2+R[3]C[-5]^2+R[3]C[-4]^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 = " |dF12| = " Cells(m + 7, n + 5).FormulaR1C1 = "=SQRT(R[29]C[-6]^2+R[29]C[-5]^2+R[29]C[-4]^2)" Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-26-1)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " |dF21| = " Cells(m + 8, n + 5).FormulaR1C1 = "=SQRT(R[46]C[-6]^2+R[46]C[-5]^2+R[46]C[-4]^2)" Cells(m + 9, n + -1).FormulaR1C1 = "=R[7]C-R[-11]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[7]C-R[-11]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[7]C-R[-11]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "la fuerza magn" & ChrW(233) & "tica de la primera corriente sobre la segunda, y " 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 = "dl_2" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "dl_2" 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-26-2)" Cells(m + 7, n + -1).FormulaR1C1 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<<-- Posici" & ChrW(243) & "n de dL_2." Cells(m + 8, n + -1).FormulaR1C1 = "Alambre 2" 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 = "1" Cells(m + 9, n + 2).FormulaR1C1 = "<<-- Coordenadas del vector dL_2." Cells(m + 9, n + 21).FormulaR1C1 = "la de la segunda sobre la primera; I1 e I2 son las corrientes, dL1 y dL2 son vectores que representan " 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 = "longitudes infinitesimales de alambres que transportan estas corrientes, r12 es la distancia desde" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "3" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = " I1 hasta I2, r21 es la distancia desde I2 hasta I1, K es una constante que depende del sistema de " 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 4 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 21).FormulaR1C1 = "unidades. El producto IdL se le llama elemento de corriente y es un vector, la corriente es un escalar." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "La ecuaci" & ChrW(243) & "n arriba descrita es un doble producto cruz. El primer producto cruz (derecha de la ecuaci" & ChrW(243) & "n)" 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 = "se encuentra en la fila 39 para dF12 y 57 para F21, mientras que la multiplicaci" & ChrW(243) & "n vectorial final est" & ChrW(225) & " " Cells(m + 6, n + 21).FormulaR1C1 = "en la fila 48 para dF12 y en la 66 para dF21." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "A partir de esta ecuaci" & ChrW(243) & "n se puede dibujar en tres dimensiones la fuerza magn" & ChrW(233) & "tica de una corriente " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C[1]*R[-18]C[2]-R[-27]C[2]*R[-18]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*R[-18]C[1]+R[-27]C[1]*R[-18]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*R[-18]C[-1]-R[-27]C[-1]*R[-18]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "sobre la otra teniendo las corrientes (celdas G14 y G15), las componentes (A12, B12, C12 y A30, B30, C30)" 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 = " de los elementos de corriente y sus posiciones (A10, B10, C10 y A28, B28, C28). Modifique estos valores" 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 = " a conveniencia y observe el comportamiento de las fuerzas. Trate de aclarar la paradoja de por qu" & ChrW(233) & " en" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "dF12" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "dF12" Cells(m + 3, n + 21).FormulaR1C1 = " algunos casos supuestamente no se cumple la 3a ley de Newton (es decir que |F12| es diferente a |F21|," Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "tenga en cuenta para ello que las corrientes reales son siempre cerradas)." 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 + 21).FormulaR1C1 = "Ejercicios:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "1. Halle las fuerzas de acci" & ChrW(243) & "n y reacci" & ChrW(243) & "n de dos corrientes paralelas de 1 A y de 1 m. de longitud" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-30]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-30]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-30]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "separadas una distancia de 1m." 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 = "2. Halle las fuerzas de acci" & ChrW(243) & "n y reacci" & ChrW(243) & "n de dos corrientes antiparalelas de 1 A y de 1 m. de longitud" 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 = "separadas una distancia de 1m." 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 + 45 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 21).FormulaR1C1 = "3. Halle estas mismas fuerzas para las mismas corrientes pero esta vez perpendiculares y acostadas " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "sobre el plano XY." 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 = "4. Halle estas mismas fuerzas para las mismas corrientes pero esta vez perpendiculares y acostadas " Cells(m + 6, n + 22).FormulaR1C1 = "la primerra sobre el plano XY y la segunda sobre el plano YZ." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]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[-36]C[2])-R[-27]C[2]*(-R[-36]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*(-R[-36]C[1])+R[-27]C[1]*(-R[-36]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*(-R[-36]C[-1])-R[-27]C[-1]*(-R[-36]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 = "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 = "5296274" 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 = "dF21" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 3, n + 0).FormulaR1C1 = "dF21" 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[-54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-54]C[1]*R[-9]C[2]-R[-54]C[2]*R[-9]C[1])*R[-48]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-54]C[-1]*R[-9]C[1]+R[-54]C[1]*R[-9]C[-1])*R[-48]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-54]C[-2]*R[-9]C[-1]-R[-54]C[-1]*R[-9]C[-2])*R[-48]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "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 = "" Cells(m1 + 2, n1 - 1).Value = 7 End If ' vector ends If m = m1 + 54 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_26_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 26_Magnetic Force_EN ' Updated: 6/04/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 26 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 = "40" 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 = "dl_1" 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 = "MAGNETIC FORCE BETWEEN TWO CURRENT ELEMENTS" & Chr(10) & _ " The objective of this model is to analyze Ampere's law for the interaction between currents." & Chr(10) & _ " Moving electric charges generate a magnetic field around them. On the other hand, a moving charge in an external magnetic field experiences a force. From these two statements, we can say that two current-carrying wires can experience interaction forces. At the beginning of the 19th century, the French physicist Andre-Marie Ampere studied this interaction between currents in depth and, in the case of two infinitesimal current elements, established the interaction force, being" & Chr(10) & _ " dF12 =K I1 I2 dL2 x [dL1 x r12]/r12^3" & Chr(10) & _ " the magnetic force of stream 1 on stream 2 and" & Chr(10) & _ " dF21 =K I1 I2 dL1 x [dL2 x r21]/ r21^3" & Chr(10) & _ " the magnetic force of 2 over 1; I1 and I2 are the currents, dL1 and dL2 are vectors representing infinitesimal lengths of wires that carry these currents, r12 is the distance from I1 to I2, r21 is the distance from I2 to I1, K is a constant that depends on the system of units. The equation described above is a double cross product. " & Chr(10) & _ " From this equation, the magnetic force of one current on the other can be drawn in three dimensions, from the magnitudes (cells G14 and G15), the direction (A12, B12, C12 and A30, B30, C30), of the currents and the distance r that separates them (A21, B21, C21). Modify these values " & ChrW(233) & "" & ChrW(233) & "as needed and observe the behavior of the forces. Explain why in some cases Newton's third law does not seem to be fulfilled." & Chr(10) & _ " " Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "dl_1" 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 = "Magnetic Force - Ampere's Law" Cells(m + 4, n + 12).FormulaR1C1 = "MAGNETIC FORCE BETWEEN TWO CURRENT ELEMENTS" 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 + 4).FormulaR1C1 = "Constant:" Cells(m + 7, n + -1).FormulaR1C1 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "2" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<<-- Position of dL_1." Cells(m + 7, n + 4).FormulaR1C1 = " K =" Cells(m + 7, n + 5).FormulaR1C1 = "2" Cells(m + 8, n + -1).FormulaR1C1 = "Alambre 1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "The objective of this model is to analyze Ampere's law for the interaction between currents. " 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 = "<<-- Coordinates of vector dL_1." Cells(m + 9, n + 21).FormulaR1C1 = "Moving electric charges generate a magnetic field around them. On the other hand, a charge moving " 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 = "Current intensity:" Cells(m + 10, n + 21).FormulaR1C1 = "in an external magnetic field experiences a force. From these two statements we can then say " Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "3" Cells(m + 11, n + 4).FormulaR1C1 = " I_1 = " Cells(m + 11, n + 5).FormulaR1C1 = "2" Cells(m + 11, n + 21).FormulaR1C1 = "that two wires that have currents can experience interaction forces. At the beginning of the 19th " 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 + 9 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = " I_2 = " Cells(m + 3, n + 5).FormulaR1C1 = "3" Cells(m + 3, n + 21).FormulaR1C1 = "century, the French physicist Andre-Marie Ampere studied this interaction between currents " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "in depth and in the case of two infinitesimal current elements, the interaction force was established" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0,3" Cells(m + 5, n + 4).FormulaR1C1 = "RESULT:" Cells(m + 5, n + 21).FormulaR1C1 = "being" Cells(m + 6, n + -1).FormulaR1C1 = "K i1i2/r^3 =" Cells(m + 6, n + 0).FormulaR1C1 = "=R[-8]C[5]*R[-4]C[5]*R[-3]C[5]/POWER(SQRT(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2),3)" Cells(m + 6, n + 4).FormulaR1C1 = " |r| = " Cells(m + 6, n + 5).FormulaR1C1 = "=SQRT(R[3]C[-6]^2+R[3]C[-5]^2+R[3]C[-4]^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 = " |dF12| = " Cells(m + 7, n + 5).FormulaR1C1 = "=SQRT(R[29]C[-6]^2+R[29]C[-5]^2+R[29]C[-4]^2)" Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-26-1)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " |dF21| = " Cells(m + 8, n + 5).FormulaR1C1 = "=SQRT(R[46]C[-6]^2+R[46]C[-5]^2+R[46]C[-4]^2)" Cells(m + 9, n + -1).FormulaR1C1 = "=R[7]C-R[-11]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[7]C-R[-11]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[7]C-R[-11]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "the magnetic force of the first current on the second, and" 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 = "dl_2" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "3" Cells(m + 3, n + 0).FormulaR1C1 = "dl_2" 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-26-2)" Cells(m + 7, n + -1).FormulaR1C1 = "3" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "<<-- Position of dL_2." Cells(m + 8, n + -1).FormulaR1C1 = "Alambre 2" 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 = "1" Cells(m + 9, n + 2).FormulaR1C1 = "<<-- Coordinates of vector dL_2." Cells(m + 9, n + 21).FormulaR1C1 = "that of the second on the first; I1 and I2 are the currents, dL1 and dL2 are vectors that represent " 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 = "infinitesimal lengths of wires that carry these currents, r12 is the distance from I1 to I2, r21 is " Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "3" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "the distance from I2 to I1, K is a constant that depends on the system units. The product IdL is called " 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 4 Cells(m + 3, n + -1).FormulaR1C1 = "4" Cells(m + 3, n + 21).FormulaR1C1 = "the current element and is a vector, while the current is a scalar." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "The equation described above is a double cross product. The first cross product (right 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 = "right term) is in row 39 for dF12 and 57 for F21, while the final vector multiplication is in row 48 for " Cells(m + 6, n + 21).FormulaR1C1 = "dF12 and 66 for dF21." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "From this equation, the magnetic force of one current on the other can be drawn in three dimensions, " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C[1]*R[-18]C[2]-R[-27]C[2]*R[-18]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*R[-18]C[1]+R[-27]C[1]*R[-18]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*R[-18]C[-1]-R[-27]C[-1]*R[-18]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "having the currents (cells G14 and G15), the components of the current elements (A12, B12, C12 and " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "A30, B30, C30) and their positions (A10, B10, C10 and A28, B28, C28). Modify these values as " 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 = "desired and observe the behavior of the forces. Try to clarify the paradox of why in some cases " Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "dF12" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "dF12" Cells(m + 3, n + 21).FormulaR1C1 = "Newton's 3rd law is supposedly not fulfilled (that is, |F12| is different from |F21|) taking into account " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "that real currents are always closed." 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 + 21).FormulaR1C1 = "Exercises:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "1. Find the action and reaction forces of two parallel currents of 1 A and 1 m. in length separated by " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-30]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-30]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-30]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "a distance of 1m." 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 = "2. Find the action and reaction forces of two antiparallel currents of 1 A and 1 m. in length separated by " 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 distance of 1m." 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 + 45 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "6" Cells(m + 3, n + 21).FormulaR1C1 = "3. Find these same forces for the same currents but this time perpendicular and lying on " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "the XY plane." 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 = "4. Find these same forces for the same currents but this time perpendicular and lying the first " Cells(m + 6, n + 22).FormulaR1C1 = "on the XY plane and the second on the YZ plane." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]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[-36]C[2])-R[-27]C[2]*(-R[-36]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*(-R[-36]C[1])+R[-27]C[1]*(-R[-36]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*(-R[-36]C[-1])-R[-27]C[-1]*(-R[-36]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 = "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 = "5296274" 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 = "dF21" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 3, n + 0).FormulaR1C1 = "dF21" 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[-54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-54]C[1]*R[-9]C[2]-R[-54]C[2]*R[-9]C[1])*R[-48]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-54]C[-1]*R[-9]C[1]+R[-54]C[1]*R[-9]C[-1])*R[-48]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-54]C[-2]*R[-9]C[-1]-R[-54]C[-1]*R[-9]C[-2])*R[-48]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "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 = "" Cells(m1 + 2, n1 - 1).Value = 7 End If ' vector ends If m = m1 + 54 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_27_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 27_Espira en un campo magnetico_ES ' Updated: 12/08/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 27 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 + 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 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,15625 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "40" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "ngulo """ 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 = "z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ESPIRA RECTANGULAR CON CORRIENTE EN UN CAMPO MAGN" & ChrW(201) & "TICO EXTERNO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " La fuerza que experimenta un vector elemento (o trozo) de corriente IL por parte de un campo magn" & ChrW(233) & "tico externo se expresa por la ecuaci" & ChrW(243) & "n vectorial:" & Chr(10) & _ " F = IL x B" & Chr(10) & _ " Si un alambre cerrado de forma rectangular con corriente est" & ChrW(225) & " compuesto de 4 partes rectil" & ChrW(237) & "neas, entonces cada parte experimenta una fuerza diferente en diferente direcci" & ChrW(243) & "n de acuerdo a la orientaci" & ChrW(243) & "n mutua del elemento de corriente y el campo externo, en donde elemento de corriente se llama al producto de la corriente por la longitud del alambre: IL y es un vector que va en direcci" & ChrW(243) & "n de la corriente. " & Chr(10) & _ " En el modelo, en la celda E9 puede modificar la magnitud y direcci" & ChrW(243) & "n de la corriente, en E11, E12, E13 la posici" & ChrW(243) & "n de la espira en el espacio; en E17, E18 y E19 las componentes del campo magn" & ChrW(233) & "tico externo, en E23 el tama" & ChrW(233) & "o de la espira. Con el bot" & ChrW(243) & "n 1 By 1 puede cambiar la orientaci" & ChrW(243) & "n de la espira con respecto al campo magn" & ChrW(233) & "tico y observar el comportamiento de las fuerzas magn" & ChrW(233) & "ticas sobre los segmentos de la espira. " & Chr(10) & _ " Con el bot" & ChrW(243) & "n Run puede hacer rotar la espira 360 grados y observar los cambios en las fuerzas. El bot" & ChrW(243) & "n Set to zero lleva la espira a la posici" & ChrW(243) & "n inicial. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " RECTANGULAR LOOP WITH CURRENT IN EXTERNAL MAGNETIC FIELD" & Chr(10) & _ " The force experienced by a current vector element (or piece) IL coming from an external magnetic field is expressed by the vector equation:" & Chr(10) & _ " F = IL x B" & Chr(10) & _ " If a rectangular closed wire with current is composed of 4 rectilinear parts, then each part experiences a different force in a different direction depending on the mutual orientation of the current element and the external field, where the current element is called the product of the current and the rectilinear cable element: IL and is a vector that goes in the direction of the current." & Chr(10) & _ " In the model, in cell E9 the magnitude and direction of the current can be modified, in E11, E12, E13 the position of the loop in space; in E17, E18 and E19 the components of the external magnetic field, in E23 the size of the loop. With the 1 By 1 button you can change the orientation of the loop with respect to the magnetic field and observe the behavior of the magnetic forces on the segments of the loop." & Chr(10) & _ " With the Run button, you can rotate the loop 360 degrees and watch the changes in forces. The Set to Zero button returns the loop to the starting position." On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 19 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 = "z" Cells(m + 3, n + 5).FormulaR1C1 = "375" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Espira en un campo magn" & ChrW(233) & "tico" Cells(m + 4, n + 12).FormulaR1C1 = "ESPIRA CON CORRIENTE EN UN CAMPO MAGN" & ChrW(201) & "TICO" 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 + -1).FormulaR1C1 = "Origen:" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "2" Cells(m + 7, n + 2).FormulaR1C1 = "<< -- Posici" & ChrW(243) & "n de la espira" Cells(m + 7, n + 4).FormulaR1C1 = "Corriente" Cells(m + 7, n + 5).FormulaR1C1 = "-1" Cells(m + 8, n + -1).FormulaR1C1 = "=SIN(RADIANS(R[-6]C[8]))" Cells(m + 8, n + 0).FormulaR1C1 = "=1-COS(RADIANS(R[-6]C[7]))" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "La fuerza que experimenta un vector elemento de corriente IL por parte de un campo magn" & ChrW(233) & "tico " Cells(m + 9, n + -1).FormulaR1C1 = "=R20C7*R[9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R20C7*R[9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R20C7*R[9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Campo magn" & ChrW(233) & "tico:" Cells(m + 9, n + 21).FormulaR1C1 = "externo se expresa por la ecuaci" & ChrW(243) & "n vectorial:" 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 = " Bx =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 24).FormulaR1C1 = " F = IL x B." Cells(m + 3, n + 1).Interior.Color = "14408667" 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 + 9 Then ' vector 18 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = " By =" 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 = " Bz =" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "Si un alambre cerrado de forma rectangular con corriente est" & ChrW(225) & " compuesto de 4 partes rectil" & ChrW(237) & "neas, entonces " 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 = "=IF(R[-1]C[-3]>1,"" <-- Variable coordinates"","""")" Cells(m + 5, n + 21).FormulaR1C1 = "cada parte experimenta una fuerza diferente en diferente direcci" & ChrW(243) & "n de acuerdo a la orientaci" & ChrW(243) & "n mutua " Cells(m + 6, n + 4).FormulaR1C1 = "Orientaci" & ChrW(243) & "n de la espira:" Cells(m + 6, n + 21).FormulaR1C1 = "del elemento de corriente y el campo externo, en donde se llama elemento de corriente al producto " 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 = "de la corriente por la longitud del alambre, IL, y es un vector que va en direcci" & ChrW(243) & "n de la corriente. " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " r =" Cells(m + 8, n + 5).FormulaR1C1 = "2" Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(RC[6]))*SIN(RADIANS(R[1]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(RC[5]))*SIN(RADIANS(R[1]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=COS(RADIANS(R[1]C[4]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = " phi =" Cells(m + 9, n + 5).FormulaR1C1 = "90" Cells(m + 9, n + 21).FormulaR1C1 = "El modelo permite analizar cualitativamente las direcciones de los vectores que intervienen en el fen" & ChrW(243) & "meno," 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 = " theta =" Cells(m + 10, n + 5).FormulaR1C1 = "90" Cells(m + 10, n + 21).FormulaR1C1 = "en la celda G10 puede modificar la magnitud y direcci" & ChrW(243) & "n de la corriente, en G20, G21, G22 " Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "la orientaci" & ChrW(243) & "n de la espira en el espacio; en G14, G15 y G16 las componentes del campo magn" & ChrW(233) & "tico externo," Cells(m + 3, n + 1).Interior.Color = "16777075" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "phi" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 17 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "phi" Cells(m + 3, n + 4).FormulaR1C1 = "Escala de la espira:" Cells(m + 3, n + 21).FormulaR1C1 = " en G26 el tama" & ChrW(233) & "o de la espira. Oprima el bot" & ChrW(243) & "n de simulaci" & ChrW(243) & "n >> para hacer rotar la espira con respecto " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "al campo magn" & ChrW(233) & "tico y observar el comportamiento de las fuerzas magn" & ChrW(233) & "ticas sobre los segmentos de la espira. " 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 = " A =" Cells(m + 5, n + 5).FormulaR1C1 = "2" Cells(m + 6, n + 21).FormulaR1C1 = "Puede observar el movimiento y la direcci" & ChrW(243) & "n de las fuerzas desde diferentes perspectivas con los botones " 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 = "Magnitud de las fuerzas:" Cells(m + 7, n + 21).FormulaR1C1 = "XYZ, YZ, XZ, XY." Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=-SIN(RADIANS(R[-9]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=COS(RADIANS(R[-9]C[5]))" 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 = "F1=" Cells(m + 9, n + 5).FormulaR1C1 = "=SQRT(R[117]C[-6]^2+R[117]C[-5]^2+R[117]C[-4]^2)" Cells(m + 9, n + 21).FormulaR1C1 = "Ejercicio:" 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 = "F2=" Cells(m + 10, n + 5).FormulaR1C1 = "=SQRT(R[134]C[-6]^2+R[134]C[-5]^2+R[134]C[-4]^2)" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "F3=" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[124]C[-6]^2+R[124]C[-5]^2+R[124]C[-4]^2)" Cells(m + 11, n + 21).FormulaR1C1 = "1. Identifique cualitativamente la posici" & ChrW(243) & "nn de la espira m" & ChrW(225) & "s estable y la menos estable con respecto al " Cells(m + 3, n + 1).Interior.Color = "65535" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "theta" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 16 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "theta" Cells(m + 3, n + 4).FormulaR1C1 = "F4=" Cells(m + 3, n + 5).FormulaR1C1 = "=SQRT(R[141]C[-6]^2+R[141]C[-5]^2+R[141]C[-4]^2)" Cells(m + 3, n + 22).FormulaR1C1 = "campo magn" & ChrW(233) & "tico." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "2. ÀEn qu" & ChrW(233) & " posiciones su energ" & ChrW(237) & "a potencial es m" & ChrW(225) & "xima y en cu" & ChrW(225) & "l es m" & ChrW(237) & "nima?" 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 = "3. Busque en la literatura las f" & ChrW(243) & "rmulas de torque y energ" & ChrW(237) & "a potencial de la espira con corriente en un campo " Cells(m + 6, n + 22).FormulaR1C1 = "magn" & ChrW(233) & "tico y halle las posiciones en las que " 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) el torque es m" & ChrW(225) & "ximo," Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "b) el torque es m" & ChrW(237) & "nimo," Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[-18]C[6]))*COS(RADIANS(R[-17]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[-18]C[5]))*COS(RADIANS(R[-17]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=-SIN(RADIANS(R[-17]C[4]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "c) el torque tiene un valor intermedio," 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 = "d) la energ" & ChrW(237) & "a potencial es m" & ChrW(225) & "xima," Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "e) la energ" & ChrW(237) & "a potencial es m" & ChrW(237) & "nima," Cells(m + 3, n + 1).Interior.Color = "16777215" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "µ" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 15 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "µ" Cells(m + 3, n + 22).FormulaR1C1 = "f) la energ" & ChrW(237) & "a potencial tiene un valor intermedio," 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 + 6, n + -1).FormulaR1C1 = "µox" Cells(m + 6, n + 0).FormulaR1C1 = "µoy" Cells(m + 6, n + 1).FormulaR1C1 = "µoz" 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 = "=SIGN(R[-38]C[6])*(R[-9]C+R[-37]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[-18]C[2]*R[-18]C*R[-9]C[2]-R[-18]C[2]*R[-18]C[2]*R[-9]C)+R[-37]C*(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIGN(R[-38]C[5])*(R[-9]C+R[-37]C*(-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[-37]C[-1]*(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=SIGN(R[-38]C[4])*(R[-9]C+R[-37]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[-37]C[-2]*(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "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 = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" 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[-27]C*R[-31]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C*R[-31]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C*R[-31]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "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[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "0" 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 = "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 + 63 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "8" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 6, n + -1).FormulaR1C1 = "I2ox" Cells(m + 6, n + 0).FormulaR1C1 = "I2oy" Cells(m + 6, n + 1).FormulaR1C1 = "I2oz" 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 = "I2x" Cells(m + 8, n + 0).FormulaR1C1 = "I2y" Cells(m + 8, n + 1).FormulaR1C1 = "I2z" 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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "9" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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[-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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "10" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-9]C" 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 = "=R[-18]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 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 + 90 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "11" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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[-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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "12" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 6, n + -1).FormulaR1C1 = "I6ox" Cells(m + 6, n + 0).FormulaR1C1 = "I6oy" Cells(m + 6, n + 1).FormulaR1C1 = "I6oz" 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 = "I6x" Cells(m + 8, n + 0).FormulaR1C1 = "I6y" Cells(m + 8, n + 1).FormulaR1C1 = "I6z" 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 = "=-R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-9]C" 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 = "=R[-18]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 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 + 108 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "13" 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 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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[-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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 117 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "14" 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 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 6, n + -1).FormulaR1C1 = "I8ox" Cells(m + 6, n + 0).FormulaR1C1 = "I8oy" Cells(m + 6, n + 1).FormulaR1C1 = "I8oz" 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 = "I8x" Cells(m + 8, n + 0).FormulaR1C1 = "I8y" Cells(m + 8, n + 1).FormulaR1C1 = "I8z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-63]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-63]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-63]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-9]C" 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 = "=R[-18]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 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 = "B" Call AddNewVector End If ' vector ends If m = m1 + 126 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "15" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "o[1]x=[-2;2]o2[1]y=[0;4]o3[1]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,001802885s" Cells(m + 5, n + -1).FormulaR1C1 = "26" Cells(m + 5, n + 0).FormulaR1C1 = "3" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 8, n + -1).FormulaR1C1 = "2" Cells(m + 8, n + 0).FormulaR1C1 = "4" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Magnetic field position"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-124]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-123]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-122]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Magnetic field"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=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 = "10498160" 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 = "F1" Call AddNewVector End If ' vector ends If m = m1 + 135 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "16" Cells(m + 3, n + 0).FormulaR1C1 = "F1" 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[-81]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-81]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-137]C[6])*(R[-81]C[1]*R[-9]C[2]-R[-81]C[2]*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-137]C[5])*(-R[-81]C[-1]*R[-9]C[1]+R[-81]C[1]*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-137]C[4])*(R[-81]C[-2]*R[-9]C[-1]-R[-81]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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "11826222" 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 = "F3" Call AddNewVector End If ' vector ends If m = m1 + 144 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "17" Cells(m + 3, n + 0).FormulaR1C1 = "F3" 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[-54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-146]C[6])*(R[-54]C[1]*R[-18]C[2]-R[-54]C[2]*R[-18]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-146]C[5])*(-R[-54]C[-1]*R[-18]C[1]+R[-54]C[1]*R[-18]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-146]C[4])*(R[-54]C[-2]*R[-18]C[-1]-R[-54]C[-1]*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 + 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 = "11826222" 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 = "F2" Call AddNewVector End If ' vector ends If m = m1 + 153 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "18" Cells(m + 3, n + 0).FormulaR1C1 = "F2" 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[-81]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-81]C" Cells(m + 8, n + -1).FormulaR1C1 = "F2x" Cells(m + 8, n + 0).FormulaR1C1 = "F2y" Cells(m + 8, n + 1).FormulaR1C1 = "F2z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-155]C[6])*(R[-81]C[1]*R[-27]C[2]-R[-81]C[2]*R[-27]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-155]C[5])*(-R[-81]C[-1]*R[-27]C[1]+R[-81]C[1]*R[-27]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-155]C[4])*(R[-81]C[-2]*R[-27]C[-1]-R[19]C[-1]*R[-27]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 = "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 = "11826222" 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 = "F4" Call AddNewVector End If ' vector ends If m = m1 + 162 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "19" Cells(m + 3, n + 0).FormulaR1C1 = "F4" 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[-54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C" Cells(m + 8, n + -1).FormulaR1C1 = "F4x" Cells(m + 8, n + 0).FormulaR1C1 = "F4y" Cells(m + 8, n + 1).FormulaR1C1 = "F4z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-164]C[6])*(R[-54]C[1]*R[-36]C[2]-R[-54]C[2]*R[-36]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-164]C[5])*(-R[-54]C[-1]*R[-36]C[1]+R[-54]C[1]*R[-36]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-164]C[4])*(R[-54]C[-2]*R[-36]C[-1]-R[-54]C[-1]*R[-36]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 = "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 = "11826222" 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 = 19 End If ' vector ends If m = m1 + 162 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_27_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 27_Loop in a Magnetic Field_EN ' Updated: 12/08/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 27 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 + 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 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 1,160156 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "40" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "ngulo """ 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 = "z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "ESPIRA RECTANGULAR CON CORRIENTE EN UN CAMPO MAGN" & ChrW(201) & "TICO EXTERNO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " La fuerza que experimenta un vector elemento (o trozo) de corriente IL por parte de un campo magn" & ChrW(233) & "tico externo se expresa por la ecuaci" & ChrW(243) & "n vectorial:" & Chr(10) & _ " F = IL x B" & Chr(10) & _ " Si un alambre cerrado de forma rectangular con corriente est" & ChrW(225) & " compuesto de 4 partes rectil" & ChrW(237) & "neas, entonces cada parte experimenta una fuerza diferente en diferente direcci" & ChrW(243) & "n de acuerdo a la orientaci" & ChrW(243) & "n mutua del elemento de corriente y el campo externo, en donde elemento de corriente se llama al producto de la corriente por la longitud del alambre: IL y es un vector que va en direcci" & ChrW(243) & "n de la corriente. " & Chr(10) & _ " En el modelo, en la celda E9 puede modificar la magnitud y direcci" & ChrW(243) & "n de la corriente, en E11, E12, E13 la posici" & ChrW(243) & "n de la espira en el espacio; en E17, E18 y E19 las componentes del campo magn" & ChrW(233) & "tico externo, en E23 el tama" & ChrW(233) & "o de la espira. Con el bot" & ChrW(243) & "n 1 By 1 puede cambiar la orientaci" & ChrW(243) & "n de la espira con respecto al campo magn" & ChrW(233) & "tico y observar el comportamiento de las fuerzas magn" & ChrW(233) & "ticas sobre los segmentos de la espira. " & Chr(10) & _ " Con el bot" & ChrW(243) & "n Run puede hacer rotar la espira 360 grados y observar los cambios en las fuerzas. El bot" & ChrW(243) & "n Set to zero lleva la espira a la posici" & ChrW(243) & "n inicial. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " RECTANGULAR LOOP WITH CURRENT IN EXTERNAL MAGNETIC FIELD" & Chr(10) & _ " The force experienced by a current vector element (or piece) IL coming from an external magnetic field is expressed by the vector equation:" & Chr(10) & _ " F = IL x B" & Chr(10) & _ " If a rectangular closed wire with current is composed of 4 rectilinear parts, then each part experiences a different force in a different direction depending on the mutual orientation of the current element and the external field, where the current element is called the product of the current and the rectilinear cable element: IL and is a vector that goes in the direction of the current." & Chr(10) & _ " In the model, in cell E9 the magnitude and direction of the current can be modified, in E11, E12, E13 the position of the loop in space; in E17, E18 and E19 the components of the external magnetic field, in E23 the size of the loop. With the 1 By 1 button you can change the orientation of the loop with respect to the magnetic field and observe the behavior of the magnetic forces on the segments of the loop." & Chr(10) & _ " With the Run button, you can rotate the loop 360 degrees and watch the changes in forces. The Set to Zero button returns the loop to the starting position." On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 19 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 = "z" 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 = "Current loop in a magnetic field" Cells(m + 4, n + 12).FormulaR1C1 = "CURRENT LOOP IN A MAGNETIC FIELD" 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 + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "2" Cells(m + 7, n + 2).FormulaR1C1 = "<< -- Position of the loop" Cells(m + 7, n + 4).FormulaR1C1 = "Current:" Cells(m + 7, n + 5).FormulaR1C1 = "-1" Cells(m + 8, n + -1).FormulaR1C1 = "=SIN(RADIANS(R[-6]C[8]))" Cells(m + 8, n + 0).FormulaR1C1 = "=1-COS(RADIANS(R[-6]C[7]))" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "The force experienced by a current element vector IL by an external magnetic field is expressed by " Cells(m + 9, n + -1).FormulaR1C1 = "=R20C7*R[9]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R20C7*R[9]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R20C7*R[9]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Magnetic field:" Cells(m + 9, n + 21).FormulaR1C1 = "the vector equation:" 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 = " Bx =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 24).FormulaR1C1 = " F = IL x B." Cells(m + 3, n + 1).Interior.Color = "14408667" 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 + 9 Then ' vector 18 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = " By =" 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 = " Bz =" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "If a closed rectangular wire with current is composed of 4 rectilinear parts, then each part experiences " 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 = "a different force in a different direction according to the mutual orientation of the current element " Cells(m + 6, n + 4).FormulaR1C1 = "Loop orientation:" Cells(m + 6, n + 21).FormulaR1C1 = "and the external field, where the product is called the current element. of the current times the length " 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 = "of the wire, IL, and is a vector that goes in the direction of the current." Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = " r =" Cells(m + 8, n + 5).FormulaR1C1 = "2" Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(RC[6]))*SIN(RADIANS(R[1]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(RC[5]))*SIN(RADIANS(R[1]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=COS(RADIANS(R[1]C[4]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = " phi =" Cells(m + 9, n + 5).FormulaR1C1 = "90" Cells(m + 9, n + 21).FormulaR1C1 = "The model allows to qualitatively analyze the directions of the vectors involved in the phenomenon, in cell " 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 = " theta =" Cells(m + 10, n + 5).FormulaR1C1 = "90" Cells(m + 10, n + 21).FormulaR1C1 = "G10 it can modify the magnitude and direction of the current, in G20, G21, G22 the orientation of the " Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "loop in space; in G14, G15 and G16 the components of the external magnetic field, in G26 the size " Cells(m + 3, n + 1).Interior.Color = "16777075" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "phi" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 17 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "phi" Cells(m + 3, n + 4).FormulaR1C1 = "Loop scale:" Cells(m + 3, n + 21).FormulaR1C1 = "of the loop. Press the simulation button >> to rotate the loop with respect to the magnetic field " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "and observe the behavior of the magnetic forces on the loop segments." 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 = " A =" Cells(m + 5, n + 5).FormulaR1C1 = "2" Cells(m + 6, n + 21).FormulaR1C1 = "You can observe the movement and direction of forces from different perspectives with the XYZ, YZ, XZ, XY buttons." 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 = "Magnitude of the forces" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Exercise:" Cells(m + 9, n + -1).FormulaR1C1 = "=-SIN(RADIANS(R[-9]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=COS(RADIANS(R[-9]C[5]))" 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 = "F1=" Cells(m + 9, n + 5).FormulaR1C1 = "=SQRT(R[117]C[-6]^2+R[117]C[-5]^2+R[117]C[-4]^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 = "F2=" Cells(m + 10, n + 5).FormulaR1C1 = "=SQRT(R[134]C[-6]^2+R[134]C[-5]^2+R[134]C[-4]^2)" Cells(m + 10, n + 21).FormulaR1C1 = "1. Qualitatively identify the position of the most stable and least stable loop with respect to the magnetic field." Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "F3=" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[124]C[-6]^2+R[124]C[-5]^2+R[124]C[-4]^2)" Cells(m + 11, n + 21).FormulaR1C1 = "2. In which positions is its potential energy maximum and in which is it minimum?" Cells(m + 3, n + 1).Interior.Color = "65535" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "theta" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 16 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 3, n + 0).FormulaR1C1 = "theta" Cells(m + 3, n + 4).FormulaR1C1 = "F4=" Cells(m + 3, n + 5).FormulaR1C1 = "=SQRT(R[141]C[-6]^2+R[141]C[-5]^2+R[141]C[-4]^2)" Cells(m + 3, n + 21).FormulaR1C1 = "3. Search the literature for the formulas for torque and potential energy of the loop with current in a " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "magnetic field and find the positions in which" 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) the torque is maximum," Cells(m + 6, n + 22).FormulaR1C1 = "b) the torque is minimal," 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 = "c) the torque has an intermediate value," Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "d) the potential energy is maximum," Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[-18]C[6]))*COS(RADIANS(R[-17]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[-18]C[5]))*COS(RADIANS(R[-17]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=-SIN(RADIANS(R[-17]C[4]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "e) the potential energy is minimal," 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 = "f) the potential energy has an intermediate value," Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1,5" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "16777215" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "µ" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 15 Cells(m + 3, n + -1).FormulaR1C1 = "5" Cells(m + 3, n + 0).FormulaR1C1 = "µ" 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 + 6, n + -1).FormulaR1C1 = "µox" Cells(m + 6, n + 0).FormulaR1C1 = "µoy" Cells(m + 6, n + 1).FormulaR1C1 = "µoz" 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 = "=SIGN(R[-38]C[6])*(R[-9]C+R[-37]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[-18]C[2]*R[-18]C*R[-9]C[2]-R[-18]C[2]*R[-18]C[2]*R[-9]C)+R[-37]C*(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1]))" Cells(m + 9, n + 0).FormulaR1C1 = "=SIGN(R[-38]C[5])*(R[-9]C+R[-37]C*(-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[-37]C[-1]*(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=SIGN(R[-38]C[4])*(R[-9]C+R[-37]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[-37]C[-2]*(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "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 = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" 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[-27]C*R[-31]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C*R[-31]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C*R[-31]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "15773696" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "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[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "0" 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 = "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 + 63 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "8" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 6, n + -1).FormulaR1C1 = "I2ox" Cells(m + 6, n + 0).FormulaR1C1 = "I2oy" Cells(m + 6, n + 1).FormulaR1C1 = "I2oz" 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 = "I2x" Cells(m + 8, n + 0).FormulaR1C1 = "I2y" Cells(m + 8, n + 1).FormulaR1C1 = "I2z" 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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "9" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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[-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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "10" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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" Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-9]C" 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 = "=R[-18]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 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 + 90 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "11" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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[-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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "12" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 6, n + -1).FormulaR1C1 = "I6ox" Cells(m + 6, n + 0).FormulaR1C1 = "I6oy" Cells(m + 6, n + 1).FormulaR1C1 = "I6oz" 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 = "I6x" Cells(m + 8, n + 0).FormulaR1C1 = "I6y" Cells(m + 8, n + 1).FormulaR1C1 = "I6z" 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 = "=-R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=-R[-27]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-9]C" 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 = "=R[-18]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 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 + 108 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "13" 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 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" 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[-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 = "=R[-9]C" 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 = "=R[-9]C" 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 117 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "14" 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 = "=R[-9]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 6, n + -1).FormulaR1C1 = "I8ox" Cells(m + 6, n + 0).FormulaR1C1 = "I8oy" Cells(m + 6, n + 1).FormulaR1C1 = "I8oz" 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 = "I8x" Cells(m + 8, n + 0).FormulaR1C1 = "I8y" Cells(m + 8, n + 1).FormulaR1C1 = "I8z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-63]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-63]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-63]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-9]C" 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 = "=R[-18]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 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 = "B" Call AddNewVector End If ' vector ends If m = m1 + 126 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "15" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "o[1]x=[-2;2]o2[1]y=[0;4]o3[1]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,001802885s" Cells(m + 5, n + -1).FormulaR1C1 = "26" Cells(m + 5, n + 0).FormulaR1C1 = "3" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 8, n + -1).FormulaR1C1 = "2" Cells(m + 8, n + 0).FormulaR1C1 = "4" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Magnetic field position"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-124]C[6]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-123]C[5]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-122]C[4]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Magnetic field"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=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 = "10498160" 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 = "F1" Call AddNewVector End If ' vector ends If m = m1 + 135 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "16" Cells(m + 3, n + 0).FormulaR1C1 = "F1" 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[-81]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-81]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-137]C[6])*(R[-81]C[1]*R[-9]C[2]-R[-81]C[2]*R[-9]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-137]C[5])*(-R[-81]C[-1]*R[-9]C[1]+R[-81]C[1]*R[-9]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-137]C[4])*(R[-81]C[-2]*R[-9]C[-1]-R[-81]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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "11826222" 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 = "F3" Call AddNewVector End If ' vector ends If m = m1 + 144 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "17" Cells(m + 3, n + 0).FormulaR1C1 = "F3" 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[-54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-146]C[6])*(R[-54]C[1]*R[-18]C[2]-R[-54]C[2]*R[-18]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-146]C[5])*(-R[-54]C[-1]*R[-18]C[1]+R[-54]C[1]*R[-18]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-146]C[4])*(R[-54]C[-2]*R[-18]C[-1]-R[-54]C[-1]*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 + 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 = "11826222" 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 = "F2" Call AddNewVector End If ' vector ends If m = m1 + 153 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "18" Cells(m + 3, n + 0).FormulaR1C1 = "F2" 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[-81]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-81]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-81]C" Cells(m + 8, n + -1).FormulaR1C1 = "F2x" Cells(m + 8, n + 0).FormulaR1C1 = "F2y" Cells(m + 8, n + 1).FormulaR1C1 = "F2z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-155]C[6])*(R[-81]C[1]*R[-27]C[2]-R[-81]C[2]*R[-27]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-155]C[5])*(-R[-81]C[-1]*R[-27]C[1]+R[-81]C[1]*R[-27]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-155]C[4])*(R[-81]C[-2]*R[-27]C[-1]-R[19]C[-1]*R[-27]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 = "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 = "11826222" 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 = "F4" Call AddNewVector End If ' vector ends If m = m1 + 162 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "19" Cells(m + 3, n + 0).FormulaR1C1 = "F4" 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[-54]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C" Cells(m + 8, n + -1).FormulaR1C1 = "F4x" Cells(m + 8, n + 0).FormulaR1C1 = "F4y" Cells(m + 8, n + 1).FormulaR1C1 = "F4z" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=ABS(R[-164]C[6])*(R[-54]C[1]*R[-36]C[2]-R[-54]C[2]*R[-36]C[1])" Cells(m + 9, n + 0).FormulaR1C1 = "=ABS(R[-164]C[5])*(-R[-54]C[-1]*R[-36]C[1]+R[-54]C[1]*R[-36]C[-1])" Cells(m + 9, n + 1).FormulaR1C1 = "=ABS(R[-164]C[4])*(R[-54]C[-2]*R[-36]C[-1]-R[-54]C[-1]*R[-36]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 = "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 = "11826222" 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 = 19 End If ' vector ends If m = m1 + 162 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_28_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 28_Ley de Biot - Savart_ES ' Updated: 7/03/25 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 28 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 = "2" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,51)" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",27*R[38]C[4]+23,77)" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,203125 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1000" 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 = "B" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO MAGN" & ChrW(201) & "TICO DE UNA CORRIENTE" & Chr(10) & _ " ÊÊ Ê El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn" & ChrW(233) & "tico de un segmento de corriente de forma casi arbitraria" & Chr(10) & _ " ÊÊ Ê El campo magn" & ChrW(233) & "tico dB de un elemento infinitesimal de corriente IdL en cualquier punto del espacio a una distancia r del elemento de corriente se calcula por la f" & ChrW(243) & "rmula de Biot-Savart:" & Chr(10) & _ " ÊÊ Ê dB=K[IdL x r]/r^3," & Chr(10) & _ " ÊÊ Ê en donde K es una constante que depende del sistema de unidades. El campo resultante de varios elementos de corriente es la suma vectorial de cada uno de los campos. En el presente modelo se analiza inicialmente el campo de 6 elementos de corriente y luego el usuario le puede agregar m" & ChrW(225) & "s elementos a la corriente y cambiar su forma con ayuda de los " & ChrW(225) & "ngulos phi y theta. Las coordenadas del campo resultante B se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G11 (cuando el valor de E9=0)." & Chr(10) & _ " ÊÊ Ê La posici" & ChrW(243) & "n inicial de la corriente y su orientaci" & ChrW(243) & "n se pueden modificar en las celdas E22, E23, E24 y E25, la magnitud de la corriente y su signo enÊ E26,Ê y la constante K de la ley de Biot-Savart en E27.Ê La forma del alambre se puede moldear cambiando el " & ChrW(225) & "ngulo inicial phi en E29 y su incremento en F29 (cada dL se va orientando progresivamente con este incremento), lo mismo para el " & ChrW(225) & "ngulo theta en E30 y su incremento en F30." & Chr(10) & _ " ÊÊ Ê Para visualizar u ocultar los radios de cada dLÊ utilice la celda E16 con valores de 0 a 1: E16=0 visible y E16=1 invisible; lo mismo con la celda E17 para losÊ vectores campo magn" & ChrW(233) & "tico de cada dB." & Chr(10) & _ " ÊÊ Ê Para visualizar el campo magn" & ChrW(233) & "tico en una regi" & ChrW(243) & "n del espacio en diferentes tipos de coordenadas utilice la celda E9: E9=0 para calcular el campo en un punto espec" & ChrW(237) & "fico del espacio, indicando el punto del espacio en las celdas A11, B11 y C11. Ingrese E9=1 para visualizar el campo en coordenadas cartesianas, y los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n se modifican en la cadena de valores de E10. Ingrese E9=2 para visualizar en coordenadas cil" & ChrW(237) & "ndricas, y sus par" & ChrW(225) & "metros en E11. Ingrese E9=3 para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros en E12." & Chr(10) & _ " AGREGAR NUEVOS ELEMENTOS dL:" & Chr(10) & _ " ÊÊ Ê Para agregar un elemento m" & ChrW(225) & "s de corriente, copie las filas enteras de la hoja desde la 51 hasta la 77 y p" & ChrW(233) & "guelas despu" & ChrW(233) & "s de la " & ChrW(250) & "ltima fila. Oprima cualquier bot" & ChrW(243) & "n de visualizaci" & ChrW(243) & "n para ver resultados, la cantidad de elementos de corriente se muestra en la celda E19. Repita este procedimiento para agregar m" & ChrW(225) & "s dL a la corriente. Entre m" & ChrW(225) & "s elementos dL tenga la corriente su campo magn" & ChrW(233) & "tico resultante se va pareciendo m" & ChrW(225) & "s al real. La longitud de cada dL se puede modificar en E28.Ê" & Chr(10) & _ " Por ejemplo para dibujar una espira con corriente con 36 elementos dL, copie desde la fila 51 hasta la 77 y pegue al final 30 veces hasta que E19 tenga el valor de 36, luego coloque theta E30 =90 e incremente phi F29=10. Oprima XYZ. Los elementos van reorient" & ChrW(225) & "ndose de 10 en 10 grados hasta que los 36 elementos forman un c" & ChrW(237) & "rculo.Ê" & Chr(10) & _ " AGREGAR UNA NUEVA DISTRIBUCI" & ChrW(211) & "N:Ê" & Chr(10) & _ " Se puede agregar una nueva distribuci" & ChrW(243) & "n independiente (por ejemplo otro c" & ChrW(237) & "rculo con corriente). Para ello haga una copia de la hoja (click derecho sobre el nombre de la hoja, luego seleccione mover o copiar, y luego crear una copia). Vaya a la hoja copiada, seleccione las filas completas desde la 15 hasta la " & ChrW(250) & "ltima, corte y vaya a la hoja original y pegue despu" & ChrW(233) & "s de la " & ChrW(250) & "ltima fila. Elimine la hoja copiada y en la hoja original corrija las f" & ChrW(243) & "rmulas que tienen direcci" & ChrW(243) & "n hacia la hoja borrada, estas on el n" & ChrW(250) & "mero del vector a y su posici" & ChrW(243) & "n.Ê" & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Campo magn" & ChrW(233) & "tico de corrientes" Cells(m + 4, n + 12).FormulaR1C1 = "LEY DE BIOT - SAVART" 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 + 5, n + 12).FormulaR1C1 = "CAMPO MAGN" & ChrW(201) & "TICO DE CORRIENTES" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""B*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""B*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""B*"")" Cells(m + 6, n + 4).FormulaR1C1 = "RESULTADO (No modificar):" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 2).FormulaR1C1 = " Magnitud del campo:" Cells(m + 7, n + 4).FormulaR1C1 = "=IF(R[-3]C[-3]="""","" |B| (T) ="","""")" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(R[-3]C[-4]="""",SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),"""")" Cells(m + 8, n + -1).FormulaR1C1 = "0.1" Cells(m + 8, n + 0).FormulaR1C1 = "0.1" Cells(m + 8, n + 1).FormulaR1C1 = "0.1" Cells(m + 8, n + 2).FormulaR1C1 = "<<-- Punto del campo B" Cells(m + 8, n + 21).FormulaR1C1 = "CAMPO MAGN" & ChrW(201) & "TICO DE UNA CORRIENTE" 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 + 21).FormulaR1C1 = "El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn" & ChrW(233) & "tico " 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 = "de un segmento de corriente de forma casi arbitraria." 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 + 19).FormulaR1C1 = "=IF(R[-1]C[-19]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + 21).FormulaR1C1 = "El campo magn" & ChrW(233) & "tico dB de un elemento infinitesimal de corriente IdL en cualquier punto del espacio " Cells(m + 3, n + 1).Interior.Color = "13434777" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "a" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "a" Cells(m + 3, n + 4).FormulaR1C1 = "DATOS INICIALES:" Cells(m + 3, n + 21).FormulaR1C1 = "a una distancia r del elemento de corriente se calcula por la f" & ChrW(243) & "rmula de Biot-Savart:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "(inserte sus ddatos)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = " I (A)=" Cells(m + 5, n + 5).FormulaR1C1 = "80000" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-28-1)" Cells(m + 6, n + -1).FormulaR1C1 = "=R[-7]C-R[1]C" Cells(m + 6, n + 0).FormulaR1C1 = "=R[-7]C-R[1]C" Cells(m + 6, n + 1).FormulaR1C1 = "=R[-7]C-R[1]C" Cells(m + 6, n + 4).FormulaR1C1 = " dL (m)=" Cells(m + 6, n + 5).FormulaR1C1 = "0.03" Cells(m + 7, n + -1).FormulaR1C1 = "=R[3]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[4]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = " K (Tm/A)=" Cells(m + 7, n + 5).FormulaR1C1 = "0.0000001" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "en donde K es una constante que depende del sistema de unidades. El campo resultante de varios " Cells(m + 9, n + -1).FormulaR1C1 = "=R[4]C[6]*COS(RADIANS(R[6]C[6]))*SIN(RADIANS(R[7]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R[4]C[5]*SIN(RADIANS(R[6]C[5]))*SIN(RADIANS(R[7]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R[4]C[4]*COS(RADIANS(R[7]C[4]))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Origen:" Cells(m + 9, n + 21).FormulaR1C1 = "elementos de corriente es la suma vectorial de cada uno de los campos, es decir, para n elementos " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " x_o (m)=" Cells(m + 10, n + 5).FormulaR1C1 = "0.06" Cells(m + 10, n + 21).FormulaR1C1 = "de corriente el campo resultante es " 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 = " y_o (m)=" Cells(m + 11, n + 5).FormulaR1C1 = "0.06" Cells(m + 3, n + 1).Interior.Color = "16777215" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "dL" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "dL" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 4).FormulaR1C1 = " z_o (m)=" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-28-2)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = " r_o (m)=" Cells(m + 4, n + 5).FormulaR1C1 = "0" 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 = "Inclinaci" & ChrW(243) & "n:" Cells(m + 6, n + 4).FormulaR1C1 = " phi" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 21).FormulaR1C1 = "Cuando el n" & ChrW(250) & "mero de elementos tiende a infinito y la longitud de cada uno de ellos tiende a cero, " 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 = " theta" Cells(m + 7, n + 5).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "esta suma se convierte en una integral. En el presente modelo sin embargo se utilizan magnitudes " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Flexi" & ChrW(243) & "n:" Cells(m + 8, n + 21).FormulaR1C1 = "y cantidades finitas." Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Azimut:" Cells(m + 9, n + 5).FormulaR1C1 = "0" Cells(m + 9, n + 21).FormulaR1C1 = "Aqu" & ChrW(237) & " se analiza inicialmente el campo de unos pocos elementos de corriente y luego el lector" Cells(m + 10, n + -1).FormulaR1C1 = "=IF(R[-14]C[6]<0,3,1)" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "Elevaci" & ChrW(243) & "n:" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "puede agregar m" & ChrW(225) & "s y cambiar su forma con ayuda de los " & ChrW(225) & "ngulos de flexi" & ChrW(243) & "n. Las coordenadas del " Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R[-15]C[6]>0,3,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 + 11, n + 21).FormulaR1C1 = "campo resultante B se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G10." Cells(m + 3, n + 1).Interior.Color = "6740479" 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 11 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = "VISUALIZACI" & ChrW(211) & "N:" Cells(m + 3, n + 21).FormulaR1C1 = "La posici" & ChrW(243) & "n inicial del alambre y su orientaci" & ChrW(243) & "n se pueden modificar en las celdas G22, G23, G24 y G25, " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "su inclinaci" & ChrW(243) & "n en G27 y G28, su flexi" & ChrW(243) & "n a lo largo del azimut en G30 y flexi" & ChrW(243) & "n con " & ChrW(225) & "ngulo de elevaci" & ChrW(243) & "n " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 4).FormulaR1C1 = "Mostrar/ocultar:" Cells(m + 5, n + 21).FormulaR1C1 = "en G31. La magnitud de la corriente y su signo se modifican en G17, la constante K de la ley de " Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 4).FormulaR1C1 = "radios:" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "Biot-Savart en G19 y la longitud de cada elemento de corriente se establece en la celda G18." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 7, n + 4).FormulaR1C1 = "dB:" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 7, n + 21).FormulaR1C1 = "Para visualizar u ocultar los radios de cada dLÊ utilice la celda G37 con valores de 0 a 1: G37 =0 visible " Cells(m + 8, n + -1).FormulaR1C1 = "B fiel radious" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "y G37 =1 invisible; lo mismo con la celda G38 para losÊ vectores campo magn" & ChrW(233) & "tico de cada dB." Cells(m + 9, n + -1).FormulaR1C1 = "=R18C1-R21C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C2-R21C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C3-R21C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "CANTIDAD DE dL:" Cells(m + 9, n + 21).FormulaR1C1 = "Para visualizar el campo magn" & ChrW(233) & "tico en una regi" & ChrW(243) & "n del espacio en diferentes tipos de 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 + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "utilice la celda C7: C7 vac" & ChrW(237) & "a para calcular el campo en un punto espec" & ChrW(237) & "fico del espacio, indicando " 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 = " n =" Cells(m + 11, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""B""&R[2]C&""_*"")" Cells(m + 11, n + 21).FormulaR1C1 = "el punto del espacio en las celdas A11, B11 y C11. Ingrese C7 =o para visualizar el campo en coordenadas " Cells(m + 3, n + 1).Interior.Color = "11826222" 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 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 4).FormulaR1C1 = " L =" Cells(m + 3, n + 5).FormulaR1C1 = "=R[-1]C*R[-24]C" Cells(m + 3, n + 21).FormulaR1C1 = "cartesianas, y los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n se modifican en la misma celda luego de oprimir XYZ. " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "No. alambre:" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "Ingrese C7 =c para visualizar en coordenadas cil" & ChrW(237) & "ndricas, y finalmente introduzca " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "C7 =s para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros en posteriormente en la misma celda.." 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 = "AGREGAR NUEVOS ELEMENTOS dL:" Cells(m + 8, n + -1).FormulaR1C1 = "Field dB" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Para agregar un elemento m" & ChrW(225) & "s de corriente oprima el bot" & ChrW(243) & "n +OBJ y para eliminar un elemento " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 21).FormulaR1C1 = "de corriente use el bot" & ChrW(243) & "n - OBJ. Oprima cualquier bot" & ChrW(243) & "n de visualizaci" & ChrW(243) & "n para ver " 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 = "resultados, la cantidad de elementos de corriente se muestra en la celda G11. Entre m" & ChrW(225) & "s " 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 = "elementos dL tenga la corriente, su campo magn" & ChrW(233) & "tico resultante se va pareciendo m" & ChrW(225) & "s al real. " 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 + 45 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "Para agregar o quitar varios elementos a la vez indique en la celda B2 el n" & ChrW(250) & "mero de elementos " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "antes de oprimir el respectivo bot" & ChrW(243) & "n, este n" & ChrW(250) & "mero debe ser entero. " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 6, n + 21).FormulaR1C1 = "AGREGAR UNA NUEVA CORRIENTE:" 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 = "El modelo permite clonar corrientes y cambiar los par" & ChrW(225) & "metros de la corriente clonada. Para ello introduzca" Cells(m + 8, n + 0).FormulaR1C1 = "dL" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "B2=ENTIRE, B3=15 y en C3 escriba el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a y sin color de la columna A," Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "la cual depende de cu" & ChrW(225) & "ntos elementos tenga la corriente original. Oprima el bot" & ChrW(243) & "n +OBJ. Se agregar" & ChrW(225) & " la nueva" 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 = "corriente, cuyos par" & ChrW(225) & "metros se podr" & ChrW(225) & "n observar y modificar en la columna G al final de la hoja. En la" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "celda contigua a ""No. alambre"" escriba el n" & ChrW(250) & "mero consecutivo para el nuevo alambre. Cambie la posici" & ChrW(243) & "n" Cells(m + 3, n + 1).Interior.Color = "6740479" 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 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "y los par" & ChrW(225) & "metros del nuevo alambre para poder observarlo en el sistema de coordenadas. Para agregar " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "un segundo clonado, conservando los valores de B2, B3 y C3 oprima +OBJ. De igual manera para eliminar " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 21).FormulaR1C1 = "un objeto clonado con los valores de B2, B3 y C3 ya establecidos oprima simplemente -OBJ." Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 21).FormulaR1C1 = "Ejemplos:" 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 + 0).FormulaR1C1 = "r" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "1. Estudiar el campo magn" & ChrW(233) & "tico de una espira circular de radio 57,3 mm con una corriente de 2 A . " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: " Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Primero se debe construir la espira, para ello decidiremos que vamos a construirla con 36 elementos" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "de corriente y los vamos a distrubuir con un azimut de 10 grados cada vez, es decir 36x10 = 360 " Cells(m + 3, n + 1).Interior.Color = "11826222" 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 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "grados para cerrar la espira. La longitud de la circunferencia es 2Pi x radio = L = 2x3,1416x57,3 = 360 mm" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "es decir, cada elemento debe tener una longitud aproximada de 10 mm. En el sistema SI:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 6, n + 22).FormulaR1C1 = "K:" Cells(m + 6, n + 23).FormulaR1C1 = "G19=" Cells(m + 6, n + 24).FormulaR1C1 = "0.0000001" 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 = "dL:" Cells(m + 7, n + 23).FormulaR1C1 = "G18=" Cells(m + 7, n + 24).FormulaR1C1 = "0.01" Cells(m + 8, n + 0).FormulaR1C1 = "dB" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "I:" Cells(m + 8, n + 23).FormulaR1C1 = "G17=" Cells(m + 8, n + 24).FormulaR1C1 = "2" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 22).FormulaR1C1 = "x_o:" Cells(m + 9, n + 23).FormulaR1C1 = "G22=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "y_o:" Cells(m + 10, n + 23).FormulaR1C1 = "G23=" Cells(m + 10, n + 24).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "z_o:" Cells(m + 11, n + 23).FormulaR1C1 = "G24=" Cells(m + 11, n + 24).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 + 72 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "r_o " Cells(m + 3, n + 23).FormulaR1C1 = "G25=" Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Inclinaci" & ChrW(243) & "n:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 22).FormulaR1C1 = "phi:" Cells(m + 5, n + 23).FormulaR1C1 = "G27=" Cells(m + 5, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 22).FormulaR1C1 = "theta:" Cells(m + 6, n + 23).FormulaR1C1 = "G28=" Cells(m + 6, n + 24).FormulaR1C1 = "90" 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 + 22).FormulaR1C1 = "Flexi" & ChrW(243) & "n:" Cells(m + 8, n + 0).FormulaR1C1 = "dL" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "Azimut:" Cells(m + 8, n + 23).FormulaR1C1 = "G30=" Cells(m + 8, n + 24).FormulaR1C1 = "10" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "Elevaci" & ChrW(243) & "n:" Cells(m + 9, n + 23).FormulaR1C1 = "G31=" Cells(m + 9, n + 24).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 + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "Mostrar:" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "radios:" Cells(m + 11, n + 23).FormulaR1C1 = "G36=" Cells(m + 11, n + 24).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "6740479" 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 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "dB:" Cells(m + 3, n + 23).FormulaR1C1 = "G37=" Cells(m + 3, n + 24).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Tipo de coordenadas:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 22).FormulaR1C1 = "Punto:" Cells(m + 5, n + 23).FormulaR1C1 = "C7" Cells(m + 5, n + 24).FormulaR1C1 = "vac" & ChrW(237) & "a" Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 22).FormulaR1C1 = "Punto de observaci" & ChrW(243) & "n del campo:" 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 + 22).FormulaR1C1 = "x=" Cells(m + 7, n + 23).FormulaR1C1 = "A11=" Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "y=" Cells(m + 8, n + 23).FormulaR1C1 = "B11=" Cells(m + 8, n + 24).FormulaR1C1 = "0.057" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "z=" Cells(m + 9, n + 23).FormulaR1C1 = "C11=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Para agregar los 36 elementos de corriente, verifique en G41 la cantidad existente, si G41 =4 hay que " Cells(m + 3, n + 1).Interior.Color = "11826222" 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 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "agregar 32 m" & ChrW(225) & "s. Introduzca B2=32 y oprima +OBJ, espere un momento a que Excel ejecute el comando. " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Aparecer" & ChrW(225) & " la espira en el plano XY y tocando el origen de coordenadas. Analice ahora diferentes puntos " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "para el campo modificando los valores en A11, B11, C11. Para ocultar los vectores radio, G36=1" Cells(m + 6, n + 21).FormulaR1C1 = "Si desea centrar la espira inserte G23 = - 0,057." 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 + 0).FormulaR1C1 = "dB" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Para ver el campo en todo el espacio, C7=o (sin el signo =) y espere algunos segunos o minutos para que Excel " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 21).FormulaR1C1 = "ejecute el comando. Aparecer" & ChrW(225) & " la configuraci" & ChrW(243) & "n del campo en cierta region del espacio. Para ver el campo " Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "en coordenadas cil" & ChrW(237) & "ndricas cambie el valor a C7=c y finalmente borre su contenido para regresar a la vista" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = " inicial de un solo vector. " 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 + 99 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "2. Estudiar el campo magn" & ChrW(233) & "tico de una espiral. " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: " Cells(m + 6, n + 21).FormulaR1C1 = "En el problema anterior coloque la Elevaci" & ChrW(243) & "n G31 = -0,1 para que la espiral avance hacia arriba y G30 = 20" 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 hacer rendir los mismos 36 elementos para dos vueltas. Debido al aumento del " & ChrW(225) & "ngulo azimut, el radio " Cells(m + 8, n + 0).FormulaR1C1 = "dL" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "se reducir" & ChrW(225) & ". En A11, B11, C11 modifique el punto de observaci" & ChrW(243) & "n ( verifique que C7 est" & ChrW(233) & " vac" & ChrW(237) & "a)." Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]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 = "Ejercicios:" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "6740479" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 108 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "1. Construya el modelo del campo magn" & ChrW(233) & "tico de una corriente rectil" & ChrW(237) & "nea. " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "2. Construya el modelo para una corriente en forma de semic" & ChrW(237) & "rculo." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 21).FormulaR1C1 = "3. Construya un modelo para dos corrientes: una circular y una rectil" & ChrW(237) & "nea." Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,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 + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "11826222" 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 + 117 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 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" 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 + 0).FormulaR1C1 = "dB" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" 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 = 14 End If ' vector ends If m = m1 + 117 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_28_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 28_Biot-Savart Law_EN ' Updated: 7/03/25 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 28 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 = "2" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,51)" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",27*R[38]C[4]+23,77)" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (22/11/23)" Cells(m1 + 1, n1 + 1).FormulaR1C1 = "A16" 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,0546875 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1000" 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 = "B" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO MAGN" & ChrW(201) & "TICO DE UNA CORRIENTE" & Chr(10) & _ " ÊÊ Ê El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn" & ChrW(233) & "tico de un segmento de corriente de forma casi arbitraria" & Chr(10) & _ " ÊÊ Ê El campo magn" & ChrW(233) & "tico dB de un elemento infinitesimal de corriente IdL en cualquier punto del espacio a una distancia r del elemento de corriente se calcula por la f" & ChrW(243) & "rmula de Biot-Savart:" & Chr(10) & _ " ÊÊ Ê dB=K[IdL x r]/r^3," & Chr(10) & _ " ÊÊ Ê en donde K es una constante que depende del sistema de unidades. El campo resultante de varios elementos de corriente es la suma vectorial de cada uno de los campos. En el presente modelo se analiza inicialmente el campo de 6 elementos de corriente y luego el usuario le puede agregar m" & ChrW(225) & "s elementos a la corriente y cambiar su forma con ayuda de los " & ChrW(225) & "ngulos phi y theta. Las coordenadas del campo resultante B se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G11 (cuando el valor de E9=0)." & Chr(10) & _ " ÊÊ Ê La posici" & ChrW(243) & "n inicial de la corriente y su orientaci" & ChrW(243) & "n se pueden modificar en las celdas E22, E23, E24 y E25, la magnitud de la corriente y su signo enÊ E26,Ê y la constante K de la ley de Biot-Savart en E27.Ê La forma del alambre se puede moldear cambiando el " & ChrW(225) & "ngulo inicial phi en E29 y su incremento en F29 (cada dL se va orientando progresivamente con este incremento), lo mismo para el " & ChrW(225) & "ngulo theta en E30 y su incremento en F30." & Chr(10) & _ " ÊÊ Ê Para visualizar u ocultar los radios de cada dLÊ utilice la celda E16 con valores de 0 a 1: E16=0 visible y E16=1 invisible; lo mismo con la celda E17 para losÊ vectores campo magn" & ChrW(233) & "tico de cada dB." & Chr(10) & _ " ÊÊ Ê Para visualizar el campo magn" & ChrW(233) & "tico en una regi" & ChrW(243) & "n del espacio en diferentes tipos de coordenadas utilice la celda E9: E9=0 para calcular el campo en un punto espec" & ChrW(237) & "fico del espacio, indicando el punto del espacio en las celdas A11, B11 y C11. Ingrese E9=1 para visualizar el campo en coordenadas cartesianas, y los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n se modifican en la cadena de valores de E10. Ingrese E9=2 para visualizar en coordenadas cil" & ChrW(237) & "ndricas, y sus par" & ChrW(225) & "metros en E11. Ingrese E9=3 para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros en E12." & Chr(10) & _ " AGREGAR NUEVOS ELEMENTOS dL:" & Chr(10) & _ " ÊÊ Ê Para agregar un elemento m" & ChrW(225) & "s de corriente, copie las filas enteras de la hoja desde la 51 hasta la 77 y p" & ChrW(233) & "guelas despu" & ChrW(233) & "s de la " & ChrW(250) & "ltima fila. Oprima cualquier bot" & ChrW(243) & "n de visualizaci" & ChrW(243) & "n para ver resultados, la cantidad de elementos de corriente se muestra en la celda E19. Repita este procedimiento para agregar m" & ChrW(225) & "s dL a la corriente. Entre m" & ChrW(225) & "s elementos dL tenga la corriente su campo magn" & ChrW(233) & "tico resultante se va pareciendo m" & ChrW(225) & "s al real. La longitud de cada dL se puede modificar en E28.Ê" & Chr(10) & _ " Por ejemplo para dibujar una espira con corriente con 36 elementos dL, copie desde la fila 51 hasta la 77 y pegue al final 30 veces hasta que E19 tenga el valor de 36, luego coloque theta E30 =90 e incremente phi F29=10. Oprima XYZ. Los elementos van reorient" & ChrW(225) & "ndose de 10 en 10 grados hasta que los 36 elementos forman un c" & ChrW(237) & "rculo.Ê" & Chr(10) & _ " AGREGAR UNA NUEVA DISTRIBUCI" & ChrW(211) & "N:Ê" & Chr(10) & _ " Se puede agregar una nueva distribuci" & ChrW(243) & "n independiente (por ejemplo otro c" & ChrW(237) & "rculo con corriente). Para ello haga una copia de la hoja (click derecho sobre el nombre de la hoja, luego seleccione mover o copiar, y luego crear una copia). Vaya a la hoja copiada, seleccione las filas completas desde la 15 hasta la " & ChrW(250) & "ltima, corte y vaya a la hoja original y pegue despu" & ChrW(233) & "s de la " & ChrW(250) & "ltima fila. Elimine la hoja copiada y en la hoja original corrija las f" & ChrW(243) & "rmulas que tienen direcci" & ChrW(243) & "n hacia la hoja borrada, estas on el n" & ChrW(250) & "mero del vector a y su posici" & ChrW(243) & "n.Ê" & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "375" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Magnetic field of a current" Cells(m + 4, n + 12).FormulaR1C1 = "BIOT-SAVART LAW" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 12).FormulaR1C1 = "MAGNETIC FIELD OF CURRENTS" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""B*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""B*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""B*"")" Cells(m + 6, n + 4).FormulaR1C1 = "RESULT (Do not modify):" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 2).FormulaR1C1 = "Field magnitude:" Cells(m + 7, n + 4).FormulaR1C1 = "=IF(R[-3]C[-3]="""","" |B| ="","""")" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(R[-3]C[-4]="""",SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),"""")" Cells(m + 8, n + -1).FormulaR1C1 = "0.1" Cells(m + 8, n + 0).FormulaR1C1 = "0.1" Cells(m + 8, n + 1).FormulaR1C1 = "0.1" Cells(m + 8, n + 2).FormulaR1C1 = "Number of elements dL:" Cells(m + 8, n + 21).FormulaR1C1 = "MAGNETIC FIELD OF A CURRENT" 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 = "Total length:" Cells(m + 9, n + 21).FormulaR1C1 = "The goal of this model is to understand the Biot-Savart law and calculate the magnetic field " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "of a current segment in an almost arbitrary way." 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 + 19).FormulaR1C1 = "=IF(R[-1]C[-19]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + 21).FormulaR1C1 = "The magnetic field dB of an infinitesimal current element IdL at any point in space at a distance r " Cells(m + 3, n + 1).Interior.Color = "13434777" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "a" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "a" Cells(m + 3, n + 4).FormulaR1C1 = "INITIAL DATA:" Cells(m + 3, n + 21).FormulaR1C1 = "from the current element is calculated by the Biot-Savart formula:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "(insert your data)" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 5, n + 4).FormulaR1C1 = " I =" Cells(m + 5, n + 5).FormulaR1C1 = "80000" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-28-1)" Cells(m + 6, n + -1).FormulaR1C1 = "=R[-7]C-R[1]C" Cells(m + 6, n + 0).FormulaR1C1 = "=R[-7]C-R[1]C" Cells(m + 6, n + 1).FormulaR1C1 = "=R[-7]C-R[1]C" Cells(m + 6, n + 4).FormulaR1C1 = " dL =" Cells(m + 6, n + 5).FormulaR1C1 = "0.03" Cells(m + 7, n + -1).FormulaR1C1 = "=R[3]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[4]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = " K =" Cells(m + 7, n + 5).FormulaR1C1 = "0.0000001" Cells(m + 8, n + 21).FormulaR1C1 = "where K is a constant that depends on the system of units. The resulting field of several current " Cells(m + 9, n + -1).FormulaR1C1 = "=R[4]C[6]*COS(RADIANS(R[6]C[6]))*SIN(RADIANS(R[7]C[6]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R[4]C[5]*SIN(RADIANS(R[6]C[5]))*SIN(RADIANS(R[7]C[5]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R[4]C[4]*COS(RADIANS(R[7]C[4]))" Cells(m + 9, n + 4).FormulaR1C1 = "Origin:" Cells(m + 9, n + 21).FormulaR1C1 = "elements is the vector sum of each of the fields, that is, for n current elements the resulting field is" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " x_o =" Cells(m + 10, n + 5).FormulaR1C1 = "0.06" 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 = " y_o =" Cells(m + 11, n + 5).FormulaR1C1 = "0.06" Cells(m + 3, n + 1).Interior.Color = "16777215" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "dL" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "dL" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 4).FormulaR1C1 = " z_o =" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-28-2)" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = " r_o" Cells(m + 4, n + 5).FormulaR1C1 = "0" 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 = "Inclination:" Cells(m + 5, n + 21).FormulaR1C1 = "When the number of elements tends to infinity and the length of each of them tends to zero, this " Cells(m + 6, n + 4).FormulaR1C1 = " phi" Cells(m + 6, n + 5).FormulaR1C1 = "0" Cells(m + 6, n + 21).FormulaR1C1 = "sum becomes an integral. In the present model, however, finite magnitudes and quantities " 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 = " theta" Cells(m + 7, n + 5).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "are used." Cells(m + 8, n + 4).FormulaR1C1 = "Flexion:" Cells(m + 8, n + 21).FormulaR1C1 = "Here the field of a few current elements is initially analyzed and then the reader can add more and " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 4).FormulaR1C1 = "Azimuth:" Cells(m + 9, n + 5).FormulaR1C1 = "0" Cells(m + 9, n + 21).FormulaR1C1 = "change their shape with the help of the bending angles. The coordinates of the resulting " Cells(m + 10, n + -1).FormulaR1C1 = "=IF(R[-14]C[6]<0,3,1)" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "Elevation:" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "field B are seen in cells A12=Bx, B12=By and C12=Bz and its magnitude in G10." Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R[-15]C[6]>0,3,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 + 11, n + 21).FormulaR1C1 = "The initial position of the wire and its orientation can be modified in cells G22, G23, G24 and G25, its " Cells(m + 3, n + 1).Interior.Color = "6740479" 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 11 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = "DISPLAY:" Cells(m + 3, n + 21).FormulaR1C1 = "inclination in G27 and G28, its bending along the azimuth in G30 and bending with elevation angle " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "in G31. The magnitude of the current and its sign are changed in G17, the Biot-Savart law constant " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 4).FormulaR1C1 = "Show / hide:" Cells(m + 5, n + 21).FormulaR1C1 = "K in G19, and the length of each current element is set in cell G18. To display or hide the radii of " Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 4).FormulaR1C1 = "radius:" Cells(m + 6, n + 5).FormulaR1C1 = "1" Cells(m + 6, n + 21).FormulaR1C1 = "each dLÊ use cell G37 with values from 0 to 1: G37 =0 visible and G37 =1 invisible; the same with " 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 = "dB:" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 7, n + 21).FormulaR1C1 = "cell G38 for the magnetic field vectors of each dB. To display the magnetic field in a region of " Cells(m + 8, n + -1).FormulaR1C1 = "B fiel radious" Cells(m + 8, n + 21).FormulaR1C1 = "space in different types of coordinates use cell C7: C7 empty to calculate the field at a specific " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C1-R21C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C2-R21C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C3-R21C3" Cells(m + 9, n + 4).FormulaR1C1 = "Qty of dL:" Cells(m + 9, n + 21).FormulaR1C1 = "point in space, indicating the point in space in cells A11, B11 and C11. Enter C7 =o to display 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 = "field in Cartesian coordinates, and the display parameters are modified to the value string of C7. " 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 = " n =" Cells(m + 11, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""B""&R[2]C&""_*"")" Cells(m + 11, n + 21).FormulaR1C1 = "Enter C7 =c to display in cylindrical coordinates and its parameters. Enter C7 =s for spherical " Cells(m + 3, n + 1).Interior.Color = "11826222" 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 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 4).FormulaR1C1 = " L =" Cells(m + 3, n + 5).FormulaR1C1 = "=R[-1]C*R[-24]C" Cells(m + 3, n + 21).FormulaR1C1 = "coordinates, changing its parameters in the same cell after pressing the XYZ button." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Wire No." Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "ADD NEW dL ELEMENTS:" Cells(m + 6, n + 21).FormulaR1C1 = "To add one more current element press the +OBJ button and to remove a current element use the - OBJ " 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 = "button. Press any display button to view results, the number of current elements is displayed in cell G11. " Cells(m + 8, n + -1).FormulaR1C1 = "Field dB" Cells(m + 8, n + 21).FormulaR1C1 = "The more dL elements the current has, the more its resulting magnetic field resembles the real one. " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 21).FormulaR1C1 = "To add or remove several elements at the same time, indicate in cell B2 the number of elements before " 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 = "pressing the respective button; this number must be an integer." 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 = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "ADD A NEW CURRENT:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "The model allows cloning wires with currents and changing the parameters of the cloned current. " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "To do this, enter B2=ENTIRE, B3=15 and in C3 write the number of the last non-empty and uncolored " Cells(m + 6, n + 21).FormulaR1C1 = "row of column A, which depends on how many elements the original current has. Press the +OBJ " 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 = "button. The new current will be added, whose parameters can be observed and modified in " Cells(m + 8, n + 0).FormulaR1C1 = "dL" Cells(m + 8, n + 21).FormulaR1C1 = "column G at the end of the sheet. In the cell next to ""Wire No."" type the consecutive number for " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 21).FormulaR1C1 = "the new wire. Change the position and parameters of the new wire so that it can be observed 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 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = " the coordinate system. To add a second current, keeping the values __of B2, B3 and C3 press +OBJ. " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Likewise to eliminate a cloned object, with the values __of B2, B3 and C3 already set simply press -OBJ." Cells(m + 3, n + 1).Interior.Color = "6740479" 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 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "Examples" 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 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 21).FormulaR1C1 = "1. Study the magnetic field of a circular loop of radius 57.3 mm with a current of 2 A." Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 21).FormulaR1C1 = "Solution:" 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 = "First we must build the loop, to do this we will decide that we are going to build it with 36 current elements " Cells(m + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 21).FormulaR1C1 = "and we are going to distribute them with an azimuth of 10 degrees each time, that is, 36x10 = 360 " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 21).FormulaR1C1 = "degrees to close the loop. The length of the circumference is 2Pi x radius = L = 2x3.1416x57.3 = 360, " Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "that is, each element must have an approximate length of 10 mm." Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "Insert the following initial values:" Cells(m + 3, n + 1).Interior.Color = "11826222" 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 7 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 + 4, n + 22).FormulaR1C1 = "K:" Cells(m + 4, n + 23).FormulaR1C1 = "G19=" Cells(m + 4, n + 24).FormulaR1C1 = "0.0000001" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 22).FormulaR1C1 = "dL:" Cells(m + 5, n + 23).FormulaR1C1 = "G18=" Cells(m + 5, n + 24).FormulaR1C1 = "0.01" Cells(m + 6, n + 22).FormulaR1C1 = "I:" Cells(m + 6, n + 23).FormulaR1C1 = "G17=" Cells(m + 6, n + 24).FormulaR1C1 = "2" 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 = "x_o:" Cells(m + 7, n + 23).FormulaR1C1 = "G22=" Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "dB" Cells(m + 8, n + 22).FormulaR1C1 = "y_o:" Cells(m + 8, n + 23).FormulaR1C1 = "G23=" Cells(m + 8, n + 24).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 22).FormulaR1C1 = "z_o:" Cells(m + 9, n + 23).FormulaR1C1 = "G24=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 22).FormulaR1C1 = "r_o " Cells(m + 10, n + 23).FormulaR1C1 = "G25=" Cells(m + 10, n + 24).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 22).FormulaR1C1 = "Inclination:" 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 + 72 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Phi:" Cells(m + 3, n + 23).FormulaR1C1 = "G27=" Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "theta:" Cells(m + 4, n + 23).FormulaR1C1 = "G28=" Cells(m + 4, n + 24).FormulaR1C1 = "90" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 22).FormulaR1C1 = "Flexion:" Cells(m + 6, n + 22).FormulaR1C1 = "Azimuth:" Cells(m + 6, n + 23).FormulaR1C1 = "G30=" Cells(m + 6, n + 24).FormulaR1C1 = "10" 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 + 22).FormulaR1C1 = "Elevation:" Cells(m + 7, n + 23).FormulaR1C1 = "G31=" Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "dL" Cells(m + 8, n + 22).FormulaR1C1 = "Show:" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 22).FormulaR1C1 = "radii:" Cells(m + 9, n + 23).FormulaR1C1 = "G36=" Cells(m + 9, n + 24).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 + 22).FormulaR1C1 = "dB:" Cells(m + 10, n + 23).FormulaR1C1 = "G37=" Cells(m + 10, n + 24).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 22).FormulaR1C1 = "Coordinate type:" Cells(m + 3, n + 1).Interior.Color = "6740479" 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 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Point:" Cells(m + 3, n + 23).FormulaR1C1 = "C7=" Cells(m + 3, n + 24).FormulaR1C1 = "Empty" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Field observation point:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 5, n + 22).FormulaR1C1 = "x=" Cells(m + 5, n + 23).FormulaR1C1 = "A11=" Cells(m + 5, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 22).FormulaR1C1 = "y=" Cells(m + 6, n + 23).FormulaR1C1 = "B11=" Cells(m + 6, n + 24).FormulaR1C1 = "0.057" 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 + 22).FormulaR1C1 = "z=" Cells(m + 7, n + 23).FormulaR1C1 = "C11=" Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "r" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 21).FormulaR1C1 = "To add the 36 current elements, check G11 for the existing quantity; if G11 =4, 32 more must be added. " Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "Enter B2=32 and press +OBJ, wait a moment for Excel to execute the command. The loop will " Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 21).FormulaR1C1 = "appear in the XY plane and touching the coordinate origin. Now analyze different points for " Cells(m + 3, n + 1).Interior.Color = "11826222" 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 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "the field by modifying the values in A11, B11, C11. To hide the radius vectors, G36=1. If you want " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "to center the loop, insert G23 = - 0,057." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 6, n + 21).FormulaR1C1 = "To view the field in the entire space, set C7=o and wait a few seconds or minutes for Excel " 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 = "to execute the command. The field configuration in a certain region of space will appear. To view the " Cells(m + 8, n + 0).FormulaR1C1 = "dB" Cells(m + 8, n + 21).FormulaR1C1 = "field in cylindrical coordinates change the value to C7=c and finally C7 must be empty to return to the initial " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 21).FormulaR1C1 = "single vector view." Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "2. Study the magnetic field of a spiral." 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 + 99 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "Solution:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "In the previous problem set the Elevation G31 = -0.1 for the spiral to advance upwards and G30 = 20 " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "to make the same 36 elements for two turns. Due to the increase in azimuth angle, the radius will be " Cells(m + 6, n + 21).FormulaR1C1 = "reduced. In A11, B11, C11 modify the observation point (check that C7 is empty)." 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 + 8, n + 0).FormulaR1C1 = "dL" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Exercises:" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]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 = "1. Build the model of the magnetic field of a rectilinear current." Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "2. Build the model for a semicircle-shaped current." Cells(m + 3, n + 1).Interior.Color = "6740479" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 108 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "3. Build a model for two currents: one circular and one rectilinear." 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 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R36C7" Cells(m + 6, n + 0).FormulaR1C1 = "=R19C7*R17C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,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 + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C-R[-36]C" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "11826222" 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 + 117 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 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" 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 + 0).FormulaR1C1 = "dB" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" 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 = 14 End If ' vector ends If m = m1 + 117 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub