Sub Project_29_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 29_Distribuciones de carga_ES

   ' Updated: 7/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 29 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"",15,33)"
            Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",18*R[45]C[4]+14,50)"
            Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4"
            Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850"
            Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8"
            Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6"
            Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8"
            Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45"
            Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,1953125 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 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E"
            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" & ChrW(201) & "CTRICO" & Chr(10) & _
"     (See english version at the end)" & Chr(10) & _
"     Un cuadrupolo el" & ChrW(233) & "ctrico se puede definir como el conjunto de cuatro cargas puntuales q distribuidas en el espacio. La forma m" & ChrW(225) & "s sencilla de un cuadrupolo son cuatro cargas distribuidas en los v" & ChrW(233) & "rtices de un cuadrado.  Para hallar el campo el" & ChrW(233) & "ctrico de un cuadrupolo en cualquier punto del espacio, se aplica el principio de superposici" & ChrW(243) & "n, es decir, en cada punto del espacio el campo el" & ChrW(233) & "ctrico del dipolo es la suma vectorial de los campos el" & ChrW(233) & "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" & ChrW(225) & "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" & ChrW(225) & "n ubicadaa las ecuaciones para calcular el campo el" & ChrW(233) & "ctrico de la primera carga: " & Chr(10) & _
"     E1x= k q1(x1" & ChrW(233) & "x01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)" & Chr(10) & _
"     E1y = k q1(y1" & ChrW(233) & "y01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/)2 " & Chr(10) & _
"     E1z= k q1(z1" & ChrW(233) & "z01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " 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" & ChrW(243) & "n de la tercera carga y su campo en A57, B57, C57, finalmente en A64, B64, C64 la posici" & ChrW(243) & "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" & ChrW(237) & " como el color de su apariencia. Para calcular el campo el" & ChrW(233) & "ctrico en cualquier punto del espacio, introduzca las coordenadas del punto en  A83, B83, C83 y oprima cualquier bot" & ChrW(243) & "n de coordenadas. " & Chr(10) & _
"     La configuraci" & ChrW(243) & "n espacial del campo se puede visualizar en diferentes tipos de coordenadas utilizando la celda C79. Para ver el campo en coordenadas esf" & ChrW(233) & "ricas coloque C79=s, en cil" & ChrW(237) & "ndricas C79=c y en cartesianas C79=o y oprima cualquier bot" & ChrW(243) & "n de coordenadas. Modifique a conveniencia los par" & ChrW(225) & "metros del campo en la cadena que aparece en esta misma celda. " & Chr(10) & _
"     Para visdualizar el campo el" & ChrW(233) & "ctrico resultante con mayor resoluci" & ChrW(243) & "n, en la celda C43 modifique entre los primeros par" & ChrW(233) & "ntesis cuadrados el valor, poniendo uno m" & ChrW(225) & "s peque" & ChrW(233) & "o, por ejemplo o[0,5]; entre m" & ChrW(225) & " peque" & ChrW(233) & "o sea el valor, mejor ser" & ChrW(225) & " la resoluci" & ChrW(243) & "n pero tardar" & ChrW(225) & " m" & ChrW(225) & "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" & ChrW(233) & "x01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)" & Chr(10) & _
"     E1y = k q1(y1" & ChrW(233) & "y01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/)2" & Chr(10) & _
"     E1z= k q1(z1" & ChrW(233) & "z01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " 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 11
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "E"
            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 + 1).FormulaR1C1 = "=IF(R[34]C[4]=1,R[35]C[4],IF(R[34]C[4]=2,R[36]C[4],IF(R[34]C[4]=3,R[37]C[4],"""")))"
            Cells(m + 4, n + 2).FormulaR1C1 = "Campo el" & ChrW(233) & "ctrico de distribuciones de carga"
            Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO EL" & ChrW(201) & "CTRICO DE UNA DISTRIBUCI" & ChrW(211) & "N LINEAL 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],""E_*"")"
            Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""E_*"")"
            Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""E_*"")"
            Cells(m + 6, n + 4).FormulaR1C1 = "RESULTADO (No modificar):"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 4).FormulaR1C1 = "=IF(OR(R[31]C[1]="""",R[31]C[1]>3,R[31]C[1]=0),""        |E| ="","""")"
            Cells(m + 7, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),2)"
            Cells(m + 7, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n permite calcular y visualizar en tres dimensiones el campo el" & ChrW(233) & "ctrico debido a"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "57.3"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "<< --- Punto de estudio del campo"
            Cells(m + 8, n + 21).FormulaR1C1 = "distribuciones lineales de carga en el espacio. El modelo empieza con 5  cargas formando una l" & ChrW(237) & "nea"
            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 = "<< E_x, E_y, E_z."
            Cells(m + 9, n + 21).FormulaR1C1 = "sin embargo se pueden agregar m" & ChrW(225) & "s elementos de carga dq y calcular el campo el" & ChrW(233) & "ctrcico del sistema"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "en cualquier punto del espacio. El procedimiento para agregar m" & ChrW(225) & "s elementos de  carga se describe al final. "
            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 = "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 = "L1"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 10
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=""L""&R[1]C[5]"
            Cells(m + 3, n + 1).FormulaR1C1 = "1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2"
            Cells(m + 3, n + 4).FormulaR1C1 = "Datos iniciales"
            Cells(m + 3, n + 21).FormulaR1C1 = "El campo total se puede calcular por el principio de superposici" & ChrW(243) & "n como la suma vectorial  de cada"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "LINEA No. ="
            Cells(m + 4, n + 5).FormulaR1C1 = "1"
            Cells(m + 4, n + 21).FormulaR1C1 = "uno de los campos generados por cada elemento de carga en el punto en estudio:"
            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_""&R[-1]C[1]"
            Cells(m + 5, n + 5).FormulaR1C1 = "50"
            Cells(m + 6, n + 4).FormulaR1C1 = "dL ="
            Cells(m + 6, n + 5).FormulaR1C1 = "10"
            Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-29-1)"
            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]/2"
            Cells(m + 7, n + 4).FormulaR1C1 = "k ="
            Cells(m + 7, n + 5).FormulaR1C1 = "10000"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))"
            Cells(m + 9, n + 4).FormulaR1C1 = "Origen:"
            Cells(m + 9, n + 21).FormulaR1C1 = "en donde cada dE se establece por la ley de Coulomb:"
            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 + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "y_o  ="
            Cells(m + 11, n + 5).FormulaR1C1 = "0"
            Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-29-2)"
            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 + 18 Then ' vector 9
            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"
            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 = "=R34C7"
            Cells(m + 5, n + 4).FormulaR1C1 = "Inclinaci" & ChrW(243) & "n"
            Cells(m + 6, n + 4).FormulaR1C1 = "phi ="
            Cells(m + 6, n + 5).FormulaR1C1 = "-5"
            Cells(m + 6, n + 21).FormulaR1C1 = "La constante k depende del sistema de unidades y su valor se introduce en la celda G19."
            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 = "90"
            Cells(m + 7, n + 21).FormulaR1C1 = "Estas ecuaciones se generan en el modelo para cada elemento de carga de forma autom" & ChrW(225) & "tica, "
            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 + 4).FormulaR1C1 = "Flexi" & ChrW(243) & "n:"
            Cells(m + 8, n + 21).FormulaR1C1 = "y las componentes del campo resultante se observan en las celdas A12, B12 y C12."
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 4).FormulaR1C1 = "Azimut ="
            Cells(m + 9, n + 5).FormulaR1C1 = "10"
            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 = "Cuando el n" & ChrW(250) & "mero de elementos tiende a infinito y la longitud de cada uno de ellos tiende a cero, "
            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 = "esta suma se convierte en una integral. En el presente modelo sin embargo se utilizan magnitudes "
            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 + 27 Then ' vector 8
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2"
            Cells(m + 3, n + 4).FormulaR1C1 = "Mostrar vectores E_i:"
            Cells(m + 3, n + 21).FormulaR1C1 = "y cantidades finitas."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "SI = 0,  NO = 1"
            Cells(m + 4, n + 5).FormulaR1C1 = "1"
            Cells(m + 4, n + 21).FormulaR1C1 = "Aqu" & ChrW(237) & "  se analiza inicialmente el campo de unos pocos elementos de carga y luego el lector"
            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 = "puede agregar m" & ChrW(225) & "s  y cambiar su forma con ayuda de los " & ChrW(225) & "ngulos de flexi" & ChrW(243) & "n.  Las coordenadas del "
            Cells(m + 6, n + 21).FormulaR1C1 = "campo resultante E se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G10."
            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]/2"
            Cells(m + 7, n + 21).FormulaR1C1 = "La posici" & ChrW(243) & "n inicial del alambre y su orientaci" & ChrW(243) & "n se pueden modificar en las celdas G22, G23 y G24, "
            Cells(m + 8, n + 4).FormulaR1C1 = "TIPO DE "
            Cells(m + 8, n + 21).FormulaR1C1 = "su inclinaci" & ChrW(243) & "n en G27 y G28, su flexi" & ChrW(243) & "n a lo largo del azimut en G30 y flexi" & ChrW(243) & "n con " & ChrW(225) & "ngulo de elevaci" & ChrW(243) & "n "
            Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))"
            Cells(m + 9, n + 4).FormulaR1C1 = "COORDENADAS:"
            Cells(m + 9, n + 21).FormulaR1C1 = "en G31.  La magnitud de la carga y su signo se modifican en G17,Ê la constante k de la ley de "
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[1]C[1]=0,""Ingrese P(x,y,z) en A11, B11, C11"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "Coulomb en G19 y la longitud de cada elemento de carga se establece en la celda G18."
            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 = "0, 1, 2 " & ChrW(243) & " 3:"
            Cells(m + 11, n + 5).FormulaR1C1 = "0"
            Cells(m + 11, n + 21).FormulaR1C1 = "Para visualizar u ocultar los vectores campo  de cada dqÊ utilice la celda G34 con valores de 0 a 1,  "
            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 + 36 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 4).FormulaR1C1 = "=IF(R[-1]C[1]=1,""  1- Cart.-->>"",""|"")"
            Cells(m + 3, n + 5).FormulaR1C1 = "=IF(R[-1]C=1,""o[40]x=[-200;200]o2[10]y=[-200;200]o3[10]z=[50;50]color=[8]origin[cart.]=[0;0;0]tfactor=0,003125s"","""")"
            Cells(m + 3, n + 21).FormulaR1C1 = "G34 =0 visible y G34 =1 invisible.."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "=IF(R[-2]C[1]=2,""  2- Cyl -->>"",IF(R[-2]C[1]=3,"""",IF(R[-2]C[1]=1,"""",""|"")))"
            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 = "Para visualizar el campo el" & ChrW(233) & "ctrico en una regi" & ChrW(243) & "n del espacio en diferentes tipos de coordenadas "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7"
            Cells(m + 5, n + 4).FormulaR1C1 = "=IF(R[-3]C[1]=3,""  3- Sph -->>"",""|"")"
            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 = "utilice la celda G41: G41 =0 para calcular el campo en un punto espec" & ChrW(237) & "fico del espacio, indicando "
            Cells(m + 6, n + 4).FormulaR1C1 = "||||||||||||||||||||||||"
            Cells(m + 6, n + 21).FormulaR1C1 = "el punto del espacio en las celdas A11, B11 y C11. Ingrese G41 =1 para visualizar el campo en coordenadas "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "cartesianas, y los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n se modifican en la cadena de valores de G42. "
            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 + 4).FormulaR1C1 = "L" & ChrW(237) & "nea:"
            Cells(m + 8, n + 21).FormulaR1C1 = "Ingrese G41 =2 para visualizar en coordenadas cil" & ChrW(237) & "ndricas, y sus par" & ChrW(225) & "metros en G43. Ingrese "
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 4).FormulaR1C1 = "          n ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""E_""&R[-32]C&""_*"")"
            Cells(m + 9, n + 21).FormulaR1C1 = "G41 =3 para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros en G44."
            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 = "          L ="
            Cells(m + 10, n + 5).FormulaR1C1 = "=R[-31]C*R[-1]C"
            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 + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = "AGREGAR NUEVOS ELEMENTOS dL:"
            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 + 45 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2"
            Cells(m + 3, n + 21).FormulaR1C1 = "Para agregar un elemento m" & ChrW(225) & "s de carga dq oprima el bot" & ChrW(243) & "n +OBJ y para eliminar un elemento "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "de carga use el bot" & ChrW(243) & "n - OBJ. Oprima cualquier bot" & ChrW(243) & "n de visualizaci" & ChrW(243) & "n para ver los  "
            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 = "resultados, la cantidad de elementos de carga se muestra en la celda G48.  Entre m" & ChrW(225) & "s peque–o sea dL "
            Cells(m + 6, n + 21).FormulaR1C1 = "y m" & ChrW(225) & "s elementos dq tenga el alambre, su campo el" & ChrW(233) & "ctrico resultante se va pareciendo m" & ChrW(225) & "s al 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]/2"
            Cells(m + 7, n + 21).FormulaR1C1 = "Para agregar o quitar varios elementos a la vez indique en la celda B2 el n" & ChrW(250) & "mero de elementos "
            Cells(m + 8, n + 21).FormulaR1C1 = "antes de oprimir el respectivo bot" & ChrW(243) & "n, este n" & ChrW(250) & "mero debe ser entero. "
            Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]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 + 21).FormulaR1C1 = "AGREGAR UNA NUEVA DISTRIBUCI" & ChrW(211) & "N:Ê"
            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 = "Se puede agregar una nueva distribuci" & ChrW(243) & "n independiente (por ejemplo otra l" & ChrW(237) & "nea cargada). "
            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 + 54 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 = "Para ello, en la celda B2 escriba ENTIRE, B2=ENTIRE, lo que significa que se va a copiar la l" & ChrW(237) & "nea "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "entera; en B3 coloque la primera fila que corresponde a la l" & ChrW(237) & "nea, en este caso B3=15. En C3 "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "coloque el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila que comprende los elementos de la l" & ChrW(237) & "nea, es decdir el "
            Cells(m + 6, n + 21).FormulaR1C1 = "n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a del " & ChrW(250) & "ltima vector en la columna A. Luego oprima +OBJ. "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "Finalmente vaya hacia abajo en la hoja y ubique las celdas de la nueva l" & ChrW(237) & "nea y cambie su "
            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 + 21).FormulaR1C1 = "posici" & ChrW(243) & "n inicial y su configuraci" & ChrW(243) & "n. La l" & ChrW(237) & "nea nueva agregada es una copia de la existente. "
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/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 = "Ejemplos"
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            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 + 63 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2"
            Cells(m + 3, n + 21).FormulaR1C1 = "1. Estudiar el campo el" & ChrW(233) & "ctrico de una espira circular de radio 57,3  con una carga total de 1 C . "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: "
            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 = "Primero se debe construir la espira, para ello decidiremos que vamos a construirla con 36 elementos"
            Cells(m + 6, n + 21).FormulaR1C1 = "de carga y los vamos a distrubuir con un azimut de 10 grados cada vez, es decir 36x10 = 360 "
            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]/2"
            Cells(m + 7, n + 21).FormulaR1C1 = "grados para cerrar la espira. La longitud de la circunferencia es 2Pi x radio = L = 2x3,1416x57,3 = 360"
            Cells(m + 8, n + 21).FormulaR1C1 = "es decir, cada elemento debe tener una longitud aproximada de 10."
            Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]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 + 22).FormulaR1C1 = "k:"
            Cells(m + 10, n + 23).FormulaR1C1 = "G19="
            Cells(m + 10, n + 24).FormulaR1C1 = "300"
            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 = "dL:"
            Cells(m + 11, n + 23).FormulaR1C1 = "G18="
            Cells(m + 11, n + 24).FormulaR1C1 = "10"
            Cells(m + 3, n + 1).Interior.Color = "255"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 72 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 = "Q:"
            Cells(m + 3, n + 23).FormulaR1C1 = "G17="
            Cells(m + 3, n + 24).FormulaR1C1 = "1"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "x_o:"
            Cells(m + 4, n + 23).FormulaR1C1 = "G22="
            Cells(m + 4, n + 24).FormulaR1C1 = "0"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7"
            Cells(m + 5, n + 22).FormulaR1C1 = "y_o:"
            Cells(m + 5, n + 23).FormulaR1C1 = "G23="
            Cells(m + 5, n + 24).FormulaR1C1 = "0"
            Cells(m + 6, n + 22).FormulaR1C1 = "z_o:"
            Cells(m + 6, n + 23).FormulaR1C1 = "G24="
            Cells(m + 6, n + 24).FormulaR1C1 = "0"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3"
            Cells(m + 7, n + 22).FormulaR1C1 = "r_o "
            Cells(m + 7, n + 23).FormulaR1C1 = "G25="
            Cells(m + 7, n + 24).FormulaR1C1 = "0"
            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 + 22).FormulaR1C1 = "Inclinaci" & 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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 22).FormulaR1C1 = "phi:"
            Cells(m + 9, n + 23).FormulaR1C1 = "G27="
            Cells(m + 9, n + 24).FormulaR1C1 = "0"
            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 = "theta:"
            Cells(m + 10, n + 23).FormulaR1C1 = "G28="
            Cells(m + 10, n + 24).FormulaR1C1 = "90"
            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 = "Flexi" & ChrW(243) & "n:"
            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 + 81 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2"
            Cells(m + 3, n + 22).FormulaR1C1 = "Azimut:"
            Cells(m + 3, n + 23).FormulaR1C1 = "G30="
            Cells(m + 3, n + 24).FormulaR1C1 = "10"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "Elevaci" & ChrW(243) & "n:"
            Cells(m + 4, n + 23).FormulaR1C1 = "G31="
            Cells(m + 4, n + 24).FormulaR1C1 = "0"
            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 = "Mostrar:"
            Cells(m + 6, n + 22).FormulaR1C1 = "Vectores E:"
            Cells(m + 6, n + 23).FormulaR1C1 = "G34="
            Cells(m + 6, n + 24).FormulaR1C1 = "0"
            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]/2"
            Cells(m + 8, n + 22).FormulaR1C1 = "Tipo de coordenadas:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))"
            Cells(m + 9, n + 22).FormulaR1C1 = "Punto:"
            Cells(m + 9, n + 23).FormulaR1C1 = "G41="
            Cells(m + 9, n + 24).FormulaR1C1 = "0"
            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 = "Punto de observaci" & ChrW(243) & "n del campo:"
            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 = "x="
            Cells(m + 11, n + 23).FormulaR1C1 = "A11="
            Cells(m + 11, n + 24).FormulaR1C1 = "0"
            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 + 90 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 = "y="
            Cells(m + 3, n + 23).FormulaR1C1 = "B11="
            Cells(m + 3, n + 24).FormulaR1C1 = "57"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "z="
            Cells(m + 4, n + 23).FormulaR1C1 = "C11="
            Cells(m + 4, n + 24).FormulaR1C1 = "0"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7"
            Cells(m + 6, n + 21).FormulaR1C1 = "Para agregar los 36 elementos de carga, verifique en G11 la cantidad existente, si G11 =5 hay que  "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "agregar 31 m" & ChrW(225) & "s. Introduzca B2=31 y oprima +OBJ, espere un momento a que Excel ejecute el comando. "
            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 + 21).FormulaR1C1 = "Aparecer" & ChrW(225) & " la espira en el plano XY y tocando el origen de coordenadas.  Analice ahora diferentes puntos "
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            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)*R19C7*R17C7/R48C7"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 21).FormulaR1C1 = "para el campo modificando los valores en A11, B11, C11. Para ocultar los vectores campo individuales, "
            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 = "inserte G36=1. Si desea centrar la espira  inserte G23 = - 57."
            Cells(m + 11, n + -1).FormulaR1C1 = "4"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            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 = 11
      End If ' vector ends
      If m = m1 + 90 Then
            Cells(m + 12, n + 21).FormulaR1C1 = "Para ver el campo en todo el espacio, coloque G41 = 1 y espere algunos segunos o minutos para que Excel "
            Cells(m + 13, n + 21).FormulaR1C1 = "ejecute el comando. Aparecer" & ChrW(225) & " la configuraci" & ChrW(243) & "n del campo en cierta region del espacio. Para ver el campo  "
            Cells(m + 14, n + 21).FormulaR1C1 = "en coordenadas cil" & ChrW(237) & "ndricas cambie el valor a G41=2 y finalmente G41=0 para regresar a la vista inicial de "
            Cells(m + 15, n + 21).FormulaR1C1 = "un solo vector. "
            Cells(m + 17, n + 21).FormulaR1C1 = "2. Estudiar el campo el" & ChrW(233) & "ctrico de una espiral cargada. "
            Cells(m + 18, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: "
            Cells(m + 19, n + 21).FormulaR1C1 = "En el problema anterior coloque la Elevaci" & ChrW(243) & "n G31 = -0,1 para que la espiral avance hacia arriba y G30 = 20"
            Cells(m + 20, n + 21).FormulaR1C1 = "para hacer rendir los mismos 36 elementos para dos vueltas. Debido al aumento del " & ChrW(225) & "ngulo azimut, el radio "
            Cells(m + 21, n + 21).FormulaR1C1 = "se reducir" & ChrW(225) & ".  En A11, B11, C11 modifique el punto de observaci" & ChrW(243) & "n ( teniendo en cuenta adem" & ChrW(225) & "s que G41=0)."
            Cells(m + 23, n + 21).FormulaR1C1 = "Ejercicios:"
            Cells(m + 25, n + 21).FormulaR1C1 = "1. Construya el modelo del campo el" & ChrW(233) & "ctrico de un alambre  rectil" & ChrW(237) & "neo cargado con carga Q. "
            Cells(m + 26, n + 21).FormulaR1C1 = "2. Construya el modelo para un almbre cargado  en forma de  semic" & ChrW(237) & "rculo."
            Cells(m + 27, n + 21).FormulaR1C1 = "3. Construya un modelo un conjunto de dos almbres undependientes, uno semicircular y otro rectil" & ChrW(237) & "neo. "
            Cells(m + 28, n + 21).FormulaR1C1 = "Ayuda:"
            Cells(m + 28, n + 22).FormulaR1C1 = "1. En B2 coloque en may" & ChrW(250) & "scula ENTIRE, B2=ENTIRE."
            Cells(m + 29, n + 22).FormulaR1C1 = "2. Observe en la columna A cu" & ChrW(225) & "l es la el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a del " & ChrW(250) & "ltimo vector."
            Cells(m + 30, n + 22).FormulaR1C1 = "3. Coloque B3=15 y en C3 coloque el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a."
            Cells(m + 31, n + 22).FormulaR1C1 = "4. Oprima +OBJ para agregar la nueva l" & ChrW(237) & "nea como una copia de la existente."
            Cells(m + 32, n + 22).FormulaR1C1 = "5. Vaya en la hoja hacia abajo y ver" & ChrW(225) & " que aparecieron las celdas para la nueva l" & ChrW(237) & "nea, cambie "
            Cells(m + 33, n + 22).FormulaR1C1 = "la posici" & ChrW(243) & "n inicial de la nueva l" & ChrW(237) & "nea y oprima XYZ. "
            Cells(m + 34, n + 22).FormulaR1C1 = "6. En la celda correspondiente a LINEA No. Coloque el n" & ChrW(250) & "mero 2. "
            Cells(m + 35, n + 22).FormulaR1C1 = "7. Corrija la f" & ChrW(243) & "rmula de la celda del n" & ChrW(250) & "mero n para que quede igual a la original."
            Cells(m + 36, n + 22).FormulaR1C1 = "8. Cambie la configuraci" & ChrW(243) & "n de la nueva l" & ChrW(237) & "nea. "
            Cells(m + 37, n + 21).FormulaR1C1 = "Nota: si no apareci" & ChrW(243) & "n la nueva l" & ChrW(237) & "nea, porsiblemente no indic" & ChrW(243) & " correctamente el rango de filas en las "
            Cells(m + 38, n + 21).FormulaR1C1 = "celdas B3 y C3, las filas deben corresponder desde la 15 hasta la " & ChrW(250) & "ltima no vac" & ChrW(237) & "a. "
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub