Sub Project_32_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 32_TORO_EN

   ' 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 + 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 ="Magnetic field of a toroid"
            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 ="60*1"
            Cells(m + 5, n + 1).FormulaR1C1 ="0.3"
            Cells(m + 5, n + 12).FormulaR1C1 ="MAGNETIC INDUCTION OF TOROIDS"
            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 =" |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 ="<<-- Point of field B"
            Cells(m + 8, n + 21).FormulaR1C1 ="MAGNETIC FIELD OF TOROIDAL CURRENTS"
            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 ="The objective of this model is to understand the Biot-Savart law and calculate the magnetic "
            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 of currents in a toroidal form."
            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 ="DATA (unit):"
            Cells(m + 11, n + 19).FormulaR1C1 ="=IF(R[-1]C[-19]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + 21).FormulaR1C1 ="The magnetic induction vector dB of an infinitesimal current element IdL at any point in space "
            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 ="at a distance r 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 =" 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 ="where K is a constant that depends on the system of units. The resulting vector of several"
            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 ="ORIGIN:"
            Cells(m + 9, n + 21).FormulaR1C1 ="current elements is the vector sum of each of the fields, that is, for n current elements 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 + 2).FormulaR1C1 ="1"
            Cells(m + 10, n + 4).FormulaR1C1 =" x_o ="
            Cells(m + 10, n + 5).FormulaR1C1 ="0"
            Cells(m + 10, n + 21).FormulaR1C1 ="resulting field is"
            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 ="INCLINATION"
            Cells(m + 6, n + 4).FormulaR1C1 =" phi ="
            Cells(m + 6, n + 5).FormulaR1C1 ="90"
            Cells(m + 6, n + 21).FormulaR1C1 ="When the number of elements tends to infinity and the length of each of them tends to zero, "
            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 ="this sum becomes an integral. In the present model, however, finite magnitudes and quantities "
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 ="FLEXION (AUTO):"
            Cells(m + 8, n + 21).FormulaR1C1 ="are used. The units of the model are in the International System. Initially there is a single loop with three "
            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 ="Azimuth ="
            Cells(m + 9, n + 5).FormulaR1C1 ="=R[-10]C/R[11]C"
            Cells(m + 9, n + 21).FormulaR1C1 ="current elements. The reader can add more elements and change the radii, number of loops "
            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 ="and angle of the toroid. The coordinates of the resulting vector B are seen in cells A12=Bx, "
            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 ="B12=By and C12=Bz and its magnitude in G10. The position of the center of the toroid can "
            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 ="VISUALIZE:"
            Cells(m + 3, n + 21).FormulaR1C1 ="be modified in cells G22, G23 and G24, its inclination angles in G27 and G28. The magnitude of "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 21).FormulaR1C1 ="the current and its sign are modified in G16, the constant K of the Biot-Savart law in G15, the "
            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 ="Show hide:"
            Cells(m + 5, n + 21).FormulaR1C1 ="radius of the loops in G17 and the radius of the toroid in 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 ="radii:"
            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 ="To show or hide the radii of each dL use cell G36 with values __from 0 to 1: G36 =0 visible and "
            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 ="G36 =1 invisible; the same with cell G37 for the dB magnetic field vectors of each 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 ="dL NUMBER:"
            Cells(m + 9, n + 21).FormulaR1C1 ="To display the magnetic field in a region of space in different types of coordinates use 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 ="cell C7:C7 empty to calculate the field at a specific point in space, indicating the point "
            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 ="in space in cells A11, B11 and C11. Enter C7 =o (lowercase letter without the equal sign) "
            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 ="to display the field in Cartesian coordinates, in this same cell you can modify the parameters. "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 4).FormulaR1C1 ="Toroid No. :"
            Cells(m + 4, n + 5).FormulaR1C1 ="1"
            Cells(m + 4, n + 21).FormulaR1C1 ="Enter C7 =c to display in cylindrical coordinates and their parameters. Finally C7 =s (without "
            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 ="the equal sign) for spherical coordinates, changing its parameters after pressing 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 ="ADD NEW dL ELEMENTS:"
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 ="To add a current element press the +OBJ button and to remove it -OBJ. The number of current "
            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 ="elements for the toroid is shown in cell G41. The more dL elements the current has, the more "
            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 ="its resulting magnetic field resembles the real one. To add or remove several elements at "
            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 ="the same time, indicate in cell B2 the number of elements before pressing the respective "
            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 ="button, this number must be an integer."
            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 ="DUPLICATE A TOROID:"
            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 ="The model allows you to clone toroids and change the parameters of the cloned toroid. To "
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 ="do this, enter B2=ENTIRE, B3=15 and in C3 write the number of the last non-empty and uncolored "
            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 ="row of column A, which depends on how many elements the original toroid has. Press the +OBJ "
            Cells(m + 10, n + -1).FormulaR1C1 ="1"
            Cells(m + 10, n + 0).FormulaR1C1 ="0"
            Cells(m + 10, n + 1).FormulaR1C1 ="1"
            Cells(m + 10, n + 4).FormulaR1C1 ="=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 ="button. The new toroid will be added, whose parameters can be observed and modified "
            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 ="in column G at the end of the sheet. In the cell next to ""No. of toroid"" write the consecutive "
            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 ="number for the new toroid. Change the position and parameters of the new toroid so that it "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 21).FormulaR1C1 ="can be observed in the coordinate system. To add a second toroid, keeping the values __"
            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 ="of B2, B3 and C3 press +OBJ. Likewise to delete a cloned object with the values __of B2, B3 "
            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 ="and C3 already set simply press -OBJ."
            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 ="EXAMPLE 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 ="Calculate the magnetic induction vector in the center of a toroid with radius of the loop "
            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 =1 cm, radius of the toroid R=4 cm, number of loops N=30, distributed at an angle of 270 "
            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 ="degrees. The number of current elements that make up the entire toroid is 360. "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 21).FormulaR1C1 ="The current is 10,000 A."
            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 ="Spatial point where vector B is calculated:"
            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 ="PARAMETERS:"
            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 ="Scale:"
            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 ="Step:"
            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 ="No. of steps:"
            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 ="To add the 360 __current elements, it is taken into account that the current number is G41=3, "
            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 ="therefore an additional 357 must be added:"
            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 ="Amount:"
            Cells(m + 3, n + 23).FormulaR1C1 =" B2 = "
            Cells(m + 3, n + 24).FormulaR1C1 ="357"
            Cells(m + 3, n + 26).FormulaR1C1 ="Note: Rows 51 through "
            Cells(m + 4, n + -1).FormulaR1C1 ="1"
            Cells(m + 4, n + 0).FormulaR1C1 ="183"
            Cells(m + 4, n + 22).FormulaR1C1 ="Initial row:"
            Cells(m + 4, n + 23).FormulaR1C1 =" B3 = "
            Cells(m + 4, n + 24).FormulaR1C1 ="51"
            Cells(m + 4, n + 26).FormulaR1C1 ="77 contain the current "
            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 ="Final row:"
            Cells(m + 5, n + 23).FormulaR1C1 =" C3 = "
            Cells(m + 5, n + 24).FormulaR1C1 ="77"
            Cells(m + 5, n + 26).FormulaR1C1 ="prototype element."
            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 ="Note: This large number of items may cause the PC to take a few seconds or even "
            Cells(m + 8, n + 2).FormulaR1C1 ="=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 ="minutes to put them into the spreadsheet."
            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 ="Press +OBJ to get the results."
            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 ="The coordinates of the resulting field are observed in cells A12, B12, C12, and its magnitude "
            Cells(m + 13, n + 21).FormulaR1C1 ="in G10. You can change the field observation point at A11, B11, C11, for example A11=-0.01, "
            Cells(m + 14, n + 21).FormulaR1C1 ="B11= 0.04, C11= 0.01 to see the field inside the loops."
            Cells(m + 17, n + 21).FormulaR1C1 ="EXAMPLE 2:"
            Cells(m + 18, n + 21).FormulaR1C1 ="In the example above, reduce the number of elements to 180 and arrange them at an "
            Cells(m + 19, n + 21).FormulaR1C1 ="angle of 130 degrees."
            Cells(m + 20, n + 21).FormulaR1C1 ="Solution. With B2=180, B3=51 and C3=77 press -OBJ to remove 180 elements. Change "
            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 ="EXAMPLE 3:"
            Cells(m + 25, n + 21).FormulaR1C1 ="Observe the field in Cartesian coordinates in a region of space."
            Cells(m + 26, n + 21).FormulaR1C1 ="Solution: Enter C7=o (lowercase letter and without the equal sign. Press XYZ and wait "
            Cells(m + 27, n + 21).FormulaR1C1 ="a few minutes while the field is rendered."
       Call BlackWhiteDesk 
       Call PutEqBut 
      end if ' actualizar hoja
End Sub