Sub Project_32_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 32_TORO_ES

   ' Updated: 18/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 32 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 + 0).FormulaR1C1 ="t = 0,171875 s."
            Cells(m1 + 2, n1 + 2).FormulaR1C1 ="=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 ="2500"
            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ÄTICO DE UNA CORRIENTE" & Chr(10)  & _ 
"     ææ æ El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn_tico de un segmento de corriente de forma casi arbitraria" & Chr(10)  & _ 
"     ææ æ El campo magn_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Ņ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ās elementos a la corriente y cambiar su forma con ayuda de los ā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Ņn inicial de la corriente y su orientaciŅ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 āngulo inicial phi en E29 y su incremento en F29 (cada dL se va orientando progresivamente con este incremento), lo mismo para el ā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_tico de cada dB." & Chr(10)  & _ 
"     ææ æ Para visualizar el campo magn_tico en una regiŅn del espacio en diferentes tipos de coordenadas utilice la celda E9: E9=0 para calcular el campo en un punto especÕ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āmetros de visualizaciŅn se modifican en la cadena de valores de E10. Ingrese E9=2 para visualizar en coordenadas cilÕndricas, y sus parāmetros en E11. Ingrese E9=3 para coordenadas esf_ricas, cambiando sus parāmetros en E12." & Chr(10)  & _ 
"     AGREGAR NUEVOS ELEMENTOS dL:" & Chr(10)  & _ 
"     ææ æ Para agregar un elemento mās de corriente, copie las filas enteras de la hoja desde la 51 hasta la 77 y p_guelas despu_s de la Īltima fila. Oprima cualquier botŅn de visualizaciŅn para ver resultados, la cantidad de elementos de corriente se muestra en la celda E19. Repita este procedimiento para agregar mās dL a la corriente. Entre mās elementos dL tenga la corriente su campo magn_tico resultante se va pareciendo mā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āndose de 10 en 10 grados hasta que los 36 elementos forman un cÕrculo.æ" & Chr(10)  & _ 
"     AGREGAR UNA NUEVA DISTRIBUCI”N:æ" & Chr(10)  & _ 
"     Se puede agregar una nueva distribuciŅn independiente (por ejemplo otro cÕ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 Īltima, corte y vaya a la hoja original y pegue despu_s de la Īltima fila. Elimine la hoja copiada y en la hoja original corrija las fŅrmulas que tienen direcciŅn hacia la hoja borrada, estas on el nĪmero del vector a y su posiciŅn.æ" & Chr(10)  & _ 
"     "
       On Error Resume Next 
       Cells(m1 , n1 + 9).Comment.Text Text:= HELPtxt


      If m = m1 + 0 Then ' vector 11
            Cells(m + 3, n + -1).FormulaR1C1 ="1"
            Cells(m + 3, n + 0).FormulaR1C1 ="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 toroides"
            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 ="60*1"
            Cells(m + 5, n + 1).FormulaR1C1 ="0.3"
            Cells(m + 5, n + 12).FormulaR1C1 ="INDUCCI" & ChrW(211) & "N MAGN" & ChrW(201) & "TICA DE TOROIDES"
            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 ="        |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"
            Cells(m + 8, n + 0).FormulaR1C1 ="0.04"
            Cells(m + 8, n + 1).FormulaR1C1 ="0.01"
            Cells(m + 8, n + 2).FormulaR1C1 ="<<-- Punto del campo B"
            Cells(m + 8, n + 21).FormulaR1C1 ="CAMPO MAGN" & ChrW(201) & "TICO DE CORRIENTES TOROIDALES"
            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 ="<< - B_x, B_y, B_z"
            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 corrientes en forma toroidal."
            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 ="DATOS (unidad):"
            Cells(m + 11, n + 19).FormulaR1C1 ="=IF(R[-1]C[-19]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + 21).FormulaR1C1 ="El vector inducci" & ChrW(243) & "n magn" & ChrW(233) & "tica 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 10
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 ="a"
            Cells(m + 3, n + 4).FormulaR1C1 ="          K ="
            Cells(m + 3, n + 5).FormulaR1C1 ="0.0000001"
            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 ="     I (A) ="
            Cells(m + 4, n + 5).FormulaR1C1 ="10000"
            Cells(m + 5, n + -1).FormulaR1C1 ="1"
            Cells(m + 5, n + 0).FormulaR1C1 ="4"
            Cells(m + 5, n + 1).FormulaR1C1 ="1"
            Cells(m + 5, n + 4).FormulaR1C1 ="    r (m) ="
            Cells(m + 5, n + 5).FormulaR1C1 ="0.01"
            Cells(m + 5, n + 27).FormulaR1C1 ="(Eq-28-1)"
            Cells(m + 6, n + 4).FormulaR1C1 ="   R (m) ="
            Cells(m + 6, n + 5).FormulaR1C1 ="0.04"
            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 ="          N ="
            Cells(m + 7, n + 5).FormulaR1C1 ="1"
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 ="   Alpha ="
            Cells(m + 8, n + 5).FormulaR1C1 ="0"
            Cells(m + 8, n + 21).FormulaR1C1 ="en donde K es una constante que depende del sistema de unidades. El vector resultante de varios "
            Cells(m + 9, n + -1).FormulaR1C1 ="=R17C7*COS(RADIANS(R27C7))*COS(RADIANS(R28C7))+R18C7*COS(RADIANS(R27C7))+R19C1"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R17C7*SIN(RADIANS(R27C7))*COS(RADIANS(R28C7))+R18C7*SIN(RADIANS(R27C7))+R19C2"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R17C7*SIN(RADIANS(R28C7))+R19C3"
            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 + 2).FormulaR1C1 ="1"
            Cells(m + 10, n + 4).FormulaR1C1 ="      x_o  ="
            Cells(m + 10, n + 5).FormulaR1C1 ="0"
            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  ="
            Cells(m + 11, n + 5).FormulaR1C1 ="0"
            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 9
            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.01"
            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 + 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(211) & "N"
            Cells(m + 6, n + 4).FormulaR1C1 ="       phi ="
            Cells(m + 6, n + 5).FormulaR1C1 ="90"
            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 ="=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1"
            Cells(m + 7, n + 0).FormulaR1C1 ="=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2"
            Cells(m + 7, n + 1).FormulaR1C1 ="=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3"
            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(211) & "N (AUTO):"
            Cells(m + 8, n + 21).FormulaR1C1 ="y cantidades finitas. Las unidades del modelo est" & ChrW(225) & "n en el sistema SI."
            Cells(m + 9, n + -1).FormulaR1C1 ="=R[-9]C-R[-2]C"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R[-9]C-R[-2]C"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R[-9]C-R[-2]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 ="=R[-10]C/R[11]C"
            Cells(m + 9, n + 21).FormulaR1C1 ="Inicialmente se tiene una sola espira con tres elementos de corriente. El lector puede agregar "
            Cells(m + 10, n + -1).FormulaR1C1 ="=IF(R[-15]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 ="    Elev. ="
            Cells(m + 10, n + 5).FormulaR1C1 ="=360*R[-12]C/R[10]C"
            Cells(m + 10, n + 21).FormulaR1C1 ="m" & ChrW(225) & "s elementos y cambiar los radios, n" & ChrW(250) & "mero de espiras y " & ChrW(225) & "ngulo del toroide.  Las coordenadas del "
            Cells(m + 11, n + -1).FormulaR1C1 ="=IF(R[-16]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 ="vector 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 8
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 ="r"
            Cells(m + 3, n + 4).FormulaR1C1 ="VISUALIZAR:"
            Cells(m + 3, n + 21).FormulaR1C1 ="La posici" & ChrW(243) & "n del centro del toroide se pueden modificar en las celdas G22, G23 y G24, "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 21).FormulaR1C1 ="sus " & ChrW(225) & "ngulos de inclinaci" & ChrW(243) & "n en G27 y G28. La magnitud de la corriente y su signo se modifican en G16"
            Cells(m + 5, n + -1).FormulaR1C1 ="1"
            Cells(m + 5, n + 0).FormulaR1C1 ="2"
            Cells(m + 5, n + 1).FormulaR1C1 ="=R[1]C[4]"
            Cells(m + 5, n + 4).FormulaR1C1 ="Mostrar/ocultar:"
            Cells(m + 5, n + 21).FormulaR1C1 ="la constante K de la ley de Biot-Savart en G15, el radio de las espiras en G17 y el radio del toroide en G18."
            Cells(m + 6, n + 0).FormulaR1C1 ="=R15C7*R16C7/(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 + 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 G36 con valores de 0 a 1: G36 =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 G36 =1 invisible; lo mismo con la celda G37 para los vectores campo magn" & ChrW(233) & "tico dB de cada dL."
            Cells(m + 9, n + -1).FormulaR1C1 ="=R[-29]C-R[-11]C"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R[-29]C-R[-11]C"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R[-29]C-R[-11]C"
            Cells(m + 9, n + 2).FormulaR1C1 ="=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 ="N" & ChrW(218) & "MERO 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 ="3"
            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 (sin el signo igual) para visualizar "
            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 7
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 ="el campo en coordenadas cartesianas, en esta misma celda se pueden modificar los par" & ChrW(225) & "metros. "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 4).FormulaR1C1 ="No. TORO:"
            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 sus par" & ChrW(225) & "metros. Finalmente "
            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 (sin el signo igual) para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros luego de oprimir XYZ."
            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 + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 ="Para agregar un elemento de corriente oprima el bot" & ChrW(243) & "n +OBJ y para eliminarlo -OBJ."
            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 ="La cantidad de elementos de corriente para el toroide se muestra en la celda G41.  Entre m" & ChrW(225) & "s "
            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 ="elementos dL tenga la corriente, su campo magn" & ChrW(233) & "tico resultante se va pareciendo m" & ChrW(225) & "s al real. "
            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 ="Para agregar o quitar varios elementos a la vez indique en la celda B2 el nĪmero de elementos "
            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 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 + 21).FormulaR1C1 ="antes de oprimir el respectivo bot" & ChrW(243) & "n, este n" & ChrW(250) & "mero debe ser entero. "
            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 ="=R[-27]C"
            Cells(m + 5, n + 21).FormulaR1C1 ="DUPLICAR UN TOROIDE"
            Cells(m + 7, n + -1).FormulaR1C1 ="=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1"
            Cells(m + 7, n + 0).FormulaR1C1 ="=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2"
            Cells(m + 7, n + 1).FormulaR1C1 ="=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3"
            Cells(m + 7, n + 21).FormulaR1C1 ="El modelo permite clonar toroides y cambiar los par" & ChrW(225) & "metros del toroide clonado. Para ello introduzca"
            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 ="=R[-29]C-R[-2]C"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R[-29]C-R[-2]C"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R[-29]C-R[-2]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 el toroide original. Oprima el bot" & ChrW(243) & "n +OBJ. Se agregar" & ChrW(225) & " el nuevo"
            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 ="toroide, 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. TORO"" escriba el n" & ChrW(250) & "mero consecutivo para el nuevo toroide. 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 5
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 ="y los par" & ChrW(225) & "metros del nuevo toroide 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 toroide, 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 ="=R[-27]C"
            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 ="=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))"
            Cells(m + 6, n + 21).FormulaR1C1 ="OBSERVACI" & ChrW(211) & "N: Entre m" & ChrW(225) & "s elementos de corriente dL sean agregados, Excel trabajar" & ChrW(225) & " m" & ChrW(225) & "s lentamente. "
            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 ="EJEMPLO 1:"
            Cells(m + 9, n + -1).FormulaR1C1 ="=R[-9]C+R[-27]C"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R[-9]C+R[-27]C"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R[-9]C+R[-27]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 + 10, n + 21).FormulaR1C1 ="Calcular el vector inducci" & ChrW(243) & "n magn" & ChrW(233) & "tica en el centro de un toroide de radio de las espiras r =1 cm, radio del toroide"
            Cells(m + 11, n + -1).FormulaR1C1 ="=R[-27]C"
            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 ="R=4 cm, n" & ChrW(250) & "mero de espiras N=30, distribuidas en un " & ChrW(225) & "ngulo de 270 grados. El n" & ChrW(250) & "mero de elementos"
            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 4
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 ="de corriente que componen todo el toroide es 360. La corriente es de 10000 A."
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 21).FormulaR1C1 ="Para resolver el problema se modifican los siguientes par" & ChrW(225) & "metros"
            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 ="______________________________________________________________________________________________"
            Cells(m + 6, n + 21).FormulaR1C1 ="Punto espacial en donde se calcula el vector B:"
            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 ="     A11 = "
            Cells(m + 7, n + 24).FormulaR1C1 ="0"
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 ="y_o = "
            Cells(m + 8, n + 23).FormulaR1C1 ="     B11 = "
            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 ="     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 + 10, n + 21).FormulaR1C1 ="______________________________________________________________________________________________"
            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 ="PAR" & ChrW(193) & "METROS:"
            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 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 + 22).FormulaR1C1 ="Escala:"
            Cells(m + 3, n + 23).FormulaR1C1 =" E5 = "
            Cells(m + 3, n + 24).FormulaR1C1 ="2500"
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 22).FormulaR1C1 ="Paso:"
            Cells(m + 4, n + 23).FormulaR1C1 =" I3 = "
            Cells(m + 4, n + 24).FormulaR1C1 ="8"
            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 ="NĄ de pasos:"
            Cells(m + 5, n + 23).FormulaR1C1 =" I4 = "
            Cells(m + 5, n + 24).FormulaR1C1 ="45"
            Cells(m + 6, n + 22).FormulaR1C1 ="          K ="
            Cells(m + 6, n + 23).FormulaR1C1 =" G15 = "
            Cells(m + 6, n + 24).FormulaR1C1 ="0.0000001"
            Cells(m + 7, n + -1).FormulaR1C1 ="=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1"
            Cells(m + 7, n + 0).FormulaR1C1 ="=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2"
            Cells(m + 7, n + 1).FormulaR1C1 ="=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3"
            Cells(m + 7, n + 22).FormulaR1C1 ="     I (A) ="
            Cells(m + 7, n + 23).FormulaR1C1 =" G16 = "
            Cells(m + 7, n + 24).FormulaR1C1 ="10000"
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 ="    r (m) ="
            Cells(m + 8, n + 23).FormulaR1C1 =" G17 = "
            Cells(m + 8, n + 24).FormulaR1C1 ="0.01"
            Cells(m + 9, n + -1).FormulaR1C1 ="=R[-29]C-R[-2]C"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R[-29]C-R[-2]C"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R[-29]C-R[-2]C"
            Cells(m + 9, n + 2).FormulaR1C1 ="=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 22).FormulaR1C1 ="   R (m) ="
            Cells(m + 9, n + 23).FormulaR1C1 =" G18 = "
            Cells(m + 9, n + 24).FormulaR1C1 ="0.04"
            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 ="          N ="
            Cells(m + 10, n + 23).FormulaR1C1 =" G19 = "
            Cells(m + 10, n + 24).FormulaR1C1 ="30"
            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 ="   Alpha ="
            Cells(m + 11, n + 23).FormulaR1C1 =" G20 = "
            Cells(m + 11, n + 24).FormulaR1C1 ="270"
            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 2
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 ="      x_o  ="
            Cells(m + 3, n + 23).FormulaR1C1 =" G22 = "
            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 ="      y_o  ="
            Cells(m + 4, n + 23).FormulaR1C1 =" G23 = "
            Cells(m + 4, n + 24).FormulaR1C1 ="0"
            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 ="      z_o  ="
            Cells(m + 5, n + 23).FormulaR1C1 =" G24 = "
            Cells(m + 5, n + 24).FormulaR1C1 ="0.01"
            Cells(m + 6, n + 0).FormulaR1C1 ="=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))"
            Cells(m + 6, n + 22).FormulaR1C1 ="       phi ="
            Cells(m + 6, n + 23).FormulaR1C1 =" G27 = "
            Cells(m + 6, n + 24).FormulaR1C1 ="90"
            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 ="   theta ="
            Cells(m + 7, n + 23).FormulaR1C1 =" G28 = "
            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 + 21).FormulaR1C1 ="______________________________________________________________________________________________"
            Cells(m + 9, n + -1).FormulaR1C1 ="=R[-9]C+R[-27]C"
            Cells(m + 9, n + 0).FormulaR1C1 ="=R[-9]C+R[-27]C"
            Cells(m + 9, n + 1).FormulaR1C1 ="=R[-9]C+R[-27]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 + 10, n + 21).FormulaR1C1 ="Para agregar los 360 elementos de corriente, se tiene en cuenta que el numero actual es de G41=3, por lo tanto"
            Cells(m + 11, n + -1).FormulaR1C1 ="=R[-27]C"
            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 ="se deben agregar 357 adicionales:"
            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 1
            Cells(m + 3, n + -1).FormulaR1C1 ="=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 ="Cantidad:"
            Cells(m + 3, n + 23).FormulaR1C1 =" B2 = "
            Cells(m + 3, n + 24).FormulaR1C1 ="357"
            Cells(m + 3, n + 26).FormulaR1C1 ="Obs: las filas desde la 51 hasta "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 22).FormulaR1C1 ="Fila inicial:"
            Cells(m + 4, n + 23).FormulaR1C1 =" B3 = "
            Cells(m + 4, n + 24).FormulaR1C1 ="51"
            Cells(m + 4, n + 26).FormulaR1C1 ="la 77 contienen el elemento de "
            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 ="Fila final:"
            Cells(m + 5, n + 23).FormulaR1C1 =" C3 = "
            Cells(m + 5, n + 24).FormulaR1C1 ="77"
            Cells(m + 5, n + 26).FormulaR1C1 ="corriente prototipo."
            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 ="Nota: este n" & ChrW(250) & "mero grande de elementos puede hacer que el PC se demore en ponerlos en la hoja de c" & ChrW(225) & "lculo"
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 ="tal vez unos segundos o inclusive minutos. "
            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 + 10, n + 21).FormulaR1C1 ="Oprimir +OBJ para obtener los resultados. "
            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 = 11
      end if ' vector ends
      If m = m1 + 90 Then  
            Cells(m + 12, n + 21).FormulaR1C1 ="Las coordenadas del campo resultante se observa en las celdas A12, B12, C12, y su magnitud en G10. Puede "
            Cells(m + 13, n + 21).FormulaR1C1 ="cambiar el punto de observaci" & ChrW(243) & "n del campo en A11, B11, C11, por ejemplo A11=-0,01, B11= 0,04, C11= 0,01 "
            Cells(m + 14, n + 21).FormulaR1C1 ="para ver el campo dentro de las espiras."
            Cells(m + 17, n + 21).FormulaR1C1 ="EJEMPLO 2: "
            Cells(m + 18, n + 21).FormulaR1C1 ="En el ejemplo anterior disminuir el n" & ChrW(250) & "mero de elementos a 180 y distribuirlos en un " & ChrW(225) & "ngulo"
            Cells(m + 19, n + 21).FormulaR1C1 ="de 130 grados . "
            Cells(m + 20, n + 21).FormulaR1C1 ="Solucion. Con B2=180, B3=51 y C3=77 oprimir -OBJ para quitar 180 elementos. Cambiar el " & ChrW(225) & "ngulo en: "
            Cells(m + 22, n + 22).FormulaR1C1 ="   Alpha ="
            Cells(m + 22, n + 23).FormulaR1C1 =" G20 = "
            Cells(m + 22, n + 24).FormulaR1C1 ="135"
            Cells(m + 24, n + 21).FormulaR1C1 ="EJEMPLO 3:"
            Cells(m + 25, n + 21).FormulaR1C1 ="Observar el campo en coordenadas cartesianas en una regi" & ChrW(243) & "n del espacio."
            Cells(m + 26, n + 21).FormulaR1C1 ="Soluci" & ChrW(243) & "n: Introducir C7=o (letra min" & ChrW(250) & "scula y sin el signo igual. Oprimir XYZ. Esperar unos minutos mientras"
            Cells(m + 27, n + 21).FormulaR1C1 ="se renderiza el campo."
       Call BlackWhiteDesk 
       Call PutEqBut 
      end if ' actualizar hoja
End Sub