Sub Project_37_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 37_Fuerza carga-distribucion_ES

   ' Updated: 14/03/25
   ' 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 37 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 = ""
            Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",24,42)"
            Cells(m1 + 0, n1 + 1).FormulaR1C1 = "59"
            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 = "1"
            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 + 0).FormulaR1C1 = "t = 0,4375 s."
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "100"
            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 = "F"
            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 = "CAMPO DE UN CUADRUPOLO ELÄCTRICO" & Chr(10) & _
"     (See english version at the end)" & Chr(10) & _
"     Un cuadrupolo el_ctrico se puede definir como el conjunto de cuatro cargas puntuales q distribuidas en el espacio. La forma mās sencilla de un cuadrupolo son cuatro cargas distribuidas en los v_rtices de un cuadrado.  Para hallar el campo el_ctrico de un cuadrupolo en cualquier punto del espacio, se aplica el principio de superposiciŅn, es decir, en cada punto del espacio el campo el_ctrico del dipolo es la suma vectorial de los campos el_ctricos de las cuatro cargas por aparte: " & Chr(10) & _
"     E = E1 + E2 + E3 + E4,  E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _
"     En las celdas A84, B84 y C84 estān las componentes para el campo resultante de las cuatro cargas cargas. En las celdas A10, B10 y C210 se introducen las coordenadas en el espacio en donde se ubica la primera carga y en las celdas A21, B21, C21 estān ubicadaa las ecuaciones para calcular el campo el_ctrico de la primera carga: " & Chr(10) & _
"     E1x= k q1(x1_x01)/((x1 _ x01)^2 + (y1 _ y01)^2 + (z1 _ z01)^2)^(3/2)" & Chr(10) & _
"     E1y = k q1(y1_y01)/((x1 _ x01)^2 + (y1 _ y01)^2 + (z1 _ z01)^2)^(3/)2 " & Chr(10) & _
"     E1z= k q1(z1_z01)/((x1 _ x01)^2 + (y1 _ y01)^2 + (z1 _ z01)^2)^(3/2)." & Chr(10) & _
"     De manera similar en A28, B28, C28 se introduce la posici[on de la segunda carga y su campo en A39, B39, C39; en A46, B46, C46 la posiciŅn de la tercera carga y su campo en A57, B57, C57, finalmente en A64, B64, C64 la posiciŅn de la tercera carga y su campo en A75, B75, C75. " & Chr(10) & _
"     Modifique la magnitud de las cargas y su signo en las celdas C6, C24, C42 y C60, asÕ como el color de su apariencia. Para calcular el campo el_ctrico en cualquier punto del espacio, introduzca las coordenadas del punto en  A83, B83, C83 y oprima cualquier botŅn de coordenadas. " & Chr(10) & _
"     La configuraciŅn espacial del campo se puede visualizar en diferentes tipos de coordenadas utilizando la celda C79. Para ver el campo en coordenadas esf_ricas coloque C79=s, en cilÕndricas C79=c y en cartesianas C79=o y oprima cualquier botŅn de coordenadas. Modifique a conveniencia los parāmetros del campo en la cadena que aparece en esta misma celda. " & Chr(10) & _
"     Para visdualizar el campo el_ctrico resultante con mayor resoluciŅn, en la celda C43 modifique entre los primeros par_ntesis cuadrados el valor, poniendo uno mās peque_o, por ejemplo o[0,5]; entre mā peque_o sea el valor, mejor serā la resoluciŅn pero tardarā mās tiempo en renderizar. Para ver de nuevo los vectores campo solamente en un punto en particular, borre el contenido del la celda C43 y escriba las coordenadas en donde desee ver el campo en las celdas en  A83, B83, C83, por ejemplo A47=0, B47=0, C47=3. " & Chr(10) & _
"     (ENGLISH)" & Chr(10) & _
"     FIELD OF AN ELECTRICAL QUADRUPOLE" & Chr(10) & _
"     An electric quadrupole can be defined as the set of four point charges q distributed in space. The simplest form of a quadrupole is four charges distributed at the vertices of a square. To find the electric field of a quadrupole at any point in space, the superposition principle is applied, that is, at each point in space the electric field of the dipole is the vector sum of the electric fields of the four charges separately:" & Chr(10) & _
"     E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _
"     In cells A84, B84 and C84 are the components of the field resulting from the four charges. In cells A10, B10 and C210 the coordinates in space where the first charge is located are entered and in cells A21, B21, C21 the equations are located to calculate the electric field of the first charge:" & Chr(10) & _
"     E1x= k q1(x1_x01)/((x1 _ x01)^2 + (y1 _ y01)^2 + (z1 _ z01)^2)^(3/2)" & Chr(10) & _
"     E1y = k q1(y1_y01)/((x1 _ x01)^2 + (y1 _ y01)^2 + (z1 _ z01)^2)^(3/)2" & Chr(10) & _
"     E1z= k q1(z1_z01)/((x1 _ x01)^2 + (y1 _ y01)^2 + (z1 _ z01)^2)^(3/2)." & Chr(10) & _
"     Similarly in A28, B28, C28 the position of the second charge and its field are entered in A39, B39, C39; in A46, B46, C46 the position of the third charge and its field in A57, B57, C57, finally in A64, B64, C64 the position of the third charge and its field in A75, B75, C75." & Chr(10) & _
"     Change the magnitude of the charges and their sign in cells C6, C24, C42 and C60, as well as the color of their appearance. To calculate the electric field at any point in space, enter the coordinates of the point at A83, B83, C83 and press any coordinate button." & Chr(10) & _
"     The spatial configuration of the field can be displayed in different types of coordinates using cell C79. To see the field in spherical coordinates, place C79=s, in cylindrical C79=c and in Cartesian C79=o and press any coordinate button. Modify the field parameters in the string that appears in this very cell. To visualize the resulting electric field with greater resolution, in cell C43 modify the value between the first brackets, putting a smaller one, for example o[0,5]; the smaller the value, the better the resolution, but it will take longer to render. To return to seeing the field vectors only at a particular point, delete the contents of cell C43 and type the coordinates where you want to see the field in cells A83, B83, C83, for example A47=0, B47=0, C47 =3." & Chr(10) & _
"     "
       On Error Resume Next
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 10
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "F"
            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 de Coulomb: carga-distribucion"
            Cells(m + 4, n + 12).FormulaR1C1 = "FUERZA EL" & ChrW(201) & "CTRICA DE SOBRE UNA CARGA PUNTUAL POR PARTE DE DISTRUCIONES DE CARGA"
            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 + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""F_*"")"
            Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""F_*"")"
            Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""F_*"")"
            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 + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n permite el c" & ChrW(225) & "lculo y la visualizaci" & ChrW(243) & "n tridimensional de la fuerza el" & ChrW(233) & "ctrica que"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "1"
            Cells(m + 8, n + 1).FormulaR1C1 = "1"
            Cells(m + 8, n + 2).FormulaR1C1 = "<< -- POSICI" & ChrW(211) & "N DE LA CARGA PUNTUAL Q"
            Cells(m + 8, n + 21).FormulaR1C1 = "experimenta una carga puntual debido a la presencia de una distribuci" & ChrW(243) & "n lineal de carga en el"
            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 = "<< FUERZA RESULTANTE (F_x, F_y, F_z)."
            Cells(m + 9, n + 21).FormulaR1C1 = "espacio. El modelo se basa en una configuraci" & ChrW(243) & "n inicial de cinco cargas que forman una l" & ChrW(237) & "nea; sin"
            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 = "embargo, es posible a–adir m" & ChrW(225) & "s elementos de carga dq, lo que permite calcular la fuerza total"
            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 = "CARGA PUNTUAL:"
            Cells(m + 11, n + 21).FormulaR1C1 = "sobre la carga puntual en cualquier posici" & ChrW(243) & "n del espacio. El procedimiento para agregar m" & ChrW(225) & "s"
            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 = " +  Q   "
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 9
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0,""- "",IF(RC[1]>0,"" + "",""""))&"" Q   """
            Cells(m + 3, n + 1).FormulaR1C1 = "0.000003"
            Cells(m + 3, n + 2).FormulaR1C1 = "<< -- Q"
            Cells(m + 3, n + 21).FormulaR1C1 = "elementos de carga se describe al final del texto"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 4).FormulaR1C1 = "FUERZA RESULTANTE"
            Cells(m + 5, n + 21).FormulaR1C1 = "La fuerza total se calcula mediante el principio de superposici" & ChrW(243) & "n, como la suma vectorial de las"
            Cells(m + 6, n + 4).FormulaR1C1 = "SOBRE Q (N - newtons):"
            Cells(m + 6, n + 21).FormulaR1C1 = "fuerzas generadas por cada elemento de carga \(dq\) sobre la carga puntual:"
            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 = "=IF(OR(R[31]C[1]="""",R[31]C[1]>3,R[31]C[1]=0),""        |F| ="","""")"
            Cells(m + 7, n + 5).FormulaR1C1 = "=SQRT(R[-7]C[-6]^2+R[-7]C[-5]^2+R[-7]C[-4]^2)"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "36"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-19-1)"
            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 = "donde cada F_i se determina mediante la ley de Coulomb:"
            Cells(m + 11, n + -1).FormulaR1C1 = "6"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "10"
            Cells(m + 3, n + 1).Interior.Color = "3506772"
            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 = "L1   "
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 8
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=""L""&R[1]C[5]&""   """
            Cells(m + 3, n + 1).FormulaR1C1 = "1"
            Cells(m + 3, n + 4).FormulaR1C1 = "////////////////////////////"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "No. de l" & ChrW(237) & "nea ="
            Cells(m + 4, n + 5).FormulaR1C1 = "1"
            Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-19-2)"
            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 = "Q_L1 ="
            Cells(m + 5, n + 5).FormulaR1C1 = "=R[3]C*R[21]C"
            Cells(m + 6, n + 4).FormulaR1C1 = "dL ="
            Cells(m + 6, n + 5).FormulaR1C1 = "0.2"
            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 + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&(R[-4]C[-3]-1)/2"
            Cells(m + 7, n + 4).FormulaR1C1 = "k ="
            Cells(m + 7, n + 5).FormulaR1C1 = "9000000000"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "Densidad:"
            Cells(m + 8, n + 5).FormulaR1C1 = "0.00002"
            Cells(m + 8, n + 21).FormulaR1C1 = "donde:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R27C7*COS(RADIANS(R36C7+R39C7*R[-6]C[2]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R27C7*SIN(RADIANS(R36C7+R39C7*R[-6]C[1]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R27C7*COS(RADIANS(R37C7+R40C7*R[-6]C))"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "Posici" & ChrW(243) & "n de la l" & ChrW(237) & "nea:"
            Cells(m + 9, n + 21).FormulaR1C1 = " - k es una constante que depende del sistema de unidades y cuyo valor se introduce en la celda G19,"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "x_o ="
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 21).FormulaR1C1 = " - Q es la carga puntual,"
            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 = "2"
            Cells(m + 11, n + 21).FormulaR1C1 = " - q_i = dq es el elemento de carga de la l" & ChrW(237) & "nea,"
            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 + 27 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 4).FormulaR1C1 = "z_o ="
            Cells(m + 3, n + 5).FormulaR1C1 = "0.1"
            Cells(m + 3, n + 21).FormulaR1C1 = " - r es la distancia entre el elemento de carga dq y la carga puntual,"
            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 = "=R43C7"
            Cells(m + 5, n + 4).FormulaR1C1 = "Inclinaci" & ChrW(243) & "n"
            Cells(m + 5, n + 21).FormulaR1C1 = "Estas ecuaciones se generan autom" & ChrW(225) & "ticamente en el modelo para cada elemento de carga, y las"
            Cells(m + 6, n + 4).FormulaR1C1 = "phi ="
            Cells(m + 6, n + 5).FormulaR1C1 = "90"
            Cells(m + 6, n + 21).FormulaR1C1 = "componentes de la fuerza resultante (F_x, F_y, F_z) se muestran en las celdas A12, B12 y C12,"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 7, n + 4).FormulaR1C1 = "theta ="
            Cells(m + 7, n + 5).FormulaR1C1 = "0"
            Cells(m + 7, n + 21).FormulaR1C1 = "respectivamente. La magnitud de la fuerza resultante se observa en la celda G10."
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "Flexi" & ChrW(243) & "n:"
            Cells(m + 8, n + 21).FormulaR1C1 = "A medida que el n" & ChrW(250) & "mero de elementos de carga aumenta y la longitud de cada elemento dL  tiende a"
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R25C7&""_""&(R[-15]C[-3]-1)/2"
            Cells(m + 9, n + 4).FormulaR1C1 = "Acimut ="
            Cells(m + 9, n + 5).FormulaR1C1 = "0"
            Cells(m + 9, n + 21).FormulaR1C1 = "cero, esta suma discreta se aproxima a una integral. Sin embargo, en este modelo se utilizan"
            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 = "Elevaci" & ChrW(243) & "n ="
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 21).FormulaR1C1 = "magnitudes y cantidades finitas. Inicialmente, se analiza la fuerza ejercida por unos pocos"
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "elementos de carga, y el usuario puede a–adir m" & ChrW(225) & "s elementos y modificar su configuraci" & ChrW(243) & "n mediante"
            Cells(m + 3, n + 1).Interior.Color = "9851952"
            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 6
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R26C7=0,"""",IF(R26C7<0,""  -  "",""  +  ""))"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 4).FormulaR1C1 = "Mostrar vectores F_i:"
            Cells(m + 3, n + 21).FormulaR1C1 = "" & ChrW(225) & "ngulos de flexi" & ChrW(243) & "n."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "S" & ChrW(205) & " = 0, NO = 1"
            Cells(m + 4, n + 5).FormulaR1C1 = "1"
            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 + 21).FormulaR1C1 = "Configuraci" & ChrW(243) & "n del Modelo"
            Cells(m + 6, n + 4).FormulaR1C1 = "L" & ChrW(237) & "nea:"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&(R[-4]C[-3]-1)/2"
            Cells(m + 7, n + 4).FormulaR1C1 = "n ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""F_""&R[-21]C&""_*"")"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "L ="
            Cells(m + 8, n + 5).FormulaR1C1 = "=R[-20]C*R[-1]C"
            Cells(m + 8, n + 21).FormulaR1C1 = "FUERZA RESULTANTE SOBRE LA CARGA Q:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R27C7*COS(RADIANS(R36C7+R39C7*R[-6]C[2]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R27C7*SIN(RADIANS(R36C7+R39C7*R[-6]C[1]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R27C7*COS(RADIANS(R37C7+R40C7*R[-6]C))"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "=IF(R[10]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "Posici" & ChrW(243) & "n de la carga:"
            Cells(m + 9, n + 26).FormulaR1C1 = "Fuerza resultante:"
            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 + 22).FormulaR1C1 = "x_o = "
            Cells(m + 10, n + 24).FormulaR1C1 = " A11"
            Cells(m + 10, n + 26).FormulaR1C1 = "F_x = "
            Cells(m + 10, n + 27).FormulaR1C1 = "      A12 "
            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 + 22).FormulaR1C1 = "y_o = "
            Cells(m + 11, n + 24).FormulaR1C1 = " B11"
            Cells(m + 11, n + 26).FormulaR1C1 = "F_y = "
            Cells(m + 11, n + 27).FormulaR1C1 = "      B12"
            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 5
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 = "z_o = "
            Cells(m + 3, n + 24).FormulaR1C1 = " C11"
            Cells(m + 3, n + 26).FormulaR1C1 = "F_z = "
            Cells(m + 3, n + 27).FormulaR1C1 = "      C12"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 5).FormulaR1C1 = "=IF(R[-2]C=2,""c[10]rho=[90;90]c2[10]phi=[0;360]c3[10]z=[-200;200]color=[8]origin[cart.]=[0;0;0]tfactor=0,00323606s"","""")"
            Cells(m + 4, n + 21).FormulaR1C1 = "______________________________________________________________________________________________"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R43C7"
            Cells(m + 5, n + 5).FormulaR1C1 = "=IF(R[-3]C=3,""s[10]r=[150;150]s2[10]phi=[0;360]s3[10]theta=[0;180]color=[8]origin[cart.]=[0;0;0]tfactor=0,003322398s"","""")"
            Cells(m + 5, n + 21).FormulaR1C1 = "PAR" & ChrW(193) & "METROS "
            Cells(m + 5, n + 26).FormulaR1C1 = "DESCRIPCI" & ChrW(211) & "N"
            Cells(m + 6, n + 22).FormulaR1C1 = "        |F| ="
            Cells(m + 6, n + 23).FormulaR1C1 = " G19 = "
            Cells(m + 6, n + 24).FormulaR1C1 = "=ROUND(SQRT(R[-42]C[-25]^2+R[-42]C[-24]^2+R[-42]C[-23]^2),2)"
            Cells(m + 6, n + 25).FormulaR1C1 = "N"
            Cells(m + 6, n + 26).FormulaR1C1 = "Magnitud de la fuerza resultante"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R37C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R37C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R37C3"
            Cells(m + 7, n + 22).FormulaR1C1 = "No. DE L" & ChrW(205) & "NEA ="
            Cells(m + 7, n + 23).FormulaR1C1 = " G25 = "
            Cells(m + 7, n + 24).FormulaR1C1 = "1"
            Cells(m + 7, n + 26).FormulaR1C1 = "N" & ChrW(250) & "mero de la distribuci" & ChrW(243) & "n de carga."
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 = "Q_L1 ="
            Cells(m + 8, n + 23).FormulaR1C1 = " G26 = "
            Cells(m + 8, n + 24).FormulaR1C1 = "0.00001"
            Cells(m + 8, n + 25).FormulaR1C1 = "C"
            Cells(m + 8, n + 26).FormulaR1C1 = "Carga de la primera distribuci" & ChrW(243) & "n."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R25C7&""_""&(R[-15]C[-3]-1)/2"
            Cells(m + 9, n + 22).FormulaR1C1 = "dL ="
            Cells(m + 9, n + 23).FormulaR1C1 = " G27 = "
            Cells(m + 9, n + 24).FormulaR1C1 = "0.2"
            Cells(m + 9, n + 25).FormulaR1C1 = "m"
            Cells(m + 9, n + 26).FormulaR1C1 = "Longitud de cada elemento de la l" & ChrW(237) & "nea."
            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 + 22).FormulaR1C1 = "k ="
            Cells(m + 10, n + 23).FormulaR1C1 = " G28 = "
            Cells(m + 10, n + 24).FormulaR1C1 = "8900000000"
            Cells(m + 10, n + 25).FormulaR1C1 = "Nm^2/C^2"
            Cells(m + 10, n + 26).FormulaR1C1 = "Constante el" & ChrW(233) & "ctrica."
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 22).FormulaR1C1 = "Densidad:"
            Cells(m + 11, n + 23).FormulaR1C1 = "G29"
            Cells(m + 11, n + 24).FormulaR1C1 = "0.000002"
            Cells(m + 11, n + 25).FormulaR1C1 = "C/m"
            Cells(m + 11, n + 26).FormulaR1C1 = "Densidad de carga."
            Cells(m + 3, n + 1).Interior.Color = "9851952"
            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 4
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R26C7=0,"""",IF(R26C7<0,""  -  "",""  +  ""))"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 = "x_o ="
            Cells(m + 3, n + 23).FormulaR1C1 = " G31 = "
            Cells(m + 3, n + 24).FormulaR1C1 = "0"
            Cells(m + 3, n + 25).FormulaR1C1 = "m"
            Cells(m + 3, n + 26).FormulaR1C1 = "Posici" & ChrW(243) & "n de la l" & ChrW(237) & "nea en x"
            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 = " G32 = "
            Cells(m + 4, n + 24).FormulaR1C1 = "2"
            Cells(m + 4, n + 25).FormulaR1C1 = "m"
            Cells(m + 4, n + 26).FormulaR1C1 = "Posici" & ChrW(243) & "n de la l" & ChrW(237) & "nea en y"
            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 + 22).FormulaR1C1 = "z_o ="
            Cells(m + 5, n + 23).FormulaR1C1 = " G33 = "
            Cells(m + 5, n + 24).FormulaR1C1 = "0.1"
            Cells(m + 5, n + 25).FormulaR1C1 = "m"
            Cells(m + 5, n + 26).FormulaR1C1 = "Posici" & ChrW(243) & "n de la l" & ChrW(237) & "nea en z"
            Cells(m + 6, n + 22).FormulaR1C1 = "phi ="
            Cells(m + 6, n + 23).FormulaR1C1 = " G36 = "
            Cells(m + 6, n + 24).FormulaR1C1 = "90"
            Cells(m + 6, n + 25).FormulaR1C1 = "grados"
            Cells(m + 6, n + 26).FormulaR1C1 = "" & ChrW(193) & "ngulo acimutal inicial de la linea"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&(R[-4]C[-3]-1)/2"
            Cells(m + 7, n + 22).FormulaR1C1 = "theta ="
            Cells(m + 7, n + 23).FormulaR1C1 = " G37 = "
            Cells(m + 7, n + 24).FormulaR1C1 = "0"
            Cells(m + 7, n + 25).FormulaR1C1 = "grados"
            Cells(m + 7, n + 26).FormulaR1C1 = "" & ChrW(193) & "ngulo polar inicial de la linea"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 = "Acimut ="
            Cells(m + 8, n + 23).FormulaR1C1 = " G39 = "
            Cells(m + 8, n + 24).FormulaR1C1 = "0"
            Cells(m + 8, n + 25).FormulaR1C1 = "grados"
            Cells(m + 8, n + 26).FormulaR1C1 = "Incremento acimutal"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R27C7*COS(RADIANS(R36C7+R39C7*R[-6]C[2]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R27C7*SIN(RADIANS(R36C7+R39C7*R[-6]C[1]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R27C7*COS(RADIANS(R37C7+R40C7*R[-6]C))"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 22).FormulaR1C1 = "Elevaci" & ChrW(243) & "n ="
            Cells(m + 9, n + 23).FormulaR1C1 = " G40 = "
            Cells(m + 9, n + 24).FormulaR1C1 = "0"
            Cells(m + 9, n + 25).FormulaR1C1 = "grados"
            Cells(m + 9, n + 26).FormulaR1C1 = "Inccremento polar"
            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 + 22).FormulaR1C1 = "S" & ChrW(205) & " = 0, NO = 1"
            Cells(m + 10, n + 23).FormulaR1C1 = " G43 = "
            Cells(m + 10, n + 24).FormulaR1C1 = "1"
            Cells(m + 10, n + 26).FormulaR1C1 = "Mostrar los vectores fuerza de cada dL"
            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 + 22).FormulaR1C1 = "n ="
            Cells(m + 11, n + 23).FormulaR1C1 = " G46 = "
            Cells(m + 11, n + 24).FormulaR1C1 = "=COUNTIF(C[-22],""F_""&R[-43]C[-19]&""_*"")"
            Cells(m + 11, n + 26).FormulaR1C1 = "Cantidad de dL de la distribuci" & ChrW(243) & "n"
            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 + 63 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 = "L ="
            Cells(m + 3, n + 23).FormulaR1C1 = " G47 = "
            Cells(m + 3, n + 24).FormulaR1C1 = "=R[-42]C[-19]*R[-23]C[-19]"
            Cells(m + 3, n + 25).FormulaR1C1 = "m"
            Cells(m + 3, n + 26).FormulaR1C1 = "Longitud de la l" & ChrW(237) & "nea"
            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 = "=R43C7"
            Cells(m + 5, n + 22).FormulaR1C1 = "Cantidad:"
            Cells(m + 5, n + 23).FormulaR1C1 = " B2 = "
            Cells(m + 5, n + 24).FormulaR1C1 = "8"
            Cells(m + 5, n + 26).FormulaR1C1 = "Cantidad de elementos a agregar a la l" & ChrW(237) & "nea."
            Cells(m + 6, n + 22).FormulaR1C1 = "Fila inicial:"
            Cells(m + 6, n + 23).FormulaR1C1 = " B3 = "
            Cells(m + 6, n + 24).FormulaR1C1 = "42"
            Cells(m + 6, n + 26).FormulaR1C1 = "Rango del objeto a duplicar (elemento dL)"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R37C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R37C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R37C3"
            Cells(m + 7, n + 22).FormulaR1C1 = "Fila final:"
            Cells(m + 7, n + 23).FormulaR1C1 = " C3 = "
            Cells(m + 7, n + 24).FormulaR1C1 = "59"
            Cells(m + 7, n + 26).FormulaR1C1 = "Rango del objeto a duplicar (elemento dL)"
            Cells(m + 8, n + -1).FormulaR1C1 = "1"
            Cells(m + 8, n + 0).FormulaR1C1 = "1"
            Cells(m + 8, n + 1).FormulaR1C1 = "1"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 = "Cantidad:"
            Cells(m + 8, n + 23).FormulaR1C1 = " B2 = "
            Cells(m + 8, n + 24).FormulaR1C1 = "ENTIRE"
            Cells(m + 8, n + 26).FormulaR1C1 = "Duplicar una l" & ChrW(237) & "nea completa."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R25C7&""_""&(R[-15]C[-3]-1)/2"
            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 = "Agregar o Eliminar Elementos de Carga"
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "- Para agregar un nuevo elemento de carga dq, presione el bot" & ChrW(243) & "n **+OBJ**."
            Cells(m + 3, n + 1).Interior.Color = "9851952"
            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 2
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R26C7=0,"""",IF(R26C7<0,""  -  "",""  +  ""))"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 = "AGREGAR OBJETOS:"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = " - El n" & ChrW(250) & "mero total de elementos de carga se muestra en la celda **G46**."
            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 + 21).FormulaR1C1 = "- Cuanto menor sea dL y mayor sea el n" & ChrW(250) & "mero de elementos dq, m" & ChrW(225) & "s se aproximar" & ChrW(225) & " la fuerza"
            Cells(m + 6, n + 21).FormulaR1C1 = "resultante al valor real."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&(R[-4]C[-3]-1)/2"
            Cells(m + 7, n + 21).FormulaR1C1 = " - Para agregar o eliminar varios elementos a la vez, ingrese el n" & ChrW(250) & "mero de elementos en la celda"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "**B2** antes de presionar el bot" & ChrW(243) & "n correspondiente. Este n" & ChrW(250) & "mero debe ser un entero."
            Cells(m + 9, n + -1).FormulaR1C1 = "=R27C7*COS(RADIANS(R36C7+R39C7*R[-6]C[2]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R27C7*SIN(RADIANS(R36C7+R39C7*R[-6]C[1]))*SIN(RADIANS(R37C7+R40C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R27C7*COS(RADIANS(R37C7+R40C7*R[-6]C))"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "Agregar una Nueva Distribuci" & ChrW(243) & "n"
            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 + 81 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 = "Es posible agregar una nueva distribuci" & ChrW(243) & "n independiente (por ejemplo, otra l" & ChrW(237) & "nea cargada). Para ello:"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "1. En la celda **B2**, escriba **ENTIRE** (B2 = ENTIRE), lo que indica que se copiar" & ChrW(225) & " toda la fila."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R43C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "2. En la celda **B3**, introduzca el n" & ChrW(250) & "mero de la primera fila correspondiente a la distribuci" & ChrW(243) & "n"
            Cells(m + 6, n + 21).FormulaR1C1 = "(por ejemplo, B3 = 15)."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R37C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R37C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R37C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "3. En la celda **C3**, introduzca el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila que contiene los elementos de la"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "distribuci" & ChrW(243) & "n (es decir, el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a en la columna **A**)."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R28C7*R26C7*R15C3/R46C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R25C7&""_""&(R[-15]C[-3]-1)/2"
            Cells(m + 9, n + 21).FormulaR1C1 = "4. Presione el bot" & ChrW(243) & "n **+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 + 21).FormulaR1C1 = "5. Despl" & ChrW(225) & "cese por la hoja, localice las celdas de la nueva distribuci" & ChrW(243) & "n y modifique su posici" & ChrW(243) & "n y"
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "configuraci" & ChrW(243) & "n iniciales. La nueva distribuci" & ChrW(243) & "n ser" & ChrW(225) & " una copia de la existente."
            Cells(m + 3, n + 1).Interior.Color = "9851952"
            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 = 10
      End If ' vector ends
      If m = m1 + 81 Then
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub