'//////////////////////////////////// ((((((())))))) \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ' ScienSolar v. 1.54 MODULE 8. Updated 09-03-2025 Sub Project_29_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 29_Charge distributions_EN ' Updated: 7/03/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 29 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of ? ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,33)" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",18*R[45]C[4]+14,50)" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,578125 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE UN CUADRUPOLO EL" & ChrW(201) & "CTRICO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Un cuadrupolo el" & ChrW(233) & "ctrico se puede definir como el conjunto de cuatro cargas puntuales q distribuidas en el espacio. La forma m" & ChrW(225) & "s sencilla de un cuadrupolo son cuatro cargas distribuidas en los v" & ChrW(233) & "rtices de un cuadrado. Para hallar el campo el" & ChrW(233) & "ctrico de un cuadrupolo en cualquier punto del espacio, se aplica el principio de superposici" & ChrW(243) & "n, es decir, en cada punto del espacio el campo el" & ChrW(233) & "ctrico del dipolo es la suma vectorial de los campos el" & ChrW(233) & "ctricos de las cuatro cargas por aparte: " & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " En las celdas A84, B84 y C84 est" & ChrW(225) & "n las componentes para el campo resultante de las cuatro cargas cargas. En las celdas A10, B10 y C210 se introducen las coordenadas en el espacio en donde se ubica la primera carga y en las celdas A21, B21, C21 est" & ChrW(225) & "n ubicadaa las ecuaciones para calcular el campo el" & ChrW(233) & "ctrico de la primera carga: " & Chr(10) & _ " E1x= k q1(x1" & ChrW(233) & "x01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1" & ChrW(233) & "y01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/)2 " & Chr(10) & _ " E1z= k q1(z1" & ChrW(233) & "z01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)." & Chr(10) & _ " De manera similar en A28, B28, C28 se introduce la posici[on de la segunda carga y su campo en A39, B39, C39; en A46, B46, C46 la posici" & ChrW(243) & "n de la tercera carga y su campo en A57, B57, C57, finalmente en A64, B64, C64 la posici" & ChrW(243) & "n de la tercera carga y su campo en A75, B75, C75. " & Chr(10) & _ " Modifique la magnitud de las cargas y su signo en las celdas C6, C24, C42 y C60, as" & ChrW(237) & " como el color de su apariencia. Para calcular el campo el" & ChrW(233) & "ctrico en cualquier punto del espacio, introduzca las coordenadas del punto en A83, B83, C83 y oprima cualquier bot" & ChrW(243) & "n de coordenadas. " & Chr(10) & _ " La configuraci" & ChrW(243) & "n espacial del campo se puede visualizar en diferentes tipos de coordenadas utilizando la celda C79. Para ver el campo en coordenadas esf" & ChrW(233) & "ricas coloque C79=s, en cil" & ChrW(237) & "ndricas C79=c y en cartesianas C79=o y oprima cualquier bot" & ChrW(243) & "n de coordenadas. Modifique a conveniencia los par" & ChrW(225) & "metros del campo en la cadena que aparece en esta misma celda. " & Chr(10) & _ " Para visdualizar el campo el" & ChrW(233) & "ctrico resultante con mayor resoluci" & ChrW(243) & "n, en la celda C43 modifique entre los primeros par" & ChrW(233) & "ntesis cuadrados el valor, poniendo uno m" & ChrW(225) & "s peque" & ChrW(233) & "o, por ejemplo o[0,5]; entre m" & ChrW(225) & " peque" & ChrW(233) & "o sea el valor, mejor ser" & ChrW(225) & " la resoluci" & ChrW(243) & "n pero tardar" & ChrW(225) & " m" & ChrW(225) & "s tiempo en renderizar. Para ver de nuevo los vectores campo solamente en un punto en particular, borre el contenido del la celda C43 y escriba las coordenadas en donde desee ver el campo en las celdas en A83, B83, C83, por ejemplo A47=0, B47=0, C47=3. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF AN ELECTRICAL QUADRUPOLE" & Chr(10) & _ " An electric quadrupole can be defined as the set of four point charges q distributed in space. The simplest form of a quadrupole is four charges distributed at the vertices of a square. To find the electric field of a quadrupole at any point in space, the superposition principle is applied, that is, at each point in space the electric field of the dipole is the vector sum of the electric fields of the four charges separately:" & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " In cells A84, B84 and C84 are the components of the field resulting from the four charges. In cells A10, B10 and C210 the coordinates in space where the first charge is located are entered and in cells A21, B21, C21 the equations are located to calculate the electric field of the first charge:" & Chr(10) & _ " E1x= k q1(x1" & ChrW(233) & "x01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1" & ChrW(233) & "y01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/)2" & Chr(10) & _ " E1z= k q1(z1" & ChrW(233) & "z01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)." & Chr(10) & _ " Similarly in A28, B28, C28 the position of the second charge and its field are entered in A39, B39, C39; in A46, B46, C46 the position of the third charge and its field in A57, B57, C57, finally in A64, B64, C64 the position of the third charge and its field in A75, B75, C75." & Chr(10) & _ " Change the magnitude of the charges and their sign in cells C6, C24, C42 and C60, as well as the color of their appearance. To calculate the electric field at any point in space, enter the coordinates of the point at A83, B83, C83 and press any coordinate button." & Chr(10) & _ " The spatial configuration of the field can be displayed in different types of coordinates using cell C79. To see the field in spherical coordinates, place C79=s, in cylindrical C79=c and in Cartesian C79=o and press any coordinate button. Modify the field parameters in the string that appears in this very cell. To visualize the resulting electric field with greater resolution, in cell C43 modify the value between the first brackets, putting a smaller one, for example o[0,5]; the smaller the value, the better the resolution, but it will take longer to render. To return to seeing the field vectors only at a particular point, delete the contents of cell C43 and type the coordinates where you want to see the field in cells A83, B83, C83, for example A47=0, B47=0, C47 =3." & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "E" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[34]C[4]=1,R[35]C[4],IF(R[34]C[4]=2,R[36]C[4],IF(R[34]C[4]=3,R[37]C[4],"""")))" Cells(m + 4, n + 2).FormulaR1C1 = "Electric field of charge distributions" Cells(m + 4, n + 12).FormulaR1C1 = "ELECTRIC FIELD OF A LINEAR CHARGE DISTRIBUTION" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""E_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""E_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""E_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "RESULT (Do not modify):" 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 = " |E| =" Cells(m + 7, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),2)" Cells(m + 7, n + 21).FormulaR1C1 = "The simulation allows the electric field due to linear charge distributions in space to " Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "57.3" Cells(m + 8, n + 1).FormulaR1C1 = "5" Cells(m + 8, n + 2).FormulaR1C1 = "<< --- Field Study Point P" Cells(m + 8, n + 21).FormulaR1C1 = "be calculated and visualized in three dimensions. The model starts with 5 charges forming a " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = " " Cells(m + 9, n + 21).FormulaR1C1 = "line, however you can add more charge elements dq and calculate the electric field of the system " 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 = "at any point in space. The procedure for adding more load items is described at the end." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "L1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=""L""&R[1]C[5]" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< --dq charge element""&RC[-3]/2" Cells(m + 3, n + 4).FormulaR1C1 = "Initial data" Cells(m + 3, n + 21).FormulaR1C1 = "The total field can be calculated by the superposition principle as the vector sum of each of the " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Line No.:" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "fields generated by each load element at the point under study:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "Q_Total=" Cells(m + 5, n + 5).FormulaR1C1 = "50" Cells(m + 6, n + 4).FormulaR1C1 = "dL" Cells(m + 6, n + 5).FormulaR1C1 = "10" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-29-1)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[3]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[4]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Position of dq""&R[-4]C[-3]/2" Cells(m + 7, n + 4).FormulaR1C1 = "k=" Cells(m + 7, n + 5).FormulaR1C1 = "10000" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Origin:" Cells(m + 9, n + 21).FormulaR1C1 = "where each dE is established by Coulomb's law:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " x_o =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = " y_o =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-29-2)" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 4).FormulaR1C1 = " z_o =" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 4).FormulaR1C1 = "Inclination" Cells(m + 6, n + 4).FormulaR1C1 = "phi" Cells(m + 6, n + 5).FormulaR1C1 = "-5" Cells(m + 6, n + 21).FormulaR1C1 = "The constant k depends on the system of units and its value is entered in cell G19. These equations " Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 4).FormulaR1C1 = "theta" Cells(m + 7, n + 5).FormulaR1C1 = "90" Cells(m + 7, n + 21).FormulaR1C1 = "are generated in the model for each charge element automatically, and the components of the " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Bending:" Cells(m + 8, n + 21).FormulaR1C1 = "resulting field are observed in cells A12, B12 and C12." Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 4).FormulaR1C1 = "Azimuth" Cells(m + 9, n + 5).FormulaR1C1 = "10" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "Elevation" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "When the number of elements tends to infinity and the length of each of them tends to zero, this " Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "sum becomes an integral. In the present model, however, finite magnitudes and quantities " Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Charge element dq""&RC[-3]/2" Cells(m + 3, n + 4).FormulaR1C1 = "Show E_i:" Cells(m + 3, n + 21).FormulaR1C1 = "are used. Here the field of some charge elements is initially analyzed and then the reader can add " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "YES = 0, NO = 1" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "more and change the line shape with the help of bending angles. The coordinates of the resulting " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "field E are seen in cells A12=Bx, B12=By and C12=Bz and its magnitude in G10. You can modify the " Cells(m + 6, n + 21).FormulaR1C1 = "initial position of the wire and its orientation in cells G22, G23 and G24, its inclination in G27 and G28, " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Position of dq""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "its bending in azimuth in G30 and its bending with elevation angle in G31. The magnitude of the " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "COORDINATES:" Cells(m + 8, n + 21).FormulaR1C1 = "charge and its sign are changed in G17, the Coulomb's law constant k in G19, and the length of " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "each charge element is set in cell G18. To show or hide the field vectors of each dq use " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[1]C[1]=0,""Insert P(x,y,z) in A11, B11, C11"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "cell G34 with values from 0 to 1, G34 =0 visible and G34 =1 invisible. To display the electric field " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "0, 1, 2 or 3:" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 21).FormulaR1C1 = "in a region of space in different types of coordinates use cell G41: G41 =0 to calculate the field " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 4).FormulaR1C1 = "=IF(R[-1]C[1]=1,"" 1- Cart.-->>"",""|"")" Cells(m + 3, n + 5).FormulaR1C1 = "=IF(R[-1]C=1,""o[40]x=[-200;200]o2[10]y=[-200;200]o3[10]z=[50;50]color=[8]origin[cart.]=[0;0;0]tfactor=0,003125s"","""")" Cells(m + 3, n + 21).FormulaR1C1 = "at a specific point in space, indicating the spatial point in cells A11, B11 and C11. Enter G41 =1 " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "=IF(R[-2]C[1]=2,"" 2- Cyl -->>"",IF(R[-2]C[1]=3,"""",IF(R[-2]C[1]=1,"""",""|"")))" Cells(m + 4, n + 5).FormulaR1C1 = "=IF(R[-2]C=2,""c[10]rho=[90;90]c2[10]phi=[0;360]c3[10]z=[-200;200]color=[8]origin[cart.]=[0;0;0]tfactor=0,00323606s"","""")" Cells(m + 4, n + 21).FormulaR1C1 = "to display the field in Cartesian coordinates and the display parameters are changed in the string " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 4).FormulaR1C1 = "=IF(R[-3]C[1]=3,"" 3- Sph -->>"",""|"")" Cells(m + 5, n + 5).FormulaR1C1 = "=IF(R[-3]C=3,""s[10]r=[150;150]s2[10]phi=[0;360]s3[10]theta=[0;180]color=[8]origin[cart.]=[0;0;0]tfactor=0,003322398s"","""")" Cells(m + 5, n + 21).FormulaR1C1 = "value in G42. Enter G41 =2 to display in cylindrical coordinates and its parameters in G43. Enter " Cells(m + 6, n + 4).FormulaR1C1 = "||||||||||||||||||||||||" Cells(m + 6, n + 21).FormulaR1C1 = "G41 =3 for spherical coordinates, changing its parameters in G44." Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "Wire:" Cells(m + 8, n + 21).FormulaR1C1 = "ADD NEW dL ELEMENTS:" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 4).FormulaR1C1 = " n =" Cells(m + 9, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""E_""&R[-32]C&""_*"")" Cells(m + 9, n + 21).FormulaR1C1 = "To add one more dq load item, press the +OBJ button and to remove one load item use the - OBJ " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " L =" Cells(m + 10, n + 5).FormulaR1C1 = "=R[-31]C*R[-1]C" Cells(m + 10, n + 21).FormulaR1C1 = "button. Press any screen button to view the results; The number of loaded items is displayed " Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "in cell G11. The smaller dL is and the more dq elements the wire has, the more similar the resulting " Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Charge element dq""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "electric field is to the real field. To add or remove several elements at the same time, indicate " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "in cell B2 the number of elements before pressing the respective button; this number must " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "be an integer." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Position of dq""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "ADD A NEW DISTRIBUTION:" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "A new independent distribution can be added (for example another charged wire). To do this, " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "in cell B2 write ENTIRE, B2=ENTIRE, which means that the entire wire will be copied; In B3 place " 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 first row that corresponds to the wire, in this case B3=15. In C3 enter the number of the " 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[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "last row that includes the elements of the wire, that is, the number of the last non-empty row " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "of the last vector in column A. Then press +OBJ. Finally go down the sheet and locate the " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "new wire cells and change their initial position and settings. The new wire added is a copy of" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 21).FormulaR1C1 = " the existing one." Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 7, n + 21).FormulaR1C1 = "Examples:" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "1. Study the electric field of a circular loop of radius 57.3 with a total charge of 1 C." Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "Solution:" 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 = "First we must build the loop, to do this we will decide that we are going to build it with 36 charge " Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "elements and we are going to distribute them with an azimuth of 10 degrees each time, that is, " Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Charge element dq""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "36x10 = 360 degrees to close the loop. The length of the circumference is " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "2Pi x radius = L = 2x3.1416x57.3 = 360, that is, each element must have an approximate " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "length of 10." Cells(m + 6, n + 22).FormulaR1C1 = "k:" Cells(m + 6, n + 23).FormulaR1C1 = "G19=" Cells(m + 6, n + 24).FormulaR1C1 = "300" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Position of dq""&R[-4]C[-3]/2" Cells(m + 7, n + 22).FormulaR1C1 = "dL:" Cells(m + 7, n + 23).FormulaR1C1 = "G18=" Cells(m + 7, n + 24).FormulaR1C1 = "10" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "Q:" Cells(m + 8, n + 23).FormulaR1C1 = "G17=" Cells(m + 8, n + 24).FormulaR1C1 = "1" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "x_o:" Cells(m + 9, n + 23).FormulaR1C1 = "G22=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "y_o:" Cells(m + 10, n + 23).FormulaR1C1 = "G23=" Cells(m + 10, n + 24).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "z_o:" Cells(m + 11, n + 23).FormulaR1C1 = "G24=" Cells(m + 11, n + 24).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "r_o " Cells(m + 3, n + 23).FormulaR1C1 = "G25=" Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Inclination" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 22).FormulaR1C1 = "phi:" Cells(m + 5, n + 23).FormulaR1C1 = "G27=" Cells(m + 5, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 22).FormulaR1C1 = "theta:" Cells(m + 6, n + 23).FormulaR1C1 = "G28=" Cells(m + 6, n + 24).FormulaR1C1 = "90" Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 7, n + 22).FormulaR1C1 = "Bending:" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "Azimut:" Cells(m + 8, n + 23).FormulaR1C1 = "G30=" Cells(m + 8, n + 24).FormulaR1C1 = "10" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 22).FormulaR1C1 = "Elevation:" Cells(m + 9, n + 23).FormulaR1C1 = "G31=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "Show:" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 22).FormulaR1C1 = "E Vectors:" Cells(m + 11, n + 23).FormulaR1C1 = "G34=" Cells(m + 11, n + 24).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Charge element dq""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Coordinates:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 22).FormulaR1C1 = "Type:" Cells(m + 5, n + 23).FormulaR1C1 = "G41=" Cells(m + 5, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 22).FormulaR1C1 = "Field observation point:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Position of dq""&R[-4]C[-3]/2" Cells(m + 7, n + 22).FormulaR1C1 = "x=" Cells(m + 7, n + 23).FormulaR1C1 = "A11=" Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "y=" Cells(m + 8, n + 23).FormulaR1C1 = "B11=" Cells(m + 8, n + 24).FormulaR1C1 = "57" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "z=" Cells(m + 9, n + 23).FormulaR1C1 = "C11=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-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[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "To add the 36 charge elements, check G11 for the existing quantity; if G11 =5, 31 more must " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 90 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "be added. Enter B2=31 and press +OBJ, wait a moment for Excel to execute the command." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "The loop will appear in the XY plane and touching the coordinate origin. Now analyze different " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 21).FormulaR1C1 = "points for the field by modifying the values in A11, B11, C11. To hide the individual field vectors, " Cells(m + 6, n + 21).FormulaR1C1 = "insert G36=1. If you want to center the loop, insert G23 = - 57." Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "To view the field in the entire space, set G41 = 1 and wait a few seconds or minutes for " Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "Excel to execute the command. The field configuration in a certain region of space will appear. " 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 = "To view the field in cylindrical coordinates change the value to G41=2 and finally G41=0 to return " Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "to the initial single vector view." Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 11 End If ' vector ends If m = m1 + 90 Then Cells(m + 13, n + 21).FormulaR1C1 = "2. Study the electric field of a charged spiral." Cells(m + 14, n + 21).FormulaR1C1 = "Solution:" Cells(m + 15, n + 21).FormulaR1C1 = "In the previous problem set the Elevation G31 = -0.1 for the spiral to advance upwards and G30 = 20 " Cells(m + 16, n + 21).FormulaR1C1 = "to make the same 36 elements for two turns. Due to the increase of the azimuth angle, the radius " Cells(m + 17, n + 21).FormulaR1C1 = "will be reduced. In A11, B11, C11 modify the observation point (also taking into account that G41=0)." Cells(m + 19, n + 21).FormulaR1C1 = "Exercises:" Cells(m + 21, n + 21).FormulaR1C1 = "1. Construct the model of the electric field of a straight wire charged with charge Q." Cells(m + 22, n + 21).FormulaR1C1 = "2. Build the model of a charged wire in the shape of a semicircle." Cells(m + 23, n + 21).FormulaR1C1 = "3. Build a model of a set of two independent wires, one semicircular and the other rectilinear." Cells(m + 24, n + 21).FormulaR1C1 = "Help" Cells(m + 24, n + 22).FormulaR1C1 = "1. In B2 capitalize ENTIRE, B2=ENTIRE." Cells(m + 25, n + 22).FormulaR1C1 = "2. Observe in column A what is the number of the last non-empty row of the last vector." Cells(m + 26, n + 22).FormulaR1C1 = "3. Put B3=15 and in C3 put the number of the last non-empty row." Cells(m + 27, n + 22).FormulaR1C1 = "4. Press +OBJ to add the new line as a copy of the existing one." Cells(m + 28, n + 22).FormulaR1C1 = "5. Go down the sheet and you will see that the cells for the new line appeared, change " Cells(m + 29, n + 22).FormulaR1C1 = "the starting position of the new line and press XYZ." Cells(m + 30, n + 22).FormulaR1C1 = "6. In the cell corresponding to LINE No. Place the number 2." Cells(m + 31, n + 22).FormulaR1C1 = "7. Correct the formula in cell number n so that it is the same as the original." Cells(m + 32, n + 22).FormulaR1C1 = "8. Change the new line settings." Cells(m + 33, n + 21).FormulaR1C1 = "Note: if the new line did not appear, possibly you did not correctly indicate the range of rows in cells " Cells(m + 34, n + 21).FormulaR1C1 = " B3 and C3, the rows must correspond from the 15th to the last non-empty one." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_29_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 29_Distribuciones de carga_ES ' Updated: 7/03/25 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 29 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code (into the VBA editor) to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet (at the end of column C) and add the number of your new project to the last row in the projects list, and a short name in the corresponding langage column. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 - 1, n1).Value = "" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,33)" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",18*R[45]C[4]+14,50)" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,1953125 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE UN CUADRUPOLO EL" & ChrW(201) & "CTRICO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Un cuadrupolo el" & ChrW(233) & "ctrico se puede definir como el conjunto de cuatro cargas puntuales q distribuidas en el espacio. La forma m" & ChrW(225) & "s sencilla de un cuadrupolo son cuatro cargas distribuidas en los v" & ChrW(233) & "rtices de un cuadrado. Para hallar el campo el" & ChrW(233) & "ctrico de un cuadrupolo en cualquier punto del espacio, se aplica el principio de superposici" & ChrW(243) & "n, es decir, en cada punto del espacio el campo el" & ChrW(233) & "ctrico del dipolo es la suma vectorial de los campos el" & ChrW(233) & "ctricos de las cuatro cargas por aparte: " & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " En las celdas A84, B84 y C84 est" & ChrW(225) & "n las componentes para el campo resultante de las cuatro cargas cargas. En las celdas A10, B10 y C210 se introducen las coordenadas en el espacio en donde se ubica la primera carga y en las celdas A21, B21, C21 est" & ChrW(225) & "n ubicadaa las ecuaciones para calcular el campo el" & ChrW(233) & "ctrico de la primera carga: " & Chr(10) & _ " E1x= k q1(x1" & ChrW(233) & "x01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1" & ChrW(233) & "y01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/)2 " & Chr(10) & _ " E1z= k q1(z1" & ChrW(233) & "z01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)." & Chr(10) & _ " De manera similar en A28, B28, C28 se introduce la posici[on de la segunda carga y su campo en A39, B39, C39; en A46, B46, C46 la posici" & ChrW(243) & "n de la tercera carga y su campo en A57, B57, C57, finalmente en A64, B64, C64 la posici" & ChrW(243) & "n de la tercera carga y su campo en A75, B75, C75. " & Chr(10) & _ " Modifique la magnitud de las cargas y su signo en las celdas C6, C24, C42 y C60, as" & ChrW(237) & " como el color de su apariencia. Para calcular el campo el" & ChrW(233) & "ctrico en cualquier punto del espacio, introduzca las coordenadas del punto en A83, B83, C83 y oprima cualquier bot" & ChrW(243) & "n de coordenadas. " & Chr(10) & _ " La configuraci" & ChrW(243) & "n espacial del campo se puede visualizar en diferentes tipos de coordenadas utilizando la celda C79. Para ver el campo en coordenadas esf" & ChrW(233) & "ricas coloque C79=s, en cil" & ChrW(237) & "ndricas C79=c y en cartesianas C79=o y oprima cualquier bot" & ChrW(243) & "n de coordenadas. Modifique a conveniencia los par" & ChrW(225) & "metros del campo en la cadena que aparece en esta misma celda. " & Chr(10) & _ " Para visdualizar el campo el" & ChrW(233) & "ctrico resultante con mayor resoluci" & ChrW(243) & "n, en la celda C43 modifique entre los primeros par" & ChrW(233) & "ntesis cuadrados el valor, poniendo uno m" & ChrW(225) & "s peque" & ChrW(233) & "o, por ejemplo o[0,5]; entre m" & ChrW(225) & " peque" & ChrW(233) & "o sea el valor, mejor ser" & ChrW(225) & " la resoluci" & ChrW(243) & "n pero tardar" & ChrW(225) & " m" & ChrW(225) & "s tiempo en renderizar. Para ver de nuevo los vectores campo solamente en un punto en particular, borre el contenido del la celda C43 y escriba las coordenadas en donde desee ver el campo en las celdas en A83, B83, C83, por ejemplo A47=0, B47=0, C47=3. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF AN ELECTRICAL QUADRUPOLE" & Chr(10) & _ " An electric quadrupole can be defined as the set of four point charges q distributed in space. The simplest form of a quadrupole is four charges distributed at the vertices of a square. To find the electric field of a quadrupole at any point in space, the superposition principle is applied, that is, at each point in space the electric field of the dipole is the vector sum of the electric fields of the four charges separately:" & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " In cells A84, B84 and C84 are the components of the field resulting from the four charges. In cells A10, B10 and C210 the coordinates in space where the first charge is located are entered and in cells A21, B21, C21 the equations are located to calculate the electric field of the first charge:" & Chr(10) & _ " E1x= k q1(x1" & ChrW(233) & "x01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1" & ChrW(233) & "y01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/)2" & Chr(10) & _ " E1z= k q1(z1" & ChrW(233) & "z01)/((x1 " & ChrW(233) & " x01)^2 + (y1 " & ChrW(233) & " y01)^2 + (z1 " & ChrW(233) & " z01)^2)^(3/2)." & Chr(10) & _ " Similarly in A28, B28, C28 the position of the second charge and its field are entered in A39, B39, C39; in A46, B46, C46 the position of the third charge and its field in A57, B57, C57, finally in A64, B64, C64 the position of the third charge and its field in A75, B75, C75." & Chr(10) & _ " Change the magnitude of the charges and their sign in cells C6, C24, C42 and C60, as well as the color of their appearance. To calculate the electric field at any point in space, enter the coordinates of the point at A83, B83, C83 and press any coordinate button." & Chr(10) & _ " The spatial configuration of the field can be displayed in different types of coordinates using cell C79. To see the field in spherical coordinates, place C79=s, in cylindrical C79=c and in Cartesian C79=o and press any coordinate button. Modify the field parameters in the string that appears in this very cell. To visualize the resulting electric field with greater resolution, in cell C43 modify the value between the first brackets, putting a smaller one, for example o[0,5]; the smaller the value, the better the resolution, but it will take longer to render. To return to seeing the field vectors only at a particular point, delete the contents of cell C43 and type the coordinates where you want to see the field in cells A83, B83, C83, for example A47=0, B47=0, C47 =3." & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "E" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[34]C[4]=1,R[35]C[4],IF(R[34]C[4]=2,R[36]C[4],IF(R[34]C[4]=3,R[37]C[4],"""")))" Cells(m + 4, n + 2).FormulaR1C1 = "Campo el" & ChrW(233) & "ctrico de distribuciones de carga" Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO EL" & ChrW(201) & "CTRICO DE UNA DISTRIBUCI" & ChrW(211) & "N LINEAL DE CARGA" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""E_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""E_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""E_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "RESULTADO (No modificar):" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "=IF(OR(R[31]C[1]="""",R[31]C[1]>3,R[31]C[1]=0),"" |E| ="","""")" Cells(m + 7, n + 5).FormulaR1C1 = "=ROUND(SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),2)" Cells(m + 7, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n permite calcular y visualizar en tres dimensiones el campo el" & ChrW(233) & "ctrico debido a" Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "57.3" Cells(m + 8, n + 1).FormulaR1C1 = "5" Cells(m + 8, n + 2).FormulaR1C1 = "<< --- Punto de estudio del campo" Cells(m + 8, n + 21).FormulaR1C1 = "distribuciones lineales de carga en el espacio. El modelo empieza con 5 cargas formando una l" & ChrW(237) & "nea" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "<< E_x, E_y, E_z." Cells(m + 9, n + 21).FormulaR1C1 = "sin embargo se pueden agregar m" & ChrW(225) & "s elementos de carga dq y calcular el campo el" & ChrW(233) & "ctrcico del sistema" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "en cualquier punto del espacio. El procedimiento para agregar m" & ChrW(225) & "s elementos de carga se describe al final. " Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "L1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=""L""&R[1]C[5]" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2" Cells(m + 3, n + 4).FormulaR1C1 = "Datos iniciales" Cells(m + 3, n + 21).FormulaR1C1 = "El campo total se puede calcular por el principio de superposici" & ChrW(243) & "n como la suma vectorial de cada" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "LINEA No. =" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "uno de los campos generados por cada elemento de carga en el punto en estudio:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "=""Q_""&R[-1]C[1]" Cells(m + 5, n + 5).FormulaR1C1 = "50" Cells(m + 6, n + 4).FormulaR1C1 = "dL =" Cells(m + 6, n + 5).FormulaR1C1 = "10" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-29-1)" Cells(m + 7, n + -1).FormulaR1C1 = "=R[3]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[4]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&R[-4]C[-3]/2" Cells(m + 7, n + 4).FormulaR1C1 = "k =" Cells(m + 7, n + 5).FormulaR1C1 = "10000" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 4).FormulaR1C1 = "Origen:" Cells(m + 9, n + 21).FormulaR1C1 = "en donde cada dE se establece por la ley de Coulomb:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "x_o =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "y_o =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-29-2)" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 4).FormulaR1C1 = "z_o =" Cells(m + 3, n + 5).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 4).FormulaR1C1 = "Inclinaci" & ChrW(243) & "n" Cells(m + 6, n + 4).FormulaR1C1 = "phi =" Cells(m + 6, n + 5).FormulaR1C1 = "-5" Cells(m + 6, n + 21).FormulaR1C1 = "La constante k depende del sistema de unidades y su valor se introduce en la celda G19." Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 4).FormulaR1C1 = "theta =" Cells(m + 7, n + 5).FormulaR1C1 = "90" Cells(m + 7, n + 21).FormulaR1C1 = "Estas ecuaciones se generan en el modelo para cada elemento de carga de forma autom" & ChrW(225) & "tica, " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 4).FormulaR1C1 = "Flexi" & ChrW(243) & "n:" Cells(m + 8, n + 21).FormulaR1C1 = "y las componentes del campo resultante se observan en las celdas A12, B12 y C12." Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 4).FormulaR1C1 = "Azimut =" Cells(m + 9, n + 5).FormulaR1C1 = "10" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "Elevaci" & ChrW(243) & "n =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "Cuando el n" & ChrW(250) & "mero de elementos tiende a infinito y la longitud de cada uno de ellos tiende a cero, " Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "esta suma se convierte en una integral. En el presente modelo sin embargo se utilizan magnitudes " Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2" Cells(m + 3, n + 4).FormulaR1C1 = "Mostrar vectores E_i:" Cells(m + 3, n + 21).FormulaR1C1 = "y cantidades finitas." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "SI = 0, NO = 1" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "Aqu" & ChrW(237) & " se analiza inicialmente el campo de unos pocos elementos de carga y luego el lector" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "puede agregar m" & ChrW(225) & "s y cambiar su forma con ayuda de los " & ChrW(225) & "ngulos de flexi" & ChrW(243) & "n. Las coordenadas del " Cells(m + 6, n + 21).FormulaR1C1 = "campo resultante E se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G10." Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "La posici" & ChrW(243) & "n inicial del alambre y su orientaci" & ChrW(243) & "n se pueden modificar en las celdas G22, G23 y G24, " Cells(m + 8, n + 4).FormulaR1C1 = "TIPO DE " Cells(m + 8, n + 21).FormulaR1C1 = "su inclinaci" & ChrW(243) & "n en G27 y G28, su flexi" & ChrW(243) & "n a lo largo del azimut en G30 y flexi" & ChrW(243) & "n con " & ChrW(225) & "ngulo de elevaci" & ChrW(243) & "n " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 4).FormulaR1C1 = "COORDENADAS:" Cells(m + 9, n + 21).FormulaR1C1 = "en G31. La magnitud de la carga y su signo se modifican en G17,  la constante k de la ley de " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(R[1]C[1]=0,""Ingrese P(x,y,z) en A11, B11, C11"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "Coulomb en G19 y la longitud de cada elemento de carga se establece en la celda G18." Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "0, 1, 2 " & ChrW(243) & " 3:" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 11, n + 21).FormulaR1C1 = "Para visualizar u ocultar los vectores campo de cada dq  utilice la celda G34 con valores de 0 a 1, " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 4).FormulaR1C1 = "=IF(R[-1]C[1]=1,"" 1- Cart.-->>"",""|"")" Cells(m + 3, n + 5).FormulaR1C1 = "=IF(R[-1]C=1,""o[40]x=[-200;200]o2[10]y=[-200;200]o3[10]z=[50;50]color=[8]origin[cart.]=[0;0;0]tfactor=0,003125s"","""")" Cells(m + 3, n + 21).FormulaR1C1 = "G34 =0 visible y G34 =1 invisible.." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "=IF(R[-2]C[1]=2,"" 2- Cyl -->>"",IF(R[-2]C[1]=3,"""",IF(R[-2]C[1]=1,"""",""|"")))" Cells(m + 4, n + 5).FormulaR1C1 = "=IF(R[-2]C=2,""c[10]rho=[90;90]c2[10]phi=[0;360]c3[10]z=[-200;200]color=[8]origin[cart.]=[0;0;0]tfactor=0,00323606s"","""")" Cells(m + 4, n + 21).FormulaR1C1 = "Para visualizar el campo el" & ChrW(233) & "ctrico en una regi" & ChrW(243) & "n del espacio en diferentes tipos de coordenadas " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 4).FormulaR1C1 = "=IF(R[-3]C[1]=3,"" 3- Sph -->>"",""|"")" Cells(m + 5, n + 5).FormulaR1C1 = "=IF(R[-3]C=3,""s[10]r=[150;150]s2[10]phi=[0;360]s3[10]theta=[0;180]color=[8]origin[cart.]=[0;0;0]tfactor=0,003322398s"","""")" Cells(m + 5, n + 21).FormulaR1C1 = "utilice la celda G41: G41 =0 para calcular el campo en un punto espec" & ChrW(237) & "fico del espacio, indicando " Cells(m + 6, n + 4).FormulaR1C1 = "||||||||||||||||||||||||" Cells(m + 6, n + 21).FormulaR1C1 = "el punto del espacio en las celdas A11, B11 y C11. Ingrese G41 =1 para visualizar el campo en coordenadas " Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 7, n + 21).FormulaR1C1 = "cartesianas, y los par" & ChrW(225) & "metros de visualizaci" & ChrW(243) & "n se modifican en la cadena de valores de G42. " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 4).FormulaR1C1 = "L" & ChrW(237) & "nea:" Cells(m + 8, n + 21).FormulaR1C1 = "Ingrese G41 =2 para visualizar en coordenadas cil" & ChrW(237) & "ndricas, y sus par" & ChrW(225) & "metros en G43. Ingrese " Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 4).FormulaR1C1 = " n =" Cells(m + 9, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""E_""&R[-32]C&""_*"")" Cells(m + 9, n + 21).FormulaR1C1 = "G41 =3 para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros en G44." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " L =" Cells(m + 10, n + 5).FormulaR1C1 = "=R[-31]C*R[-1]C" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "AGREGAR NUEVOS ELEMENTOS dL:" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "Para agregar un elemento m" & ChrW(225) & "s de carga dq oprima el bot" & ChrW(243) & "n +OBJ y para eliminar un elemento " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "de carga use el bot" & ChrW(243) & "n - OBJ. Oprima cualquier bot" & ChrW(243) & "n de visualizaci" & ChrW(243) & "n para ver los " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "resultados, la cantidad de elementos de carga se muestra en la celda G48. Entre m" & ChrW(225) & "s pequeño sea dL " Cells(m + 6, n + 21).FormulaR1C1 = "y m" & ChrW(225) & "s elementos dq tenga el alambre, su campo el" & ChrW(233) & "ctrico resultante se va pareciendo m" & ChrW(225) & "s al real. " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "Para agregar o quitar varios elementos a la vez indique en la celda B2 el n" & ChrW(250) & "mero de elementos " Cells(m + 8, n + 21).FormulaR1C1 = "antes de oprimir el respectivo bot" & ChrW(243) & "n, este n" & ChrW(250) & "mero debe ser entero. " Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "AGREGAR UNA NUEVA DISTRIBUCI" & ChrW(211) & "N: " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "Se puede agregar una nueva distribuci" & ChrW(243) & "n independiente (por ejemplo otra l" & ChrW(237) & "nea cargada). " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "Para ello, en la celda B2 escriba ENTIRE, B2=ENTIRE, lo que significa que se va a copiar la l" & ChrW(237) & "nea " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "entera; en B3 coloque la primera fila que corresponde a la l" & ChrW(237) & "nea, en este caso B3=15. En C3 " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 21).FormulaR1C1 = "coloque el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila que comprende los elementos de la l" & ChrW(237) & "nea, es decdir el " Cells(m + 6, n + 21).FormulaR1C1 = "n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a del " & ChrW(250) & "ltima vector en la columna A. Luego oprima +OBJ. " Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 7, n + 21).FormulaR1C1 = "Finalmente vaya hacia abajo en la hoja y ubique las celdas de la nueva l" & ChrW(237) & "nea y cambie su " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 21).FormulaR1C1 = "posici" & ChrW(243) & "n inicial y su configuraci" & ChrW(243) & "n. La l" & ChrW(237) & "nea nueva agregada es una copia de la existente. " Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "Ejemplos" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "1. Estudiar el campo el" & ChrW(233) & "ctrico de una espira circular de radio 57,3 con una carga total de 1 C . " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Primero se debe construir la espira, para ello decidiremos que vamos a construirla con 36 elementos" Cells(m + 6, n + 21).FormulaR1C1 = "de carga y los vamos a distrubuir con un azimut de 10 grados cada vez, es decir 36x10 = 360 " Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "grados para cerrar la espira. La longitud de la circunferencia es 2Pi x radio = L = 2x3,1416x57,3 = 360" Cells(m + 8, n + 21).FormulaR1C1 = "es decir, cada elemento debe tener una longitud aproximada de 10." Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 22).FormulaR1C1 = "k:" Cells(m + 10, n + 23).FormulaR1C1 = "G19=" Cells(m + 10, n + 24).FormulaR1C1 = "300" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 22).FormulaR1C1 = "dL:" Cells(m + 11, n + 23).FormulaR1C1 = "G18=" Cells(m + 11, n + 24).FormulaR1C1 = "10" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Q:" Cells(m + 3, n + 23).FormulaR1C1 = "G17=" Cells(m + 3, n + 24).FormulaR1C1 = "1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "x_o:" Cells(m + 4, n + 23).FormulaR1C1 = "G22=" Cells(m + 4, n + 24).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 5, n + 22).FormulaR1C1 = "y_o:" Cells(m + 5, n + 23).FormulaR1C1 = "G23=" Cells(m + 5, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 22).FormulaR1C1 = "z_o:" Cells(m + 6, n + 23).FormulaR1C1 = "G24=" Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 7, n + 22).FormulaR1C1 = "r_o " Cells(m + 7, n + 23).FormulaR1C1 = "G25=" Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 22).FormulaR1C1 = "Inclinaci" & ChrW(243) & "n:" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 22).FormulaR1C1 = "phi:" Cells(m + 9, n + 23).FormulaR1C1 = "G27=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 22).FormulaR1C1 = "theta:" Cells(m + 10, n + 23).FormulaR1C1 = "G28=" Cells(m + 10, n + 24).FormulaR1C1 = "90" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 22).FormulaR1C1 = "Flexi" & ChrW(243) & "n:" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-18]C+1" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Elemento de carga dq""&RC[-3]/2" Cells(m + 3, n + 22).FormulaR1C1 = "Azimut:" Cells(m + 3, n + 23).FormulaR1C1 = "G30=" Cells(m + 3, n + 24).FormulaR1C1 = "10" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Elevaci" & ChrW(243) & "n:" Cells(m + 4, n + 23).FormulaR1C1 = "G31=" Cells(m + 4, n + 24).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 22).FormulaR1C1 = "Mostrar:" Cells(m + 6, n + 22).FormulaR1C1 = "Vectores E:" Cells(m + 6, n + 23).FormulaR1C1 = "G34=" Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C+R[-16]C" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n dq""&R[-4]C[-3]/2" Cells(m + 8, n + 22).FormulaR1C1 = "Tipo de coordenadas:" Cells(m + 9, n + -1).FormulaR1C1 = "=R18C7*COS(RADIANS(R27C7+R30C7*R[-6]C[2]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[2]))" Cells(m + 9, n + 0).FormulaR1C1 = "=R18C7*SIN(RADIANS(R27C7+R30C7*R[-6]C[1]))*SIN(RADIANS(R28C7+R31C7*R[-6]C[1]))" Cells(m + 9, n + 1).FormulaR1C1 = "=R18C7*COS(RADIANS(R28C7+R31C7*R[-6]C))" Cells(m + 9, n + 22).FormulaR1C1 = "Punto:" Cells(m + 9, n + 23).FormulaR1C1 = "G41=" Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 22).FormulaR1C1 = "Punto de observaci" & ChrW(243) & "n del campo:" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 22).FormulaR1C1 = "x=" Cells(m + 11, n + 23).FormulaR1C1 = "A11=" Cells(m + 11, n + 24).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 90 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "y=" Cells(m + 3, n + 23).FormulaR1C1 = "B11=" Cells(m + 3, n + 24).FormulaR1C1 = "57" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "z=" Cells(m + 4, n + 23).FormulaR1C1 = "C11=" Cells(m + 4, n + 24).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R34C7" Cells(m + 6, n + 21).FormulaR1C1 = "Para agregar los 36 elementos de carga, verifique en G11 la cantidad existente, si G11 =5 hay que " Cells(m + 7, n + -1).FormulaR1C1 = "=R28C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R28C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R28C3" Cells(m + 7, n + 21).FormulaR1C1 = "agregar 31 m" & ChrW(225) & "s. Introduzca B2=31 y oprima +OBJ, espere un momento a que Excel ejecute el comando. " Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 21).FormulaR1C1 = "Aparecer" & ChrW(225) & " la espira en el plano XY y tocando el origen de coordenadas. Analice ahora diferentes puntos " Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R19C7*R17C7/R48C7" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R16C7&""_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "para el campo modificando los valores en A11, B11, C11. Para ocultar los vectores campo individuales, " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "inserte G36=1. Si desea centrar la espira inserte G23 = - 57." Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 1).Interior.Color = "9851952" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 11 End If ' vector ends If m = m1 + 90 Then Cells(m + 12, n + 21).FormulaR1C1 = "Para ver el campo en todo el espacio, coloque G41 = 1 y espere algunos segunos o minutos para que Excel " Cells(m + 13, n + 21).FormulaR1C1 = "ejecute el comando. Aparecer" & ChrW(225) & " la configuraci" & ChrW(243) & "n del campo en cierta region del espacio. Para ver el campo " Cells(m + 14, n + 21).FormulaR1C1 = "en coordenadas cil" & ChrW(237) & "ndricas cambie el valor a G41=2 y finalmente G41=0 para regresar a la vista inicial de " Cells(m + 15, n + 21).FormulaR1C1 = "un solo vector. " Cells(m + 17, n + 21).FormulaR1C1 = "2. Estudiar el campo el" & ChrW(233) & "ctrico de una espiral cargada. " Cells(m + 18, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: " Cells(m + 19, n + 21).FormulaR1C1 = "En el problema anterior coloque la Elevaci" & ChrW(243) & "n G31 = -0,1 para que la espiral avance hacia arriba y G30 = 20" Cells(m + 20, n + 21).FormulaR1C1 = "para hacer rendir los mismos 36 elementos para dos vueltas. Debido al aumento del " & ChrW(225) & "ngulo azimut, el radio " Cells(m + 21, n + 21).FormulaR1C1 = "se reducir" & ChrW(225) & ". En A11, B11, C11 modifique el punto de observaci" & ChrW(243) & "n ( teniendo en cuenta adem" & ChrW(225) & "s que G41=0)." Cells(m + 23, n + 21).FormulaR1C1 = "Ejercicios:" Cells(m + 25, n + 21).FormulaR1C1 = "1. Construya el modelo del campo el" & ChrW(233) & "ctrico de un alambre rectil" & ChrW(237) & "neo cargado con carga Q. " Cells(m + 26, n + 21).FormulaR1C1 = "2. Construya el modelo para un almbre cargado en forma de semic" & ChrW(237) & "rculo." Cells(m + 27, n + 21).FormulaR1C1 = "3. Construya un modelo un conjunto de dos almbres undependientes, uno semicircular y otro rectil" & ChrW(237) & "neo. " Cells(m + 28, n + 21).FormulaR1C1 = "Ayuda:" Cells(m + 28, n + 22).FormulaR1C1 = "1. En B2 coloque en may" & ChrW(250) & "scula ENTIRE, B2=ENTIRE." Cells(m + 29, n + 22).FormulaR1C1 = "2. Observe en la columna A cu" & ChrW(225) & "l es la el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a del " & ChrW(250) & "ltimo vector." Cells(m + 30, n + 22).FormulaR1C1 = "3. Coloque B3=15 y en C3 coloque el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a." Cells(m + 31, n + 22).FormulaR1C1 = "4. Oprima +OBJ para agregar la nueva l" & ChrW(237) & "nea como una copia de la existente." Cells(m + 32, n + 22).FormulaR1C1 = "5. Vaya en la hoja hacia abajo y ver" & ChrW(225) & " que aparecieron las celdas para la nueva l" & ChrW(237) & "nea, cambie " Cells(m + 33, n + 22).FormulaR1C1 = "la posici" & ChrW(243) & "n inicial de la nueva l" & ChrW(237) & "nea y oprima XYZ. " Cells(m + 34, n + 22).FormulaR1C1 = "6. En la celda correspondiente a LINEA No. Coloque el n" & ChrW(250) & "mero 2. " Cells(m + 35, n + 22).FormulaR1C1 = "7. Corrija la f" & ChrW(243) & "rmula de la celda del n" & ChrW(250) & "mero n para que quede igual a la original." Cells(m + 36, n + 22).FormulaR1C1 = "8. Cambie la configuraci" & ChrW(243) & "n de la nueva l" & ChrW(237) & "nea. " Cells(m + 37, n + 21).FormulaR1C1 = "Nota: si no apareci" & ChrW(243) & "n la nueva l" & ChrW(237) & "nea, porsiblemente no indic" & ChrW(243) & " correctamente el rango de filas en las " Cells(m + 38, n + 21).FormulaR1C1 = "celdas B3 y C3, las filas deben corresponder desde la 15 hasta la " & ChrW(250) & "ltima no vac" & ChrW(237) & "a. " Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_30_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 30_Campo E de part. nucleares_ES ' Updated: 2/05/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 30 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "15" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "32" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "X" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "70000" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "Y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "Z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE UN CUADRUPOLO ELÉCTRICO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Un cuadrupolo eléctrico se puede definir como el conjunto de cuatro cargas puntuales q distribuidas en el espacio. La forma más sencilla de un cuadrupolo son cuatro cargas distribuidas en los vértices de un cuadrado. Para hallar el campo eléctrico de un cuadrupolo en cualquier punto del espacio, se aplica el principio de superposición, es decir, en cada punto del espacio el campo eléctrico del dipolo es la suma vectorial de los campos eléctricos de las cuatro cargas por aparte: " & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " En las celdas A84, B84 y C84 están las componentes para el campo resultante de las cuatro cargas cargas. En las celdas A10, B10 y C210 se introducen las coordenadas en el espacio en donde se ubica la primera carga y en las celdas A21, B21, C21 están ubicadaa las ecuaciones para calcular el campo eléctrico de la primera carga: " & Chr(10) & _ " E1x= k q1(x1éx01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1éy01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/)2 " & Chr(10) & _ " E1z= k q1(z1éz01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)." & Chr(10) & _ " De manera similar en A28, B28, C28 se introduce la posici[on de la segunda carga y su campo en A39, B39, C39; en A46, B46, C46 la posición de la tercera carga y su campo en A57, B57, C57, finalmente en A64, B64, C64 la posición de la tercera carga y su campo en A75, B75, C75. " & Chr(10) & _ " Modifique la magnitud de las cargas y su signo en las celdas C6, C24, C42 y C60, así como el color de su apariencia. Para calcular el campo eléctrico en cualquier punto del espacio, introduzca las coordenadas del punto en A83, B83, C83 y oprima cualquier botón de coordenadas. " & Chr(10) & _ " La configuración espacial del campo se puede visualizar en diferentes tipos de coordenadas utilizando la celda C79. Para ver el campo en coordenadas esféricas coloque C79=s, en cilíndricas C79=c y en cartesianas C79=o y oprima cualquier botón de coordenadas. Modifique a conveniencia los parámetros del campo en la cadena que aparece en esta misma celda. " & Chr(10) & _ " Para visdualizar el campo eléctrico resultante con mayor resolución, en la celda C43 modifique entre los primeros paréntesis cuadrados el valor, poniendo uno más pequeéo, por ejemplo o[0,5]; entre má pequeéo sea el valor, mejor será la resolución pero tardará más tiempo en renderizar. Para ver de nuevo los vectores campo solamente en un punto en particular, borre el contenido del la celda C43 y escriba las coordenadas en donde desee ver el campo en las celdas en A83, B83, C83, por ejemplo A47=0, B47=0, C47=3. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF AN ELECTRICAL QUADRUPOLE" & Chr(10) & _ " An electric quadrupole can be defined as the set of four point charges q distributed in space. The simplest form of a quadrupole is four charges distributed at the vertices of a square. To find the electric field of a quadrupole at any point in space, the superposition principle is applied, that is, at each point in space the electric field of the dipole is the vector sum of the electric fields of the four charges separately:" & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " In cells A84, B84 and C84 are the components of the field resulting from the four charges. In cells A10, B10 and C210 the coordinates in space where the first charge is located are entered and in cells A21, B21, C21 the equations are located to calculate the electric field of the first charge:" & Chr(10) & _ " E1x= k q1(x1éx01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1éy01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/)2" & Chr(10) & _ " E1z= k q1(z1éz01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)." & Chr(10) & _ " Similarly in A28, B28, C28 the position of the second charge and its field are entered in A39, B39, C39; in A46, B46, C46 the position of the third charge and its field in A57, B57, C57, finally in A64, B64, C64 the position of the third charge and its field in A75, B75, C75." & Chr(10) & _ " Change the magnitude of the charges and their sign in cells C6, C24, C42 and C60, as well as the color of their appearance. To calculate the electric field at any point in space, enter the coordinates of the point at A83, B83, C83 and press any coordinate button." & Chr(10) & _ " The spatial configuration of the field can be displayed in different types of coordinates using cell C79. To see the field in spherical coordinates, place C79=s, in cylindrical C79=c and in Cartesian C79=o and press any coordinate button. Modify the field parameters in the string that appears in this very cell. To visualize the resulting electric field with greater resolution, in cell C43 modify the value between the first brackets, putting a smaller one, for example o[0,5]; the smaller the value, the better the resolution, but it will take longer to render. To return to seeing the field vectors only at a particular point, delete the contents of cell C43 and type the coordinates where you want to see the field in cells A83, B83, C83, for example A47=0, B47=0, C47 =3." & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 15 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "E" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "Z" Cells(m + 3, n + 5).FormulaR1C1 = "375" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Campo eléctrico de cargas puntuales" Cells(m + 4, n + 12).FormulaR1C1 = "CAMPO ELÉCTRICO DE PARTÍCULAS NUCLEARES" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCCIONES" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""E_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""E_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""E_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "Constante eléctrica:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "k=" Cells(m + 7, n + 5).FormulaR1C1 = "8900000000" Cells(m + 7, n + 21).FormulaR1C1 = "Este modelo es una modificación del modelo Campo Eléctrico y se adapta para 7 cargas puntuales " Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "0.0016" Cells(m + 8, n + 1).FormulaR1C1 = "0.0016" Cells(m + 8, n + 2).FormulaR1C1 = "<< --- Punto de estudio del campo" Cells(m + 8, n + 21).FormulaR1C1 = "que se encuentran en los vértices de un cubo, para hallar el campo en el octavo vértice. Las " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Magnitud del campo" Cells(m + 9, n + 21).FormulaR1C1 = "magnitudes de las cargas están dadas en unidades de la carga elemental, la constante en unidades " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "resultante:" Cells(m + 10, n + 21).FormulaR1C1 = "del Sistema Internacional (SI) y las distancias del orden de micras. La escala se ha aumentado a 7x10^4." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = " |E| =" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[-2]C[-6]^2+R[-2]C[-5]^2+R[-2]C[-4]^2)" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "El campo total se puede calcular por el principio de superposición como la suma vectorial de cada" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 4).FormulaR1C1 = "Número de cargas:" Cells(m + 4, n + 21).FormulaR1C1 = "uno de los campos por aparte en el punto en cuestión:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = " n =" Cells(m + 5, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""E_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "(para agregar cargas " Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-25-1)" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 7, n + 4).FormulaR1C1 = "oprima +OBJ.)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "en donde cada uno de los campos se establece por la ley de Coulomb:" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Mostrar vectores aux.:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "SI = 0, NO = 1" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-25-2)" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "8" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[8]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 21).FormulaR1C1 = "La constante k depende del sistema de unidades y su valor se introduce en la celda G10." Cells(m + 6, n + 21).FormulaR1C1 = "Estas ecuaciones se ubican respectivamente para cada carga y cada coordenada en las filas 30, 48, 66" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 21).FormulaR1C1 = "y 84, y las componentes del campo resultante en las celdas A12, B12 y C12." Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "Modifique los parámetros de las cargas y sus posiciones en las celdas indicadas a continuación, teniendo " 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 cuenta no excederse en la escala. " 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 + 27 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 21).FormulaR1C1 = "Vec. 1:" Cells(m + 4, n + 22).FormulaR1C1 = " B6 = " Cells(m + 4, n + 23).FormulaR1C1 = " E" Cells(m + 4, n + 24).FormulaR1C1 = "Punto de observación del campo" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Punto:" Cells(m + 5, n + 22).FormulaR1C1 = "x_o = " Cells(m + 5, n + 23).FormulaR1C1 = "A11" Cells(m + 5, n + 26).FormulaR1C1 = "E_x" Cells(m + 5, n + 27).FormulaR1C1 = " =A12" Cells(m + 6, n + 22).FormulaR1C1 = "y_o = " Cells(m + 6, n + 23).FormulaR1C1 = "B11" Cells(m + 6, n + 24).FormulaR1C1 = "0.0016" Cells(m + 6, n + 26).FormulaR1C1 = "E_y" Cells(m + 6, n + 27).FormulaR1C1 = " =B12" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 7, n + 22).FormulaR1C1 = "z_o = " Cells(m + 7, n + 23).FormulaR1C1 = "C11" Cells(m + 7, n + 24).FormulaR1C1 = "0.0016" Cells(m + 7, n + 26).FormulaR1C1 = "E_z" Cells(m + 7, n + 27).FormulaR1C1 = " =C12" 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 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "Vec. 2:" Cells(m + 9, n + 22).FormulaR1C1 = " B15 = " Cells(m + 9, n + 23).FormulaR1C1 = "q1" 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 = "Posición:" Cells(m + 10, n + 22).FormulaR1C1 = "x_o = " Cells(m + 10, n + 23).FormulaR1C1 = " A19 = " Cells(m + 10, n + 24).FormulaR1C1 = "0" 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 = "y_o = " Cells(m + 11, n + 23).FormulaR1C1 = " B19 = " Cells(m + 11, n + 24).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "z_o = " Cells(m + 3, n + 23).FormulaR1C1 = " C19 = " Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 21).FormulaR1C1 = "Vec. 4:" Cells(m + 5, n + 22).FormulaR1C1 = " B33 = " Cells(m + 5, n + 23).FormulaR1C1 = "q2" Cells(m + 6, n + 21).FormulaR1C1 = "Posición:" Cells(m + 6, n + 22).FormulaR1C1 = "x_o = " Cells(m + 6, n + 23).FormulaR1C1 = " A37 = " Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 22).FormulaR1C1 = "y_o = " Cells(m + 7, n + 23).FormulaR1C1 = " B37 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "z_o = " Cells(m + 8, n + 23).FormulaR1C1 = " C37 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.0016" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" 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 = "Vec. 6:" Cells(m + 10, n + 22).FormulaR1C1 = " B51 = " Cells(m + 10, n + 23).FormulaR1C1 = "q3" 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 = "Posición:" Cells(m + 11, n + 22).FormulaR1C1 = "x_o = " Cells(m + 11, n + 23).FormulaR1C1 = " A55 = " Cells(m + 11, n + 24).FormulaR1C1 = "0.0016" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q3" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 3, n + 22).FormulaR1C1 = "y_o = " Cells(m + 3, n + 23).FormulaR1C1 = " B55 = " Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 22).FormulaR1C1 = "z_o = " Cells(m + 4, n + 23).FormulaR1C1 = " C55 = " Cells(m + 4, n + 24).FormulaR1C1 = "0.0016" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 6, n + 21).FormulaR1C1 = "Vec. 8:" Cells(m + 6, n + 22).FormulaR1C1 = " B69 = " Cells(m + 6, n + 23).FormulaR1C1 = "q4" Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "Posición:" Cells(m + 7, n + 22).FormulaR1C1 = "x_o = " Cells(m + 7, n + 23).FormulaR1C1 = " A73 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "y_o = " Cells(m + 8, n + 23).FormulaR1C1 = " B73 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.0016" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "z_o = " Cells(m + 9, n + 23).FormulaR1C1 = " C73 = " Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" 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 + 21).FormulaR1C1 = "Vec. 10:" Cells(m + 11, n + 22).FormulaR1C1 = " B87 = " Cells(m + 11, n + 23).FormulaR1C1 = "q5" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "Posición:" Cells(m + 3, n + 22).FormulaR1C1 = "x_o = " Cells(m + 3, n + 23).FormulaR1C1 = " A91 = " Cells(m + 3, n + 24).FormulaR1C1 = "0.0016" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "y_o = " Cells(m + 4, n + 23).FormulaR1C1 = " B91 = " Cells(m + 4, n + 24).FormulaR1C1 = "0.0016" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 22).FormulaR1C1 = "z_o = " Cells(m + 5, n + 23).FormulaR1C1 = " C91 = " Cells(m + 5, n + 24).FormulaR1C1 = "0.0016" Cells(m + 6, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 21).FormulaR1C1 = "Vec. 12:" Cells(m + 7, n + 22).FormulaR1C1 = " B105 = " Cells(m + 7, n + 23).FormulaR1C1 = "q6" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Posición:" Cells(m + 8, n + 22).FormulaR1C1 = "x_o = " Cells(m + 8, n + 23).FormulaR1C1 = " A109 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.0016" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 22).FormulaR1C1 = "y_o = " Cells(m + 9, n + 23).FormulaR1C1 = " B109 = " Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "z_o = " Cells(m + 10, n + 23).FormulaR1C1 = " C109 = " Cells(m + 10, n + 24).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" 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 = " + q4" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "Vec. 14:" Cells(m + 3, n + 22).FormulaR1C1 = " B123 = " Cells(m + 3, n + 23).FormulaR1C1 = "q7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 21).FormulaR1C1 = "Posición:" Cells(m + 4, n + 22).FormulaR1C1 = "x_o = " Cells(m + 4, n + 23).FormulaR1C1 = " A127 = " Cells(m + 4, n + 24).FormulaR1C1 = "0.0016" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 22).FormulaR1C1 = "y_o = " Cells(m + 5, n + 23).FormulaR1C1 = " B127 = " Cells(m + 5, n + 24).FormulaR1C1 = "0.0016" Cells(m + 6, n + 22).FormulaR1C1 = "z_o = " Cells(m + 6, n + 23).FormulaR1C1 = " C127 = " Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0.0016" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "PARÁMETROS:" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "Escala:" Cells(m + 9, n + 23).FormulaR1C1 = " E5 = " Cells(m + 9, n + 24).FormulaR1C1 = "70000" 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 = "Paso:" Cells(m + 10, n + 23).FormulaR1C1 = " I3 = " Cells(m + 10, n + 24).FormulaR1C1 = "8" 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 = "N° de pasos:" Cells(m + 11, n + 23).FormulaR1C1 = " I4 = " Cells(m + 11, n + 24).FormulaR1C1 = "45" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "k=" Cells(m + 3, n + 23).FormulaR1C1 = " G10 = " Cells(m + 3, n + 24).FormulaR1C1 = "8900000000" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = " |E| =" Cells(m + 4, n + 23).FormulaR1C1 = " G14 = " Cells(m + 4, n + 24).FormulaR1C1 = " =RAIZ(N10^2+O10^2+P10^2)" Cells(m + 4, n + 27).FormulaR1C1 = "Módulo del campo." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 22).FormulaR1C1 = " n =" Cells(m + 5, n + 23).FormulaR1C1 = " G17 = " Cells(m + 5, n + 24).FormulaR1C1 = " =CONTAR.SI(Q:Q;""E_*"")" Cells(m + 5, n + 27).FormulaR1C1 = "Número de cargas" Cells(m + 6, n + 22).FormulaR1C1 = "SI = 0, NO = 1" Cells(m + 6, n + 23).FormulaR1C1 = " G22 = " Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 27).FormulaR1C1 = "Vectores auxiliares." Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "AGREGAR OBJETOS:" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 22).FormulaR1C1 = "Cantidad:" Cells(m + 9, n + 23).FormulaR1C1 = " B2 = " Cells(m + 9, n + 25).FormulaR1C1 = "Utilice esta celda para agregar varias cargas a la vez." 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 = "Fila inicial:" Cells(m + 10, n + 23).FormulaR1C1 = " B3 = " Cells(m + 10, n + 24).FormulaR1C1 = "15" 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 + 22).FormulaR1C1 = "Fila final:" Cells(m + 11, n + 23).FormulaR1C1 = " C3 = " Cells(m + 11, n + 24).FormulaR1C1 = "32" 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 = " + q5" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "La magnitud de la carga y su signo se modifican en la celda del color (ejemplo en C15 para la primera carga)." Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0.0016" Cells(m + 7, n + 1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 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 = "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 + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 90 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 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 = "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 = " + q6" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 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 = "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 + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 108 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 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 = "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 = " + q7" Call AddNewVector End If ' vector ends If m = m1 + 117 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=3*1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0.0016" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posición de q""&R[-4]C[-3]/2" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 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 = "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 + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 126 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 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 = "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 = "" Cells(m1 + 2, n1 - 1).Value = 15 End If ' vector ends If m = m1 + 126 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_30_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 30_Field of nuclear particles_EN ' Updated: 2/05/24 ' Created by: Ariel R. Becerra (21/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 30 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "15" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "32" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "850" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "8" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (21/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "X" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "70000" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "Y" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "Z" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO DE UN CUADRUPOLO ELÉCTRICO" & Chr(10) & _ " (See english version at the end)" & Chr(10) & _ " Un cuadrupolo eléctrico se puede definir como el conjunto de cuatro cargas puntuales q distribuidas en el espacio. La forma más sencilla de un cuadrupolo son cuatro cargas distribuidas en los vértices de un cuadrado. Para hallar el campo eléctrico de un cuadrupolo en cualquier punto del espacio, se aplica el principio de superposición, es decir, en cada punto del espacio el campo eléctrico del dipolo es la suma vectorial de los campos eléctricos de las cuatro cargas por aparte: " & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " En las celdas A84, B84 y C84 están las componentes para el campo resultante de las cuatro cargas cargas. En las celdas A10, B10 y C210 se introducen las coordenadas en el espacio en donde se ubica la primera carga y en las celdas A21, B21, C21 están ubicadaa las ecuaciones para calcular el campo eléctrico de la primera carga: " & Chr(10) & _ " E1x= k q1(x1éx01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1éy01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/)2 " & Chr(10) & _ " E1z= k q1(z1éz01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)." & Chr(10) & _ " De manera similar en A28, B28, C28 se introduce la posici[on de la segunda carga y su campo en A39, B39, C39; en A46, B46, C46 la posición de la tercera carga y su campo en A57, B57, C57, finalmente en A64, B64, C64 la posición de la tercera carga y su campo en A75, B75, C75. " & Chr(10) & _ " Modifique la magnitud de las cargas y su signo en las celdas C6, C24, C42 y C60, así como el color de su apariencia. Para calcular el campo eléctrico en cualquier punto del espacio, introduzca las coordenadas del punto en A83, B83, C83 y oprima cualquier botón de coordenadas. " & Chr(10) & _ " La configuración espacial del campo se puede visualizar en diferentes tipos de coordenadas utilizando la celda C79. Para ver el campo en coordenadas esféricas coloque C79=s, en cilíndricas C79=c y en cartesianas C79=o y oprima cualquier botón de coordenadas. Modifique a conveniencia los parámetros del campo en la cadena que aparece en esta misma celda. " & Chr(10) & _ " Para visdualizar el campo eléctrico resultante con mayor resolución, en la celda C43 modifique entre los primeros paréntesis cuadrados el valor, poniendo uno más pequeéo, por ejemplo o[0,5]; entre má pequeéo sea el valor, mejor será la resolución pero tardará más tiempo en renderizar. Para ver de nuevo los vectores campo solamente en un punto en particular, borre el contenido del la celda C43 y escriba las coordenadas en donde desee ver el campo en las celdas en A83, B83, C83, por ejemplo A47=0, B47=0, C47=3. " & Chr(10) & _ " (ENGLISH)" & Chr(10) & _ " FIELD OF AN ELECTRICAL QUADRUPOLE" & Chr(10) & _ " An electric quadrupole can be defined as the set of four point charges q distributed in space. The simplest form of a quadrupole is four charges distributed at the vertices of a square. To find the electric field of a quadrupole at any point in space, the superposition principle is applied, that is, at each point in space the electric field of the dipole is the vector sum of the electric fields of the four charges separately:" & Chr(10) & _ " E = E1 + E2 + E3 + E4, E1 = k q1 /r1^2, E2 = k q2 /r2^2, E3 = k q3 /r3^2, E4 = k q4 /r4^2 ." & Chr(10) & _ " In cells A84, B84 and C84 are the components of the field resulting from the four charges. In cells A10, B10 and C210 the coordinates in space where the first charge is located are entered and in cells A21, B21, C21 the equations are located to calculate the electric field of the first charge:" & Chr(10) & _ " E1x= k q1(x1éx01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)" & Chr(10) & _ " E1y = k q1(y1éy01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/)2" & Chr(10) & _ " E1z= k q1(z1éz01)/((x1 é x01)^2 + (y1 é y01)^2 + (z1 é z01)^2)^(3/2)." & Chr(10) & _ " Similarly in A28, B28, C28 the position of the second charge and its field are entered in A39, B39, C39; in A46, B46, C46 the position of the third charge and its field in A57, B57, C57, finally in A64, B64, C64 the position of the third charge and its field in A75, B75, C75." & Chr(10) & _ " Change the magnitude of the charges and their sign in cells C6, C24, C42 and C60, as well as the color of their appearance. To calculate the electric field at any point in space, enter the coordinates of the point at A83, B83, C83 and press any coordinate button." & Chr(10) & _ " The spatial configuration of the field can be displayed in different types of coordinates using cell C79. To see the field in spherical coordinates, place C79=s, in cylindrical C79=c and in Cartesian C79=o and press any coordinate button. Modify the field parameters in the string that appears in this very cell. To visualize the resulting electric field with greater resolution, in cell C43 modify the value between the first brackets, putting a smaller one, for example o[0,5]; the smaller the value, the better the resolution, but it will take longer to render. To return to seeing the field vectors only at a particular point, delete the contents of cell C43 and type the coordinates where you want to see the field in cells A83, B83, C83, for example A47=0, B47=0, C47 =3." & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 15 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "E" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "Z" Cells(m + 3, n + 5).FormulaR1C1 = "375" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Electric field of point charges" Cells(m + 4, n + 12).FormulaR1C1 = "ELECTRIC FIELD OF NUCLEAR PARTICLES" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""E_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""E_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""E_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "Electric constant:" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "k=" Cells(m + 7, n + 5).FormulaR1C1 = "8900000000" Cells(m + 7, n + 21).FormulaR1C1 = "This model is a modification of the Electric Field model and is adapted for 7 point charges found " Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "0.0016" Cells(m + 8, n + 1).FormulaR1C1 = "0.0016" Cells(m + 8, n + 2).FormulaR1C1 = "<< --- Field study point" Cells(m + 8, n + 21).FormulaR1C1 = "at the vertices of a cube, to find the field at the eighth vertex. The magnitudes of the charges " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Magnitude of the resulting" Cells(m + 9, n + 21).FormulaR1C1 = "are given in units of the elementary charge, the constant in units of the International System (IS) and " 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 = "field:" Cells(m + 10, n + 21).FormulaR1C1 = "the distances of the order of microns. The scale has been increased to 7x10^4." Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = " |E| =" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[-2]C[-6]^2+R[-2]C[-5]^2+R[-2]C[-4]^2)" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 14 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "The total field can be calculated by the principle of superposition as the vector sum of each of " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 4).FormulaR1C1 = "Number of charges:" Cells(m + 4, n + 21).FormulaR1C1 = "the fields separately at the point in question:" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 4).FormulaR1C1 = " n =" Cells(m + 5, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""E_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "(to add charges" Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-25-1)" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 7, n + 4).FormulaR1C1 = "press +OBJ.)" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "where each of the fields is established by Coulomb's law:" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Show auxiliary vectors:" 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 = "YES = 0, NO = 1" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 27).FormulaR1C1 = "(Eq-25-2)" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "8" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[8]C[-4]>0,""<-- use these cells."","""")" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 13 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 21).FormulaR1C1 = "The constant k depends on the system of units and its value is entered in cell G10." Cells(m + 6, n + 21).FormulaR1C1 = "These equations are located respectively for each charge and each coordinate in rows 30, " Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 21).FormulaR1C1 = "48, 66 and 84, and the components of the resulting field in cells A12, B12 and C12." Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "Modify the charge parameters and their positions in the cells indicated below, taking into account " 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 = "not exceeding the scale." 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 + 27 Then ' vector 12 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 21).FormulaR1C1 = "Vec. 1:" Cells(m + 4, n + 22).FormulaR1C1 = " B6 = " Cells(m + 4, n + 23).FormulaR1C1 = " E" Cells(m + 4, n + 24).FormulaR1C1 = "Field observation point" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Point:" Cells(m + 5, n + 22).FormulaR1C1 = "x_o = " Cells(m + 5, n + 23).FormulaR1C1 = "A11" Cells(m + 5, n + 26).FormulaR1C1 = "E_x" Cells(m + 5, n + 27).FormulaR1C1 = " =A12" Cells(m + 6, n + 22).FormulaR1C1 = "y_o = " Cells(m + 6, n + 23).FormulaR1C1 = "B11" Cells(m + 6, n + 24).FormulaR1C1 = "0.0016" Cells(m + 6, n + 26).FormulaR1C1 = "E_y" Cells(m + 6, n + 27).FormulaR1C1 = " =B12" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 7, n + 22).FormulaR1C1 = "z_o = " Cells(m + 7, n + 23).FormulaR1C1 = "C11" Cells(m + 7, n + 24).FormulaR1C1 = "0.0016" Cells(m + 7, n + 26).FormulaR1C1 = "E_z" Cells(m + 7, n + 27).FormulaR1C1 = " =C12" 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 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 21).FormulaR1C1 = "Vec. 2:" Cells(m + 9, n + 22).FormulaR1C1 = " B15 = " Cells(m + 9, n + 23).FormulaR1C1 = "q1" 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 = "Position:" Cells(m + 10, n + 22).FormulaR1C1 = "x_o = " Cells(m + 10, n + 23).FormulaR1C1 = " A19 = " Cells(m + 10, n + 24).FormulaR1C1 = "0" 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 = "y_o = " Cells(m + 11, n + 23).FormulaR1C1 = " B19 = " Cells(m + 11, n + 24).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "z_o = " Cells(m + 3, n + 23).FormulaR1C1 = " C19 = " Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 21).FormulaR1C1 = "Vec. 4:" Cells(m + 5, n + 22).FormulaR1C1 = " B33 = " Cells(m + 5, n + 23).FormulaR1C1 = "q2" Cells(m + 6, n + 21).FormulaR1C1 = "Position:" Cells(m + 6, n + 22).FormulaR1C1 = "x_o = " Cells(m + 6, n + 23).FormulaR1C1 = " A37 = " Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 22).FormulaR1C1 = "y_o = " Cells(m + 7, n + 23).FormulaR1C1 = " B37 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "z_o = " Cells(m + 8, n + 23).FormulaR1C1 = " C37 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.0016" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" 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 = "Vec. 6:" Cells(m + 10, n + 22).FormulaR1C1 = " B51 = " Cells(m + 10, n + 23).FormulaR1C1 = "q3" 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 = "Position:" Cells(m + 11, n + 22).FormulaR1C1 = "x_o = " Cells(m + 11, n + 23).FormulaR1C1 = " A55 = " Cells(m + 11, n + 24).FormulaR1C1 = "0.0016" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q3" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 3, n + 22).FormulaR1C1 = "y_o = " Cells(m + 3, n + 23).FormulaR1C1 = " B55 = " Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 22).FormulaR1C1 = "z_o = " Cells(m + 4, n + 23).FormulaR1C1 = " C55 = " Cells(m + 4, n + 24).FormulaR1C1 = "0.0016" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 6, n + 21).FormulaR1C1 = "Vec. 8:" Cells(m + 6, n + 22).FormulaR1C1 = " B69 = " Cells(m + 6, n + 23).FormulaR1C1 = "q4" Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "Position:" Cells(m + 7, n + 22).FormulaR1C1 = "x_o = " Cells(m + 7, n + 23).FormulaR1C1 = " A73 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 22).FormulaR1C1 = "y_o = " Cells(m + 8, n + 23).FormulaR1C1 = " B73 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.0016" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "z_o = " Cells(m + 9, n + 23).FormulaR1C1 = " C73 = " Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" 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 + 21).FormulaR1C1 = "Vec. 10:" Cells(m + 11, n + 22).FormulaR1C1 = " B87 = " Cells(m + 11, n + 23).FormulaR1C1 = "q5" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "Position:" Cells(m + 3, n + 22).FormulaR1C1 = "x_o = " Cells(m + 3, n + 23).FormulaR1C1 = " A91 = " Cells(m + 3, n + 24).FormulaR1C1 = "0.0016" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "y_o = " Cells(m + 4, n + 23).FormulaR1C1 = " B91 = " Cells(m + 4, n + 24).FormulaR1C1 = "0.0016" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 22).FormulaR1C1 = "z_o = " Cells(m + 5, n + 23).FormulaR1C1 = " C91 = " Cells(m + 5, n + 24).FormulaR1C1 = "0.0016" Cells(m + 6, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 7, n + 21).FormulaR1C1 = "Vec. 12:" Cells(m + 7, n + 22).FormulaR1C1 = " B105 = " Cells(m + 7, n + 23).FormulaR1C1 = "q6" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Position:" Cells(m + 8, n + 22).FormulaR1C1 = "x_o = " Cells(m + 8, n + 23).FormulaR1C1 = " A109 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.0016" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 22).FormulaR1C1 = "y_o = " Cells(m + 9, n + 23).FormulaR1C1 = " B109 = " Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 22).FormulaR1C1 = "z_o = " Cells(m + 10, n + 23).FormulaR1C1 = " C109 = " Cells(m + 10, n + 24).FormulaR1C1 = "0" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" 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 = " + q4" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "Vec. 14:" Cells(m + 3, n + 22).FormulaR1C1 = " B123 = " Cells(m + 3, n + 23).FormulaR1C1 = "q7" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 21).FormulaR1C1 = "Position:" Cells(m + 4, n + 22).FormulaR1C1 = "x_o = " Cells(m + 4, n + 23).FormulaR1C1 = " A127 = " Cells(m + 4, n + 24).FormulaR1C1 = "0.0016" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 22).FormulaR1C1 = "y_o = " Cells(m + 5, n + 23).FormulaR1C1 = " B127 = " Cells(m + 5, n + 24).FormulaR1C1 = "0.0016" Cells(m + 6, n + 22).FormulaR1C1 = "z_o = " Cells(m + 6, n + 23).FormulaR1C1 = " C127 = " Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "0.0016" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "PARAMETERS:" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 22).FormulaR1C1 = "Escala:" Cells(m + 9, n + 23).FormulaR1C1 = " E5 = " Cells(m + 9, n + 24).FormulaR1C1 = "70000" 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 = "Paso:" Cells(m + 10, n + 23).FormulaR1C1 = " I3 = " Cells(m + 10, n + 24).FormulaR1C1 = "8" 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 = "N° de pasos:" Cells(m + 11, n + 23).FormulaR1C1 = " I4 = " Cells(m + 11, n + 24).FormulaR1C1 = "45" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "k=" Cells(m + 3, n + 23).FormulaR1C1 = " G10 = " Cells(m + 3, n + 24).FormulaR1C1 = "8900000000" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = " |E| =" Cells(m + 4, n + 23).FormulaR1C1 = " G14 = " Cells(m + 4, n + 24).FormulaR1C1 = " =RAIZ(N10^2+O10^2+P10^2)" Cells(m + 4, n + 27).FormulaR1C1 = "Field module." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 5, n + 22).FormulaR1C1 = " n =" Cells(m + 5, n + 23).FormulaR1C1 = " G17 = " Cells(m + 5, n + 24).FormulaR1C1 = " =CONTAR.SI(Q:Q;""E_*"")" Cells(m + 5, n + 27).FormulaR1C1 = "Number of charges" Cells(m + 6, n + 22).FormulaR1C1 = "SI = 0, NO = 1" Cells(m + 6, n + 23).FormulaR1C1 = " G22 = " Cells(m + 6, n + 24).FormulaR1C1 = "0" Cells(m + 6, n + 27).FormulaR1C1 = "Auxiliary vectors." Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "ADD OBJECTS:" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 9, n + 22).FormulaR1C1 = "Cantidad:" Cells(m + 9, n + 23).FormulaR1C1 = " B2 = " Cells(m + 9, n + 25).FormulaR1C1 = "Use this cell to add multiple charges at once." 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 = "Fila inicial:" Cells(m + 10, n + 23).FormulaR1C1 = " B3 = " Cells(m + 10, n + 24).FormulaR1C1 = "15" 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 + 22).FormulaR1C1 = "Fila final:" Cells(m + 11, n + 23).FormulaR1C1 = " C3 = " Cells(m + 11, n + 24).FormulaR1C1 = "32" 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 = " + q5" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "The magnitude of the charge and its sign are modified in the color cell (example in C15 for the first charge)." Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0.0016" Cells(m + 7, n + 1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 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 = "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 + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 90 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 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 = "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 = " + q6" Call AddNewVector End If ' vector ends If m = m1 + 99 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 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 = "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 + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 108 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 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 = "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 = " + q7" Call AddNewVector End If ' vector ends If m = m1 + 117 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - "", "" + "")&""q""&RC[-1]/2" Cells(m + 3, n + 1).FormulaR1C1 = "=3*1.6E-19" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitude and color of q""&RC[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "0.0016" Cells(m + 7, n + 0).FormulaR1C1 = "0.0016" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< --Position of q""&R[-4]C[-3]/2" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 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 = "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 + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 126 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R22C7" Cells(m + 7, n + -1).FormulaR1C1 = "=R11C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R11C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R11C3" Cells(m + 8, n + -1).FormulaR1C1 = "1" Cells(m + 8, n + 0).FormulaR1C1 = "1" Cells(m + 8, n + 1).FormulaR1C1 = "1" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C,2)+POWER(R11C2-R[-11]C[1],2)+POWER(R11C3-R[-11]C[2],2),3/2))*(R11C1-R[-11]C)*R10C7*R[-15]C[2]" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-1],2)+POWER(R11C2-R[-11]C,2)+POWER(R11C3-R[-11]C[1],2),3/2))*(R11C2-R[-11]C)*R10C7*R[-15]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R11C1-R[-11]C[-2],2)+POWER(R11C2-R[-11]C[-1],2)+POWER(R11C3-R[-11]C,2),3/2))*(R11C3-R[-11]C)*R10C7*R[-15]C" Cells(m + 9, n + 2).FormulaR1C1 = "=""E_""&R[-15]C[-3]/2" Cells(m + 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 = "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 = "" Cells(m1 + 2, n1 - 1).Value = 15 End If ' vector ends If m = m1 + 126 Then Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_31_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 31_Onda plana_ES ' Updated: 30/06/24 ' Created by: Ariel Becerra (26/04/24) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 31 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "600" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "0.000105" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel Becerra (26/04/24)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "i" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "40" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "x" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15.0042" 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;î" & 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 2 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "E" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "E" Cells(m + 3, n + 5).FormulaR1C1 = "15.0042" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[34]C[4]=1,R[35]C[4],IF(R[34]C[4]=2,R[36]C[4],IF(R[34]C[4]=3,R[37]C[4],"""")))" Cells(m + 4, n + 12).FormulaR1C1 = "PROPAGACI" & ChrW(211) & "N DE UNA ONDA ELECTROMAGN" & ChrW(201) & "TICA PLANA" 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 = "=R[18]C[4]" 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 = "DATOS INICIALES" Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-6]C[7]*100000" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "H_0 =" Cells(m + 8, n + 5).FormulaR1C1 = "100" Cells(m + 8, n + 21).FormulaR1C1 = "En el modelo se estudia de forma sencilla la propagaci" & ChrW(243) & "n de una onda electromagn" & ChrW(233) & "tica " Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R[12]C[6]=0,RC[6]*IMAGINARY(IMEXP(COMPLEX(0,(R[1]C[6]*R[-7]C[8]-R[6]C[6]*R[-1]C[1])))),0)" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=RC[4]*IMREAL(IMEXP(COMPLEX(0,(R[1]C[4]*R[-7]C[6]-R[6]C[4]*R[-1]C[-1]))))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "E_0 =" Cells(m + 9, n + 5).FormulaR1C1 = "100" Cells(m + 9, n + 21).FormulaR1C1 = "plana, cuyos campos el" & ChrW(233) & "ctrico y magn" & ChrW(233) & "tico son perpendiculares entre s" & ChrW(237) & " y perpendiculares " 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 = "w =" Cells(m + 10, n + 5).FormulaR1C1 = "10000000" Cells(m + 10, n + 21).FormulaR1C1 = "a la direcci" & ChrW(243) & "n de propagaci" & ChrW(243) & "n. Para el caso de la propagaci" & ChrW(243) & "n en direcci" & ChrW(243) & "n positiva del eje x" Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "c =" Cells(m + 11, n + 5).FormulaR1C1 = "300000000" Cells(m + 11, n + 21).FormulaR1C1 = "los campos el" & ChrW(233) & "ctrico y magn" & ChrW(233) & "tico tienen la forma:" Cells(m + 3, n + 1).Interior.Color = "3506772" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "H" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "H" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[25]C[4]=1,R[26]C[4],IF(R[25]C[4]=2,R[27]C[4],IF(R[25]C[4]=3,R[28]C[4],"""")))" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[11]C[4]" Cells(m + 5, n + 4).FormulaR1C1 = "Vector de onda:" Cells(m + 5, n + 23).FormulaR1C1 = "E = E_0 exp[i(wt-kx)]" Cells(m + 6, n + 4).FormulaR1C1 = "k=" Cells(m + 6, n + 5).FormulaR1C1 = "=R[-5]C/R[-4]C" Cells(m + 6, n + 23).FormulaR1C1 = "H = H_0 exp[i(wt-kx)]." 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 + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-15]C[7]*100000" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-10]C[6]*IMREAL(IMEXP(COMPLEX(0,(R[-8]C[6]*R[-16]C[8]-R[-3]C[6]*R[-1]C[1]))))" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[3]C[4]=0,R[-10]C[4]*IMAGINARY(IMEXP(COMPLEX(0,(R[-8]C[4]*R[-16]C[6]-R[-3]C[4]*R[-10]C[-1])))),0)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "MOSTRAR:" Cells(m + 9, n + 21).FormulaR1C1 = "Estas f" & ChrW(243) & "rmulas se introducen para E en las celdas C12 (parte real y A12 (parte imaginaria, y para" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 10, n + 4).FormulaR1C1 = "Si=0, NO=1" Cells(m + 10, n + 21).FormulaR1C1 = " H en A21 (parte real) y C21 (parte imaginaria)." Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Parte imaginaria:" Cells(m + 11, n + 21).FormulaR1C1 = "Datos iniciales:" Cells(m + 3, n + 1).Interior.Color = "16718985" Cells(m + 3, n + 1).Font.Size = "12" 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 = 2 End If ' vector ends If m = m1 + 9 Then Cells(m + 12, n + 5).FormulaR1C1 = "1" Cells(m + 12, n + 22).FormulaR1C1 = "Magnitud" Cells(m + 12, n + 24).FormulaR1C1 = "Etiqueta" Cells(m + 12, n + 25).FormulaR1C1 = "Valor en" Cells(m + 12, n + 26).FormulaR1C1 = "Valor num" & ChrW(233) & "rico:" Cells(m + 13, n + 4).FormulaR1C1 = "Campo el" & ChrW(233) & "ctrico" Cells(m + 14, n + 5).FormulaR1C1 = "0" Cells(m + 14, n + 22).FormulaR1C1 = "Amplitud inicial de H" Cells(m + 14, n + 24).FormulaR1C1 = "H_0 =" Cells(m + 14, n + 25).FormulaR1C1 = "G11" Cells(m + 14, n + 26).FormulaR1C1 = "100" Cells(m + 15, n + 4).FormulaR1C1 = "Campo magn" & ChrW(233) & "tico:" Cells(m + 15, n + 22).FormulaR1C1 = "Amplitud inicial de E" Cells(m + 15, n + 24).FormulaR1C1 = "E_0 =" Cells(m + 15, n + 25).FormulaR1C1 = "G12" Cells(m + 15, n + 26).FormulaR1C1 = "100" Cells(m + 16, n + 5).FormulaR1C1 = "0" Cells(m + 16, n + 22).FormulaR1C1 = "Frecuencia" Cells(m + 16, n + 24).FormulaR1C1 = "w =" Cells(m + 16, n + 25).FormulaR1C1 = "G13" Cells(m + 16, n + 26).FormulaR1C1 = "10000000" Cells(m + 17, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 17, n + 22).FormulaR1C1 = "Velocidad de la luz:" Cells(m + 17, n + 24).FormulaR1C1 = "c =" Cells(m + 17, n + 25).FormulaR1C1 = "G14" Cells(m + 17, n + 26).FormulaR1C1 = "300000000" Cells(m + 18, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 18, n + 22).FormulaR1C1 = "Vector de onda" Cells(m + 18, n + 24).FormulaR1C1 = "k=" Cells(m + 18, n + 25).FormulaR1C1 = "G19" Cells(m + 18, n + 26).FormulaR1C1 = "w" & ChrW(218) & "c" 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."","""")" Cells(m + 20, n + 21).FormulaR1C1 = "Vista 1:" Cells(m + 20, n + 22).FormulaR1C1 = "MODO VECTORES:" Cells(m + 20, n + 25).FormulaR1C1 = "G41" Cells(m + 20, n + 26).FormulaR1C1 = "0" Cells(m + 21, n + 22).FormulaR1C1 = "Unidad del tiempo:" Cells(m + 21, n + 24).FormulaR1C1 = "t" Cells(m + 21, n + 25).FormulaR1C1 = "I3" Cells(m + 21, n + 26).FormulaR1C1 = "0.000105" Cells(m + 22, n + 22).FormulaR1C1 = "No. de pasos:" Cells(m + 22, n + 24).FormulaR1C1 = "Paso" Cells(m + 22, n + 25).FormulaR1C1 = "I4" Cells(m + 22, n + 26).FormulaR1C1 = "40" Cells(m + 23, n + 22).FormulaR1C1 = "Coordenada:" Cells(m + 23, n + 24).FormulaR1C1 = "x (para E)" Cells(m + 23, n + 25).FormulaR1C1 = "B11" Cells(m + 23, n + 26).FormulaR1C1 = " =I5*100000" Cells(m + 24, n + 22).FormulaR1C1 = "Coordenada:" Cells(m + 24, n + 24).FormulaR1C1 = "x (para H)" Cells(m + 24, n + 25).FormulaR1C1 = "B20" Cells(m + 24, n + 26).FormulaR1C1 = " =I5*100000" Cells(m + 25, n + 22).FormulaR1C1 = "Escala " Cells(m + 25, n + 25).FormulaR1C1 = "E5" Cells(m + 25, n + 26).FormulaR1C1 = "1" Cells(m + 26, n + 4).FormulaR1C1 = "TIPO DE " Cells(m + 26, n + 21).FormulaR1C1 = "Acci" & ChrW(243) & "nes:" Cells(m + 26, n + 22).FormulaR1C1 = "Oprimir <<-- y luego >>." Cells(m + 27, n + 4).FormulaR1C1 = "COORDENADAS:" Cells(m + 27, n + 22).FormulaR1C1 = "Para grabar recorrido, oprimir el primer bot" & ChrW(243) & "n izquierdo en A6 antes que >>." Cells(m + 28, n + 4).FormulaR1C1 = "=IF(R[1]C[1]=0,""Ingrese P(x,y,z) en A11, B11, C11"","""")" Cells(m + 29, n + 4).FormulaR1C1 = "0, 1, 2 — 3:" Cells(m + 29, n + 5).FormulaR1C1 = "0" Cells(m + 29, n + 21).FormulaR1C1 = "Vista 2" Cells(m + 29, n + 22).FormulaR1C1 = "MODO CAMPO" Cells(m + 29, n + 25).FormulaR1C1 = "G41" Cells(m + 29, n + 26).FormulaR1C1 = "1" Cells(m + 30, n + 4).FormulaR1C1 = "=IF(R[-1]C[1]=1,"" 1- Cart.-->>"",""|"")" Cells(m + 30, n + 5).FormulaR1C1 = "=IF(R[-1]C=1,""o[2]x=[0;0]o2[7]y=[0;600]o3[2]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,002297794s"","""")" Cells(m + 30, n + 6).FormulaR1C1 = " " Cells(m + 30, n + 22).FormulaR1C1 = "Unidad del tiempo:" Cells(m + 30, n + 25).FormulaR1C1 = "I3" Cells(m + 30, n + 26).FormulaR1C1 = "0.000105" Cells(m + 31, n + 4).FormulaR1C1 = "=IF(R[-2]C[1]=2,"" 2- Cyl -->>"",IF(R[-2]C[1]=3,"""",IF(R[-2]C[1]=1,"""",""|"")))" Cells(m + 31, n + 5).FormulaR1C1 = "=IF(R[-2]C=2,""c[10]rho=[90;90]c2[10]phi=[0;360]c3[10]z=[-200;200]color=[8]origin[cart.]=[0;0;0]tfactor=0,00323606s"","""")" Cells(m + 31, n + 22).FormulaR1C1 = "No. de pasos:" Cells(m + 31, n + 25).FormulaR1C1 = "I4" Cells(m + 31, n + 26).FormulaR1C1 = "40" Cells(m + 32, n + 4).FormulaR1C1 = "=IF(R[-3]C[1]=3,"" 3- Sph -->>"",""|"")" Cells(m + 32, n + 5).FormulaR1C1 = "=IF(R[-3]C=3,""s[10]r=[150;150]s2[10]phi=[0;360]s3[10]theta=[0;180]color=[8]origin[cart.]=[0;0;0]tfactor=0,003322398s"","""")" Cells(m + 32, n + 22).FormulaR1C1 = "Escala " Cells(m + 32, n + 25).FormulaR1C1 = "E5" Cells(m + 32, n + 26).FormulaR1C1 = "1" Cells(m + 33, n + 4).FormulaR1C1 = "||||||||||||||||||||||||" Cells(m + 33, n + 21).FormulaR1C1 = "Acciones:" Cells(m + 33, n + 22).FormulaR1C1 = "Desactivar el primer bot" & ChrW(243) & "n izquierdo de A6." Cells(m + 34, n + 22).FormulaR1C1 = "Oprimir <<-- y luego >>." Cells(m + 36, n + 21).FormulaR1C1 = "Para ver u ocultar la parte imaginaria, el campo el" & ChrW(233) & "ctrico o el campo magn" & ChrW(233) & "tico utilice los " Cells(m + 37, n + 21).FormulaR1C1 = "valores 0 y 1 en las celdas C24, C26 y C28 respectivamente. " Cells(m + 39, n + 21).FormulaR1C1 = "Para salir de MODO CAMPO elimine el contenido de G41 y coloque B11=I5*100000 y B20=I5*100000" Cells(m + 41, n + 21).FormulaR1C1 = "Experimente cambiando la frecuencia, la unidad de tiempo y otros par" & ChrW(225) & "metros. Tenga mucho cuidado" Cells(m + 42, n + 21).FormulaR1C1 = "al cambiar valores de celdas que contienen f" & ChrW(243) & "rmulas. " Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_31_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 31_Plane wave_EN ' Updated: 30/06/24 ' Created by: Ariel Becerra (26/04/24) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 31 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 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "600" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "0.000105" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel Becerra (26/04/24)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "i" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "40" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "1" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "x" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "E" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15.0042" 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;î" & 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 2 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "E" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "E" Cells(m + 3, n + 5).FormulaR1C1 = "15.0042" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[34]C[4]=1,R[35]C[4],IF(R[34]C[4]=2,R[36]C[4],IF(R[34]C[4]=3,R[37]C[4],"""")))" Cells(m + 4, n + 12).FormulaR1C1 = "PROPAGATION OF A PLANE ELECTROMAGNETIC WAVE" Cells(m + 4, n + 24).FormulaR1C1 = "INSTRUCTIONS" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[18]C[4]" 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 = "INITIAL DATA" Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-6]C[7]*100000" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 4).FormulaR1C1 = "H_0 =" Cells(m + 8, n + 5).FormulaR1C1 = "100" Cells(m + 8, n + 21).FormulaR1C1 = "In the model, the propagation of a plane electromagnetic wave is studied in a simple way, " Cells(m + 9, n + -1).FormulaR1C1 = "=IF(R[12]C[6]=0,RC[6]*IMAGINARY(IMEXP(COMPLEX(0,(R[1]C[6]*R[-7]C[8]-R[6]C[6]*R[-1]C[1])))),0)" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=RC[4]*IMREAL(IMEXP(COMPLEX(0,(R[1]C[4]*R[-7]C[6]-R[6]C[4]*R[-1]C[-1]))))" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "E_0 =" Cells(m + 9, n + 5).FormulaR1C1 = "100" Cells(m + 9, n + 21).FormulaR1C1 = "whose electric and magnetic fields are perpendicular to each other and perpendicular to 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 = "w =" Cells(m + 10, n + 5).FormulaR1C1 = "10000000" Cells(m + 10, n + 21).FormulaR1C1 = "direction of propagation. In the case of propagation in the positive direction of the x axis, " Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "c =" Cells(m + 11, n + 5).FormulaR1C1 = "300000000" Cells(m + 11, n + 21).FormulaR1C1 = "the electric and magnetic fields have the form:" Cells(m + 3, n + 1).Interior.Color = "3506772" Cells(m + 3, n + 1).Font.Size = "12" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "H" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "H" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[25]C[4]=1,R[26]C[4],IF(R[25]C[4]=2,R[27]C[4],IF(R[25]C[4]=3,R[28]C[4],"""")))" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "=R[11]C[4]" Cells(m + 5, n + 4).FormulaR1C1 = "Wave vector:" Cells(m + 5, n + 23).FormulaR1C1 = "E = E_0 exp[i(wt-kx)]" Cells(m + 6, n + 4).FormulaR1C1 = "k=" Cells(m + 6, n + 5).FormulaR1C1 = "=R[-5]C/R[-4]C" Cells(m + 6, n + 23).FormulaR1C1 = "H = H_0 exp[i(wt-kx)]." 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 + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "=R[-15]C[7]*100000" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-10]C[6]*IMREAL(IMEXP(COMPLEX(0,(R[-8]C[6]*R[-16]C[8]-R[-3]C[6]*R[-1]C[1]))))" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[3]C[4]=0,R[-10]C[4]*IMAGINARY(IMEXP(COMPLEX(0,(R[-8]C[4]*R[-16]C[6]-R[-3]C[4]*R[-10]C[-1])))),0)" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "SHOW:" Cells(m + 9, n + 21).FormulaR1C1 = "These formulas are entered for E in cells C12 (real part) and A12 (imaginary part), and " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-9]C" Cells(m + 10, n + 4).FormulaR1C1 = "YES=0, NO=1" Cells(m + 10, n + 21).FormulaR1C1 = "for H in A21 (real part) and C21 (imaginary part)." Cells(m + 11, n + -1).FormulaR1C1 = "4" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Imaginary part:" Cells(m + 11, n + 21).FormulaR1C1 = "Initial data:" Cells(m + 3, n + 1).Interior.Color = "16718985" Cells(m + 3, n + 1).Font.Size = "12" 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 = 2 End If ' vector ends If m = m1 + 9 Then Cells(m + 12, n + 5).FormulaR1C1 = "1" Cells(m + 12, n + 22).FormulaR1C1 = "Magnitude" Cells(m + 12, n + 24).FormulaR1C1 = "Label" Cells(m + 12, n + 25).FormulaR1C1 = "Value in" Cells(m + 12, n + 26).FormulaR1C1 = "Numeric value" Cells(m + 13, n + 4).FormulaR1C1 = "electric field" Cells(m + 14, n + 5).FormulaR1C1 = "0" Cells(m + 14, n + 22).FormulaR1C1 = "Initial amplitude of H" Cells(m + 14, n + 24).FormulaR1C1 = "H_0 =" Cells(m + 14, n + 25).FormulaR1C1 = "G11" Cells(m + 14, n + 26).FormulaR1C1 = "100" Cells(m + 15, n + 4).FormulaR1C1 = "Magnetic field:" Cells(m + 15, n + 22).FormulaR1C1 = "Initial amplitude of E" Cells(m + 15, n + 24).FormulaR1C1 = "E_0 =" Cells(m + 15, n + 25).FormulaR1C1 = "G12" Cells(m + 15, n + 26).FormulaR1C1 = "100" Cells(m + 16, n + 5).FormulaR1C1 = "0" Cells(m + 16, n + 22).FormulaR1C1 = "Frequency" Cells(m + 16, n + 24).FormulaR1C1 = "w =" Cells(m + 16, n + 25).FormulaR1C1 = "G13" Cells(m + 16, n + 26).FormulaR1C1 = "10000000" Cells(m + 17, n + 2).FormulaR1C1 = "=IF(R[-13]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 17, n + 22).FormulaR1C1 = "Speed __of light:" Cells(m + 17, n + 24).FormulaR1C1 = "c =" Cells(m + 17, n + 25).FormulaR1C1 = "G14" Cells(m + 17, n + 26).FormulaR1C1 = "300000000" Cells(m + 18, n + 2).FormulaR1C1 = "=IF(R[-14]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 18, n + 22).FormulaR1C1 = "wave vector" Cells(m + 18, n + 24).FormulaR1C1 = "k=" Cells(m + 18, n + 25).FormulaR1C1 = "G19" Cells(m + 18, n + 26).FormulaR1C1 = "w/c" Cells(m + 20, n + 21).FormulaR1C1 = "View 1:" Cells(m + 20, n + 22).FormulaR1C1 = "VECTOR MODE:" Cells(m + 20, n + 25).FormulaR1C1 = "G41" Cells(m + 20, n + 26).FormulaR1C1 = "0" Cells(m + 21, n + 22).FormulaR1C1 = "Time unit:" Cells(m + 21, n + 24).FormulaR1C1 = "t" Cells(m + 21, n + 25).FormulaR1C1 = "I3" Cells(m + 21, n + 26).FormulaR1C1 = "0.000105" Cells(m + 22, n + 22).FormulaR1C1 = "No. of steps:" Cells(m + 22, n + 24).FormulaR1C1 = "Step" Cells(m + 22, n + 25).FormulaR1C1 = "I4" Cells(m + 22, n + 26).FormulaR1C1 = "40" Cells(m + 23, n + 22).FormulaR1C1 = "Coordinate:" Cells(m + 23, n + 24).FormulaR1C1 = "x (for E)" Cells(m + 23, n + 25).FormulaR1C1 = "B11" Cells(m + 23, n + 26).FormulaR1C1 = " =I5*100000" Cells(m + 24, n + 22).FormulaR1C1 = "Coordinate:" Cells(m + 24, n + 24).FormulaR1C1 = "x (for H)" Cells(m + 24, n + 25).FormulaR1C1 = "B20" Cells(m + 24, n + 26).FormulaR1C1 = " =I5*100000" Cells(m + 25, n + 22).FormulaR1C1 = "Scale" Cells(m + 25, n + 25).FormulaR1C1 = "E5" Cells(m + 25, n + 26).FormulaR1C1 = "1" Cells(m + 26, n + 4).FormulaR1C1 = "TYPE OF" Cells(m + 26, n + 21).FormulaR1C1 = "Actions:" Cells(m + 26, n + 22).FormulaR1C1 = "Press <<-- and then >>." Cells(m + 27, n + 4).FormulaR1C1 = "COORDINATES:" Cells(m + 27, n + 22).FormulaR1C1 = "To record the path, press the first left button on A6 before >>." Cells(m + 28, n + 4).FormulaR1C1 = "=IF(R[1]C[1]=0,""Ingrese P(x,y,z) en A11, B11, C11"","""")" Cells(m + 29, n + 4).FormulaR1C1 = "0, 1, 2 — 3:" Cells(m + 29, n + 5).FormulaR1C1 = "0" Cells(m + 29, n + 21).FormulaR1C1 = "View 2" Cells(m + 29, n + 22).FormulaR1C1 = "FIELD MODE" Cells(m + 29, n + 25).FormulaR1C1 = "G41" Cells(m + 29, n + 26).FormulaR1C1 = "1" Cells(m + 30, n + 4).FormulaR1C1 = "=IF(R[-1]C[1]=1,"" 1- Cart.-->>"",""|"")" Cells(m + 30, n + 5).FormulaR1C1 = "=IF(R[-1]C=1,""o[2]x=[0;0]o2[7]y=[0;600]o3[2]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,002297794s"","""")" Cells(m + 30, n + 6).FormulaR1C1 = " " Cells(m + 30, n + 22).FormulaR1C1 = "Time unit:" Cells(m + 30, n + 25).FormulaR1C1 = "I3" Cells(m + 30, n + 26).FormulaR1C1 = "0.000105" Cells(m + 31, n + 4).FormulaR1C1 = "=IF(R[-2]C[1]=2,"" 2- Cyl -->>"",IF(R[-2]C[1]=3,"""",IF(R[-2]C[1]=1,"""",""|"")))" Cells(m + 31, n + 5).FormulaR1C1 = "=IF(R[-2]C=2,""c[10]rho=[90;90]c2[10]phi=[0;360]c3[10]z=[-200;200]color=[8]origin[cart.]=[0;0;0]tfactor=0,00323606s"","""")" Cells(m + 31, n + 22).FormulaR1C1 = "No. of steps:" Cells(m + 31, n + 25).FormulaR1C1 = "I4" Cells(m + 31, n + 26).FormulaR1C1 = "40" Cells(m + 32, n + 4).FormulaR1C1 = "=IF(R[-3]C[1]=3,"" 3- Sph -->>"",""|"")" Cells(m + 32, n + 5).FormulaR1C1 = "=IF(R[-3]C=3,""s[10]r=[150;150]s2[10]phi=[0;360]s3[10]theta=[0;180]color=[8]origin[cart.]=[0;0;0]tfactor=0,003322398s"","""")" Cells(m + 32, n + 22).FormulaR1C1 = "Scale" Cells(m + 32, n + 25).FormulaR1C1 = "E5" Cells(m + 32, n + 26).FormulaR1C1 = "1" Cells(m + 33, n + 4).FormulaR1C1 = "||||||||||||||||||||||||" Cells(m + 33, n + 21).FormulaR1C1 = "Actions:" Cells(m + 33, n + 22).FormulaR1C1 = "Disable the first left button of A6." Cells(m + 34, n + 22).FormulaR1C1 = "Press <<-- and then >>." Cells(m + 36, n + 21).FormulaR1C1 = "To view or hide the imaginary part, the electric field or the magnetic field use the values __0 " Cells(m + 37, n + 21).FormulaR1C1 = "and 1 in cells C24, C26 and C28 respectively." Cells(m + 39, n + 21).FormulaR1C1 = "To exit FIELD MODE delete the content of G41 and set B11=I5*100000 and B20=I5*100000." Cells(m + 41, n + 21).FormulaR1C1 = "Experiment by changing the frequency, time unit and other parameters. Be very careful when " Cells(m + 42, n + 21).FormulaR1C1 = "changing values __in cells that contain formulas." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_32_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 32_Toroid_EN ' Updated: 18/02/25 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 32 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 - 1, n1).Value = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,51)" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",27*R[38]C[4]+23,77)" 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 (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 2,492188 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "2500" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "B" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO MAGNƒTICO DE UNA CORRIENTE" & Chr(10) & _ " ÊÊ Ê El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn_tico de un segmento de corriente de forma casi arbitraria" & Chr(10) & _ " ÊÊ Ê El campo magn_tico dB de un elemento infinitesimal de corriente IdL en cualquier punto del espacio a una distancia r del elemento de corriente se calcula por la f—rmula de Biot-Savart:" & Chr(10) & _ " ÊÊ Ê dB=K[IdL x r]/r^3," & Chr(10) & _ " ÊÊ Ê en donde K es una constante que depende del sistema de unidades. El campo resultante de varios elementos de corriente es la suma vectorial de cada uno de los campos. En el presente modelo se analiza inicialmente el campo de 6 elementos de corriente y luego el usuario le puede agregar m‡s elementos a la corriente y cambiar su forma con ayuda de los ‡ngulos phi y theta. Las coordenadas del campo resultante B se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G11 (cuando el valor de E9=0)." & Chr(10) & _ " ÊÊ Ê La posici—n inicial de la corriente y su orientaci—n se pueden modificar en las celdas E22, E23, E24 y E25, la magnitud de la corriente y su signo enÊ E26,Ê y la constante K de la ley de Biot-Savart en E27.Ê La forma del alambre se puede moldear cambiando el ‡ngulo inicial phi en E29 y su incremento en F29 (cada dL se va orientando progresivamente con este incremento), lo mismo para el ‡ngulo theta en E30 y su incremento en F30." & Chr(10) & _ " ÊÊ Ê Para visualizar u ocultar los radios de cada dLÊ utilice la celda E16 con valores de 0 a 1: E16=0 visible y E16=1 invisible; lo mismo con la celda E17 para losÊ vectores campo magn_tico de cada dB." & Chr(10) & _ " ÊÊ Ê Para visualizar el campo magn_tico en una regi—n del espacio en diferentes tipos de coordenadas utilice la celda E9: E9=0 para calcular el campo en un punto espec’fico del espacio, indicando el punto del espacio en las celdas A11, B11 y C11. Ingrese E9=1 para visualizar el campo en coordenadas cartesianas, y los par‡metros de visualizaci—n se modifican en la cadena de valores de E10. Ingrese E9=2 para visualizar en coordenadas cil’ndricas, y sus par‡metros en E11. Ingrese E9=3 para coordenadas esf_ricas, cambiando sus par‡metros en E12." & Chr(10) & _ " AGREGAR NUEVOS ELEMENTOS dL:" & Chr(10) & _ " ÊÊ Ê Para agregar un elemento m‡s de corriente, copie las filas enteras de la hoja desde la 51 hasta la 77 y p_guelas despu_s de la œltima fila. Oprima cualquier bot—n de visualizaci—n para ver resultados, la cantidad de elementos de corriente se muestra en la celda E19. Repita este procedimiento para agregar m‡s dL a la corriente. Entre m‡s elementos dL tenga la corriente su campo magn_tico resultante se va pareciendo m‡s al real. La longitud de cada dL se puede modificar en E28.Ê" & Chr(10) & _ " Por ejemplo para dibujar una espira con corriente con 36 elementos dL, copie desde la fila 51 hasta la 77 y pegue al final 30 veces hasta que E19 tenga el valor de 36, luego coloque theta E30 =90 e incremente phi F29=10. Oprima XYZ. Los elementos van reorient‡ndose de 10 en 10 grados hasta que los 36 elementos forman un c’rculo.Ê" & Chr(10) & _ " AGREGAR UNA NUEVA DISTRIBUCIîN:Ê" & Chr(10) & _ " Se puede agregar una nueva distribuci—n independiente (por ejemplo otro c’rculo con corriente). Para ello haga una copia de la hoja (click derecho sobre el nombre de la hoja, luego seleccione mover o copiar, y luego crear una copia). Vaya a la hoja copiada, seleccione las filas completas desde la 15 hasta la œltima, corte y vaya a la hoja original y pegue despu_s de la œltima fila. Elimine la hoja copiada y en la hoja original corrija las f—rmulas que tienen direcci—n hacia la hoja borrada, estas on el nœmero del vector a y su posici—n.Ê" & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 3, n + 9).FormulaR1C1 = "Some vectors have been R E D U C E D! Set the scale in cell B8" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Magnetic field of a toroid" Cells(m + 4, n + 12).FormulaR1C1 = "BIOT-SAVART LAW" 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 + 12).FormulaR1C1 = "MAGNETIC INDUCTION OF TOROIDS AND SOLENOIDS" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""B*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""B*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""B*"")" Cells(m + 6, n + 4).FormulaR1C1 = "RESULT (Do not modify):" 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 = " Field magnitude:" Cells(m + 7, n + 4).FormulaR1C1 = " |B| =" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(R[-3]C[-4]="""",SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),"""")" Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "0.04" Cells(m + 8, n + 1).FormulaR1C1 = "0.01" Cells(m + 8, n + 2).FormulaR1C1 = "<<-- Point of field B" Cells(m + 8, n + 21).FormulaR1C1 = "MAGNETIC FIELD OF TOROIDAL CURRENTS" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "<< - B_x, B_y, B_z" Cells(m + 9, n + 21).FormulaR1C1 = "The objective of this model is to understand the Biot-Savart law and calculate the magnetic " 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 = "field of currents in a toroidal form." 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 = "DATA (unit):" Cells(m + 11, n + 19).FormulaR1C1 = "=IF(R[-1]C[-19]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + 21).FormulaR1C1 = "The magnetic induction vector dB of an infinitesimal current element IdL at any point in space " Cells(m + 3, n + 1).Interior.Color = "13434777" 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 = "a" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "a" Cells(m + 3, n + 4).FormulaR1C1 = " K =" Cells(m + 3, n + 5).FormulaR1C1 = "0.0000001" Cells(m + 3, n + 19).FormulaR1C1 = "=IF(R[-2]C[-19]>0,""<-- use these cells."","""")" Cells(m + 3, n + 21).FormulaR1C1 = "at a distance r from the current element is calculated by the Biot-Savart formula:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = " I(A) =" Cells(m + 4, n + 5).FormulaR1C1 = "10000" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 2).FormulaR1C1 = "For solenoid: r = 0" Cells(m + 5, n + 4).FormulaR1C1 = " r(m) =" Cells(m + 5, n + 5).FormulaR1C1 = "0.01" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-28-1)" Cells(m + 6, n + 4).FormulaR1C1 = " R(m) =" Cells(m + 6, n + 5).FormulaR1C1 = "0.04" Cells(m + 7, n + -1).FormulaR1C1 = "=R[3]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[4]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = " N =" 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 = " Alpha =" Cells(m + 8, n + 5).FormulaR1C1 = "0" Cells(m + 8, n + 21).FormulaR1C1 = "where K is a constant that depends on the system of units. The resulting vector of several" Cells(m + 9, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7))*COS(RADIANS(R28C7))+R18C7*COS(RADIANS(R27C7))+R19C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7))*COS(RADIANS(R28C7))+R18C7*SIN(RADIANS(R27C7))+R19C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7))+R19C3" Cells(m + 9, n + 2).FormulaR1C1 = "For toroid: L = 0" Cells(m + 9, n + 4).FormulaR1C1 = "L (solen.) =" Cells(m + 9, n + 5).FormulaR1C1 = "0" Cells(m + 9, n + 21).FormulaR1C1 = "current elements is the vector sum of each of the fields, that is, for n current elements 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 + 2).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " x_o =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "resulting field is" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = " y_o =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = "dL" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "dL" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 4).FormulaR1C1 = " z_o =" Cells(m + 3, n + 5).FormulaR1C1 = "0.01" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-28-2)" 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 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "INCLINATION" Cells(m + 6, n + 4).FormulaR1C1 = " phi =" Cells(m + 6, n + 5).FormulaR1C1 = "90" Cells(m + 6, n + 21).FormulaR1C1 = "When the number of elements tends to infinity and the length of each of them tends to zero, " Cells(m + 7, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3+R21C7/R41C7*R[-4]C" Cells(m + 7, n + 4).FormulaR1C1 = " theta =" Cells(m + 7, n + 5).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "this sum becomes an integral. In the present model, however, finite magnitudes and quantities " Cells(m + 8, n + 4).FormulaR1C1 = "FLEXION (AUTO):" Cells(m + 8, n + 21).FormulaR1C1 = "are used. The units of the model are in the International System. Initially there is a single loop with three " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C-R[-2]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C-R[-2]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C-R[-2]C" Cells(m + 9, n + 4).FormulaR1C1 = "Azimuth =" Cells(m + 9, n + 5).FormulaR1C1 = "=IF(R[-13]C=0,360*R[-11]C/R[11]C,R[-10]C/R[11]C)" Cells(m + 9, n + 21).FormulaR1C1 = "current elements. The reader can add more elements and change the radii, number of loops " Cells(m + 10, n + -1).FormulaR1C1 = "=IF(R[-15]C[6]<0,3,1)" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " Elev. =" Cells(m + 10, n + 5).FormulaR1C1 = "=360*R[-12]C/R[10]C" Cells(m + 10, n + 21).FormulaR1C1 = "and angle of the toroid. The coordinates of the resulting vector B are seen in cells A12=Bx, " Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R[-16]C[6]>0,3,1)" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "B12=By and C12=Bz and its magnitude in G10. The position of the center of the toroid can " Cells(m + 3, n + 1).Interior.Color = "6740479" 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 = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = "VISUALIZE:" Cells(m + 3, n + 21).FormulaR1C1 = "be modified in cells G22, G23 and G24, its inclination angles in G27 and G28. The magnitude of " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "the current and its sign are modified in G16, the constant K of the Biot-Savart law in G15, the " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R[1]C[4]" Cells(m + 5, n + 4).FormulaR1C1 = "Show hide:" Cells(m + 5, n + 21).FormulaR1C1 = "radius of the loops in G17 and the radius of the toroid in G18." Cells(m + 6, n + 0).FormulaR1C1 = "=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 4).FormulaR1C1 = "radii:" Cells(m + 6, n + 5).FormulaR1C1 = "1" 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 + 4).FormulaR1C1 = "dB:" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 7, n + 21).FormulaR1C1 = "To show or hide the radii of each dL use cell G36 with values __from 0 to 1: G36 =0 visible and " Cells(m + 8, n + -1).FormulaR1C1 = "B fiel radious" Cells(m + 8, n + 21).FormulaR1C1 = "G36 =1 invisible; the same with cell G37 for the dB magnetic field vectors of each dL. " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-29]C-R[-11]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-29]C-R[-11]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-11]C" Cells(m + 9, n + 21).FormulaR1C1 = "To display the magnetic field in a region of space in different types of coordinates use 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 = "dL Qty:" Cells(m + 10, n + 21).FormulaR1C1 = "cell C7:C7 empty to calculate the field at a specific point in space, indicating the point " 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 = " n =" Cells(m + 11, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""B""&R[2]C&""_*"")" Cells(m + 11, n + 21).FormulaR1C1 = "in space in cells A11, B11 and C11. Enter C7 =o (lowercase letter without the equal sign) " Cells(m + 3, n + 1).Interior.Color = "11826222" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "to display the field in Cartesian coordinates, in this same cell you can modify the parameters. " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "Toroid No. :" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "Enter C7 =c to display in cylindrical coordinates and their parameters. Finally C7 =s (without " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "the equal sign) for spherical coordinates, changing its parameters after pressing XYZ." 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 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 21).FormulaR1C1 = "ADD NEW dL ELEMENTS:" Cells(m + 8, n + 21).FormulaR1C1 = "To add a current element press the +OBJ button and to remove it -OBJ. The number of current " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 21).FormulaR1C1 = "elements for the toroid is shown in cell G41. The more dL elements the current has, the more " 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 = "its resulting magnetic field resembles the real one. To add or remove several elements at " Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "the same time, indicate in cell B2 the number of elements before pressing the respective " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "button, this number must be an integer." 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 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "DUPLICATE A TOROID:" Cells(m + 7, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3+R21C7/R41C7*R[-4]C" Cells(m + 7, n + 21).FormulaR1C1 = "The model allows you to clone toroids and change the parameters of the cloned toroid. To " Cells(m + 8, n + 21).FormulaR1C1 = "do this, enter B2=ENTIRE, B3=15 and in C3 write the number of the last non-empty and uncolored " Cells(m + 9, n + -1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 21).FormulaR1C1 = "row of column A, which depends on how many elements the original toroid has. Press the +OBJ " 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 = "button. The new toroid will be added, whose parameters can be observed and modified " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 21).FormulaR1C1 = "in column G at the end of the sheet. In the cell next to ""No. of toroid"" write the consecutive " Cells(m + 3, n + 1).Interior.Color = "6740479" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "number for the new toroid. Change the position and parameters of the new toroid so that it " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "can be observed in the coordinate system. To add a second toroid, keeping the values __" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "of B2, B3 and C3 press +OBJ. Likewise to delete a cloned object with the values __of B2, B3 " Cells(m + 6, n + 0).FormulaR1C1 = "=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 21).FormulaR1C1 = "and C3 already set simply press -OBJ." 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 + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 21).FormulaR1C1 = "EXAMPLE 1:" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "Calculate the magnetic induction vector in the center of a toroid with radius of the loop " Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "r =1 cm, radius of the toroid R=4 cm, number of loops N=30, distributed at an angle of 270 " Cells(m + 3, n + 1).Interior.Color = "11826222" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "degrees. The number of current elements that make up the entire toroid is 360. " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "The current is 10,000 A." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 6, n + 21).FormulaR1C1 = "Spatial point where vector B is calculated:" 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 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 22).FormulaR1C1 = "x_o = " Cells(m + 7, n + 23).FormulaR1C1 = " A11 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 22).FormulaR1C1 = "y_o = " Cells(m + 8, n + 23).FormulaR1C1 = " B11 = " Cells(m + 8, n + 24).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 22).FormulaR1C1 = "z_o = " Cells(m + 9, n + 23).FormulaR1C1 = " C11 = " Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 21).FormulaR1C1 = "PARAMETERS:" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Scale:" Cells(m + 3, n + 23).FormulaR1C1 = " E5 = " Cells(m + 3, n + 24).FormulaR1C1 = "2500" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Step:" Cells(m + 4, n + 23).FormulaR1C1 = " I3 = " Cells(m + 4, n + 24).FormulaR1C1 = "8" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 22).FormulaR1C1 = "No. of steps:" Cells(m + 5, n + 23).FormulaR1C1 = " I4 = " Cells(m + 5, n + 24).FormulaR1C1 = "45" Cells(m + 6, n + 22).FormulaR1C1 = " K =" Cells(m + 6, n + 23).FormulaR1C1 = " G15 = " Cells(m + 6, n + 24).FormulaR1C1 = "0.0000001" Cells(m + 7, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3+R21C7/R41C7*R[-4]C" Cells(m + 7, n + 22).FormulaR1C1 = " I (A) =" Cells(m + 7, n + 23).FormulaR1C1 = " G16 = " Cells(m + 7, n + 24).FormulaR1C1 = "10000" Cells(m + 8, n + 22).FormulaR1C1 = " r (m) =" Cells(m + 8, n + 23).FormulaR1C1 = " G17 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.01" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 22).FormulaR1C1 = " R (m) =" Cells(m + 9, n + 23).FormulaR1C1 = " G18 = " Cells(m + 9, n + 24).FormulaR1C1 = "0.04" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 22).FormulaR1C1 = " N =" Cells(m + 10, n + 23).FormulaR1C1 = " G19 = " Cells(m + 10, n + 24).FormulaR1C1 = "30" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 22).FormulaR1C1 = " Alpha =" Cells(m + 11, n + 23).FormulaR1C1 = " G20 = " Cells(m + 11, n + 24).FormulaR1C1 = "270" Cells(m + 3, n + 1).Interior.Color = "6740479" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = " x_o =" Cells(m + 3, n + 23).FormulaR1C1 = " G22 = " Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = " y_o =" Cells(m + 4, n + 23).FormulaR1C1 = " G23 = " Cells(m + 4, n + 24).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 22).FormulaR1C1 = " z_o =" Cells(m + 5, n + 23).FormulaR1C1 = " G24 = " Cells(m + 5, n + 24).FormulaR1C1 = "0.01" Cells(m + 6, n + 0).FormulaR1C1 = "=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 22).FormulaR1C1 = " phi =" Cells(m + 6, n + 23).FormulaR1C1 = " G27 = " Cells(m + 6, n + 24).FormulaR1C1 = "90" 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 + 22).FormulaR1C1 = " theta =" Cells(m + 7, n + 23).FormulaR1C1 = " G28 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "To add the 360 __current elements, it is taken into account that the current number is G41=3, " Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "therefore an additional 357 must be added:" Cells(m + 3, n + 1).Interior.Color = "11826222" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 90 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Amount:" Cells(m + 3, n + 23).FormulaR1C1 = " B2 = " Cells(m + 3, n + 24).FormulaR1C1 = "357" Cells(m + 3, n + 26).FormulaR1C1 = "Note: Rows 51 through " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Initial row:" Cells(m + 4, n + 23).FormulaR1C1 = " B3 = " Cells(m + 4, n + 24).FormulaR1C1 = "51" Cells(m + 4, n + 26).FormulaR1C1 = "77 contain the current " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 22).FormulaR1C1 = "Final row:" Cells(m + 5, n + 23).FormulaR1C1 = " C3 = " Cells(m + 5, n + 24).FormulaR1C1 = "77" Cells(m + 5, n + 26).FormulaR1C1 = "prototype element." 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 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 21).FormulaR1C1 = "Note: This large number of items may cause the PC to take a few seconds or even " Cells(m + 8, n + 21).FormulaR1C1 = "minutes to put them into the spreadsheet." Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "Press +OBJ to get the results." Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" 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 = "" Cells(m1 + 2, n1 - 1).Value = 11 End If ' vector ends If m = m1 + 90 Then Cells(m + 12, n + 21).FormulaR1C1 = "The coordinates of the resulting field are observed in cells A12, B12, C12, and its magnitude " Cells(m + 13, n + 21).FormulaR1C1 = "in G10. You can change the field observation point at A11, B11, C11, for example A11=-0.01, " Cells(m + 14, n + 21).FormulaR1C1 = "B11= 0.04, C11= 0.01 to see the field inside the loops." Cells(m + 17, n + 21).FormulaR1C1 = "EXAMPLE 2:" Cells(m + 18, n + 21).FormulaR1C1 = "In the example above, reduce the number of elements to 180 and arrange them at an " Cells(m + 19, n + 21).FormulaR1C1 = "angle of 130 degrees." Cells(m + 20, n + 21).FormulaR1C1 = "Solution. With B2=180, B3=51 and C3=77 press -OBJ to remove 180 elements. Change " Cells(m + 22, n + 22).FormulaR1C1 = " Alpha =" Cells(m + 22, n + 23).FormulaR1C1 = " G20 = " Cells(m + 22, n + 24).FormulaR1C1 = "135" Cells(m + 24, n + 21).FormulaR1C1 = "EXAMPLE 3:" Cells(m + 25, n + 21).FormulaR1C1 = "Observe the field in Cartesian coordinates in a region of space." Cells(m + 26, n + 21).FormulaR1C1 = "Solution: Enter C7=o (lowercase letter and without the equal sign. Press XYZ and wait " Cells(m + 27, n + 21).FormulaR1C1 = "a few minutes while the field is rendered." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_32_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 32_Toroide_ES ' Updated: 18/02/25 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 32 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 - 1, n1).Value = "1" Cells(m1 + 0, n1 + 0).FormulaR1C1 = "=IF(R[-1]C=""ENTIRE"",15,51)" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "=IF(R[-1]C[-1]=""ENTIRE"",27*R[38]C[4]+23,77)" 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 (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "45" Cells(m1 + 2, n1 + 0).FormulaR1C1 = "t = 0,06640625 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "2500" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=CONFIG!R5C6" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "B" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "CAMPO MAGNƒTICO DE UNA CORRIENTE" & Chr(10) & _ " ÊÊ Ê El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn_tico de un segmento de corriente de forma casi arbitraria" & Chr(10) & _ " ÊÊ Ê El campo magn_tico dB de un elemento infinitesimal de corriente IdL en cualquier punto del espacio a una distancia r del elemento de corriente se calcula por la f—rmula de Biot-Savart:" & Chr(10) & _ " ÊÊ Ê dB=K[IdL x r]/r^3," & Chr(10) & _ " ÊÊ Ê en donde K es una constante que depende del sistema de unidades. El campo resultante de varios elementos de corriente es la suma vectorial de cada uno de los campos. En el presente modelo se analiza inicialmente el campo de 6 elementos de corriente y luego el usuario le puede agregar m‡s elementos a la corriente y cambiar su forma con ayuda de los ‡ngulos phi y theta. Las coordenadas del campo resultante B se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G11 (cuando el valor de E9=0)." & Chr(10) & _ " ÊÊ Ê La posici—n inicial de la corriente y su orientaci—n se pueden modificar en las celdas E22, E23, E24 y E25, la magnitud de la corriente y su signo enÊ E26,Ê y la constante K de la ley de Biot-Savart en E27.Ê La forma del alambre se puede moldear cambiando el ‡ngulo inicial phi en E29 y su incremento en F29 (cada dL se va orientando progresivamente con este incremento), lo mismo para el ‡ngulo theta en E30 y su incremento en F30." & Chr(10) & _ " ÊÊ Ê Para visualizar u ocultar los radios de cada dLÊ utilice la celda E16 con valores de 0 a 1: E16=0 visible y E16=1 invisible; lo mismo con la celda E17 para losÊ vectores campo magn_tico de cada dB." & Chr(10) & _ " ÊÊ Ê Para visualizar el campo magn_tico en una regi—n del espacio en diferentes tipos de coordenadas utilice la celda E9: E9=0 para calcular el campo en un punto espec’fico del espacio, indicando el punto del espacio en las celdas A11, B11 y C11. Ingrese E9=1 para visualizar el campo en coordenadas cartesianas, y los par‡metros de visualizaci—n se modifican en la cadena de valores de E10. Ingrese E9=2 para visualizar en coordenadas cil’ndricas, y sus par‡metros en E11. Ingrese E9=3 para coordenadas esf_ricas, cambiando sus par‡metros en E12." & Chr(10) & _ " AGREGAR NUEVOS ELEMENTOS dL:" & Chr(10) & _ " ÊÊ Ê Para agregar un elemento m‡s de corriente, copie las filas enteras de la hoja desde la 51 hasta la 77 y p_guelas despu_s de la œltima fila. Oprima cualquier bot—n de visualizaci—n para ver resultados, la cantidad de elementos de corriente se muestra en la celda E19. Repita este procedimiento para agregar m‡s dL a la corriente. Entre m‡s elementos dL tenga la corriente su campo magn_tico resultante se va pareciendo m‡s al real. La longitud de cada dL se puede modificar en E28.Ê" & Chr(10) & _ " Por ejemplo para dibujar una espira con corriente con 36 elementos dL, copie desde la fila 51 hasta la 77 y pegue al final 30 veces hasta que E19 tenga el valor de 36, luego coloque theta E30 =90 e incremente phi F29=10. Oprima XYZ. Los elementos van reorient‡ndose de 10 en 10 grados hasta que los 36 elementos forman un c’rculo.Ê" & Chr(10) & _ " AGREGAR UNA NUEVA DISTRIBUCIîN:Ê" & Chr(10) & _ " Se puede agregar una nueva distribuci—n independiente (por ejemplo otro c’rculo con corriente). Para ello haga una copia de la hoja (click derecho sobre el nombre de la hoja, luego seleccione mover o copiar, y luego crear una copia). Vaya a la hoja copiada, seleccione las filas completas desde la 15 hasta la œltima, corte y vaya a la hoja original y pegue despu_s de la œltima fila. Elimine la hoja copiada y en la hoja original corrija las f—rmulas que tienen direcci—n hacia la hoja borrada, estas on el nœmero del vector a y su posici—n.Ê" & Chr(10) & _ " " On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 11 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "B" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 3, n + 9).FormulaR1C1 = "Some vectors have been R E D U C E D! Set the scale in cell B8" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 2).FormulaR1C1 = "Campo magn" & ChrW(233) & "tico de toroides" Cells(m + 4, n + 12).FormulaR1C1 = "LEY DE BIOT - SAVART" 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 + 12).FormulaR1C1 = "INDUCCI" & ChrW(211) & "N MAGN" & ChrW(201) & "TICA DE TOROIDES Y SOLENOIDES" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""B*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""B*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""B*"")" Cells(m + 6, n + 4).FormulaR1C1 = "RESULTADO (No modificar):" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 2).FormulaR1C1 = "Magnitud del campo:" Cells(m + 7, n + 4).FormulaR1C1 = " |B| =" Cells(m + 7, n + 5).FormulaR1C1 = "=IF(R[-3]C[-4]="""",SQRT(R[2]C[-6]^2+R[2]C[-5]^2+R[2]C[-4]^2),"""")" Cells(m + 8, n + -1).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "0.04" Cells(m + 8, n + 1).FormulaR1C1 = "0.01" Cells(m + 8, n + 2).FormulaR1C1 = "<<-- Punto del campo B" Cells(m + 8, n + 21).FormulaR1C1 = "CAMPO MAGN" & ChrW(201) & "TICO DE CORRIENTES TOROIDALES" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-3]C[-2]" Cells(m + 9, n + 2).FormulaR1C1 = "<< - B_x, B_y, B_z" Cells(m + 9, n + 21).FormulaR1C1 = "El objetivo de este modelo es comprender la ley de Biot-Savart y calcular el campo magn" & ChrW(233) & "tico " 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 = "de corrientes en forma toroidal." 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 = "INGRESAR DATOS:" Cells(m + 11, n + 19).FormulaR1C1 = "=IF(R[-1]C[-19]>0,"" For aditional formula (FA),"","""")" Cells(m + 11, n + 21).FormulaR1C1 = "El vector inducci" & ChrW(243) & "n magn" & ChrW(233) & "tica dB de un elemento infinitesimal de corriente IdL en cualquier punto del espacio " Cells(m + 3, n + 1).Interior.Color = "13434777" 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 = "a" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "a" Cells(m + 3, n + 4).FormulaR1C1 = " K =" Cells(m + 3, n + 5).FormulaR1C1 = "0.0000001" Cells(m + 3, n + 19).FormulaR1C1 = "=IF(R[-2]C[-19]>0,""<-- use these cells."","""")" Cells(m + 3, n + 21).FormulaR1C1 = "a una distancia r del elemento de corriente se calcula por la f" & ChrW(243) & "rmula de Biot-Savart:" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = " I (A) =" Cells(m + 4, n + 5).FormulaR1C1 = "10000" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "4" Cells(m + 5, n + 1).FormulaR1C1 = "1" Cells(m + 5, n + 2).FormulaR1C1 = " r = 0 para solenoide" Cells(m + 5, n + 4).FormulaR1C1 = " r (toro) =" Cells(m + 5, n + 5).FormulaR1C1 = "0.01" Cells(m + 5, n + 27).FormulaR1C1 = "(Eq-28-1)" Cells(m + 6, n + 2).FormulaR1C1 = " L = 0 para toroide" Cells(m + 6, n + 4).FormulaR1C1 = " R (m) =" Cells(m + 6, n + 5).FormulaR1C1 = "0.04" Cells(m + 7, n + -1).FormulaR1C1 = "=R[3]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[4]C[5]" Cells(m + 7, n + 1).FormulaR1C1 = "=R[5]C[4]" Cells(m + 7, n + 4).FormulaR1C1 = " N =" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 8, n + 4).FormulaR1C1 = " Alpha =" Cells(m + 8, n + 5).FormulaR1C1 = "0" Cells(m + 8, n + 21).FormulaR1C1 = "en donde K es una constante que depende del sistema de unidades. El vector resultante de varios " Cells(m + 9, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7))*COS(RADIANS(R28C7))+R18C7*COS(RADIANS(R27C7))+R19C1" Cells(m + 9, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7))*COS(RADIANS(R28C7))+R18C7*SIN(RADIANS(R27C7))+R19C2" Cells(m + 9, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7))+R19C3" Cells(m + 9, n + 4).FormulaR1C1 = "L (solen.) =" Cells(m + 9, n + 5).FormulaR1C1 = "0" Cells(m + 9, n + 21).FormulaR1C1 = "elementos de corriente es la suma vectorial de cada uno de los campos, es decir, para n elementos " 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 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " x_o =" Cells(m + 10, n + 5).FormulaR1C1 = "0" Cells(m + 10, n + 21).FormulaR1C1 = "de corriente el campo resultante es " Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = " y_o =" Cells(m + 11, n + 5).FormulaR1C1 = "0" Cells(m + 3, n + 1).Interior.Color = "16777215" 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 = "dL" Call AddNewVector End If ' vector ends If m = m1 + 18 Then ' vector 9 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "dL" Cells(m + 3, n + 1).FormulaR1C1 = "1" Cells(m + 3, n + 4).FormulaR1C1 = " z_o =" Cells(m + 3, n + 5).FormulaR1C1 = "0.01" Cells(m + 3, n + 27).FormulaR1C1 = "(Eq-28-2)" 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 = "0" Cells(m + 5, n + 4).FormulaR1C1 = "INCLINACI" & ChrW(211) & "N" Cells(m + 6, n + 4).FormulaR1C1 = " phi =" Cells(m + 6, n + 5).FormulaR1C1 = "90" Cells(m + 6, n + 21).FormulaR1C1 = "Cuando el n" & ChrW(250) & "mero de elementos tiende a infinito y la longitud de cada uno de ellos tiende a cero, " Cells(m + 7, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3+R21C7/R41C7*R[-4]C" Cells(m + 7, n + 4).FormulaR1C1 = " theta =" Cells(m + 7, n + 5).FormulaR1C1 = "0" Cells(m + 7, n + 21).FormulaR1C1 = "esta suma se convierte en una integral. En el presente modelo sin embargo se utilizan magnitudes " Cells(m + 8, n + 4).FormulaR1C1 = "FLEXI" & ChrW(211) & "N (AUTO):" Cells(m + 8, n + 21).FormulaR1C1 = "y cantidades finitas. Las unidades del modelo est" & ChrW(225) & "n en el sistema SI." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C-R[-2]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C-R[-2]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C-R[-2]C" Cells(m + 9, n + 4).FormulaR1C1 = "Azimut =" Cells(m + 9, n + 5).FormulaR1C1 = "=IF(R[-13]C=0,360*R[-11]C/R[11]C,R[-10]C/R[11]C)" Cells(m + 9, n + 21).FormulaR1C1 = "Inicialmente se tiene una sola espira con tres elementos de corriente. El lector puede agregar " Cells(m + 10, n + -1).FormulaR1C1 = "=IF(R[-15]C[6]<0,3,1)" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = " Elev. =" Cells(m + 10, n + 5).FormulaR1C1 = "=360*R[-12]C/R[10]C" Cells(m + 10, n + 21).FormulaR1C1 = "m" & ChrW(225) & "s elementos y cambiar los radios, n" & ChrW(250) & "mero de espiras y " & ChrW(225) & "ngulo del toroide. Las coordenadas del " Cells(m + 11, n + -1).FormulaR1C1 = "=IF(R[-16]C[6]>0,3,1)" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "2" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 21).FormulaR1C1 = "vector resultante B se ven en las celdas A12=Bx, B12=By y C12=Bz y su magnitud en G10." Cells(m + 3, n + 1).Interior.Color = "6740479" 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 = "r" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 0).FormulaR1C1 = "r" Cells(m + 3, n + 4).FormulaR1C1 = "VISUALIZAR:" Cells(m + 3, n + 21).FormulaR1C1 = "La posici" & ChrW(243) & "n del centro del toroide se pueden modificar en las celdas G22, G23 y G24, " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "sus " & ChrW(225) & "ngulos de inclinaci" & ChrW(243) & "n en G27 y G28. La magnitud de la corriente y su signo se modifican en G16" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R[1]C[4]" Cells(m + 5, n + 4).FormulaR1C1 = "Mostrar/ocultar:" Cells(m + 5, n + 21).FormulaR1C1 = "la constante K de la ley de Biot-Savart en G15, el radio de las espiras en G17 y el radio del toroide en G18." Cells(m + 6, n + 0).FormulaR1C1 = "=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 4).FormulaR1C1 = "radios:" Cells(m + 6, n + 5).FormulaR1C1 = "1" 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 + 4).FormulaR1C1 = "dB:" Cells(m + 7, n + 5).FormulaR1C1 = "1" Cells(m + 7, n + 21).FormulaR1C1 = "Para visualizar u ocultar los radios de cada dL utilice la celda G36 con valores de 0 a 1: G36 =0 visible " Cells(m + 8, n + -1).FormulaR1C1 = "B fiel radious" Cells(m + 8, n + 21).FormulaR1C1 = "y G36 =1 invisible; lo mismo con la celda G37 para los vectores campo magn" & ChrW(233) & "tico dB de cada dL." Cells(m + 9, n + -1).FormulaR1C1 = "=R[-29]C-R[-11]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-29]C-R[-11]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-11]C" Cells(m + 9, n + 21).FormulaR1C1 = "Para visualizar el campo magn" & ChrW(233) & "tico en una regi" & ChrW(243) & "n del espacio en diferentes tipos de coordenadas " 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 = "Cantidad de dL:" Cells(m + 10, n + 21).FormulaR1C1 = "utilice la celda C7: C7 vac" & ChrW(237) & "a para calcular el campo en un punto espec" & ChrW(237) & "fico del espacio, indicando " 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 = " n =" Cells(m + 11, n + 5).FormulaR1C1 = "=COUNTIF(C[-3],""B""&R[2]C&""_*"")" Cells(m + 11, n + 21).FormulaR1C1 = "el punto del espacio en las celdas A11, B11 y C11. Ingrese C7 =o (sin el signo igual) para visualizar " Cells(m + 3, n + 1).Interior.Color = "11826222" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "el campo en coordenadas cartesianas, en esta misma celda se pueden modificar los par" & ChrW(225) & "metros. " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "No. TORO:" Cells(m + 4, n + 5).FormulaR1C1 = "1" Cells(m + 4, n + 21).FormulaR1C1 = "Ingrese C7 =c para visualizar en coordenadas cil" & ChrW(237) & "ndricas y sus par" & ChrW(225) & "metros. Finalmente " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "C7 =s (sin el signo igual) para coordenadas esf" & ChrW(233) & "ricas, cambiando sus par" & ChrW(225) & "metros luego de oprimir XYZ." 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 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 21).FormulaR1C1 = "AGREGAR NUEVOS ELEMENTOS dL:" Cells(m + 8, n + 21).FormulaR1C1 = "Para agregar un elemento de corriente oprima el bot" & ChrW(243) & "n +OBJ y para eliminarlo -OBJ." Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 21).FormulaR1C1 = "La cantidad de elementos de corriente para el toroide se muestra en la celda G41. Entre m" & ChrW(225) & "s " 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 = "elementos dL tenga la corriente, su campo magn" & ChrW(233) & "tico resultante se va pareciendo m" & ChrW(225) & "s al real. " Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "Para agregar o quitar varios elementos a la vez indique en la celda B2 el nœmero de elementos " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "antes de oprimir el respectivo bot" & ChrW(243) & "n, este n" & ChrW(250) & "mero debe ser entero. " 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 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "DUPLICAR UN TOROIDE" Cells(m + 7, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3+R21C7/R41C7*R[-4]C" Cells(m + 7, n + 21).FormulaR1C1 = "El modelo permite clonar toroides y cambiar los par" & ChrW(225) & "metros del toroide clonado. Para ello introduzca" Cells(m + 8, n + 21).FormulaR1C1 = "B2=ENTIRE, B3=15 y en C3 escriba el n" & ChrW(250) & "mero de la " & ChrW(250) & "ltima fila no vac" & ChrW(237) & "a y sin color de la columna A," Cells(m + 9, n + -1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 21).FormulaR1C1 = "la cual depende de cu" & ChrW(225) & "ntos elementos tenga el toroide original. Oprima el bot" & ChrW(243) & "n +OBJ. Se agregar" & ChrW(225) & " el nuevo" 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 = "toroide, cuyos par" & ChrW(225) & "metros se podr" & ChrW(225) & "n observar y modificar en la columna G al final de la hoja. En la" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 21).FormulaR1C1 = "celda contigua a ""No. TORO"" escriba el n" & ChrW(250) & "mero consecutivo para el nuevo toroide. Cambie la posici" & ChrW(243) & "n" Cells(m + 3, n + 1).Interior.Color = "6740479" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "y los par" & ChrW(225) & "metros del nuevo toroide para poder observarlo en el sistema de coordenadas. Para agregar " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "un segundo toroide, conservando los valores de B2, B3 y C3 oprima +OBJ. De igual manera para eliminar " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 21).FormulaR1C1 = "un objeto clonado con los valores de B2, B3 y C3 ya establecidos oprima simplemente -OBJ." Cells(m + 6, n + 0).FormulaR1C1 = "=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 21).FormulaR1C1 = "OBSERVACI" & ChrW(211) & "N: Entre m" & ChrW(225) & "s elementos de corriente dL sean agregados, Excel trabajar" & ChrW(225) & " m" & ChrW(225) & "s lentamente. " 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 + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 21).FormulaR1C1 = "EJEMPLO 1:" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "Calcular el vector inducci" & ChrW(243) & "n magn" & ChrW(233) & "tica en el centro de un toroide de radio de las espiras r =1 cm, radio del toroide" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "R=4 cm, n" & ChrW(250) & "mero de espiras N=30, distribuidas en un " & ChrW(225) & "ngulo de 270 grados. El n" & ChrW(250) & "mero de elementos" Cells(m + 3, n + 1).Interior.Color = "11826222" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 63 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 21).FormulaR1C1 = "de corriente que componen todo el toroide es 360. La corriente es de 10000 A." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Para resolver el problema se modifican los siguientes par" & ChrW(225) & "metros" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 6, n + 21).FormulaR1C1 = "Punto espacial en donde se calcula el vector B:" 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 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 22).FormulaR1C1 = "x_o = " Cells(m + 7, n + 23).FormulaR1C1 = " A11 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 22).FormulaR1C1 = "y_o = " Cells(m + 8, n + 23).FormulaR1C1 = " B11 = " Cells(m + 8, n + 24).FormulaR1C1 = "0" Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 9, n + 22).FormulaR1C1 = "z_o = " Cells(m + 9, n + 23).FormulaR1C1 = " C11 = " Cells(m + 9, n + 24).FormulaR1C1 = "0" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 21).FormulaR1C1 = "PAR" & ChrW(193) & "METROS:" Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 1).FormulaR1C1 = "=R[-27]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Escala:" Cells(m + 3, n + 23).FormulaR1C1 = " E5 = " Cells(m + 3, n + 24).FormulaR1C1 = "2500" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Paso:" Cells(m + 4, n + 23).FormulaR1C1 = " I3 = " Cells(m + 4, n + 24).FormulaR1C1 = "8" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 22).FormulaR1C1 = "N° de pasos:" Cells(m + 5, n + 23).FormulaR1C1 = " I4 = " Cells(m + 5, n + 24).FormulaR1C1 = "45" Cells(m + 6, n + 22).FormulaR1C1 = " K =" Cells(m + 6, n + 23).FormulaR1C1 = " G15 = " Cells(m + 6, n + 24).FormulaR1C1 = "0.0000001" Cells(m + 7, n + -1).FormulaR1C1 = "=R17C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))*COS(RADIANS(R28C7+R31C7*R[-4]C[2]))+R18C7*COS(RADIANS(R27C7+R30C7*R[-4]C[2]))+R19C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R17C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))*COS(RADIANS(R28C7+R31C7*R[-4]C[1]))+R18C7*SIN(RADIANS(R27C7+R30C7*R[-4]C[1]))+R19C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R17C7*SIN(RADIANS(R28C7+R31C7*R[-4]C))+R19C3+R21C7/R41C7*R[-4]C" Cells(m + 7, n + 22).FormulaR1C1 = " I (A) =" Cells(m + 7, n + 23).FormulaR1C1 = " G16 = " Cells(m + 7, n + 24).FormulaR1C1 = "10000" Cells(m + 8, n + 22).FormulaR1C1 = " r (m) =" Cells(m + 8, n + 23).FormulaR1C1 = " G17 = " Cells(m + 8, n + 24).FormulaR1C1 = "0.01" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-29]C-R[-2]C" Cells(m + 9, n + 22).FormulaR1C1 = " R (m) =" Cells(m + 9, n + 23).FormulaR1C1 = " G18 = " Cells(m + 9, n + 24).FormulaR1C1 = "0.04" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 22).FormulaR1C1 = " N =" Cells(m + 10, n + 23).FormulaR1C1 = " G19 = " Cells(m + 10, n + 24).FormulaR1C1 = "30" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 22).FormulaR1C1 = " Alpha =" Cells(m + 11, n + 23).FormulaR1C1 = " G20 = " Cells(m + 11, n + 24).FormulaR1C1 = "270" Cells(m + 3, n + 1).Interior.Color = "6740479" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 81 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = " x_o =" Cells(m + 3, n + 23).FormulaR1C1 = " G22 = " Cells(m + 3, n + 24).FormulaR1C1 = "0" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = " y_o =" Cells(m + 4, n + 23).FormulaR1C1 = " G23 = " Cells(m + 4, n + 24).FormulaR1C1 = "0" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 22).FormulaR1C1 = " z_o =" Cells(m + 5, n + 23).FormulaR1C1 = " G24 = " Cells(m + 5, n + 24).FormulaR1C1 = "0.01" Cells(m + 6, n + 0).FormulaR1C1 = "=R15C7*R16C7/(POWER(R[3]C[-1]^2+R[3]C^2+R[3]C[1]^2,3/2))" Cells(m + 6, n + 22).FormulaR1C1 = " phi =" Cells(m + 6, n + 23).FormulaR1C1 = " G27 = " Cells(m + 6, n + 24).FormulaR1C1 = "90" 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 + 22).FormulaR1C1 = " theta =" Cells(m + 7, n + 23).FormulaR1C1 = " G28 = " Cells(m + 7, n + 24).FormulaR1C1 = "0" Cells(m + 8, n + 0).FormulaR1C1 = "r" Cells(m + 8, n + 21).FormulaR1C1 = "______________________________________________________________________________________________" Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 9, n + 1).FormulaR1C1 = "=R[-9]C+R[-27]C" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "Para agregar los 360 elementos de corriente, se tiene en cuenta que el numero actual es de G41=3, por lo tanto" Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "se deben agregar 357 adicionales:" Cells(m + 3, n + 1).Interior.Color = "11826222" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 90 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+1" Cells(m + 3, n + 22).FormulaR1C1 = "Cantidad:" Cells(m + 3, n + 23).FormulaR1C1 = " B2 = " Cells(m + 3, n + 24).FormulaR1C1 = "357" Cells(m + 3, n + 26).FormulaR1C1 = "Obs: las filas desde la 51 hasta " Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 22).FormulaR1C1 = "Fila inicial:" Cells(m + 4, n + 23).FormulaR1C1 = " B3 = " Cells(m + 4, n + 24).FormulaR1C1 = "51" Cells(m + 4, n + 26).FormulaR1C1 = "la 77 contienen el elemento de " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "=R[-27]C" Cells(m + 5, n + 1).FormulaR1C1 = "=R37C7" Cells(m + 5, n + 22).FormulaR1C1 = "Fila final:" Cells(m + 5, n + 23).FormulaR1C1 = " C3 = " Cells(m + 5, n + 24).FormulaR1C1 = "77" Cells(m + 5, n + 26).FormulaR1C1 = "corriente prototipo." 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 = "=R[-7]C+R[-9]C" Cells(m + 7, n + 21).FormulaR1C1 = "Nota: este n" & ChrW(250) & "mero grande de elementos puede hacer que el PC se demore en ponerlos en la hoja de c" & ChrW(225) & "lculo" Cells(m + 8, n + 21).FormulaR1C1 = "tal vez unos segundos o inclusive minutos. " Cells(m + 9, n + -1).FormulaR1C1 = "=(R[-18]C[1]*R[-9]C[2]-R[-18]C[2]*R[-9]C[1])*R[-12]C[1]" Cells(m + 9, n + 0).FormulaR1C1 = "=(-R[-18]C[-1]*R[-9]C[1]+R[-18]C[1]*R[-9]C[-1])*R[-12]C" Cells(m + 9, n + 1).FormulaR1C1 = "=(R[-18]C[-2]*R[-9]C[-1]-R[-18]C[-1]*R[-9]C[-2])*R[-12]C[-1]" Cells(m + 9, n + 2).FormulaR1C1 = "=""B""&R43C7&""_""&R[-24]C[-1]" Cells(m + 10, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=R[-27]C" Cells(m + 10, n + 21).FormulaR1C1 = "Oprimir +OBJ para obtener los resultados. " Cells(m + 11, n + -1).FormulaR1C1 = "=R[-27]C" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "=R[-27]C" 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 = "" Cells(m1 + 2, n1 - 1).Value = 11 End If ' vector ends If m = m1 + 90 Then Cells(m + 12, n + 21).FormulaR1C1 = "Las coordenadas del campo resultante se observa en las celdas A12, B12, C12, y su magnitud en G10. Puede " Cells(m + 13, n + 21).FormulaR1C1 = "cambiar el punto de observaci" & ChrW(243) & "n del campo en A11, B11, C11, por ejemplo A11=-0,01, B11= 0,04, C11= 0,01 " Cells(m + 14, n + 21).FormulaR1C1 = "para ver el campo dentro de las espiras." Cells(m + 17, n + 21).FormulaR1C1 = "EJEMPLO 2: " Cells(m + 18, n + 21).FormulaR1C1 = "En el ejemplo anterior disminuir el n" & ChrW(250) & "mero de elementos a 180 y distribuirlos en un " & ChrW(225) & "ngulo" Cells(m + 19, n + 21).FormulaR1C1 = "de 130 grados . " Cells(m + 20, n + 21).FormulaR1C1 = "Solucion. Con B2=180, B3=51 y C3=77 oprimir -OBJ para quitar 180 elementos. Cambiar el " & ChrW(225) & "ngulo en: " Cells(m + 22, n + 22).FormulaR1C1 = " Alpha =" Cells(m + 22, n + 23).FormulaR1C1 = " G20 = " Cells(m + 22, n + 24).FormulaR1C1 = "135" Cells(m + 24, n + 21).FormulaR1C1 = "EJEMPLO 3:" Cells(m + 25, n + 21).FormulaR1C1 = "Observar el campo en coordenadas cartesianas en una regi" & ChrW(243) & "n del espacio." Cells(m + 26, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n: Introducir C7=o (letra min" & ChrW(250) & "scula y sin el signo igual. Oprimir XYZ. Esperar unos minutos mientras" Cells(m + 27, n + 21).FormulaR1C1 = "se renderiza el campo." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub Sub Project_33_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 33_Ejemplos de O. D._ES ' Updated: 25/10/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,59375 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 + 3, n + 9).FormulaR1C1 = "Some vectors have been R E D U C E D! Set the scale in cell B17" 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*R38C2" 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 Sub Project_33_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 33_Example of D. O._EN ' Updated: 25/10/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,5585938 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 + 3, n + 9).FormulaR1C1 = "Some vectors have been R E D U C E D! Set the scale in cell B17" 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*R38C2" 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