Sub Project_33_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 33_Dif. Operators Examp._EN

   ' Updated: 3/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,6796875 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 = "Dif. Oper."
            Cells(m + 4, n + 5).FormulaR1C1 = "/////////////"
            Cells(m + 4, n + 12).FormulaR1C1 = "DIFFERENTIAL OPERATORS OF VECTOR AND SCALAR FIELDS"
            Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS"
            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 = "Operator:"
            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,""INSERT INTO CELL E10: 2,3,4,5 or 6"",IF(R[2]C[-9]=2,""VELOCITY FIELD OF A FLUID v_a"",IF(R[2]C[-9]=3,""VELOCITY FIELD OF PARTICLES IN A FLUID v_b"",IF(R[2]C[-9]=4,""VELOCITY FIELD OF A FLUID v_c"",IF(R[2]C[-9]=5,""SCALAR POTENTIAL OF AN ELECTRICAL DIPOLE"",IF(R[2]C[-9]=6,""ELECTRICAL FIELD OF A DIPOLE"",""""))))))"
            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, ""Select Grad U, copy cell A48 and paste it into E10"",IF(R[1]C[-3]=2,""Change the field in cell 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 = "For this model to work, the DIFFERENTIAL OPERATORS module must be installed (project 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 = "on the list). If it is not installed, download it from ww.sciensolar.com. This model analyzes the "
            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 = "differential operators of different fields, both scalar and vector, specifically the operators "
            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 = "found in the operators module, that is, in the list of the combo box located in cell E17. The "
            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 = "user is recommended to review the mathematical theory of these operators in the bibliography, "
            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 = "Show:"
            Cells(m + 4, n + 21).FormulaR1C1 = "since prior knowledge is assumed here. The objective of the model is to see the behavior of "
            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 = " (Yes = 0,  No = 1):"
            Cells(m + 5, n + 21).FormulaR1C1 = "these operators for different fields at different points in space."
            Cells(m + 6, n + 4).FormulaR1C1 = "=""Field "" &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 = "OPERATION OF THE DIFFERENTIAL OPERATORS MODULE"
            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 = "The calculation of the operators is done based on the general formula"
            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 = "RESULT:"
            Cells(m + 4, n + 21).FormulaR1C1 = "where h in this case is finite, different from zero and its value is set in cell E9, in some cases "
            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 = "it may be necessary to modify its value to obtain better results."
            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 = "The module is located in the A6-E14 area. The operator is selected from the combo box list. "
            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 = "These operators are classified into two: those that apply to vector fields and those that apply "
            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 = "to scalar fields. If the operator is applied to vector fields, the number of the vector that contains "
            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 = "the field must be indicated in cell E10. If it is a scalar field, the formula for the scalar field is written "
            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 = "directly in E10. If two vector fields are required (for example, A grad B), cells E10 and F10 will be "
            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 = "used to indicate the numbers of the vectors that contain these fields. The field formulas must "
            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 = "contain cells A21, B21 and C21 (and their equivalent for other vectors) as spatial variables and "
            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 = "cell I5 as a temporary variable. When you press the Calculate button, ScienSolar will process "
            Cells(m + 6, n + 21).FormulaR1C1 = "the operator and write its result to cells A12, B12, and C12 if your result is a vector, or to cell E11 "
            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 = "for scalar result. The Go To Mix button is used to calculate second-order or higher derivatives. "
            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 = "Differential operators can be mixed together (to the extent that the mathematical rules allow, "
            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 = "which the user must pay due attention to) by loading the module into the sheet several times. "
            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 = "More detailed information about differential operators can be found by pressing the INFO button "
            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 = "This module allows you to view various fields and various operators of these fields in three-dimensional "
            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 = "space. The fields that are shown as examples can be seen in vectors 2, 3, 4, 5, 6, and their equations "
            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 = "can be seen using the corresponding buttons (column D)."
            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 = "EXAMPLE 1. Electric field of a dipole (vector field)."
            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 = "Formula: Press the button for equation 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 = "Activate:"
            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 = "View the field:"
            Cells(m + 10, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 10, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 10, n + 26).FormulaR1C1 = "Press 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 = "Calculate Div E:"
            Cells(m + 3, n + 24).FormulaR1C1 = "E10=6, select Div(vectorA) and press 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 = "Electrical constant of E:"
            Cells(m + 4, n + 22).FormulaR1C1 = "View Div E:"
            Cells(m + 4, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 4, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 4, n + 26).FormulaR1C1 = "Press 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 = "Calculate and view Rot E"
            Cells(m + 5, n + 24).FormulaR1C1 = "Select Rot(vectorA) and press Calculate."
            Cells(m + 6, n + 21).FormulaR1C1 = "Lap E"
            Cells(m + 6, n + 22).FormulaR1C1 = "Calculate Lap E:"
            Cells(m + 6, n + 24).FormulaR1C1 = "Select Laplacian (vectorA) and press 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 = "Calculate (E1 grad) E2:"
            Cells(m + 7, n + 24).FormulaR1C1 = "E10=10, F10=8. Select (A grad) B and press Calculate and 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 = "Calculate (E1 E2):"
            Cells(m + 8, n + 24).FormulaR1C1 = "E10=10, F10=8. Select (AB) and press 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 = "Calculate [E1 x E2]:"
            Cells(m + 9, n + 24).FormulaR1C1 = "E10=10, F10=8. Select [a x B], press Calculate. Press 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 = "Note:"
            Cells(m + 10, n + 22).FormulaR1C1 = "For this case the divergence and the curl of the resulting field are zero. The dot product (E1 E2) of the two "
            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 = "charge fields results in a scalar field, which is shown with points of different colors that represent its "
            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 = "magnitude. The cross product results in a vector field."
            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 = "EXAMPLE 2. Velocity field v of a fluid a (vector field)."
            Cells(m + 6, n + 22).FormulaR1C1 = "Formula: Press the button for the equation 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 = "=""<< -- Position of  q""&1"
            Cells(m + 7, n + 22).FormulaR1C1 = "Activate:"
            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 = "View the field:"
            Cells(m + 8, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 8, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 8, n + 26).FormulaR1C1 = "Press 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 = "Calculate Div v:"
            Cells(m + 10, n + 24).FormulaR1C1 = "E10=2, select Div(vectorA) and press 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 = "View Div v:"
            Cells(m + 11, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 11, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 11, n + 26).FormulaR1C1 = "Press 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 = "Calculate and view Rot v"
            Cells(m + 3, n + 24).FormulaR1C1 = "Select Rot(vectorA) and press 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 = "Calculate Lap v:"
            Cells(m + 4, n + 24).FormulaR1C1 = "Select Laplacian (vectorA) and press 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 = "To simultaneously display the v field and the Laplacian of v: G18=0, G19=0. Press 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 = "EXAMPLE 3. Velocity field v of a fluid b (vector field)."
            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 = "Formula: Press the equation button 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 = "Activate:"
            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 = "View field:"
            Cells(m + 10, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 10, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 10, n + 26).FormulaR1C1 = "Press 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 = "Calculate Div v:"
            Cells(m + 3, n + 24).FormulaR1C1 = "E10=3, select Div(vectorA) and press Calculate."
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "9"
            Cells(m + 4, n + 22).FormulaR1C1 = "View Div v:"
            Cells(m + 4, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 4, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 4, n + 26).FormulaR1C1 = "Press 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 = "Calculate and view Rot v"
            Cells(m + 5, n + 24).FormulaR1C1 = "Select Rot(vectorA) and press Calculate or Re-Calculate."
            Cells(m + 6, n + 21).FormulaR1C1 = "Lap v"
            Cells(m + 6, n + 22).FormulaR1C1 = "Calculate Lap v:"
            Cells(m + 6, n + 24).FormulaR1C1 = "Select Laplacian (vectorA) and press 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 = "=""<< -- Position of  q""&2"
            Cells(m + 7, n + 21).FormulaR1C1 = "To simultaneously display the v field and the Laplacian of v: G18=0, G19=0. Press 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 = "EXAMPLE 4. Velocity field v of a fluid c (vector field)."
            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 = "Activate:"
            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 = "View field:"
            Cells(m + 3, n + 24).FormulaR1C1 = "G18=0"
            Cells(m + 3, n + 25).FormulaR1C1 = "G19=1"
            Cells(m + 3, n + 26).FormulaR1C1 = "Press 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 = "Calculate Div v:"
            Cells(m + 5, n + 24).FormulaR1C1 = "E10=4, select Div(vectorA) and press Calculate."
            Cells(m + 6, n + 22).FormulaR1C1 = "View Div v:"
            Cells(m + 6, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 6, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 6, n + 26).FormulaR1C1 = "Press 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 = "Calculate and view Rot v"
            Cells(m + 7, n + 24).FormulaR1C1 = "Select Rot(vectorA) and press Calculate or 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 = "Calculate Lap v:"
            Cells(m + 8, n + 24).FormulaR1C1 = "Select Laplacian (vectorA) and press 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 = "To simultaneously display the v field and the Laplacian of v: G18=0, G19=0. Press 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 = "EXAMPLE 5. Potential U(x,y,z) of the electric dipole (scalar field)."
            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 = "Formula: Press the button for the equation Eq-38-5."
            Cells(m + 13, n + 22).FormulaR1C1 = "Activate:"
            Cells(m + 13, n + 24).FormulaR1C1 = "Copy cell A48 and paste into E10."
            Cells(m + 15, n + 21).FormulaR1C1 = "Grad U:"
            Cells(m + 15, n + 22).FormulaR1C1 = "Calculate grad U:"
            Cells(m + 15, n + 24).FormulaR1C1 = "Select Grad (scale U) and press Calculate."
            Cells(m + 16, n + 22).FormulaR1C1 = "View Grad U:"
            Cells(m + 16, n + 24).FormulaR1C1 = "G18=1"
            Cells(m + 16, n + 25).FormulaR1C1 = "G19=0"
            Cells(m + 16, n + 26).FormulaR1C1 = "Press XYZ, YZ, etc."
            Cells(m + 17, n + 21).FormulaR1C1 = "Note: Remember that E = -grad V. For this equation to be true, we must add the minus sign to the gradient "
            Cells(m + 18, n + 21).FormulaR1C1 = "formulas in A12, B12, and C12."
            Cells(m + 19, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 20, n + 21).FormulaR1C1 = "All of these operators for the corresponding fields can also be calculated at a single point; to do this, "
            Cells(m + 21, n + 21).FormulaR1C1 = "enter G18=1 and G19 =1 and indicate the observation point in A11 (for x), B11 (for y), C11 (for z)."
            Cells(m + 22, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
            Cells(m + 23, n + 21).FormulaR1C1 = "EXAMPLE 6. Calculate rot (rot v_b)"
            Cells(m + 24, n + 22).FormulaR1C1 = "To calculate the curl of the velocity vector field studied in example 3, we go to example 3, calculate "
            Cells(m + 25, n + 22).FormulaR1C1 = "the curl, and then select project 2 in the project list (located in Q5) and press +Vector. A new differential "
            Cells(m + 26, n + 22).FormulaR1C1 = "operators module will be added."
            Cells(m + 28, n + 21).FormulaR1C1 = "Rot (rot v):"
            Cells(m + 28, n + 22).FormulaR1C1 = "Calculate Rot rot v:"
            Cells(m + 28, n + 24).FormulaR1C1 = "In E98 Select Rot(vectorA), E100=1 and press Calculate."
            Cells(m + 29, n + 21).FormulaR1C1 = "View rot rot v:"
            Cells(m + 29, n + 22).FormulaR1C1 = "G18=1, G19=1, enter 100*1 in B98, and in C97 the following string of values, which you can copy "
            Cells(m + 30, n + 22).FormulaR1C1 = "and paste:"
            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 = "Press XYZ to see the result in the coordinate system."
            Cells(m + 33, n + 21).FormulaR1C1 = "(v_a grad) B"
            Cells(m + 33, n + 22).FormulaR1C1 = "A more visually interesting field can be achieved with the operator (A grad)B, where B would be the "
            Cells(m + 34, n + 22).FormulaR1C1 = "v_b rot operator and A could be the v_a field. To do this in E98 select (A grad)B at E100=1, F100=2, press "
            Cells(m + 35, n + 22).FormulaR1C1 = "Calculate to see the result."
            Cells(m + 37, n + 21).FormulaR1C1 = "Note: The magnitude 100*1 in B98 is entered as is and is intended to regulate the size of the vectors."
            Cells(m + 38, n + 21).FormulaR1C1 = "__________________________________________________________________________________"
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub