Sub Project_26_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 26_Fuerza magnetica_ES

   ' Updated: 6/04/24
   ' Created by: Ariel R. Becerra (21/11/23)
   ' Modified by: _________________
   ' This is the code of your new project.
   ' Steps to embed the code to ScienSolar:
   ' Note 1: The number 26 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it.
   ' Note 2: This code will be integrated into the main code to automate the download of the project.
   ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns.
   ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list.
   ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering.
   ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open.
   ' Step 5. On the left, in the project explorer, select a non full module (or add a new one).
   ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one).
   ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button.
   ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it!
   ' Visit  www.sciensolar.com for news and updates of ? ScienSolar.


            Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1"
            Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4"
            Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850"
            Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8"
            Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6"
            Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8"
            Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45"
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "40"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "dl_1"
            Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200"
            Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6"
            Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15"
       Cells(m1, n1 + 9).FormulaR1C1 = "HELP"
       Dim HELPtxt As String
       HELPtxt = "FUERZA MAGN" & ChrW(201) & "TICA ENTRE DOS ELEMENTOS DE CORRIENTE (See at the end the English version)" & Chr(10) & _
"     El objetivo de este modelo es analizar la ley de Ampere para la interacci" & ChrW(243) & "n entre corrientes. " & Chr(10) & _
"     Las cargas el" & ChrW(233) & "ctricas en movimiento generan campo magn" & ChrW(233) & "tico a su alrededor. Por otra parte, una carga en movimiento en un campo magn" & ChrW(233) & "tico externo experimenta una fuerza. A partir de estas dos afirmaciones podemos entonces decir que dos alambres que tienen corriente pueden experimentar fuerzas de interacci" & ChrW(243) & "n. A principios del siglo XIX el f" & ChrW(237) & "sico franc" & ChrW(233) & "s Andre-Marie Ampere estudi" & ChrW(243) & " a profundidad esta interacci" & ChrW(243) & "n entre corrientes y para el caso de dos elementos infinitesimales de corriente, estableci" & ChrW(243) & " la fuerza de interacci" & ChrW(243) & "n, siendo" & Chr(10) & _
"     dF12 =K I1 I2 dL2 x [dL1 x r12]/r12^3 " & Chr(10) & _
"     la fuerza magn" & ChrW(233) & "tica de la corriente 1 sobre la corriente 2 y " & Chr(10) & _
"     dF21 =K I1 I2 dL1 x [dL2 x r21]/ r21^3" & Chr(10) & _
"     la fuerza magn" & ChrW(233) & "tica de 2 sobre 1; I1 e I2 son las corrientes, dL1 y dL2 son vectores que representan longitudes infinitesimales de alambres que transportan estas corrientes, r12 es la distancia desde I1 hasta I2, r21 es la distancia desde I2 hasta I1, K es una constante que depende del sistema de unidades. La ecuaci" & ChrW(243) & "n arriba descrita es un doble producto cruz. " & Chr(10) & _
"     A partir de esta ecuaci" & ChrW(243) & "n, se puede dibujar en tres dimensiones la fuerza magn" & ChrW(233) & "tica de una corriente sobre la otra, a partir de las magnitudes (celdas G14 y G15), direcci" & ChrW(243) & "n (A12, B12, C12 y A30, B30, C30), de las corrientes y la distancia r que las separa (A21, B21, C21).  Modifique estos valores a conveniencia y observe el comportamiento de las fuerzas. Explique por qu" & ChrW(233) & " en algunos casos supuestamente no se cumple la 3a ley de Newton. " & Chr(10) & _
"     "
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "dl_1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m + 3, n + 3).FormulaR1C1 = "200"
            Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6"
            Cells(m + 3, n + 5).FormulaR1C1 = "15"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "Fuerza magn" & ChrW(233) & "tica - Ley de Ampere"
            Cells(m + 4, n + 12).FormulaR1C1 = "FUERZA MAGN" & ChrW(201) & "TICA ENTRE DOS ELEMENTOS DE CORRIENTE"
            Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + -1).FormulaR1C1 = "3"
            Cells(m + 7, n + 0).FormulaR1C1 = "2"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "<<-- Posici" & ChrW(243) & "n de  dL_1."
            Cells(m + 7, n + 4).FormulaR1C1 = "K="
            Cells(m + 7, n + 5).FormulaR1C1 = "2"
            Cells(m + 8, n + -1).FormulaR1C1 = "Alambre 1"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "El objetivo de este modelo es analizar la ley de Ampere para la interacci" & ChrW(243) & "n entre corrientes. "
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "-1"
            Cells(m + 9, n + 2).FormulaR1C1 = "<<-- Coordenadas del vector dL_1."
            Cells(m + 9, n + 21).FormulaR1C1 = "Las cargas el" & ChrW(233) & "ctricas en movimiento generan campo magn" & ChrW(233) & "tico a su alrededor. Por otra parte,"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "Intensidad de las corrientes"
            Cells(m + 10, n + 21).FormulaR1C1 = "una carga en movimiento en un campo magn" & ChrW(233) & "tico externo experimenta una fuerza. A partir "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "3"
            Cells(m + 11, n + 4).FormulaR1C1 = "        I_1 = "
            Cells(m + 11, n + 5).FormulaR1C1 = "2"
            Cells(m + 11, n + 21).FormulaR1C1 = "de estas dos afirmaciones podemos entonces decir que dos alambres que tienen corriente pueden "
            Cells(m + 3, n + 1).Interior.Color = "12611584"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "r"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "2"
            Cells(m + 3, n + 0).FormulaR1C1 = "r"
            Cells(m + 3, n + 4).FormulaR1C1 = "        I_2 = "
            Cells(m + 3, n + 5).FormulaR1C1 = "3"
            Cells(m + 3, n + 21).FormulaR1C1 = "experimentar fuerzas de interacci" & ChrW(243) & "n. A principios del siglo XIX el f" & ChrW(237) & "sico franc" & ChrW(233) & "s Andre-Marie Ampere "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "estudi" & ChrW(243) & " a profundidad esta interacci" & ChrW(243) & "n entre corrientes y para el caso de dos elementos"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "4"
            Cells(m + 5, n + 1).FormulaR1C1 = "0,3"
            Cells(m + 5, n + 4).FormulaR1C1 = "RESULTADO:"
            Cells(m + 5, n + 21).FormulaR1C1 = " infinitesimales de corriente, estableci" & ChrW(243) & " la fuerza de interacci" & ChrW(243) & "n, siendo"
            Cells(m + 6, n + -1).FormulaR1C1 = "K i1i2/r^3 ="
            Cells(m + 6, n + 0).FormulaR1C1 = "=R[-8]C[5]*R[-4]C[5]*R[-3]C[5]/POWER(SQRT(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2),3)"
            Cells(m + 6, n + 4).FormulaR1C1 = "        |r| = "
            Cells(m + 6, n + 5).FormulaR1C1 = "=SQRT(R[3]C[-6]^2+R[3]C[-5]^2+R[3]C[-4]^2)"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 4).FormulaR1C1 = "        |dF12| = "
            Cells(m + 7, n + 5).FormulaR1C1 = "=SQRT(R[29]C[-6]^2+R[29]C[-5]^2+R[29]C[-4]^2)"
            Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-26-1)"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "        |dF21| = "
            Cells(m + 8, n + 5).FormulaR1C1 = "=SQRT(R[46]C[-6]^2+R[46]C[-5]^2+R[46]C[-4]^2)"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[7]C-R[-11]C"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[7]C-R[-11]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[7]C-R[-11]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = "la fuerza magn" & ChrW(233) & "tica de la primera corriente sobre la segunda, y "
            Cells(m + 3, n + 1).Interior.Color = "7434613"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "dl_2"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "3"
            Cells(m + 3, n + 0).FormulaR1C1 = "dl_2"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-26-2)"
            Cells(m + 7, n + -1).FormulaR1C1 = "3"
            Cells(m + 7, n + 0).FormulaR1C1 = "4"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "<<-- Posici" & ChrW(243) & "n de  dL_2."
            Cells(m + 8, n + -1).FormulaR1C1 = "Alambre 2"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "1"
            Cells(m + 9, n + 2).FormulaR1C1 = "<<-- Coordenadas del vector dL_2."
            Cells(m + 9, n + 21).FormulaR1C1 = "la de la segunda sobre la primera; I1 e I2 son las corrientes, dL1 y dL2 son vectores que representan "
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "longitudes infinitesimales de alambres que transportan estas corrientes, r12 es la distancia desde"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "3"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = " I1 hasta I2, r21 es la distancia desde I2 hasta I1, K es una constante que depende del sistema de "
            Cells(m + 3, n + 1).Interior.Color = "12611584"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 27 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "4"
            Cells(m + 3, n + 21).FormulaR1C1 = "unidades.  El producto IdL se le llama elemento de corriente y es un vector, la corriente es un escalar."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "La ecuaci" & ChrW(243) & "n arriba descrita es un doble producto cruz. El primer producto cruz (derecha de la ecuaci" & ChrW(243) & "n)"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "1"
            Cells(m + 5, n + 21).FormulaR1C1 = "se encuentra en la fila 39 para dF12 y 57 para F21, mientras que la multiplicaci" & ChrW(243) & "n vectorial final est" & ChrW(225) & " "
            Cells(m + 6, n + 21).FormulaR1C1 = "en la fila 48 para dF12 y en la 66 para dF21."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "A partir de esta ecuaci" & ChrW(243) & "n se puede dibujar en tres dimensiones la fuerza magn" & ChrW(233) & "tica de una corriente "
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C[1]*R[-18]C[2]-R[-27]C[2]*R[-18]C[1]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*R[-18]C[1]+R[-27]C[1]*R[-18]C[-1]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*R[-18]C[-1]-R[-27]C[-1]*R[-18]C[-2]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "sobre la otra teniendo las corrientes (celdas G14 y G15), las componentes  (A12, B12, C12 y A30, B30, C30)"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = " de los elementos de corriente y sus posiciones (A10, B10, C10 y A28, B28, C28).  Modifique estos valores"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = " a conveniencia y observe el comportamiento de las fuerzas. Trate de aclarar la paradoja de  por qu" & ChrW(233) & " en"
            Cells(m + 3, n + 1).Interior.Color = "5287936"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "dF12"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "5"
            Cells(m + 3, n + 0).FormulaR1C1 = "dF12"
            Cells(m + 3, n + 21).FormulaR1C1 = " algunos casos supuestamente no se cumple la 3a ley de Newton (es decir que |F12| es diferente a |F21|,"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "tenga en cuenta para ello que las corrientes reales son siempre cerradas)."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 6, n + 21).FormulaR1C1 = "Ejercicios:"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "1.  Halle las fuerzas de acci" & ChrW(243) & "n y reacci" & ChrW(243) & "n de dos corrientes paralelas de 1 A y de 1 m. de longitud"
            Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-30]C[1]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-30]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-30]C[-1]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 22).FormulaR1C1 = "separadas una distancia de 1m."
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "2.  Halle las fuerzas de acci" & ChrW(243) & "n y reacci" & ChrW(243) & "n de dos corrientes antiparalelas de 1 A y de 1 m. de longitud"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 22).FormulaR1C1 = "separadas una distancia de 1m."
            Cells(m + 3, n + 1).Interior.Color = "7434613"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 45 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "6"
            Cells(m + 3, n + 21).FormulaR1C1 = "3.  Halle estas mismas fuerzas para las mismas corrientes pero esta vez perpendiculares y acostadas "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "sobre el plano XY."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "1"
            Cells(m + 5, n + 21).FormulaR1C1 = "4.  Halle estas mismas fuerzas para las mismas corrientes pero esta vez perpendiculares y acostadas "
            Cells(m + 6, n + 22).FormulaR1C1 = "la primerra sobre el plano XY y la segunda sobre el plano YZ."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-27]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-27]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C[1]*(-R[-36]C[2])-R[-27]C[2]*(-R[-36]C[1])"
            Cells(m + 9, n + 0).FormulaR1C1 = "=-R[-27]C[-1]*(-R[-36]C[1])+R[-27]C[1]*(-R[-36]C[-1])"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-27]C[-2]*(-R[-36]C[-1])-R[-27]C[-1]*(-R[-36]C[-2])"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "5296274"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "dF21"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 54 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "7"
            Cells(m + 3, n + 0).FormulaR1C1 = "dF21"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-54]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-54]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-54]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-54]C[1]*R[-9]C[2]-R[-54]C[2]*R[-9]C[1])*R[-48]C[1]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-54]C[-1]*R[-9]C[1]+R[-54]C[1]*R[-9]C[-1])*R[-48]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-54]C[-2]*R[-9]C[-1]-R[-54]C[-1]*R[-9]C[-2])*R[-48]C[-1]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "7434613"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Cells(m1 + 2, n1 - 1).Value = 7
      End If ' vector ends
      If m = m1 + 54 Then
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub