Sub Project_25_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 25_Campo electrico_ES

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


            Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1"
            Cells(m1 + 0, n1 + 0).FormulaR1C1 = "15"
            Cells(m1 + 0, n1 + 1).FormulaR1C1 = "32"
            Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4"
            Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850"
            Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8"
            Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6"
            Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8"
            Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45"
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "40"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "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) & _
"     "
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 9
            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 + 2).FormulaR1C1 = "Campo el" & ChrW(233) & "ctrico de cargas puntuales"
            Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO EL" & ChrW(201) & "CTRICO DE UN SISTEMA DE CARGAS PUNTUALES"
            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 + 5, n + 12).FormulaR1C1 = "DIPOLO, CUADRUPOLO, L" & ChrW(205) & "NEA CARGADA)"
            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 = "Constante el" & ChrW(233) & "ctrica:"
            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 = "k="
            Cells(m + 7, n + 5).FormulaR1C1 = "10"
            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 = "0"
            Cells(m + 8, n + 1).FormulaR1C1 = "3"
            Cells(m + 8, n + 2).FormulaR1C1 = "<< --- Punto de estudio del campo"
            Cells(m + 8, n + 21).FormulaR1C1 = "varias cargas que est" & ChrW(225) & "n distribuidas en el espacio. En el modelo se toman 4 cargas q1, q2, q3, q4,"
            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 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "Magnitud del campo"
            Cells(m + 9, n + 21).FormulaR1C1 = "sin embargo se pueden agregar m" & ChrW(225) & "s cargas q 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 = "resultante:"
            Cells(m + 10, n + 21).FormulaR1C1 = "en cualquier punto del espacio. El procedimiento para agregar m" & ChrW(225) & "s cargas 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 + 11, n + 4).FormulaR1C1 = "                   |E| ="
            Cells(m + 11, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[-2]C[-6]^2+R[-2]C[-5]^2+R[-2]C[-4]^2),2)"
            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 = " + q1"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 8
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2"
            Cells(m + 3, n + 1).FormulaR1C1 = "4"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2"
            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 = "9"
            Cells(m + 4, n + 4).FormulaR1C1 = "N" & ChrW(250) & "mero de cargas:"
            Cells(m + 4, n + 21).FormulaR1C1 = "uno de los campos por aparte en el punto en cuesti" & 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 + 4).FormulaR1C1 = "                  n ="
            Cells(m + 5, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""E_*"")"
            Cells(m + 6, n + 4).FormulaR1C1 = "(para agregar cargas "
            Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-25-1)"
            Cells(m + 7, n + -1).FormulaR1C1 = "-3"
            Cells(m + 7, n + 0).FormulaR1C1 = "-3"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de  q""&R[-4]C[-3]/2"
            Cells(m + 7, n + 4).FormulaR1C1 = "oprima +OBJ.)"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "en donde cada uno de los campos se establece por la ley de Coulomb:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "Mostrar vectores aux.:"
            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 = "SI = 0,  NO = 1"
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-25-2)"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "8"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[8]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "255"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            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 = "2"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "La constante k depende del sistema de unidades y su valor se introduce en la celda G10."
            Cells(m + 6, n + 21).FormulaR1C1 = "Estas ecuaciones se ubican respectivamente para cada carga y cada coordenada en las filas 30, 48, 66"
            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 + 21).FormulaR1C1 = "y 84, y las componentes del campo resultante en las celdas A12, B12 y C12."
            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 + 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)*R10C7*R[-15]C[2]"
            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)*R10C7*R[-15]C[1]"
            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)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 21).FormulaR1C1 = "En la siguiente tabla se muestran las celdas para configurar la posici" & ChrW(243) & "n, magnitud de las cargas, y "
            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 = "el punto en donde se estudia el campo el" & ChrW(233) & "ctrico."
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "CARGA"
            Cells(m + 11, n + 22).FormulaR1C1 = "MAGNITUD"
            Cells(m + 11, n + 23).FormulaR1C1 = "POSICI" & ChrW(211) & "N "
            Cells(m + 11, n + 24).FormulaR1C1 = "POSICI" & ChrW(211) & "N"
            Cells(m + 11, n + 25).FormulaR1C1 = "POSICI" & ChrW(211) & "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 = " + q2"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 27 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2"
            Cells(m + 3, n + 1).FormulaR1C1 = "4"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2"
            Cells(m + 3, n + 23).FormulaR1C1 = "X"
            Cells(m + 3, n + 24).FormulaR1C1 = "Y"
            Cells(m + 3, n + 25).FormulaR1C1 = "Z"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 21).FormulaR1C1 = "q1"
            Cells(m + 4, n + 22).FormulaR1C1 = "C15"
            Cells(m + 4, n + 23).FormulaR1C1 = "A19"
            Cells(m + 4, n + 24).FormulaR1C1 = "B19"
            Cells(m + 4, n + 25).FormulaR1C1 = "C19"
            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 = "q2"
            Cells(m + 5, n + 22).FormulaR1C1 = "C33"
            Cells(m + 5, n + 23).FormulaR1C1 = "A37"
            Cells(m + 5, n + 24).FormulaR1C1 = "B37"
            Cells(m + 5, n + 25).FormulaR1C1 = "C37"
            Cells(m + 6, n + -1).FormulaR1C1 = "Q2, k2="
            Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]"
            Cells(m + 6, n + 1).FormulaR1C1 = "=R[-26]C[4]"
            Cells(m + 6, n + 21).FormulaR1C1 = "q3"
            Cells(m + 6, n + 22).FormulaR1C1 = "C51"
            Cells(m + 6, n + 23).FormulaR1C1 = "A55"
            Cells(m + 6, n + 24).FormulaR1C1 = "B55"
            Cells(m + 6, n + 25).FormulaR1C1 = "C55"
            Cells(m + 7, n + -1).FormulaR1C1 = "3"
            Cells(m + 7, n + 0).FormulaR1C1 = "-3"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de  q""&R[-4]C[-3]/2"
            Cells(m + 7, n + 21).FormulaR1C1 = "q4"
            Cells(m + 7, n + 22).FormulaR1C1 = "C69"
            Cells(m + 7, n + 23).FormulaR1C1 = "A73"
            Cells(m + 7, n + 24).FormulaR1C1 = "B73"
            Cells(m + 7, n + 25).FormulaR1C1 = "C73"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "P (x, y, z)  ="
            Cells(m + 8, n + 23).FormulaR1C1 = "A11"
            Cells(m + 8, n + 24).FormulaR1C1 = "B11"
            Cells(m + 8, n + 25).FormulaR1C1 = "C11"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 21).FormulaR1C1 = "El color de la carga se modifica en la misma celda de la magnitud, la cual puede ser negativa o positiva."
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "7"
            Cells(m + 11, n + 21).FormulaR1C1 = "Los vectores campo de cada carga se muestran en l" & ChrW(237) & "nea punteada."
            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 5
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "De acuerdo a la tabla anterior, modifique la magnitud, posici" & ChrW(243) & "n y signo de las cargas de acuerdo a "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "2"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "su criterio  y observe los resultados oprimiento el bot" & ChrW(243) & "n XYZ o cualquier bot" & ChrW(243) & "n de coordenadas. "
            Cells(m + 6, n + 21).FormulaR1C1 = "Identifique puntos  de simetr" & ChrW(237) & "a (x,y,z) en el espacio e introduzca sus coordenadas en A11, B11, C11. "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "7"
            Cells(m + 8, n + 1).FormulaR1C1 = "7"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "El modelo est" & ChrW(225) & " diseŠado para agregar m" & ChrW(225) & "s cargas en el espacio. Para agregar una carga adicional"
            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)*R10C7*R[-15]C[2]"
            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)*R10C7*R[-15]C[1]"
            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)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 21).FormulaR1C1 = "haga lo siguiente:"
            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 = "1. Oprima el bot" & ChrW(243) & "n +OBJ. "
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "2.  Ingrese A91 =3, B91=3, C91=6 para posici" & ChrW(243) & "n de la nueva carga. Oprima XYZ para ver el "
            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 = " - q3"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 45 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2"
            Cells(m + 3, n + 1).FormulaR1C1 = "-4"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2"
            Cells(m + 3, n + 22).FormulaR1C1 = "resultado."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 21).FormulaR1C1 = "Oprima >>C para ver el resultado de forma clara."
            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 = "Para agregar m" & ChrW(225) & "s cargas el procedimiento es similar."
            Cells(m + 6, n + -1).FormulaR1C1 = "Q2, k2="
            Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]"
            Cells(m + 6, n + 1).FormulaR1C1 = "=R[-26]C[4]"
            Cells(m + 6, n + 21).FormulaR1C1 = "La magnitud del campo resultante se muestra en la celda G14."
            Cells(m + 7, n + -1).FormulaR1C1 = "3"
            Cells(m + 7, n + 0).FormulaR1C1 = "3"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de  q""&R[-4]C[-3]/2"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "Ejemplo:"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "Dadas cuatro cargas q1= q2 = q3 = q4 = 3C ubicadas en los v" & ChrW(233) & "rtices de un cuadrado de lado 8."
            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 = "Hallar las componentes del campo resultante en un punto,"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "7"
            Cells(m + 11, n + 22).FormulaR1C1 = "a) en el centro del cuadrado,"
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            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 3
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 22).FormulaR1C1 = "b) a una altura del centro del cuadrado z=5,"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "c) sobre el eje y a y=10."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "2"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n:"
            Cells(m + 6, n + 21).FormulaR1C1 = "a)"
            Cells(m + 6, n + 22).FormulaR1C1 = "Magnitud"
            Cells(m + 6, n + 24).FormulaR1C1 = "Posici" & ChrW(243) & "n"
            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 + 21).FormulaR1C1 = "q1 = C15 ="
            Cells(m + 7, n + 22).FormulaR1C1 = "3"
            Cells(m + 7, n + 24).FormulaR1C1 = "(A19=0, B19=0, C19=0)"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "7"
            Cells(m + 8, n + 1).FormulaR1C1 = "7"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "q2 = C33 ="
            Cells(m + 8, n + 22).FormulaR1C1 = "3"
            Cells(m + 8, n + 24).FormulaR1C1 = "(A37=8, B37=0, C37=0)"
            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)*R10C7*R[-15]C[2]"
            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)*R10C7*R[-15]C[1]"
            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)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 21).FormulaR1C1 = "q3 = C51 ="
            Cells(m + 9, n + 22).FormulaR1C1 = "3"
            Cells(m + 9, n + 24).FormulaR1C1 = "(A55=8, B55=8, C55=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 + 21).FormulaR1C1 = "q4 = C69 ="
            Cells(m + 10, n + 22).FormulaR1C1 = "3"
            Cells(m + 10, n + 24).FormulaR1C1 = "(A73=0, B73=8, C73=0)"
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "P (x, y, z)  ="
            Cells(m + 11, n + 24).FormulaR1C1 = "(A11=4, B11=4, C11=0)"
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            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 = " - q4"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 63 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2"
            Cells(m + 3, n + 1).FormulaR1C1 = "-4"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2"
            Cells(m + 3, n + 21).FormulaR1C1 = " k   =  G10 ="
            Cells(m + 3, n + 22).FormulaR1C1 = "8.9"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 21).FormulaR1C1 = "Oprima XYZ "
            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 = "Observaci" & ChrW(243) & "n: introducimos un sistema de unidades en el que k=8,9."
            Cells(m + 6, n + -1).FormulaR1C1 = "Q2, k2="
            Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]"
            Cells(m + 6, n + 1).FormulaR1C1 = "=R[-26]C[4]"
            Cells(m + 6, n + 21).FormulaR1C1 = "RESULTADO: "
            Cells(m + 7, n + -1).FormulaR1C1 = "-3"
            Cells(m + 7, n + 0).FormulaR1C1 = "3"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de  q""&R[-4]C[-3]/2"
            Cells(m + 7, n + 21).FormulaR1C1 = "|E|  = G14 ="
            Cells(m + 7, n + 22).FormulaR1C1 = "0"
            Cells(m + 7, n + 23).FormulaR1C1 = "(por simetr" & ChrW(237) & "a)."
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "b) "
            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 = "P (x, y, z)  ="
            Cells(m + 10, n + 24).FormulaR1C1 = "(A11=4, B11=4, C11=5)"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "7"
            Cells(m + 11, n + 21).FormulaR1C1 = "RESULTADO: "
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            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 1
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 21).FormulaR1C1 = "|E|  = G14 ="
            Cells(m + 3, n + 22).FormulaR1C1 = "1.39"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Ex    = A12 ="
            Cells(m + 4, n + 22).FormulaR1C1 = "0"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "2"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7"
            Cells(m + 5, n + 21).FormulaR1C1 = "Ey    = B12 = "
            Cells(m + 5, n + 22).FormulaR1C1 = "0"
            Cells(m + 6, n + 21).FormulaR1C1 = "Ez    = C12 = "
            Cells(m + 6, n + 22).FormulaR1C1 = "1.39"
            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 + 21).FormulaR1C1 = "Oprima XYZ o YZ"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "7"
            Cells(m + 8, n + 1).FormulaR1C1 = "7"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            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)*R10C7*R[-15]C[2]"
            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)*R10C7*R[-15]C[1]"
            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)*R10C7*R[-15]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2"
            Cells(m + 9, n + 21).FormulaR1C1 = "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 = "P (x, y, z)  ="
            Cells(m + 10, n + 24).FormulaR1C1 = "(A11=0, B11=10, C11=0)"
            Cells(m + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "RESULTADO: "
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            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 = 9
      End If ' vector ends
      If m = m1 + 72 Then
            Cells(m + 12, n + 21).FormulaR1C1 = "|E|  = G14 ="
            Cells(m + 12, n + 22).FormulaR1C1 = "8.07"
            Cells(m + 13, n + 21).FormulaR1C1 = "Ex    = A12 ="
            Cells(m + 13, n + 22).FormulaR1C1 = "-0.5"
            Cells(m + 14, n + 21).FormulaR1C1 = "Ey    = B12 = "
            Cells(m + 14, n + 22).FormulaR1C1 = "8.05"
            Cells(m + 15, n + 21).FormulaR1C1 = "Ez    = C12 = "
            Cells(m + 15, n + 22).FormulaR1C1 = "0"
            Cells(m + 16, n + 21).FormulaR1C1 = "Oprima XY"
            Cells(m + 18, n + 21).FormulaR1C1 = "Ejercicios:"
            Cells(m + 20, n + 21).FormulaR1C1 = "1. Utilizando el bot" & ChrW(243) & "n +OBJ construya una l" & ChrW(237) & "nea cargada compuesta de 20 cargas el" & ChrW(233) & "ctricas de igual"
            Cells(m + 21, n + 21).FormulaR1C1 = "magnitud y signo y elabore el modelo para estudiar su campo el" & ChrW(233) & "ctrico en un punto en el espacio que se "
            Cells(m + 22, n + 21).FormulaR1C1 = "encuentra a cierta distancia. Compare los resultados del modelo con los c" & ChrW(225) & "lculos hechos por medio "
            Cells(m + 23, n + 21).FormulaR1C1 = "de integrales. "
            Cells(m + 25, n + 21).FormulaR1C1 = "2. Construya el modelo para estudiar el campo el" & ChrW(233) & "ctrico de un dipolo en cualquier punto del espacio. "
            Cells(m + 26, n + 22).FormulaR1C1 = "Nota: utilice el bot" & ChrW(243) & "n -OBJ para eliminar cargas."
            Cells(m + 28, n + 21).FormulaR1C1 = "EJEMPLO DE CONFIGURACI" & ChrW(211) & "N ESPACIAL DEL CAMPO EL" & ChrW(201) & "CTRICO"
            Cells(m + 30, n + 21).FormulaR1C1 = "Inserte la letra o en la celda C7=o y oprima XYZ. Luego reemplace la cadena de valores en C7 por la "
            Cells(m + 31, n + 21).FormulaR1C1 = "expresi" & ChrW(243) & "n:"
            Cells(m + 32, n + 21).FormulaR1C1 = "o[0,2]x=[-10;10]o2[0,2]y=[-10;10]o3[0,2]z=[4;4]color=[8]origin[cart.]=[0;0;0]tfactor=0,00291332s"
            Cells(m + 33, n + 21).FormulaR1C1 = "y oprima XYZ, espere a que aparezcan los vectores campo el" & ChrW(233) & "ctrico en la regi" & ChrW(243) & "n configurada. "
            Cells(m + 34, n + 21).FormulaR1C1 = "Para m" & ChrW(225) & "s detalle de c" & ChrW(243) & "mo funciona la celda C7, selecci" & ChrW(243) & "nela y oprima el bot" & ChrW(243) & "n de ayuda."
            Cells(m + 35, n + 21).FormulaR1C1 = "Oprima el bot" & ChrW(243) & "n B/W para ver el campo en fondo negro."
            Cells(m + 37, n + 21).FormulaR1C1 = "CAMPO EL" & ChrW(201) & "CTRICO DE UN DIPOLO"
            Cells(m + 39, n + 21).FormulaR1C1 = "Elimine cargas con el bot" & ChrW(243) & "n -OBJ hasta que queden dos cargas en el sistema."
            Cells(m + 40, n + 21).FormulaR1C1 = "Asigne el valor de la magnitud de las cargas q1 = 4 y q2 = - 4"
            Cells(m + 41, n + 21).FormulaR1C1 = "Inserte la letra o en la celda C7=o y oprima XYZ, luego reemplace la cadena de valores en C7 por la "
            Cells(m + 42, n + 21).FormulaR1C1 = "expresi" & ChrW(243) & "n:"
            Cells(m + 43, n + 21).FormulaR1C1 = "o[0,2]x=[-10;10]o2[0,2]y=[-10;10]o3[0,2]z=[4;4]color=[8]origin[cart.]=[0;0;0]tfactor=0,00291332s"
            Cells(m + 44, n + 21).FormulaR1C1 = "y oprima XY para ver desde arriba, espere a que aparezcan los vectores campo el" & ChrW(233) & "ctrico en la  "
            Cells(m + 45, n + 21).FormulaR1C1 = "regi" & ChrW(243) & "n configurada."
            Cells(m + 46, n + 21).FormulaR1C1 = "Para estudiar el campo del dipolo en un punto, limpie la celda C7 e ingrese las coordenadas del punto "
            Cells(m + 47, n + 21).FormulaR1C1 = "en A11, B11, C11."
            Cells(m + 49, n + 21).FormulaR1C1 = "Ejercicio:"
            Cells(m + 50, n + 21).FormulaR1C1 = "1. Construya un cuadrupolo y un octopolo y estudie la configuraci" & ChrW(243) & "n espacial del campo en "
            Cells(m + 51, n + 21).FormulaR1C1 = "diferentes regiones del espacio. Para el cuadrupolo ubique las cargas en los v" & ChrW(233) & "rtices de un cuadrado"
            Cells(m + 52, n + 21).FormulaR1C1 = "y para el octopolo ub" & ChrW(237) & "quelas en los v" & ChrW(233) & "rtices de un cubo."
            Cells(m + 54, n + 21).FormulaR1C1 = "2. Construya diferentes objetos geom" & ChrW(233) & "tricos compuestos de varias cargas puntuales, por ejemplo"
            Cells(m + 55, n + 21).FormulaR1C1 = " "
            Cells(m + 55, n + 22).FormulaR1C1 = "de una pir" & ChrW(225) & "mide (las cargas en sus v" & ChrW(233) & "rtices), de un semic" & ChrW(237) & "rculo (las cargas distribuidas"
            Cells(m + 56, n + 22).FormulaR1C1 = "cada cierto " & ChrW(225) & "ngulo), etc. Nota: cada objeto se debe construir en una hoja de c" & ChrW(225) & "lculo"
            Cells(m + 57, n + 22).FormulaR1C1 = "independiente.utilizando este modelo como punto de partida."
            Cells(m + 59, n + 21).FormulaR1C1 = "3. (AVANZADO). Cree una f" & ChrW(243) & "rmula en MS Excel, para ponerla en las coordenadas de las cargas de tal "
            Cells(m + 60, n + 22).FormulaR1C1 = "manera que pueda ubicar 20 cargas a lo largo de una espiral de radio 5 (en el plano XY)"
            Cells(m + 61, n + 22).FormulaR1C1 = "y que avanza a lo largo del eje z."
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub