Sub Project_36_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 36_Fuerza de Lorenz_ES

   ' Updated: 21/02/25
   ' Created by: Becerra Ariel, Cabrera Francisco, Ortiz Daniela, Jimenez Gabriel, Hernandez Aaron, Valderrama Sebastian, Gomez Fabian  (20/12/24)
   ' Modified by: _________________
   ' This is the code of your new project.
   ' Steps to embed the code to ScienSolar:
   ' Note 1: The number 36 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it.
   ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project.
   ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns.
   ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column.
   ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering.
   ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open.
   ' Step 5. On the left, in the project explorer, select a non full module (or add a new one).
   ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one).
   ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button.
   ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it!
   ' Visit  www.sciensolar.com for news and updates of © ScienSolar.
  
  
            Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1"
            Cells(m1 - 1, n1).Value = "ENTIRE"
            Cells(m1 + 0, n1 + 0).FormulaR1C1 = "24"
            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 = "0.0001"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Becerra Ariel, Cabrera Francisco, Ortiz Daniela, Jimenez Gabriel, Hernandez Aaron, Valderrama Sebastian, Gomez Fabian  (20/12/24)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "450"
            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 = "26"
            Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,0625 s."
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "            t ="
            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 = "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 = "MOVIMIENTO PARAB”LICO" & Chr(10) & _
"     (See english version at the end)" & Chr(10) & _
"     A continuaciÑn se escriben en las respectivas celdas las ecuaciones del movimiento parabÑlico para las coordenadas x, y, z, que corresponden al vector r(x, y, z):" & Chr(10) & _
"     A12 = x = x0 + v0x t + 1/2 ax t^2?" & Chr(10) & _
"     B12 = y = y0 + v0y t + 1/2 ay t^2 " & Chr(10) & _
"     C12 = z = z0 + v0z t + 1/2 az t^2,?" & Chr(10) & _
"     en donde el tiempo est? dado por el valor de la celda I5. Las aceleraciones en cada eje se calculan por la segunda ley de Newton F = ma = qE. En el vector 6 se encuentran las ecuaciones para las respectivas componentes de estas aceleraciones: ?" & Chr(10) & _
"     A57 = ax = q Ex /m?" & Chr(10) & _
"     B57 = ay = q Ey /m?" & Chr(10) & _
"     C57 =az = q Ez /m." & Chr(10) & _
"     Las ecuaciones para las componentes del vector velocidad se calculan por las fÑrmulas A39 = Vx = Vox + ax t, B39 = Vy = Voy + ay t, C39 = Vz = Voz + az t. El tiempo tR en el que la partÕcula alcanza el plano xy y es hallado resoviendo la ecuaciÑn cuadràtica descrita al principio con respecto al tiempo t y para cada eje el resultado es plasmado en A56, B56 y C56. Por medio de la funciÑn MIN() de Excel, es calculado el tiempo mÕnimo entre los tres planos con el objeto de identificar a cuàl plano cae primero la partÕcula; este tiempo mÕnimo se plasma en G49." & Chr(10) & _
"     Oprima el botÑn B/W para ver el modelo en fondo blanco. Cambie los colores de los vectores a su gusto. En las celdas G12-G26 modifique los paràmetros iniciales para la posiciÑn, velocidad, campo el?ctrico, carga y masa de la partÕcula y observe los resultados oprimiendo el botÑn Run. Si desea dibujar la trayectoria de la partÕcula, coloque G28=2, y para quitarla G28=1, oprimiendo luego el botÑn Run. Oprima el botÑn Set to Zero para volver a iniciar la simulaciÑn, y el botÑn 1 by 1 para ver la simulaciÑn cada paso.?" & Chr(10) & _
"     (ENGLISH)" & Chr(10) & _
"     PARABOLIC MOVEMENT" & Chr(10) & _
"     Next, the equations of parabolic motion are written in the respective cells for the coordinates x, y, z, which correspond to the vector r(x, y, z):" & Chr(10) & _
"     A12 = x = x0 + v0x t + 1/2 ax t^2" & Chr(10) & _
"     B12 = y = y0 + v0y t + 1/2 ay t^2 " & Chr(10) & _
"     C12 = z = z0 + v0z t + 1/2 az t^2," & Chr(10) & _
"     where the time is given by the value of cell I5. The accelerations in each axis are calculated by Newton's second law F = ma = qE. In vector 6 are the equations for these accelerations:" & Chr(10) & _
"     A57 = ax = q Ex /m" & Chr(10) & _
"     B57 = ay = q Ey /m" & Chr(10) & _
"     C57 =az = q Ez /m." & Chr(10) & _
"     The equations for the components of the velocity vector are calculated using the formulas A39 = Vx = Vox + ax t, B39 = Vy = Voy + ay t, C39 = Vz = Voz + az t. The time tR in which the particle reaches the xy plane is found by solving the quadratic equation described at the beginning with respect to time t and for each axis the result is recorded in A56, B56 and C56. Using Excel's MIN() function, the minimum time between the three planes is calculated to identify which plane the particle lands on first; this minimum time is reflected in I6." & Chr(10) & _
"     Press the B/W button to see the model on a white background. Change the colors of the vectors to your liking. In cells G12-G26 modify the initial parameters of position, velocity, electric field, charge and mass of the particle and observe the results by pressing the Run button. If you want to draw the trajectory of the particle, set G28 = 2, and to remove it, G28 = 1, then press the Run button. Press the Set to Zero button to restart the simulation and the 1 by 1 button to view the simulation at each step." & Chr(10) & _
"     "
       On Error Resume Next
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 8
            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 = "200"
            Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6"
            Cells(m + 3, n + 5).FormulaR1C1 = "15"
            Cells(m + 3, n + 9).FormulaR1C1 = "Some vectors have been R E D U C E D!  Set the scale in cell B62"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "Fuerza de Lorentz"
            Cells(m + 4, n + 12).FormulaR1C1 = "MOVIMIENTO DE PART" & ChrW(205) & "CULAS EN CAMPOS EL" & ChrW(201) & "CTRICO Y MAGN" & ChrW(201) & "TICO"
            Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "800*0,000001"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[14]C[4]"
            Cells(m + 5, n + 12).FormulaR1C1 = "FUERZA DE LORENTZ"
            Cells(m + 6, n + 2).FormulaR1C1 = "CAMPOS MAGN" & ChrW(201) & "TICO Y EL" & ChrW(201) & "CTRICO:"
            Cells(m + 6, n + 6).FormulaR1C1 = "=IF(R14C5=0,""El campo magn" & ChrW(233) & "tico debe ser diferente de cero"","""")"
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "=0.8*R6C5/R5C5"
            Cells(m + 7, n + 1).FormulaR1C1 = "=0.8*R6C5/R5C5"
            Cells(m + 7, n + 2).FormulaR1C1 = "(introducir valores)"
            Cells(m + 7, n + 4).FormulaR1C1 = "Campo magn" & ChrW(233) & "tico (T):"
            Cells(m + 7, n + 21).FormulaR1C1 = "El objetivo del modelo es comprender el comportamiento de part" & ChrW(237) & "culas cargadas movi" & ChrW(233) & "ndose en "
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[59]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "    B_x  ="
            Cells(m + 8, n + 5).FormulaR1C1 = "-0.00005"
            Cells(m + 8, n + 21).FormulaR1C1 = "campos el" & ChrW(233) & "ctrico y magn" & ChrW(233) & "tico constantes. El modelo permite agregar varias part" & ChrW(237) & "culas y calcular "
            Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R[-1]C[6]=0,1E-20,R[-1]C[6])"
            Cells(m + 9, n + 0).FormulaR1C1 = "=IF(RC[5]=0,1E-40,RC[5])"
            Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[1]C[4]=0,1E-40,R[1]C[4])"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[58]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "    B_y  ="
            Cells(m + 9, n + 5).FormulaR1C1 = "0"
            Cells(m + 9, n + 21).FormulaR1C1 = "en cada momento sus posiciones, velocidades y aceleraciones, dependiendo de las condiciones "
            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 = "    B_z  ="
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 21).FormulaR1C1 = "iniciales. Tambi" & ChrW(233) & "n puede explicarse el funcionamiento del ESPECTR" & ChrW(211) & "METRO DE MASAS y del "
            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 + 2).FormulaR1C1 = "   |B| ="
            Cells(m + 11, n + 3).FormulaR1C1 = "=SQRT(R12C1^2+R12C2^2+R12C3^2)"
            Cells(m + 11, n + 21).FormulaR1C1 = "SELECTOR DE VELOCIDADES. Nota: no todas las orientaciones de los vectores B, E y v tienen soluci" & ChrW(243) & "n"
            Cells(m + 3, n + 1).Interior.Color = "12874308"
            Cells(m + 3, n + 1).Font.Size = "12"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "E"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "2"
            Cells(m + 3, n + 0).FormulaR1C1 = "E"
            Cells(m + 3, n + 1).FormulaR1C1 = "z"
            Cells(m + 3, n + 4).FormulaR1C1 = "Campo el" & ChrW(233) & "ctrico (N/C):"
            Cells(m + 3, n + 21).FormulaR1C1 = "en este modelo. Se recomienda prudencia al elegir las componentes de estos vectores."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "    E_x  ="
            Cells(m + 4, n + 5).FormulaR1C1 = "0"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "200*0,1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[4]C[4]"
            Cells(m + 5, n + 4).FormulaR1C1 = "    E_y  ="
            Cells(m + 5, n + 5).FormulaR1C1 = "0"
            Cells(m + 6, n + 4).FormulaR1C1 = "    E_z  ="
            Cells(m + 6, n + 5).FormulaR1C1 = "-3"
            Cells(m + 6, n + 21).FormulaR1C1 = "PAR" & ChrW(193) & "METRO:"
            Cells(m + 6, n + 22).FormulaR1C1 = "CELDA:"
            Cells(m + 6, n + 23).FormulaR1C1 = "VALOR (EJEMPLO):"
            Cells(m + 6, n + 25).FormulaR1C1 = "OBSERVACI" & ChrW(211) & "N"
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "=0.8*R6C5/R5C5"
            Cells(m + 7, n + 1).FormulaR1C1 = "=0.8*R6C5/R5C5"
            Cells(m + 7, n + 2).FormulaR1C1 = "   |E|  ="
            Cells(m + 7, n + 3).FormulaR1C1 = "=SQRT(R[-3]C[2]^2+R[-2]C[2]^2+R[-1]C[2]^2)"
            Cells(m + 7, n + 21).FormulaR1C1 = "Escala:"
            Cells(m + 7, n + 22).FormulaR1C1 = " E5 = "
            Cells(m + 7, n + 23).FormulaR1C1 = "200"
            Cells(m + 7, n + 25).FormulaR1C1 = "Escala del modelo"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "0"
            Cells(m + 8, n + 1).FormulaR1C1 = "0"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "Mostrar (s" & ChrW(237) & "=0, no=1):"
            Cells(m + 8, n + 21).FormulaR1C1 = "Paso:"
            Cells(m + 8, n + 22).FormulaR1C1 = " I3 = "
            Cells(m + 8, n + 23).FormulaR1C1 = "0.000001"
            Cells(m + 8, n + 25).FormulaR1C1 = "Escala del tiempo en segundos"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-5]C[6]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-4]C[5]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[4]"
            Cells(m + 9, n + 4).FormulaR1C1 = "              E:"
            Cells(m + 9, n + 5).FormulaR1C1 = "0"
            Cells(m + 9, n + 21).FormulaR1C1 = "N" & ChrW(193) & " de pasos:"
            Cells(m + 9, n + 22).FormulaR1C1 = " I4 = "
            Cells(m + 9, n + 23).FormulaR1C1 = "26"
            Cells(m + 9, n + 25).FormulaR1C1 = "Unidades de tiempo recorridas"
            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 = "              B:"
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 21).FormulaR1C1 = "    B_x  ="
            Cells(m + 10, n + 22).FormulaR1C1 = " G11 = "
            Cells(m + 10, n + 23).FormulaR1C1 = "-0.05"
            Cells(m + 10, n + 25).FormulaR1C1 = "Componete en x del campo magn" & ChrW(233) & "tico"
            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 + 21).FormulaR1C1 = "    B_y  ="
            Cells(m + 11, n + 22).FormulaR1C1 = " G12 = "
            Cells(m + 11, n + 23).FormulaR1C1 = "0"
            Cells(m + 11, n + 25).FormulaR1C1 = "Componete en y del campo magn" & ChrW(233) & "tico"
            Cells(m + 3, n + 1).Interior.Color = "36799"
            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 = "   -  q1"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[3]C[5]<0,""   -  q"",""   +  q"")&R[1]C[5]"
            Cells(m + 3, n + 2).FormulaR1C1 = "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
            Cells(m + 3, n + 21).FormulaR1C1 = "    B_z  ="
            Cells(m + 3, n + 22).FormulaR1C1 = " G13 = "
            Cells(m + 3, n + 23).FormulaR1C1 = "0"
            Cells(m + 3, n + 25).FormulaR1C1 = "Componete en z del campo magn" & ChrW(233) & "tico"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 2).FormulaR1C1 = "     PAR" & ChrW(193) & "METROS DE LA "
            Cells(m + 4, n + 4).FormulaR1C1 = "Part" & ChrW(237) & "cula No.:"
            Cells(m + 4, n + 5).FormulaR1C1 = "1"
            Cells(m + 4, n + 21).FormulaR1C1 = "    E_x  ="
            Cells(m + 4, n + 22).FormulaR1C1 = " G16 = "
            Cells(m + 4, n + 23).FormulaR1C1 = "0"
            Cells(m + 4, n + 25).FormulaR1C1 = "Componete en x del campo el" & ChrW(233) & "ctrico"
            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 + 2).FormulaR1C1 = "            PART" & ChrW(205) & "CLUA"
            Cells(m + 5, n + 4).FormulaR1C1 = "Carga (C):"
            Cells(m + 5, n + 21).FormulaR1C1 = "    E_y  ="
            Cells(m + 5, n + 22).FormulaR1C1 = " G17 = "
            Cells(m + 5, n + 23).FormulaR1C1 = "0"
            Cells(m + 5, n + 25).FormulaR1C1 = "Componete en y del campo el" & ChrW(233) & "ctrico"
            Cells(m + 6, n + 2).FormulaR1C1 = "(introducir valores)"
            Cells(m + 6, n + 4).FormulaR1C1 = "   q ="
            Cells(m + 6, n + 5).FormulaR1C1 = "=-2*1.6E-19"
            Cells(m + 6, n + 21).FormulaR1C1 = "    E_z  ="
            Cells(m + 6, n + 22).FormulaR1C1 = " G18 = "
            Cells(m + 6, n + 23).FormulaR1C1 = "0"
            Cells(m + 6, n + 25).FormulaR1C1 = "Componete en z del campo el" & ChrW(233) & "ctrico"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[45]C+R[47]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[45]C+R[47]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[45]C+R[47]C"
            Cells(m + 7, n + 4).FormulaR1C1 = "Masa (kg):"
            Cells(m + 7, n + 21).FormulaR1C1 = "              E:"
            Cells(m + 7, n + 22).FormulaR1C1 = " G21 = "
            Cells(m + 7, n + 23).FormulaR1C1 = "0"
            Cells(m + 7, n + 25).FormulaR1C1 = "Mostrar u ocultar el vector E"
            Cells(m + 8, n + 4).FormulaR1C1 = "   m ="
            Cells(m + 8, n + 5).FormulaR1C1 = "=4*1.66E-27"
            Cells(m + 8, n + 21).FormulaR1C1 = "              B:"
            Cells(m + 8, n + 22).FormulaR1C1 = " G22 = "
            Cells(m + 8, n + 23).FormulaR1C1 = "0"
            Cells(m + 8, n + 25).FormulaR1C1 = "Mostrar u ocultar el vector B"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 4).FormulaR1C1 = "////////////////////////////"
            Cells(m + 9, n + 21).FormulaR1C1 = "Part" & ChrW(237) & "cula No.:"
            Cells(m + 9, n + 22).FormulaR1C1 = " G25 = "
            Cells(m + 9, n + 23).FormulaR1C1 = "1"
            Cells(m + 9, n + 25).FormulaR1C1 = "Indicar el nÏmero de la primera part" & ChrW(237) & "cula"
            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 = "Origen (m):"
            Cells(m + 10, n + 21).FormulaR1C1 = "   q ="
            Cells(m + 10, n + 22).FormulaR1C1 = " G27 = "
            Cells(m + 10, n + 23).FormulaR1C1 = "1.6E-19"
            Cells(m + 10, n + 25).FormulaR1C1 = "Carga de la primera part" & ChrW(237) & "cula"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "4"
            Cells(m + 11, n + 2).FormulaR1C1 = "   << -- Tama–o "
            Cells(m + 11, n + 4).FormulaR1C1 = "    x_o ="
            Cells(m + 11, n + 5).FormulaR1C1 = "0"
            Cells(m + 11, n + 21).FormulaR1C1 = "   m ="
            Cells(m + 11, n + 22).FormulaR1C1 = " G29 = "
            Cells(m + 11, n + 23).FormulaR1C1 = "6.64E-26"
            Cells(m + 11, n + 25).FormulaR1C1 = "Masa de la primera part" & ChrW(237) & "cula"
            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 = "Vo"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 27 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "Vo"
            Cells(m + 3, n + 4).FormulaR1C1 = "    y_o ="
            Cells(m + 3, n + 5).FormulaR1C1 = "0"
            Cells(m + 3, n + 21).FormulaR1C1 = "    x_o ="
            Cells(m + 3, n + 22).FormulaR1C1 = " G32 = "
            Cells(m + 3, n + 23).FormulaR1C1 = "0"
            Cells(m + 3, n + 25).FormulaR1C1 = "Posici" & ChrW(243) & "n en x de la primera part" & ChrW(237) & "cula"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "  1. Para ver trayectoria"
            Cells(m + 4, n + 4).FormulaR1C1 = "    z_o ="
            Cells(m + 4, n + 5).FormulaR1C1 = "0"
            Cells(m + 4, n + 21).FormulaR1C1 = "    y_o ="
            Cells(m + 4, n + 22).FormulaR1C1 = " G33 = "
            Cells(m + 4, n + 23).FormulaR1C1 = "0"
            Cells(m + 4, n + 25).FormulaR1C1 = "Posici" & ChrW(243) & "n en y de la primera part" & ChrW(237) & "cula"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[11]C[4]"
            Cells(m + 5, n + 2).FormulaR1C1 = "=""       oprimir A""&ROW(R[-11]C[-3])&"" (izq))."""
            Cells(m + 5, n + 4).FormulaR1C1 = "Velocidad inicial (m/s):"
            Cells(m + 5, n + 21).FormulaR1C1 = "    z_o ="
            Cells(m + 5, n + 22).FormulaR1C1 = " G34 = "
            Cells(m + 5, n + 23).FormulaR1C1 = "0"
            Cells(m + 5, n + 25).FormulaR1C1 = "Posici" & ChrW(243) & "n en z de la primera part" & ChrW(237) & "cula"
            Cells(m + 6, n + 2).FormulaR1C1 = "  2. Para adic. part" & ChrW(237) & "cluas"
            Cells(m + 6, n + 4).FormulaR1C1 = "    V_ox="
            Cells(m + 6, n + 5).FormulaR1C1 = "0"
            Cells(m + 6, n + 21).FormulaR1C1 = "    V_ox="
            Cells(m + 6, n + 22).FormulaR1C1 = " G36 = "
            Cells(m + 6, n + 23).FormulaR1C1 = "0"
            Cells(m + 6, n + 25).FormulaR1C1 = "Velocidad en x de la primera part" & ChrW(237) & "cula"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-5]C[6]"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-4]C[5]"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-3]C[4]"
            Cells(m + 7, n + 2).FormulaR1C1 = "         bot" & ChrW(243) & "n +OBJ. (cambiar "
            Cells(m + 7, n + 4).FormulaR1C1 = "    V_oy="
            Cells(m + 7, n + 5).FormulaR1C1 = "200000"
            Cells(m + 7, n + 21).FormulaR1C1 = "    V_oy="
            Cells(m + 7, n + 22).FormulaR1C1 = " G37 = "
            Cells(m + 7, n + 23).FormulaR1C1 = "40000"
            Cells(m + 7, n + 25).FormulaR1C1 = "Velocidad en y de la primera part" & ChrW(237) & "cula"
            Cells(m + 8, n + 2).FormulaR1C1 = "        luego Part" & ChrW(237) & "cula No.)."
            Cells(m + 8, n + 4).FormulaR1C1 = "    V_oz="
            Cells(m + 8, n + 5).FormulaR1C1 = "0"
            Cells(m + 8, n + 21).FormulaR1C1 = "    V_oz="
            Cells(m + 8, n + 22).FormulaR1C1 = " G38 = "
            Cells(m + 8, n + 23).FormulaR1C1 = "0"
            Cells(m + 8, n + 25).FormulaR1C1 = "Velocidad en z de la primera part" & ChrW(237) & "cula"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[6]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-2]C[5]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-1]C[4]"
            Cells(m + 9, n + 4).FormulaR1C1 = "   |Vo|  ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=SQRT(R[-3]C^2+R[-2]C^2+R[-1]C^2)"
            Cells(m + 9, n + 21).FormulaR1C1 = "   |Vo|  ="
            Cells(m + 9, n + 22).FormulaR1C1 = " G39 = "
            Cells(m + 9, n + 23).FormulaR1C1 = "=SQRT(R[-3]C[-18]^2+R[-2]C[-18]^2+R[-1]C[-18]^2)"
            Cells(m + 9, n + 25).FormulaR1C1 = "M" & ChrW(243) & "dulo de la velocidad inicial"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 21).FormulaR1C1 = "               D:"
            Cells(m + 10, n + 22).FormulaR1C1 = " G44 = "
            Cells(m + 10, n + 23).FormulaR1C1 = "1"
            Cells(m + 10, n + 25).FormulaR1C1 = "Mostrar/ocultar vector D"
            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 + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||"
            Cells(m + 11, n + 21).FormulaR1C1 = "               r:"
            Cells(m + 11, n + 22).FormulaR1C1 = " G45 = "
            Cells(m + 11, n + 23).FormulaR1C1 = "0"
            Cells(m + 11, n + 25).FormulaR1C1 = "Mostrar/ocultar vector r"
            Cells(m + 3, n + 1).Interior.Color = "11573124"
            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 = "V"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "V"
            Cells(m + 3, n + 2).FormulaR1C1 = "VISUALIZACI" & ChrW(211) & "N:"
            Cells(m + 3, n + 21).FormulaR1C1 = "           Vo:"
            Cells(m + 3, n + 22).FormulaR1C1 = " G46 = "
            Cells(m + 3, n + 23).FormulaR1C1 = "1"
            Cells(m + 3, n + 25).FormulaR1C1 = "Mostrar/ocultar vector Vo"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "(introducir valores)"
            Cells(m + 4, n + 4).FormulaR1C1 = "Mostrar (S" & ChrW(237) & "=0, no=1):"
            Cells(m + 4, n + 21).FormulaR1C1 = "              V:"
            Cells(m + 4, n + 22).FormulaR1C1 = " G47 = "
            Cells(m + 4, n + 23).FormulaR1C1 = "1"
            Cells(m + 4, n + 25).FormulaR1C1 = "Mostrar/ocultar vector V"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[3]C[4]"
            Cells(m + 5, n + 3).FormulaR1C1 = "Distancia"
            Cells(m + 5, n + 4).FormulaR1C1 = "               D:"
            Cells(m + 5, n + 5).FormulaR1C1 = "0"
            Cells(m + 5, n + 21).FormulaR1C1 = "              a:"
            Cells(m + 5, n + 22).FormulaR1C1 = " G48 = "
            Cells(m + 5, n + 23).FormulaR1C1 = "1"
            Cells(m + 5, n + 25).FormulaR1C1 = "Mostrar/ocultar vector a"
            Cells(m + 6, n + 3).FormulaR1C1 = "Radio vector"
            Cells(m + 6, n + 4).FormulaR1C1 = "               r:"
            Cells(m + 6, n + 5).FormulaR1C1 = "1"
            Cells(m + 6, n + 22).FormulaR1C1 = "G49"
            Cells(m + 6, n + 23).FormulaR1C1 = "              0 - 1"
            Cells(m + 6, n + 25).FormulaR1C1 = "Rotar alrededor del origen/iniciar en el origen"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 3).FormulaR1C1 = "Vel. Inicial"
            Cells(m + 7, n + 4).FormulaR1C1 = "           Vo:"
            Cells(m + 7, n + 5).FormulaR1C1 = "0"
            Cells(m + 7, n + 21).FormulaR1C1 = "   rB ="
            Cells(m + 7, n + 22).FormulaR1C1 = " G55 = "
            Cells(m + 7, n + 23).FormulaR1C1 = "f" & ChrW(243) & "rmula"
            Cells(m + 7, n + 25).FormulaR1C1 = "Radio de curvatura debido al campo B"
            Cells(m + 8, n + 3).FormulaR1C1 = "Velocidad"
            Cells(m + 8, n + 4).FormulaR1C1 = "              V:"
            Cells(m + 8, n + 5).FormulaR1C1 = "0"
            Cells(m + 8, n + 21).FormulaR1C1 = "    D ="
            Cells(m + 8, n + 22).FormulaR1C1 = " G57 = "
            Cells(m + 8, n + 23).FormulaR1C1 = "f" & ChrW(243) & "rmula"
            Cells(m + 8, n + 25).FormulaR1C1 = "Distancia desde el punto de partida"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[22]C[4]*(R12C1/R12C3) + 2*R[23]C[4]*((-R12C1*R12C3)/(R12C1^2 + R12C2^2)*COS(R[28]C[4]*R[-43]C[8]) - (R12C2*R14C5)/(R12C1^2 + R12C2^2)*SIN(R[28]C[4]*R[-43]C[8])) + 2*R[24]C[4]*((R12C2*R14C5)/(R12C1^2 + R12C2^2)*(COS(R[28]C[4]*R[-43]C[8])) - (R12C1*R12C3)/(R12C1^2 + R12C2^2)*SIN(R[28]C[4]*R[-43]C[8])) +(R21C2*R12C3-R21C3*R12C2)/R14C5^2"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[22]C[3]*(R12C2/R12C3) + 2*R[23]C[3]*( (-R12C2*R12C3)/(R12C1^2 + R12C2^2)*COS(R[28]C[3]*R[-43]C[7])+ (R12C1*R14C5)/(R12C1^2 + R12C2^2)*SIN(R[28]C[3]*R[-43]C[7])) + 2*R[24]C[3]*((-R12C1*R14C5)/(R12C1^2 + R12C2^2)*(COS(R[28]C[3]*R[-43]C[7])) - (R12C2*R12C3)/(R12C1^2 + R12C2^2)*SIN(R[28]C[3]*R[-43]C[7]))+(R21C3*R12C1-R21C1*R12C3)/R14C5^2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[22]C[2] + 2*R[23]C[2]*COS(R[28]C[2]*R[-43]C[6]) + 2*R[24]C[2]*SIN(R[28]C[2]*R[-43]C[6]) +  (R21C1*R12C2-R21C2*R12C1)/R14C5^2"
            Cells(m + 9, n + 3).FormulaR1C1 = "850"
            Cells(m + 9, n + 4).FormulaR1C1 = "              a:"
            Cells(m + 9, n + 5).FormulaR1C1 = "0"
            Cells(m + 9, n + 21).FormulaR1C1 = "    r ="
            Cells(m + 9, n + 22).FormulaR1C1 = " G59 = "
            Cells(m + 9, n + 23).FormulaR1C1 = "f" & ChrW(243) & "rmula"
            Cells(m + 9, n + 25).FormulaR1C1 = "Radio vector de la part" & ChrW(237) & "cula"
            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 + 3).FormulaR1C1 = "Rotar alrededor de Vo:"
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 21).FormulaR1C1 = "   |V|  ="
            Cells(m + 10, n + 22).FormulaR1C1 = " G61 = "
            Cells(m + 10, n + 23).FormulaR1C1 = "f" & ChrW(243) & "rmula"
            Cells(m + 10, n + 25).FormulaR1C1 = "M" & ChrW(243) & "dulo de la velociad "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 3, n + 1).Interior.Color = "11573124"
            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 + 45 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "r"
            Cells(m + 3, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||"
            Cells(m + 3, n + 21).FormulaR1C1 = "AGREGAR M" & ChrW(193) & "S PART" & ChrW(205) & "CULAS:"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "RESULTADOS:"
            Cells(m + 4, n + 21).FormulaR1C1 = "Al modelo se le pueden agregar varias part" & ChrW(237) & "culas con sus propios par" & ChrW(225) & "metros. Para ello"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "4"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-8]C[4]"
            Cells(m + 5, n + 2).FormulaR1C1 = "(no modificar)"
            Cells(m + 5, n + 21).FormulaR1C1 = "oprimir el bot" & ChrW(243) & "n +OBJ y, para eliminar, el bot" & ChrW(243) & "n -OBJ. Los siguientes valores deben estar"
            Cells(m + 6, n + 4).FormulaR1C1 = "Radio de curvatura (solo B):"
            Cells(m + 6, n + 21).FormulaR1C1 = "presentes antes de oprimir los botones:"
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "0"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 4).FormulaR1C1 = "   rB (m) ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=R[-26]C*R[-16]C/ABS(R[-28]C*R14C5)"
            Cells(m + 7, n + 23).FormulaR1C1 = " B2 = "
            Cells(m + 7, n + 24).FormulaR1C1 = "ENTIRE"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "Distancia (D = r - r_o):"
            Cells(m + 8, n + 22).FormulaR1C1 = "Fila inicial:"
            Cells(m + 8, n + 23).FormulaR1C1 = " B3 = "
            Cells(m + 8, n + 24).FormulaR1C1 = "24"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[18]C+R[-25]C[6]"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[18]C+R[-24]C[5]"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[18]C+R[-23]C[4]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "    D ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=SQRT(R[18]C[-6]^2+R[18]C[-5]^2+R[18]C[-4]^2)"
            Cells(m + 9, n + 22).FormulaR1C1 = "Fila final:"
            Cells(m + 9, n + 23).FormulaR1C1 = " C3 = "
            Cells(m + 9, n + 24).FormulaR1C1 = "77"
            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 = "Vector posici" & ChrW(243) & "n r:"
            Cells(m + 10, n + 21).FormulaR1C1 = "(AsegÏrese de cambiar el n" & ChrW(250) & "mero de la nueva part" & ChrW(237) & "cula y sus par" & ChrW(225) & "metros.)"
            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 = "    r ="
            Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[-2]C[-6]^2+R[-2]C[-5]^2+R[-2]C[-4]^2)"
            Cells(m + 11, n + 21).FormulaR1C1 = "FIJAR TRAYECTORIA DE LA PART" & ChrW(205) & "CULA"
            Cells(m + 3, n + 1).Interior.Color = "16753236"
            Cells(m + 3, n + 1).Font.Size = "12"
            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 + 54 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "a"
            Cells(m + 3, n + 4).FormulaR1C1 = "Velocidad (m/s):"
            Cells(m + 3, n + 21).FormulaR1C1 = "Utilizar el bot" & ChrW(243) & "n en A24 para fijar la trayectoria de la part" & ChrW(237) & "cula antes de oprimir el bot" & ChrW(243) & "n de ejecuci" & ChrW(243) & "n"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "   |V|  ="
            Cells(m + 4, n + 5).FormulaR1C1 = "=SQRT(R[-13]C[-6]^2+R[-13]C[-5]^2+R[-13]C[-4]^2)"
            Cells(m + 4, n + 21).FormulaR1C1 = "ubicado en la celda K5."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "80*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-14]C[4]"
            Cells(m + 5, n + 4).FormulaR1C1 = "Fuerza de Lorentz (N):"
            Cells(m + 6, n + 4).FormulaR1C1 = "    F_x  ="
            Cells(m + 6, n + 5).FormulaR1C1 = "=R[-34]C*R[3]C[-6]"
            Cells(m + 6, n + 24).FormulaR1C1 = "TEOR" & ChrW(237) & "A"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-36]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-36]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-36]C"
            Cells(m + 7, n + 4).FormulaR1C1 = "    F_y  ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=R[-35]C*R[2]C[-5]"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-58]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "    F_z  ="
            Cells(m + 8, n + 5).FormulaR1C1 = "=R[-36]C*R[1]C[-4]"
            Cells(m + 8, n + 21).FormulaR1C1 = "El movimiento de una part" & ChrW(237) & "cula cargada en un campo magn" & ChrW(233) & "tico se puede estudiar por medio "
            Cells(m + 9, n + -1).FormulaR1C1 = "=2*R[5]C[4]*R[10]C[4]/(R12C1^2+R12C2^2)*(R12C1*R12C3*SIN(R[10]C[4]*R[-61]C[8])-R12C2*R14C5*COS(R[10]C[4]*R[-61]C[8]))+2*R[6]C[4]*R[10]C[4]/(R12C1^2+R12C2^2)*(-R12C2*R14C5*SIN(R[10]C[4]*R[-61]C[8])-R12C1*R12C3*COS(R[10]C[4]*R[-61]C[8]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=2*R[5]C[3]*R[10]C[3]/(R12C1^2+R12C2^2)*(R12C2*R12C3*SIN(R[10]C[3]*R[-61]C[7])+R12C1*R14C5*COS(R[10]C[3]*R[-61]C[7]))+2*R[6]C[3]*R[10]C[3]/(R12C1^2+R12C2^2)*(R12C1*R14C5*SIN(R[10]C[3]*R[-61]C[7])-R12C2*R12C3*COS(R[10]C[3]*R[-61]C[7]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=-2*R[5]C[2]*R[10]C[2]*SIN(R[10]C[2]*R[-61]C[6])+2*R[6]C[2]*R[10]C[2]*COS(R[10]C[2]*R[-61]C[6])"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-59]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "    |F| ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=SQRT(R[-3]C^2+R[-2]C^2+R[1]C^2)"
            Cells(m + 9, n + 21).FormulaR1C1 = "de la expresi" & ChrW(243) & "n "
            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 = "||||||||||||||||||||||||||||||||||||||||||||||"
            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 + 2).FormulaR1C1 = "CONSTANTES:"
            Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-35-1)"
            Cells(m + 3, n + 1).Interior.Color = "49407"
            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 = "D"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 63 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "D"
            Cells(m + 3, n + 2).FormulaR1C1 = "(no modificar)"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "C1"
            Cells(m + 4, n + 3).FormulaR1C1 = "=(R12C1*R12C3*R[-34]C[2]+R12C2*R12C3*R[-33]C[2]+R12C3^2*R[-32]C[2])/R14C5^2"
            Cells(m + 4, n + 21).FormulaR1C1 = "en donde F es la fuerza magn" & ChrW(233) & "tica que experimenta la part" & ChrW(237) & "cula con carga q, v es su velocidad y "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "2"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C[4]"
            Cells(m + 5, n + 2).FormulaR1C1 = "C2"
            Cells(m + 5, n + 3).FormulaR1C1 = "=(-R12C1*R12C3*R[-35]C[2]-R12C2*R12C3*R[-34]C[2]+R12C1^2*R[-33]C[2]+R12C2^2*R[-33]C[2])/(2*R14C5^2)"
            Cells(m + 5, n + 21).FormulaR1C1 = "B el campo magn" & ChrW(233) & "tico. Debido a esta expresi" & ChrW(243) & "n, en un campo magn" & ChrW(233) & "tico constante la part" & ChrW(237) & "cula "
            Cells(m + 6, n + -1).FormulaR1C1 = "Initial position"
            Cells(m + 6, n + 0).FormulaR1C1 = "Aoy"
            Cells(m + 6, n + 1).FormulaR1C1 = "Aoz"
            Cells(m + 6, n + 2).FormulaR1C1 = "C3"
            Cells(m + 6, n + 3).FormulaR1C1 = "=(R12C2*R[-36]C[2]-R12C1*R[-35]C[2])/(2*R14C5)"
            Cells(m + 6, n + 21).FormulaR1C1 = "que ingresa perpendicular al campo describe una trayectoria circular cuyo radio se puede "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-41]C[6]"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-40]C[5]"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-39]C[4]"
            Cells(m + 7, n + 2).FormulaR1C1 = "C4"
            Cells(m + 7, n + 3).FormulaR1C1 = "=-(2*R[-2]C*R12C2*R14C5+2*R[-1]C*R12C1*R12C3)/(R[3]C*(R12C1^2+R12C2^2))"
            Cells(m + 7, n + 21).FormulaR1C1 = "calcular acudiendo a la igualdad de la fuerza magn" & ChrW(233) & "tica (centr" & ChrW(237) & "peta) y la fuerza mec" & ChrW(225) & "nica centr" & ChrW(237) & "fuga,"
            Cells(m + 8, n + 2).FormulaR1C1 = "C5"
            Cells(m + 8, n + 3).FormulaR1C1 = "=(2*R[-3]C*R12C1*R14C5-2*R[-2]C*R12C2*R12C3)/(R[2]C*(R12C1^2+R12C2^2))"
            Cells(m + 8, n + 21).FormulaR1C1 = "esta Ïltima dada por:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-5]C[4]*(R12C1/R12C3)*R[-70]C[8]+2*R[-4]C[4]*((-R12C1*R12C3)/(R12C1^2+R12C2^2)*(SIN(R[1]C[4]*R[-70]C[8]))/R[1]C[4]-(R12C2*R14C5)/(R12C1^2 + R12C2^2)*(COS(R[1]C[4]*R[-70]C[8]))/R[1]C[4])+2*R[-3]C[4]*((R12C2*R14C5)/(R12C1^2+R12C2^2)*(SIN(R[1]C[4]*R[-70]C[8]))/R[1]C[4]-(R12C1*R12C3)/(R12C1^2+R12C2^2)*(1-COS(R[1]C[4]*R[-70]C[8]))/R[1]C[4])+(R21C2*R12C3-R21C3*R12C2)/R14C5^2*R[-70]C[8]+R[-2]C[4]*GESTEP(R[-26]C[6],0.1)"
            Cells(m + 9, n + 0).FormulaR1C1 = "= R[-5]C[3]*(R12C2/R12C3)*R[-70]C[7] + 2*R[-4]C[3]*((-R12C2*R12C3)/(R12C1^2 + R12C2^2)*(SIN(R[1]C[3]*R[-70]C[7]))/R[1]C[3] + (R12C1*R14C5)/(R12C1^2 + R12C2^2)*(COS(R[1]C[3]*R[-70]C[7]))/R[1]C[3]) + 2*R[-3]C[3]*((-R12C1*R14C5)/(R12C1^2 + R12C2^2)*(SIN(R[1]C[3]*R[-70]C[7]))/R[1]C[3]) - (R12C2*R12C3)/(R12C1^2 + R12C2^2)*(1 - COS(R[1]C[3]*R[-70]C[7])/R[1]C[3]) + (R21C3*R12C1-R21C1*R12C3)/R14C5^2*R[-70]C[7]+R[-1]C[3]*GESTEP(R[-26]C[5],0.1)"
            Cells(m + 9, n + 1).FormulaR1C1 = "= R[-5]C[2]*R[-70]C[6] + 2*R[-4]C[2]*SIN(R[1]C[2]*R[-70]C[6])/R[1]C[2] - 2*R[-3]C[2]*COS(R[1]C[2]*R[-70]C[6])/R[1]C[2] + (R21C1*R12C2-R21C2*R12C1)/R14C5^2*R[-70]C[6]+RC[2]*GESTEP(R[-26]C[4],0.1)"
            Cells(m + 9, n + 2).FormulaR1C1 = "C6"
            Cells(m + 9, n + 3).FormulaR1C1 = "=2*R[-3]C/R[1]C"
            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 = "qB/m"
            Cells(m + 10, n + 3).FormulaR1C1 = "=R[-49]C[2]*R14C5/R[-47]C[2]"
            Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-35-2)"
            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 + 2).FormulaR1C1 = "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
            Cells(m + 3, n + 1).Interior.Color = "16711680"
            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 = 8
      End If ' vector ends
      If m = m1 + 63 Then
            Cells(m + 13, n + 21).FormulaR1C1 = "Entonces, la expresi" & ChrW(243) & "n para el radio queda:"
            Cells(m + 16, n + 27).FormulaR1C1 = "(Eq-35-3)"
            Cells(m + 19, n + 21).FormulaR1C1 = "Cuando la part" & ChrW(237) & "cula se mueve bajo la influencia simult" & ChrW(225) & "nea de un campo magn" & ChrW(233) & "tico y "
            Cells(m + 20, n + 21).FormulaR1C1 = "un campo el" & ChrW(233) & "ctrico constantes, se acude a la expresi" & ChrW(243) & "n comunmente denominada fuerza de "
            Cells(m + 21, n + 21).FormulaR1C1 = "Lorentz:"
            Cells(m + 23, n + 27).FormulaR1C1 = "(Eq-35-4)"
            Cells(m + 26, n + 21).FormulaR1C1 = "La part" & ChrW(237) & "cula sigue una l" & ChrW(237) & "nea recta cuando las fuerzas magn" & ChrW(233) & "tica y el" & ChrW(233) & "ctrica se igualan. Un caso "
            Cells(m + 27, n + 21).FormulaR1C1 = "part" & ChrW(237) & "cular se consigue por ejemplo cuando el campo magn" & ChrW(233) & "tico se dirige en la direcci" & ChrW(243) & "n"
            Cells(m + 28, n + 21).FormulaR1C1 = "negativa del eje x, el campo el" & ChrW(233) & "ctrico en la direcci" & ChrW(243) & "n negativa del eje z y la velociadad de la "
            Cells(m + 29, n + 21).FormulaR1C1 = "part" & ChrW(237) & "cula tiene solamente componente en direcci" & ChrW(243) & "n y. En este caso, la expresi" & ChrW(243) & "n para"
            Cells(m + 30, n + 21).FormulaR1C1 = "la velocidad (cuando las fuerzas magn" & ChrW(233) & "tica y el" & ChrW(233) & "ctrica se autoeliminan) es:"
            Cells(m + 33, n + 27).FormulaR1C1 = "(Eq-35-5)"
            Cells(m + 35, n + 21).FormulaR1C1 = "Por ejemplo para conseguir una velocidad constante (selector de velocidades) coloque Ez = G18 = -3,"
            Cells(m + 36, n + 21).FormulaR1C1 = "Bx = G11 = -0,00005 y Voy = G37 = 0,01*G18/G11 y oprima K5. Experimente con otros n" & ChrW(250) & "meros"
            Cells(m + 37, n + 21).FormulaR1C1 = "en lugar de 0,01 para obtener diferentes figuras, como 0,5*G18/G11, 2*G18/G11, etc."
            Cells(m + 39, n + 21).FormulaR1C1 = "UTILIZANDO EL MODELO"
            Cells(m + 40, n + 21).FormulaR1C1 = "Para utilizar el modelo, modifique a conveniencia las condiciones iniciales en la columna G a partir de "
            Cells(m + 41, n + 21).FormulaR1C1 = "la fila 10 para el campo el" & ChrW(233) & "ctrico, campo magn" & ChrW(233) & "tico, velocidad inicial, carga y masa de la part" & ChrW(237) & "cula."
            Cells(m + 42, n + 21).FormulaR1C1 = "Utilice el bot" & ChrW(243) & "n en A24 (izquierda) y luego el bot" & ChrW(243) & "n K5 para ver la trayectoria de la part" & ChrW(237) & "cula."
            Cells(m + 43, n + 21).FormulaR1C1 = "Oprima varias veces K5 para un recorrido m" & ChrW(225) & "s largo o modifique el nÏmero de pasos en la celda I4."
            Cells(m + 44, n + 21).FormulaR1C1 = "Utrilice el bot" & ChrW(243) & "n +OBJ para agregar màs part" & ChrW(237) & "culas y -OBJ para eliminarlas. Trate de conseguir "
            Cells(m + 45, n + 21).FormulaR1C1 = "diferentes trayectorias, como circunferencias, espirales, espirales deformadas, modificando las "
            Cells(m + 46, n + 21).FormulaR1C1 = "componentes de los campos. "
            Cells(m + 48, n + 21).FormulaR1C1 = "___________________________________________________________________________________"
            Cells(m + 49, n + 21).FormulaR1C1 = "Observaci" & ChrW(243) & "n: El modelo se construy" & ChrW(243) & " a partir de la ecuaci" & ChrW(243) & "n diferencial Eq-35-4, de donde se hallaron"
            Cells(m + 50, n + 21).FormulaR1C1 = "las expresiones para las coordenadas, velocidades y aceleraci" & ChrW(243) & "n. De all" & ChrW(237) & " aparecen las constantes "
            Cells(m + 51, n + 21).FormulaR1C1 = "que se encuentran en las celdas D70-D75. Estas expresiones son muy extensas para explicarlas"
            Cells(m + 52, n + 21).FormulaR1C1 = "en este modelo, sin embargo si el lector lo desea, se podr" & ChrW(225) & " encontrar el an" & ChrW(225) & "lisis a detalle en los "
            Cells(m + 53, n + 21).FormulaR1C1 = "libros relacionados con ScienSolar."
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub