Sub Project_33_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 33_Ejemplo de operadores dif._ES

   ' Updated: 2/09/24
   ' Created by: A. Becerra (21/08/24)
   ' Modified by: _________________
   ' This is the code of your new project.
   ' Steps to embed the code to ScienSolar:
   ' Note 1: The number 33 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 = "2"
            Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4"
            Cells(m1 + 0, n1 + 3).FormulaR1C1 = "900"
            Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8"
            Cells(m1 + 0, n1 + 7).FormulaR1C1 = "=CONFIG!R3C9"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "A. Becerra (21/08/24)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "=CONFIG!R4C5"
            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 = "=CONFIG!R4C9"
            Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,3828125 s."
            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 = "=CONFIG!R5C9"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = " rot (v_a)"
            Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5"
            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 = "HELP Comment:" & Chr(10) & _
"     1. To create new projects, press the +Vector button without selecting any project in the project list." & Chr(10) & _
"     2. To load an existing project, select a project from the list and then press +Vector" & Chr(10) & _
"     3. To export a new project, press the Get Code button. The code will be saved on your PC in the same directory where this file is located." & Chr(10) & _
"     " & Chr(10) & _
"     If necessary, use this comment to create your own HELP comment for your project. To do this, simply replace this text with your own (Right Click, Edit Comment) and avoid special characters." & Chr(10) & _
"     After pressing Get Code, your comment will be updated and saved in the same txt file as your project and will be uploaded after the project appears in ScienSolar.To include the new project in ScienSolar, perform the following steps:" & Chr(10) & _
"     a) Open the txt file where the project was saved; b) copy all the contents of the file and paste it in the VBA Editor of the Excel file ScienSolar; b) add the project name and number to the list on the CONFIG sheet; a) Verify that the number is correlative and that it agrees with the project header number, if not modify it in the header or in the list as necessary;" & ChrW(211) & "" & Chr(10) & _
"     " & Chr(10) & _
"     Right click to delete or edit this comment." & Chr(10) & _
"     " & Chr(10) & _
"     For documentation on ScienSolar, please visit www.sciensolar.com. ScienSolar was designed for 3D physics modeling in MS Excel.It is normal that for some projects it takes time to load it in the sheet, it depends on the number of objects in your project and the performance of your PC."
       On Error Resume Next
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 10
      Call Project_2(2, m, n, m1, n1)
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = " rot (v_a)"
            Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5"
            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(R19C7=0,""o[0,25]x=[0;0]o2[0,25]y=[-5;5]o3[0,25]z=[-5;5]color=[10]origin[cart.]=[0;0;0]tfactor=0,004737664s"","""")"
            Cells(m + 4, n + 2).FormulaR1C1 = "Oper. Dif."
            Cells(m + 4, n + 5).FormulaR1C1 = "/////////////"
            Cells(m + 4, n + 12).FormulaR1C1 = "OPERADORES DIFERENCIALES DE CAMPOS VECTORIALES Y ESCALARES"
            Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 2).FormulaR1C1 = "Operador:"
            Cells(m + 5, n + 3).FormulaR1C1 = "6"
            Cells(m + 5, n + 4).FormulaR1C1 = "5"
            Cells(m + 5, n + 12).FormulaR1C1 = "=IF(R[2]C[-9]=1,""INSERTE EN LA CELDA E10:    2,3,4,5 o 6"",IF(R[2]C[-9]=2,""CAMPO DE VELOCIDADES DE UN FLUIDO v_a"",IF(R[2]C[-9]=3,""CAMPO DE VELOCIDADES DE LAS PART" & ChrW(205) & "CULAS DE UN FLUIDO v_b"",IF(R[2]C[-9]=4,""CAMPO DE VELOCIDADES DE UN FLUIDO v_c"",IF(R[2]C[-9]=5,""POTENCIAL ESCALAR DE UN DIPOLO EL" & ChrW(201) & "CTRICO"",IF(R[2]C[-9]=6,""CAMPO EL" & ChrW(201) & "CTRICO DE UN DIPOLO"",""""))))))"
            Cells(m + 6, n + 2).FormulaR1C1 = "Delta ="
            Cells(m + 6, n + 3).FormulaR1C1 = "0.001"
            Cells(m + 6, n + 5).FormulaR1C1 = "           ---->"
            Cells(m + 6, n + 6).FormulaR1C1 = "=IF(R[1]C[-3]=5, ""Seleccione Grad U, copie la celda A48 y p" & ChrW(233) & "guela en E10"",IF(R[1]C[-3]=2,""Cambie el campo en la celda E10."",""""))"
            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 + 2).FormulaR1C1 = "=IF(OR(R[-2]C[1]=2,OR(R[-2]C[1]=4,R[-2]C[1]=8)),""  U(x,y,z,t) ="",IF(OR(R[-2]C[1]=9,OR(R[-2]C[1]=10,R[-2]C[1]=11)),""Vec No. B=, A="",""   Vector No. =""))"
            Cells(m + 7, n + 3).FormulaR1C1 = "2"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "5"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "< -- (x,y,z)"
            Cells(m + 8, n + 4).FormulaR1C1 = "(Vector func.)"
            Cells(m + 8, n + 21).FormulaR1C1 = "Para que este modelo funcione, se debe tener instalado el m" & ChrW(243) & "dulo OPERADORES DIFERENCIALES (proyecto 2 "
            Cells(m + 9, n + -1).FormulaR1C1 = "=(R11C3^2-(R11C3^2))/(R9C5)-(2*R11C2-(R11C3+R9C5)-(2*R11C2-R11C3))/(R9C5)"
            Cells(m + 9, n + 0).FormulaR1C1 = "=(0-(0))/(R9C5)-(R11C3^2-(R11C3^2))/(R9C5)"
            Cells(m + 9, n + 1).FormulaR1C1 = "=(2*R11C2-R11C3-(2*R11C2-R11C3))/(R9C5)-(0-(0))/(R9C5)"
            Cells(m + 9, n + 2).FormulaR1C1 = "< -- rot (v_a)"
            Cells(m + 9, n + 21).FormulaR1C1 = "de la lista). Si no est" & ChrW(225) & " instalado, desc" & ChrW(225) & "rguelo de www.sciensolar.com."
            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 el presente modelo se analizan los operadores diferenciales de diferentes campos tanto escalares como "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "/////////////"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 5).FormulaR1C1 = "/////////////"
            Cells(m + 11, n + 21).FormulaR1C1 = "vectoriales, espec" & ChrW(237) & "ficamnete los operadores que se encuentran en el m" & ChrW(243) & "dulo de operadores, es decir en "
            Cells(m + 3, n + 1).Interior.Color = "16777075"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "v_a"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 9
            Cells(m + 3, n + -1).FormulaR1C1 = "2"
            Cells(m + 3, n + 0).FormulaR1C1 = "v_a"
            Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||"
            Cells(m + 3, n + 21).FormulaR1C1 = "la lista del cuadro combinado ubicado en la celda E17. Se recomienda al usuario repasar en la bibliograf" & ChrW(237) & "a"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R18C7=0,""o[0,25]x=[0;0]o2[0,25]y=[-5;5]o3[0,25]z=[-5;5]color=[10]origin[cart.]=[0;0;0]tfactor=0,004454333s"","""")"
            Cells(m + 4, n + 2).FormulaR1C1 = "|"
            Cells(m + 4, n + 4).FormulaR1C1 = "Mostrar:"
            Cells(m + 4, n + 21).FormulaR1C1 = "la teor" & ChrW(237) & "a matem" & ChrW(225) & "tica de estos operadores, pues aqu" & ChrW(237) & " se supone su conocimiento previo. El objetivo del modelo"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R10C5=2,0,1)"
            Cells(m + 5, n + 4).FormulaR1C1 = " (SI = 0,  NO = 1):"
            Cells(m + 5, n + 21).FormulaR1C1 = "es ver el comportamiento de estos operadores para diferentes campos en diferentes puntos del espacio. "
            Cells(m + 6, n + 4).FormulaR1C1 = "=""Campo "" &IF(R[-8]C[-1]=2,""a"",IF(R[-8]C[-1]=3,""b"",IF(R[-8]C[-1]=4,""c"",""E"")))"
            Cells(m + 6, n + 5).FormulaR1C1 = "1"
            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 = "=R[-13]C[-4]"
            Cells(m + 7, n + 5).FormulaR1C1 = "1"
            Cells(m + 7, n + 21).FormulaR1C1 = "FUNCIONAMIENTO DEL M" & ChrW(211) & "DULO DE OPERADORES DIFERENCIALES"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "5"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "|||||||||||||||||||||||"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "=2*R20C2-R20C3"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R20C3^2"
            Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-38-2)"
            Cells(m + 9, n + 21).FormulaR1C1 = "El c" & ChrW(225) & "lculo de los operadores se hace con base en la f" & ChrW(243) & "rmula general"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-38-7)"
            Cells(m + 3, n + 1).Interior.Color = "16770933"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "v_b"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 8
            Cells(m + 3, n + -1).FormulaR1C1 = "3"
            Cells(m + 3, n + 0).FormulaR1C1 = "v_b"
            Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R18C7=0,""o[0,25]x=[0;0]o2[0,25]y=[-5;5]o3[0,25]z=[-5;5]color=[10]origin[cart.]=[0;0;0]tfactor=0,004512392s"","""")"
            Cells(m + 4, n + 2).FormulaR1C1 = "|"
            Cells(m + 4, n + 4).FormulaR1C1 = "RESULTADO:"
            Cells(m + 4, n + 21).FormulaR1C1 = "en donde h en este caso es finita, diferente de cero y su valor se establece en la celda E9, en algunos casos"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R10C5=3,0,1)"
            Cells(m + 5, n + 4).FormulaR1C1 = "=""|""&R[-20]C[-4]&"" | ="""
            Cells(m + 5, n + 5).FormulaR1C1 = "=IF(R[-15]C[-2]="""",SQRT(R[-14]C[-6]^2+R[-14]C[-5]^2+R[-14]C[-4]^2),R[-15]C[-2])"
            Cells(m + 5, n + 21).FormulaR1C1 = "se puede requerir modificar su valor para obtener mejores resultados."
            Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 21).FormulaR1C1 = "El m" & ChrW(243) & "dulo se encuentra en la zona A6-E14, en la lista del cuadro combinado se selecciona el operador, estos"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "5"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "operadores se clasifican en dos: los que se aplican a campos vectoriales y los que se aplican a campos escalares."
            Cells(m + 9, n + -1).FormulaR1C1 = "=R29C1^2-R29C2^2"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R29C2^2-R29C3^2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=2*R29C2*R29C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "(Eq-38-3)"
            Cells(m + 9, n + 21).FormulaR1C1 = "Si el operador se aplica a campos vectoriales, en la celda E10 se debe indicar el n" & ChrW(250) & "mero del vector que contiene "
            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 = "dicho campo. Si se trata de campo escalar, en E10 se escribe directamente la f" & ChrW(243) & "rmula del campo escalar. "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = "En el caso de requerir dos campos vectoriales (por ejemplo A grad B) se utilizar" & ChrW(225) & "n las celdas E10 y F10 para indicar "
            Cells(m + 3, n + 1).Interior.Color = "16736713"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = "v_c"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 27 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "4"
            Cells(m + 3, n + 0).FormulaR1C1 = "v_c"
            Cells(m + 3, n + 21).FormulaR1C1 = "los n" & ChrW(250) & "meros de los vectores que contienen estos campos. Las f" & ChrW(243) & "rmulas de los campos deben contener en "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R18C7=0,""o[0,25]x=[0;0]o2[0,25]y=[-5;5]o3[0,25]z=[-5;5]color=[10]origin[cart.]=[0;0;0]tfactor=0,004640123s"","""")"
            Cells(m + 4, n + 2).FormulaR1C1 = "|"
            Cells(m + 4, n + 21).FormulaR1C1 = "calidad de variables espaciales las celdas A21, B21 y C21 (y su equivalente para otros vectores) y en calidad de"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R10C5=4,0,1)"
            Cells(m + 5, n + 21).FormulaR1C1 = "variable temporal la celda I5. Al oprimir el bot" & ChrW(243) & "n Calculate, ScienSolar procesar" & ChrW(225) & " el operador y escribir" & ChrW(225) & " su "
            Cells(m + 6, n + 21).FormulaR1C1 = "resultado en las celdas A12, B12 y C12 si su resultado es un vector, o en la celda E11 para escalar. El bot" & ChrW(243) & "n Go To Mix"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 21).FormulaR1C1 = "se utiliza para calcular derivadas con respecto al tiempo de segundo orden o mayor. Los operadores diferenciales"
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "5"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "(Eq-38-4)"
            Cells(m + 8, n + 21).FormulaR1C1 = "se pueden mezclar entre s" & ChrW(237) & " (hasta donde las reglas matem" & ChrW(225) & "ticas lo permitan, a lo cual el usuario debe prestar la "
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R38C3^3-9*R38C3"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R38C2^3-9*R38C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "debida atenci" & ChrW(243) & "n), para ello se carga a la hojavarias veces el m" & ChrW(243) & "dulo. Informaci" & ChrW(243) & "n m" & ChrW(225) & "s detalada sobre los operadores "
            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 = "diferenciales se puede encontrar oprimiendo el bot" & ChrW(243) & "n INFO, al lado del la lista desplegable de operadores."
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "16753387"
            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 = "U(x,y,z)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "5"
            Cells(m + 3, n + 0).FormulaR1C1 = "U(x,y,z)"
            Cells(m + 3, n + 21).FormulaR1C1 = "Este modulo permite visualizar varios campos y varios operadores de esos campos en el espacio tridimensional."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "146"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R18C7=0,""o[0,25]x=[0;0]o2[0,25]y=[-5;5]o3[0,25]z=[-5;5]color=[10]origin[cart.]=[0;0;0]tfactor=0,004640123s"","""")"
            Cells(m + 4, n + 2).FormulaR1C1 = "|"
            Cells(m + 4, n + 21).FormulaR1C1 = "Los campos que vienen como ejemplos se pueden ver en las celdas G38 hacia abajo y sus ecuaciones mediante "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R10C5=5,0,1)"
            Cells(m + 5, n + 21).FormulaR1C1 = "los correspondientes botones. "
            Cells(m + 6, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 21).FormulaR1C1 = "EJEMPLO 1. Campo el" & ChrW(233) & "ctrico de un dipolo (campo vectorial)."
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "5"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "(Eq-38-5)"
            Cells(m + 8, n + 22).FormulaR1C1 = "F" & ChrW(243) & "rmula: oprimir el bot" & ChrW(243) & "n de la ecuaci" & ChrW(243) & "n Eq-38-1."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R64C1,2)+POWER(R11C2-R64C2,2)+POWER(R11C3-R64C3,2),1/2))*R53C7*R60C3+1/(POWER(POWER(R11C1-R82C1,2)+POWER(R11C2-R82C2,2)+POWER(R11C3-R82C3,2),1/2))*R53C7*R78C3"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R64C1,2)+POWER(R11C2-R64C2,2)+POWER(R11C3-R64C3,2),1/2))*R53C7*R60C3+1/(POWER(POWER(R11C1-R82C1,2)+POWER(R11C2-R82C2,2)+POWER(R11C3-R82C3,2),1/2))*R53C7*R78C3"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R64C1,2)+POWER(R11C2-R64C2,2)+POWER(R11C3-R64C3,2),1/2))*R53C7*R60C3+1/(POWER(POWER(R11C1-R82C1,2)+POWER(R11C2-R82C2,2)+POWER(R11C3-R82C3,2),1/2))*R53C7*R78C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 22).FormulaR1C1 = "Activar:"
            Cells(m + 9, n + 24).FormulaR1C1 = "E10=6"
            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 + 22).FormulaR1C1 = "Ver el campo: "
            Cells(m + 10, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 10, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 10, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "16718190"
            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 = "E"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 45 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "6"
            Cells(m + 3, n + 0).FormulaR1C1 = "E"
            Cells(m + 3, n + 2).FormulaR1C1 = "||||||||||||||||||||||||"
            Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||"
            Cells(m + 3, n + 21).FormulaR1C1 = "div E:"
            Cells(m + 3, n + 22).FormulaR1C1 = "Calcular Div E: "
            Cells(m + 3, n + 24).FormulaR1C1 = "E10=6, seleccionar Div(vectorA) y oprimir Calculate."
            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]=0,""o[0,25]x=[0;0]o2[0,25]y=[-5;5]o3[0,25]z=[-5;5]color=[50]origin[cart.]=[0;0;0]tfactor=0,00470515s"","""")"
            Cells(m + 4, n + 2).FormulaR1C1 = "|"
            Cells(m + 4, n + 4).FormulaR1C1 = "Constante el" & ChrW(233) & "ctrica de E:"
            Cells(m + 4, n + 22).FormulaR1C1 = "Ver Div E:"
            Cells(m + 4, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 4, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 4, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "60*1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R10C5=6,0,1)"
            Cells(m + 5, n + 4).FormulaR1C1 = "k="
            Cells(m + 5, n + 5).FormulaR1C1 = "10"
            Cells(m + 5, n + 21).FormulaR1C1 = "rot E:"
            Cells(m + 5, n + 22).FormulaR1C1 = "Calcular y ver Rot E"
            Cells(m + 5, n + 24).FormulaR1C1 = "Seleccionar Rot(vectorA) y oprimir Calculate."
            Cells(m + 6, n + 21).FormulaR1C1 = "Lap E"
            Cells(m + 6, n + 22).FormulaR1C1 = "Calcular Lap E: "
            Cells(m + 6, n + 24).FormulaR1C1 = "Seleccionar Laplacian (vectorA) y oprimir Calculate."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C"
            Cells(m + 7, n + 21).FormulaR1C1 = "(E1 grad) E2"
            Cells(m + 7, n + 22).FormulaR1C1 = "Calcular (E1 grad) E2: "
            Cells(m + 7, n + 24).FormulaR1C1 = "E10=10, F10=8. Seleccionar (A grad) B y oprimir Calculate y XYZ."
            Cells(m + 8, n + -1).FormulaR1C1 = "0"
            Cells(m + 8, n + 0).FormulaR1C1 = "5"
            Cells(m + 8, n + 1).FormulaR1C1 = "5"
            Cells(m + 8, n + 2).FormulaR1C1 = "(Eq-38-1)"
            Cells(m + 8, n + 21).FormulaR1C1 = "(E1 E2)"
            Cells(m + 8, n + 22).FormulaR1C1 = "Calcular (E1 E2): "
            Cells(m + 8, n + 24).FormulaR1C1 = "E10=10, F10=8. Seleccionar (AB) y oprimir Calculate."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R56C1-R64C1,2)+POWER(R56C2-R64C2,2)+POWER(R56C3-R64C3,2),3/2))*(R56C1-R64C1)*R53C7*R60C3+1/(POWER(POWER(R56C1-R82C1,2)+POWER(R56C2-R82C2,2)+POWER(R56C3-R82C3,2),3/2))*(R56C1-R82C1)*R53C7*R78C3"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R56C1-R64C1,2)+POWER(R56C2-R64C2,2)+POWER(R56C3-R64C3,2),3/2))*(R56C2-R64C2)*R53C7*R60C3+1/(POWER(POWER(R56C1-R82C1,2)+POWER(R56C2-R82C2,2)+POWER(R56C3-R82C3,2),3/2))*(R56C2-R82C2)*R53C7*R78C3"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R56C1-R64C1,2)+POWER(R56C2-R64C2,2)+POWER(R56C3-R64C3,2),3/2))*(R56C3-R64C3)*R53C7*R60C3+1/(POWER(POWER(R56C1-R82C1,2)+POWER(R56C2-R82C2,2)+POWER(R56C3-R82C3,2),3/2))*(R56C3-R82C3)*R53C7*R78C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "[E1 x E2]"
            Cells(m + 9, n + 22).FormulaR1C1 = "Calcular [E1 x E2]: "
            Cells(m + 9, n + 24).FormulaR1C1 = "E10=10, F10=8. Seleccionar [a x B],  oprimir Calculate. Oprimir XYZ."
            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[36]C[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "Nota:"
            Cells(m + 10, n + 22).FormulaR1C1 = "Para este caso la divergencia y el rotacional del campo resultante dan cero. El producto punto (E1 E2)"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[35]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 22).FormulaR1C1 = "de los dos campos de las cargas, da como resultado un campo escalar, que se muestra con puntos "
            Cells(m + 3, n + 1).Interior.Color = "12611584"
            Cells(m + 3, n + 1).Font.Size = "11"
            Cells(m + 3, n + 1).Font.name = "Calibri"
            Cells(m + 4, n - 1).Value = 1
            Cells(m1 + 1, n1 + 1).Value = " + q1"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 54 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "7"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&1"
            Cells(m + 3, n + 1).FormulaR1C1 = "4"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- q""&1"
            Cells(m + 3, n + 22).FormulaR1C1 = "de diferentes colores que representan su magnitud. El producto cruz resulta en campo vectorial."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "EJEMPLO 2. Campo de velocidades v de un fluido a (campo vectorial)."
            Cells(m + 6, n + 22).FormulaR1C1 = "F" & ChrW(243) & "rmula: oprimir el bot" & ChrW(243) & "n de la ecuaci" & ChrW(243) & "n Eq-38-2."
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            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""&1"
            Cells(m + 7, n + 22).FormulaR1C1 = "Activar:"
            Cells(m + 7, n + 24).FormulaR1C1 = "E10=2"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 = "Ver el campo: "
            Cells(m + 8, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 8, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 8, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            Cells(m + 9, n + -1).FormulaR1C1 = "=R56C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R56C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R56C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 10, n + 21).FormulaR1C1 = "div v:"
            Cells(m + 10, n + 22).FormulaR1C1 = "Calcular Div v: "
            Cells(m + 10, n + 24).FormulaR1C1 = "E10=2, seleccionar Div(vectorA) y oprimir Calculate."
            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[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 22).FormulaR1C1 = "Ver Div v:"
            Cells(m + 11, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 11, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 11, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            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 = "E1"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 63 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "8"
            Cells(m + 3, n + 0).FormulaR1C1 = "E1"
            Cells(m + 3, n + 21).FormulaR1C1 = "rot v:"
            Cells(m + 3, n + 22).FormulaR1C1 = "Calcular y ver Rot v"
            Cells(m + 3, n + 24).FormulaR1C1 = "Seleccionar Rot(vectorA) y oprimir Calculate."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Lap v"
            Cells(m + 4, n + 22).FormulaR1C1 = "Calcular Lap v: "
            Cells(m + 4, n + 24).FormulaR1C1 = "Seleccionar Laplacian (vectorA) y oprimir Calculate."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "2"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "Mostrar simultneamente el campo v y el laplaciano de v: G18=0, G19=0. Oprimir XYZ"
            Cells(m + 6, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R56C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R56C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R56C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "EJEMPLO 3. Campo de velocidades v de un fluido b (campo vectorial)."
            Cells(m + 8, n + -1).FormulaR1C1 = "=R[-1]C"
            Cells(m + 8, n + 0).FormulaR1C1 = "=R[-1]C"
            Cells(m + 8, n + 1).FormulaR1C1 = "=R[-1]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 22).FormulaR1C1 = "F" & ChrW(243) & "rmula: oprimir el bot" & ChrW(243) & "n de la ecuaci" & ChrW(243) & "n Eq-38-3."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R74C1-R64C1,2)+POWER(R74C2-R64C2,2)+POWER(R74C3-R64C3,2),3/2))*(R74C1-R64C1)*R53C7*R60C3"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R74C1-R64C1,2)+POWER(R74C2-R64C2,2)+POWER(R74C3-R64C3,2),3/2))*(R74C2-R64C2)*R53C7*R60C3"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R74C1-R64C1,2)+POWER(R74C2-R64C2,2)+POWER(R74C3-R64C3,2),3/2))*(R74C3-R64C3)*R53C7*R60C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&1"
            Cells(m + 9, n + 22).FormulaR1C1 = "Activar:"
            Cells(m + 9, n + 24).FormulaR1C1 = "E10=3"
            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 + 22).FormulaR1C1 = "Ver el campo: "
            Cells(m + 10, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 10, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 10, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            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 + 4).FormulaR1C1 = "=IF(R[-1]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 = " - q2"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 72 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "9"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&2"
            Cells(m + 3, n + 1).FormulaR1C1 = "-4"
            Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- q""&2"
            Cells(m + 3, n + 21).FormulaR1C1 = "div v:"
            Cells(m + 3, n + 22).FormulaR1C1 = "Calcular Div v: "
            Cells(m + 3, n + 24).FormulaR1C1 = "E10=3, seleccionar Div(vectorA) y oprimir Calculate."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 22).FormulaR1C1 = "Ver Div v:"
            Cells(m + 4, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 4, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 4, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "rot v:"
            Cells(m + 5, n + 22).FormulaR1C1 = "Calcular y ver Rot v"
            Cells(m + 5, n + 24).FormulaR1C1 = "Seleccionar Rot(vectorA) y oprimir Calculate o Re-Calculate."
            Cells(m + 6, n + 21).FormulaR1C1 = "Lap v"
            Cells(m + 6, n + 22).FormulaR1C1 = "Calcular Lap v: "
            Cells(m + 6, n + 24).FormulaR1C1 = "Seleccionar Laplacian (vectorA) y oprimir Calculate."
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            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""&2"
            Cells(m + 7, n + 21).FormulaR1C1 = "Mostrar simultneamente el campo v y el laplaciano de v: G18=0, G19=0. Oprimir XYZ"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R56C1"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R56C2"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R56C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "EJEMPLO 4. Campo de velocidades v de un fluido c (campo vectorial)."
            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 + 22).FormulaR1C1 = "F" & ChrW(243) & "rmula: oprimir el bot" & ChrW(243) & "n de la ecuaci" & ChrW(243) & "n Eq-38-4."
            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[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 22).FormulaR1C1 = "Activar:"
            Cells(m + 11, n + 24).FormulaR1C1 = "E10=4"
            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 = "E2"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 81 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1"
            Cells(m + 3, n + 0).FormulaR1C1 = "E2"
            Cells(m + 3, n + 22).FormulaR1C1 = "Ver el campo: "
            Cells(m + 3, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 3, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 3, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            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 = "=R[-36]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "div v:"
            Cells(m + 5, n + 22).FormulaR1C1 = "Calcular Div v: "
            Cells(m + 5, n + 24).FormulaR1C1 = "E10=4, seleccionar Div(vectorA) y oprimir Calculate."
            Cells(m + 6, n + 22).FormulaR1C1 = "Ver Div v:"
            Cells(m + 6, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 6, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 6, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            Cells(m + 7, n + -1).FormulaR1C1 = "=R56C1"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R56C2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R56C3"
            Cells(m + 7, n + 21).FormulaR1C1 = "rot v:"
            Cells(m + 7, n + 22).FormulaR1C1 = "Calcular y ver Rot v"
            Cells(m + 7, n + 24).FormulaR1C1 = "Seleccionar Rot(vectorA) y oprimir Calculate o Re-Calculate."
            Cells(m + 8, n + -1).FormulaR1C1 = "=R[-1]C"
            Cells(m + 8, n + 0).FormulaR1C1 = "=R[-1]C"
            Cells(m + 8, n + 1).FormulaR1C1 = "=R[-1]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "Lap v"
            Cells(m + 8, n + 22).FormulaR1C1 = "Calcular Lap v: "
            Cells(m + 8, n + 24).FormulaR1C1 = "Seleccionar Laplacian (vectorA) y oprimir Calculate."
            Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R92C1-R82C1,2)+POWER(R92C2-R82C2,2)+POWER(R92C3-R82C3,2),3/2))*(R92C1-R82C1)*R53C7*R78C3"
            Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R92C1-R82C1,2)+POWER(R92C2-R82C2,2)+POWER(R92C3-R82C3,2),3/2))*(R92C2-R82C2)*R53C7*R78C3"
            Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R92C1-R82C1,2)+POWER(R92C2-R82C2,2)+POWER(R92C3-R82C3,2),3/2))*(R92C3-R82C3)*R53C7*R78C3"
            Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&2"
            Cells(m + 9, n + 21).FormulaR1C1 = "Mostrar simultneamente el campo v y el laplaciano de v: G18=0, G19=0. Oprimir XYZ"
            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 = "__________________________________________________________________________________"
            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 + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 21).FormulaR1C1 = "EJEMPLO 5. Potencial U(x,y,z) del dipolo el" & ChrW(233) & "ctrico (campo escalar)."
            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 = ""
       Cells(m1 + 2, n1 - 1).Value = 10
      End If ' vector ends
      If m = m1 + 81 Then
            Cells(m + 12, n + 22).FormulaR1C1 = "F" & ChrW(243) & "rmula: oprimir el bot" & ChrW(243) & "n de la ecuaci" & ChrW(243) & "n Eq-38-5."
            Cells(m + 13, n + 22).FormulaR1C1 = "Activar:"
            Cells(m + 13, n + 24).FormulaR1C1 = "Copiar la celda A48 y pegar en E10."
            Cells(m + 15, n + 21).FormulaR1C1 = "grad U:"
            Cells(m + 15, n + 22).FormulaR1C1 = "Calcular grad U: "
            Cells(m + 15, n + 24).FormulaR1C1 = "Seleccionar Grad (escalar U) y oprimir Calculate."
            Cells(m + 16, n + 22).FormulaR1C1 = "Ver Grad U:"
            Cells(m + 16, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 16, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 16, n + 26).FormulaR1C1 = "oprimir XYZ, YZ, etc."
            Cells(m + 17, n + 21).FormulaR1C1 = "Nota: Recordemos que E = -grad V. Para que esta ecuaci" & ChrW(243) & "n se cumpla, debemos agregar el signo menos"
            Cells(m + 18, n + 21).FormulaR1C1 = "en las f" & ChrW(243) & "rmulas de gradiente en A12, B12 y C12."
            Cells(m + 19, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 20, n + 21).FormulaR1C1 = "Todos estos operadores de los campos correspondientes se pueden calcular tambien en un solo punto; para ello"
            Cells(m + 21, n + 21).FormulaR1C1 = "introducir G18=1 y G19 =1 e indicar el punto de observaci" & ChrW(243) & "n en A11 (para x),  B11 (para y),  C11 (para z). "
            Cells(m + 22, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 23, n + 21).FormulaR1C1 = "EJEMPLO 6. Calcular rot (rot v_b)"
            Cells(m + 24, n + 22).FormulaR1C1 = "Para calcular el rotacional del rotacional del campo vectorial de velocidades estudiado en el "
            Cells(m + 25, n + 22).FormulaR1C1 = "ejemplo 3, acudimos al ejemplo 3, calculamos el rotacional y luego seleccionamos el proyecto "
            Cells(m + 26, n + 22).FormulaR1C1 = "2 en la lista de proyectos (ubicado en Q5) y oprimimos +Vector. Se agregar" & ChrW(225) & " un nuevo m" & ChrW(243) & "dulo "
            Cells(m + 27, n + 22).FormulaR1C1 = "de operadores diferenciales. "
            Cells(m + 28, n + 21).FormulaR1C1 = "rot (rot v):"
            Cells(m + 28, n + 22).FormulaR1C1 = "Calcular Rot rot v:"
            Cells(m + 28, n + 24).FormulaR1C1 = "En E98 Seleccionar Rot(vectorA), E100=1 y oprimir Calculate."
            Cells(m + 29, n + 21).FormulaR1C1 = "Ver rot rot v:"
            Cells(m + 29, n + 22).FormulaR1C1 = "G18=1, G19=1, introducir 100*1 en B98, y en C97 la siguiente cadena de valores, la cual "
            Cells(m + 30, n + 22).FormulaR1C1 = "puede copiar y pegar:"
            Cells(m + 31, n + 22).FormulaR1C1 = "o[0,5]x=[0;0]o2[0,5]y=[-5;5]o3[0,5]z=[-5;5]color=[70]origin[cart.]=[0;0;0]tfactor=0,002757353s"
            Cells(m + 32, n + 22).FormulaR1C1 = "Oprima XYZ para ver el resultado en el sistema de coordenadas."
            Cells(m + 33, n + 21).FormulaR1C1 = "(v_a grad) B"
            Cells(m + 33, n + 22).FormulaR1C1 = "Un campo visualmente m" & ChrW(225) & "s interesante puede conseguirse con el operador (A grad)B, en "
            Cells(m + 34, n + 22).FormulaR1C1 = "donde B ser" & ChrW(237) & "a el operador rot v_b y A podr" & ChrW(237) & "a ser el campo v_a. Para ello en E98 seleccione (A grad)B"
            Cells(m + 35, n + 22).FormulaR1C1 = "en E100=1, F100=2, oprima Calculate para ver el resultado."
            Cells(m + 37, n + 21).FormulaR1C1 = "Nota: La magnitud 100*1 en B98 se introduce tal cual y tiene el objetivo de regular el tama–o de los vectores."
            Cells(m + 38, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub