Sub Project_10_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 10_Coordenadas cilindricas_ES

   ' Updated: 30/01/25
   ' Created by: Ariel R. Becerra (21/11/23)
   ' Modified by: _________________
   ' This is the code of your new project.
   ' Steps to embed the code to ScienSolar:
   ' Note 1: The number 10 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it.
   ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project.
   ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns.
   ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column.
   ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering.
   ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open.
   ' Step 5. On the left, in the project explorer, select a non full module (or add a new one).
   ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one).
   ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button.
   ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it!
   ' Visit  www.sciensolar.com for news and updates of ? ScienSolar.
  
  
            Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1"
            Cells(m1 - 1, n1).Value = ""
            Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4"
            Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850"
            Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8"
            Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = "x"
            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,1015625 s."
            Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4"
            Cells(m1 + 2, n1 + 3).FormulaR1C1 = "60"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "y"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "375"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "45"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "(Eq-rho)"
            Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200"
            Cells(m1 + 3, n1 + 4).FormulaR1C1 = "z"
            Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15"
       Cells(m1, n1 + 9).FormulaR1C1 = "HELP"
       Dim HELPtxt As String
       HELPtxt = "COORDENADAS CIL" & ChrW(205) & "NDRICAS EN CARTESIANAS" & Chr(10) & _
"     (See english version at the end)" & Chr(10) & _
"     Las f" & ChrW(243) & "rmulas matem" & ChrW(225) & "ticas para este caso son las ecuaciones: " & Chr(10) & _
"     x=rho cos phi, y= rho sin phi, z=z." & Chr(10) & _
"     Para dibujar los vectores unitarios de las coordenadas cil" & ChrW(237) & "ndricas en las cartesianas se utilizan las f" & ChrW(243) & "rmulas: " & Chr(10) & _
"     unit rho= i cos phi + j sin phi, " & Chr(10) & _
"     unit phi = - i sin phi + j cos phi, " & Chr(10) & _
"     unit z = k," & Chr(10) & _
"     en donde por unit se designan los vectores unitarios. En las celdas A12, B12, C12 se introducen estas ecuaciones para rho unitario, en A21, B21, C21 para phi unitario y en A30, B30, C30 para z. " & Chr(10) & _
"     Para ejecutar una simulaci" & ChrW(243) & "n, introduzcca un valor para rho en la celda E12=2 y para phi en E13=45, E14=1, asegur" & ChrW(225) & "ndose de que est" & ChrW(233) & "n limpias las celdas E19, E29 y E21. luego oprima el bot" & ChrW(243) & "n Run. Los " & ChrW(225) & "ngulos empezar" & ChrW(225) & "n a recorrerse de 8 en 8 desde 45 hasta 360 grados. Para cambiar la posici" & ChrW(243) & "n inicial del sistema cil" & ChrW(237) & "ndrico acuda a los par" & ChrW(225) & "metros del vector A. " & Chr(10) & _
"     (ENGLISH)" & Chr(10) & _
"     CYLINDRICAL COORDINATES IN CARTESIANS" & Chr(10) & _
"     The mathematical formulas for this case are the equations:" & Chr(10) & _
"     x=rho cos phi, y= rho sin phi, z=z." & Chr(10) & _
"     To draw the unit vectors of the cylindrical coordinates in the Cartesians, the formulas are used:" & Chr(10) & _
"     unit rho= i cos phi + j sin phi, " & Chr(10) & _
"     unit phi = - i sin phi + j cos phi, " & Chr(10) & _
"     unit z = k," & Chr(10) & _
"     where unit designates the unit vectors. These equations for the rho unit are in cells A12, B12, C12, in A21, B21, C21 for the phi unit, and in A30, B30, C30 for z." & Chr(10) & _
"     To run a simulation, enter a value for rho in cell E12=2,  phi in E13=45, E14=1 (be sure that E19, E29 y E21 are clean) and then press the Run button. The angles will begin to travel in 8 steps from 45 to 360 degrees. To change the initial position of the cylindrical system, go to the parameters of vector A." & Chr(10) & _
"     " & Chr(10) & _
"     " & Chr(10) & _
"     "
       On Error Resume Next
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 10
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-rho)"
            Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m + 3, n + 3).FormulaR1C1 = "200"
            Cells(m + 3, n + 4).FormulaR1C1 = "z"
            Cells(m + 3, n + 5).FormulaR1C1 = "15"
            Cells(m + 3, n + 19).FormulaR1C1 = "1"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "Coordenadas cil" & ChrW(237) & "ndricas"
            Cells(m + 4, n + 12).FormulaR1C1 = "COORDENADAS CIL" & ChrW(205) & "NDRICAS"
            Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 6, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||"
            Cells(m + 6, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[29]C+R[27]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[29]C+R[27]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[29]C+R[27]C"
            Cells(m + 7, n + 2).FormulaR1C1 = "A CARTESIANAS:"
            Cells(m + 7, n + 4).FormulaR1C1 = "RESULTADO:"
            Cells(m + 7, n + 5).FormulaR1C1 = "(Eq-9-1)"
            Cells(m + 7, n + 21).FormulaR1C1 = "El modelo permite visualizar los vectores unitarios de las coordenadas cil" & ChrW(237) & "ndricas representadas "
            Cells(m + 8, n + 2).FormulaR1C1 = "(borrar E18, E19 y GE20)"
            Cells(m + 8, n + 4).FormulaR1C1 = "=IF(R[2]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "en las cartesianas.  Oprima los botones de ecuaciones para ver las ecuaciones (las ecuaciones  deben"
            Cells(m + 9, n + -1).FormulaR1C1 = "=COS(RADIANS(R[24]C[3]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=SIN(RADIANS(R[24]C[2]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "rho ="
            Cells(m + 9, n + 3).FormulaR1C1 = "2"
            Cells(m + 9, n + 4).FormulaR1C1 = "x ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=R[23]C[-3]*RC[-6]"
            Cells(m + 9, n + 21).FormulaR1C1 = "encontrarse en la hoja 3DModels)."
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "=R[22]C[4]"
            Cells(m + 10, n + 2).FormulaR1C1 = "phi ="
            Cells(m + 10, n + 3).FormulaR1C1 = "=R[-8]C[4]"
            Cells(m + 10, n + 4).FormulaR1C1 = "y ="
            Cells(m + 10, n + 5).FormulaR1C1 = "=R[22]C[-3]*R[-1]C[-5]"
            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 = "z="
            Cells(m + 11, n + 3).FormulaR1C1 = "2"
            Cells(m + 11, n + 4).FormulaR1C1 = "z ="
            Cells(m + 11, n + 5).FormulaR1C1 = "=RC[-2]"
            Cells(m + 11, n + 21).FormulaR1C1 = "Los diferentes tipos de coordenadas se utilizan para simplificar los problemas matem" & ChrW(225) & "ticos y "
            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 = "(Eq-phi)"
       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 = "(Eq-phi)"
            Cells(m + 3, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||"
            Cells(m + 3, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||"
            Cells(m + 3, n + 21).FormulaR1C1 = "f" & ChrW(237) & "sicos que tienen cierta simetr" & ChrW(237) & "a. Por ejemplo, un campo el" & ChrW(233) & "ctrico de una carga puntual tiene "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "simetr" & ChrW(237) & "a esf" & ChrW(233) & "rica, por lo tanto representarlo y estudiarlo resulta m" & ChrW(225) & "s conveniente y sencillo "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "A CIL" & ChrW(205) & "NDRICAS"
            Cells(m + 5, n + 4).FormulaR1C1 = "RESULTADO:"
            Cells(m + 5, n + 5).FormulaR1C1 = "(Eq-9-2)"
            Cells(m + 5, n + 21).FormulaR1C1 = "hacerlo desde las coordenadas esf" & ChrW(233) & "ricas, mientras que el campo el" & ChrW(233) & "ctrico de una l" & ChrW(237) & "nea recta "
            Cells(m + 6, n + 2).FormulaR1C1 = "(borrar E12, E13 y E14)"
            Cells(m + 6, n + 21).FormulaR1C1 = "infinita y cargada tiene simetr" & ChrW(237) & "a cil" & ChrW(237) & "ndrica. Para ver ejemplos de estas dos simetr" & ChrW(237) & "as ver los "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 2).FormulaR1C1 = "x ="
            Cells(m + 7, n + 4).FormulaR1C1 = "rho ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=IF(RC[-2]="""",R[-7]C[-2],SQRT(RC[-2]^2+R[1]C[-2]^2))"
            Cells(m + 7, n + 21).FormulaR1C1 = "proyectos SIMETR" & ChrW(205) & "A CIL" & ChrW(205) & "NDRICA y SIMETR" & ChrW(205) & "A ESF" & ChrW(201) & "RICA."
            Cells(m + 8, n + 2).FormulaR1C1 = "y ="
            Cells(m + 8, n + 4).FormulaR1C1 = "phi ="
            Cells(m + 8, n + 5).FormulaR1C1 = "=IF(R[-1]C[-2]="""",R[-7]C[-2],DEGREES(IF(AND(R[-1]C[-2]>0,RC[-2]<0),2*PI()+ASIN(RC[-2]/R[-1]C),IF(AND(R[-1]C[-2]<=0,RC[-2]>=0),ACOS(R[-1]C[-2]/R[-1]C),IF(AND(R[-1]C[-2]<0,RC[-2]<0),ATAN(RC[-2]/R[-1]C[-2])+PI(),IF(R[-1]C[-2]=0,2*PI()-ACOS(R[-1]C[-2]/R[-1]C),ATAN(RC[-2]/R[-1]C[-2])))))))"
            Cells(m + 9, n + -1).FormulaR1C1 = "=-SIN(RADIANS(R[15]C[3]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=COS(RADIANS(R[15]C[2]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "z ="
            Cells(m + 9, n + 4).FormulaR1C1 = "z="
            Cells(m + 9, n + 5).FormulaR1C1 = "=IF(R[-2]C[-2]="""",R[-7]C[-2],RC[-2])"
            Cells(m + 9, n + 21).FormulaR1C1 = "El sistema de coordenadas cil" & ChrW(237) & "ndricas es un sistema ortogonal que tiene tres vectores unitarios "
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "=R[14]C[4]"
            Cells(m + 10, n + 2).FormulaR1C1 = "|||||||||||||||||||||||||"
            Cells(m + 10, n + 4).FormulaR1C1 = "|||||||||||||||||||||||||"
            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-9-3)"
            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 = "(Eq-z)"
       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 = "(Eq-z)"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "MOSTRAR VECTOR:"
            Cells(m + 4, n + 21).FormulaR1C1 = "Para convertir un punto  P(r)  = P(x,y,z) que est" & ChrW(225) & " expresada en coordenadas cartesianas, a "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 4).FormulaR1C1 = "rho=0,    r=1"
            Cells(m + 5, n + 5).FormulaR1C1 = "0"
            Cells(m + 5, n + 21).FormulaR1C1 = "coordenadas  cil" & ChrW(237) & "ndricas, P(rho, phi, z) se necesitan las siguientes f" & ChrW(243) & "rmulas de conversi" & ChrW(243) & "n:"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 4).FormulaR1C1 = "DESPLAZAMIENTO DEL"
            Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-9-4)"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "ORIGEN:"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "1"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 4).FormulaR1C1 = "A_ox ="
            Cells(m + 9, n + 5).FormulaR1C1 = "0"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "=R[6]C[4]"
            Cells(m + 10, n + 4).FormulaR1C1 = "A_oy ="
            Cells(m + 10, n + 5).FormulaR1C1 = "0"
            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 = "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 = " "
       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 = "=IF(R[-7]C[5]=0,"" "",""r"")"
            Cells(m + 3, n + 4).FormulaR1C1 = "FIJACI" & ChrW(211) & "N DE TRAYECTORIA:"
            Cells(m + 3, n + 21).FormulaR1C1 = "Utilice las celdas E12, E13 y E14 para ingresar los valores de las coordenadas cil" & ChrW(237) & "ndricas "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 4).FormulaR1C1 = "(1 " & ChrW(243) & " 2)"
            Cells(m + 4, n + 21).FormulaR1C1 = "de un punto respectivamente y obtener las cartesianas del mismo punto en las celdas "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 2).FormulaR1C1 = "=IF(R[-23]C[1]="""",R[-16]C[3],IF(R[-16]C[1]="""",R[-23]C[1]))"
            Cells(m + 5, n + 4).FormulaR1C1 = "rho="
            Cells(m + 5, n + 5).FormulaR1C1 = "1"
            Cells(m + 5, n + 21).FormulaR1C1 = "G12, G13 y G14. Oprima cualquier bot" & ChrW(243) & "n del sistema de coordenadas para visualizar "
            Cells(m + 6, n + 2).FormulaR1C1 = "=IF(R[-24]C[1]="""",R[-16]C[3],IF(R[-17]C[1]="""",R[-23]C[1]))"
            Cells(m + 6, n + 4).FormulaR1C1 = "phi ="
            Cells(m + 6, n + 5).FormulaR1C1 = "1"
            Cells(m + 6, n + 21).FormulaR1C1 = "los resultados en este. "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C[6]"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-6]C[5]"
            Cells(m + 7, n + 1).FormulaR1C1 = "=IF(R[-11]C[4]=0,RC[1],0)"
            Cells(m + 7, n + 2).FormulaR1C1 = "=IF(R[-25]C[1]="""",R[-16]C[3],IF(R[-18]C[1]="""",R[-23]C[3]))"
            Cells(m + 7, n + 4).FormulaR1C1 = "z="
            Cells(m + 7, n + 5).FormulaR1C1 = "1"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 4).FormulaR1C1 = "(luego oprima Ejecutar.)"
            Cells(m + 8, n + 21).FormulaR1C1 = "Para convertir un punto   P(rho, phi, z) que est" & ChrW(225) & " expresada en coordenadas cil" & ChrW(237) & "ndricas, a "
            Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R[-27]C[4]="""",R[-20]C[4],IF(R[-20]C[4]="""",R[-27]C[6]))"
            Cells(m + 9, n + 0).FormulaR1C1 = "=IF(R[-27]C[3]="""",R[-19]C[3],IF(R[-20]C[3]="""",R[-26]C[5]))"
            Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-13]C[4]=0,0,R[-2]C[1])"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "coordenadas  cartesianas, P(x, y, z) se necesitan las siguientes f" & ChrW(243) & "rmulas de conversi" & ChrW(243) & "n:"
            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 = "MOSTRAR x, y, z:"
            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 = "S" & ChrW(205) & " = 0, NO=1"
            Cells(m + 11, n + 5).FormulaR1C1 = "0"
            Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-9-5)"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "5"
            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 = "4"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-3]C[4]"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 21).FormulaR1C1 = "Utilice las celdas E19, E20 y E21 para ingresar los valores de las coordenadas cartesianas "
            Cells(m + 8, n + 21).FormulaR1C1 = "de un punto respectivamente y obtener las cil" & ChrW(237) & "ndricas del mismo punto en las celdas "
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 21).FormulaR1C1 = "G19, G20 y G21. Debe elimiar el contenido de las celdas E12, E13 y E14 para que el modelo "
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 21).FormulaR1C1 = "trabaje correctamente. Oprima cualquier bot" & ChrW(243) & "n del sistema de coordenadas para visualizar "
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "los resultados en este. "
            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 = "z"
       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 = "z"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Experimente con diferentes puntos en el espacio. Cuando se introducen las coordenadas "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "4"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-12]C[4]"
            Cells(m + 5, n + 21).FormulaR1C1 = "cil" & ChrW(237) & "ndricas, se debe asegurar de borrar completamente las celdas donde se ingresan las"
            Cells(m + 6, n + 21).FormulaR1C1 = "cartesianas y viceverssa. El modelo utiliza varias f" & ChrW(243) & "rmulas para hallar el " & ChrW(225) & "ngulo phi debido"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C+R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-7]C+R[-9]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 21).FormulaR1C1 = "al comportamiento de las funciones seno y coseno en los diferentes cuadrantes, sin "
            Cells(m + 8, n + 21).FormulaR1C1 = "embargo todaas estas f" & ChrW(243) & "rmulas son equivalentes. "
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-47]C"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 21).FormulaR1C1 = "Borre las celdas E19, E20 y E21 e ingrese E12=2, E13 = I5, E14 =2 y oprima Ejecutar (Run), "
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 21).FormulaR1C1 = "observar" & ChrW(225) & " el recorrido de las coordenadas a lo largo del " & ChrW(225) & "ngulo phi. Ingrese G35=2 y vuelva"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 54 Then ' vector 4
      Call Project_15(15, m, n, m1, n1)
            Cells(m + 3, n + -1).FormulaR1C1 = "7"
            Cells(m + 3, n + 21).FormulaR1C1 = "a oprimir Ejecutar, ver" & ChrW(225) & " los diferentes radios del cilindro durante el recorrido. Con G35=1"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "186"
            Cells(m + 4, n + 21).FormulaR1C1 = "se borrar" & ChrW(225) & "n los radios luego de oprimir Ejecutar. Con la celda  G26 podr" & ChrW(225) & " permutar entre"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 21).FormulaR1C1 = "el radio en cil" & ChrW(237) & "ndricas y el radio en cartesianas.  Finalmente con las celdas G30 y G31 se "
            Cells(m + 6, n + -1).FormulaR1C1 = "Choose the vector to make its graphic:"
            Cells(m + 6, n + 21).FormulaR1C1 = "puede desplazar el origen de coordenadas cil" & ChrW(237) & "ndricas con respecto al de las cartesianas."
            Cells(m + 8, n + -1).FormulaR1C1 = "Max. steps:"
            Cells(m + 8, n + 0).FormulaR1C1 = "50"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            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 = "x"
       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 = "x"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "To plot a graph:"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "4"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-30]C[4]"
            Cells(m + 5, n + 2).FormulaR1C1 = "1. Max. steps = lenght of the graph."
            Cells(m + 6, n + 2).FormulaR1C1 = "2. Click Reset graph."
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-25]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 7, n + 2).FormulaR1C1 = "3. Choose in combo box a vector."
            Cells(m + 8, n + 2).FormulaR1C1 = "4. Run simulation or rotate."
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-27]C"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 10, n + -1).FormulaR1C1 = "1"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 2).FormulaR1C1 = "<-- To keep the graph insert 2."
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<--  use these cells."","""")"
            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 = "y"
       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 = "y"
            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 = "4"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-39]C[4]"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-34]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "0"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-36]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-14]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(R[-9]C[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<--  use these cells."","""")"
            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 = "Z"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 81 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "10"
            Cells(m + 3, n + 0).FormulaR1C1 = "Z"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=R[-48]C[4]"
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "0"
            Cells(m + 7, n + 1).FormulaR1C1 = "0"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-65]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-14]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(R[-9]C[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "1"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<--  use these cells."","""")"
            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 = ""
       Cells(m1 + 2, n1 - 1).Value = 10
      End If ' vector ends
      If m = m1 + 81 Then
                ActiveSheet.DropDowns("List2").Select
                With Selection '
                  Do While .ListCount > 0 ' borrar lista
                     .ListIndex = .ListCount
                     .RemoveItem (.ListIndex)
                   Loop
                   i = 3
                   Do While Cells(m1 + i, n1 - 1) <> ""  ' incluir todos los vectores a la lista
                     .AddItem Cells(m1 + i, n1 - 1).Value
                     i = i + 9
                   Loop
                 End With
                Sheets("CONFIG").Range("V6").Value = ""
                Cells(m1 + 9, n1 + 4).Select
       Call DeleteGraphFunction
            Cells(m + 17, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 18, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 19, n + 4).FormulaR1C1 = "=IF(R[-9]C[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 20, n + 4).FormulaR1C1 = "=IF(R[-10]C[-4]>0,""<--  use these cells."","""")"
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub