Sub Project_28_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 28_Ley de Biot - Savart_ES ' Updated: 7/07/24 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 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 + 0, n1 + 0).FormulaR1C1 ="51" Cells(m1 + 0, n1 + 1).FormulaR1C1 ="77" Cells(m1 + 0, n1 + 2).FormulaR1C1 ="=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 ="850" Cells(m1 + 0, n1 + 6).FormulaR1C1 ="=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 ="8" Cells(m1 + 0, n1 + 8).FormulaR1C1 ="Ariel R. Becerra (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 ="=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 ="400" Cells(m1 + 1, n1 + 4).FormulaR1C1 ="=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 ="0" Cells(m1 + 1, n1 + 6).FormulaR1C1 ="=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 ="45" Cells(m1 + 2, n1 + 2).FormulaR1C1 ="=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 ="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 + 4).FormulaR1C1 ="=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" 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 + 19).FormulaR1C1 ="=IF(R[-2]C[-19]>0,""<-- use these cells."","""")" 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