Sub Project_24_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 24_Fuerza de Coulomb_ES ' Updated: 6/02/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 24 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 = "24" Cells(m1 + 0, n1 + 1).FormulaR1C1 = "41" 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,08203125 s." Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "20" 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 = "=IF(RC[1]<0, "" - Q"", "" + Q"")" Cells(m1 + 3, n1 + 1).FormulaR1C1 = "-0.0001" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "LONG. EJES:" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "200" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "375" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "FUERZA DE COULOMB ENTRE CARGAS PUNTUALES" & Chr(10) & _ " " & Chr(10) & _ " Por favor leer las instrucciones en la parte derecha de la hoja." On Error Resume Next Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 10 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - Q"", "" + Q"")" Cells(m + 3, n + 1).FormulaR1C1 = "-0.0001" Cells(m + 3, n + 2).FormulaR1C1 = "LONG. EJES:" Cells(m + 3, n + 3).FormulaR1C1 = "200" Cells(m + 3, n + 4).FormulaR1C1 = "=CONFIG!R6C6" Cells(m + 3, n + 5).FormulaR1C1 = "375" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 2).FormulaR1C1 = "Ley de Coulomb" Cells(m + 4, n + 12).FormulaR1C1 = "FUERZA EL" & ChrW(201) & "CTRICA SOBRE UNA CARGA Q POR PARTE DE OTRAS CARGAS" 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 = "Q =" Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 6, n + 4).FormulaR1C1 = "Constante :" Cells(m + 7, n + -1).FormulaR1C1 = "0" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "4" Cells(m + 7, n + 2).FormulaR1C1 = "<< -- Posici" & ChrW(243) & "n de Q" Cells(m + 7, n + 4).FormulaR1C1 = " k=" Cells(m + 7, n + 5).FormulaR1C1 = "8900000000" Cells(m + 7, n + 21).FormulaR1C1 = "La simulaci" & ChrW(243) & "n permite calcular y visualizar en tres dimensiones la fuerza el" & ChrW(233) & "ctrcia ejercida por " Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "varias cargas sobre una en particular que se designa con la letra Q. En el modelo se toman 4 cargas" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "2" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 4).FormulaR1C1 = "Magnitud de la fuerza" Cells(m + 9, n + 21).FormulaR1C1 = "q1, q2, q3, q4 que act" & ChrW(250) & "an sobre una quinta carga Q, sin embargo se pueden agregar m" & ChrW(225) & "s cargas q y" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "resultante:" Cells(m + 10, n + 21).FormulaR1C1 = "calcular la fuerza total sobre Q. El procedimiento para agregar m" & ChrW(225) & "s cargas se describe al final. " Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "8" Cells(m + 11, n + 4).FormulaR1C1 = " F =" Cells(m + 11, n + 5).FormulaR1C1 = "=SQRT(R[7]C[-6]^2+R[7]C[-5]^2+R[7]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 = "F" 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 = "F" Cells(m + 3, n + 2).FormulaR1C1 = "<< -- Fuerza resultante" Cells(m + 3, n + 21).FormulaR1C1 = "La fuerza total sobre la carga Q se puede calcular como la suma vectorial de las fuerzas de cada una" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 4).FormulaR1C1 = "N" & ChrW(250) & "mero de cargas:" Cells(m + 4, n + 21).FormulaR1C1 = "de las cargas por aparte sobre la carga Q:" 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],""F_*"")" Cells(m + 6, n + -1).FormulaR1C1 = "=SUMIFS(C[2],C[3],""F_*"")" Cells(m + 6, n + 0).FormulaR1C1 = "=SUMIFS(C[-1],C[2],""F_*"")" Cells(m + 6, n + 1).FormulaR1C1 = "=SUMIFS(C[-1],C[1],""F_*"")" Cells(m + 6, n + 4).FormulaR1C1 = "(para agregar cargas " Cells(m + 6, n + 27).FormulaR1C1 = "(Eq-19-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 = "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 una de las fuerzas se establece por la ley de Coulomb:" 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 = "<< -- Componentes de la fuerza resultante" 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 + 27).FormulaR1C1 = "(Eq-19-2)" Cells(m + 11, n + -1).FormulaR1C1 = "3" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "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 + 18 Then ' vector 8 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - q""&R[-9]C[-1]/2, "" + q""&R[-9]C[-1]/2)" Cells(m + 3, n + 1).FormulaR1C1 = "0.0001" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&R[-9]C[-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 constante k depende del sistema de unidades y su valor se introduce en la celda G10." Cells(m + 6, n + -1).FormulaR1C1 = "="" q""&R[-12]C/2&"" = """ Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 6, n + 21).FormulaR1C1 = "Estas ecuaciones se ubican respectivamente para cada carga y cada coordenada en las filas 39, 57, 75" Cells(m + 7, n + -1).FormulaR1C1 = "-4" Cells(m + 7, n + 0).FormulaR1C1 = "-4" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-13]C[-2]/2-1" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de q""&R[-13]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "y 93, y las componentes para la fuerza resultante en las celdas A21, B21 y C21." Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "6" Cells(m + 9, n + 21).FormulaR1C1 = "En la siguiente tabla se muestran las celdas para configurar la posici" & ChrW(243) & "n y magnitud de las cargas:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "7" Cells(m + 11, n + 21).FormulaR1C1 = "CARGA" Cells(m + 11, n + 22).FormulaR1C1 = "MAGNITUD" Cells(m + 11, n + 23).FormulaR1C1 = "POSICI" & ChrW(211) & "N " Cells(m + 11, n + 24).FormulaR1C1 = "POSICI" & ChrW(211) & "N" Cells(m + 11, n + 25).FormulaR1C1 = "POSICI" & ChrW(211) & "N " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 27 Then ' vector 7 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 23).FormulaR1C1 = "X" Cells(m + 3, n + 24).FormulaR1C1 = "Y" Cells(m + 3, n + 25).FormulaR1C1 = "Z" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Q" Cells(m + 4, n + 22).FormulaR1C1 = "C6" Cells(m + 4, n + 23).FormulaR1C1 = "A10" Cells(m + 4, n + 24).FormulaR1C1 = "B10" Cells(m + 4, n + 25).FormulaR1C1 = "C10" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "q1" Cells(m + 5, n + 22).FormulaR1C1 = "C24" Cells(m + 5, n + 23).FormulaR1C1 = "A28" Cells(m + 5, n + 24).FormulaR1C1 = "B28" Cells(m + 5, n + 25).FormulaR1C1 = "C28" Cells(m + 6, n + 21).FormulaR1C1 = "q2" Cells(m + 6, n + 22).FormulaR1C1 = "C42" Cells(m + 6, n + 23).FormulaR1C1 = "A46" Cells(m + 6, n + 24).FormulaR1C1 = "B46" Cells(m + 6, n + 25).FormulaR1C1 = "C46" Cells(m + 7, n + -1).FormulaR1C1 = "=R10C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R10C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R10C3" Cells(m + 7, n + 21).FormulaR1C1 = "q3" Cells(m + 7, n + 22).FormulaR1C1 = "C60" Cells(m + 7, n + 23).FormulaR1C1 = "A64" Cells(m + 7, n + 24).FormulaR1C1 = "B64" Cells(m + 7, n + 25).FormulaR1C1 = "C64" Cells(m + 8, n + 21).FormulaR1C1 = "q4" Cells(m + 8, n + 22).FormulaR1C1 = "C78" Cells(m + 8, n + 23).FormulaR1C1 = "A82" Cells(m + 8, n + 24).FormulaR1C1 = "B82" Cells(m + 8, n + 25).FormulaR1C1 = "C82" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C,2)+POWER(R10C2-R[-11]C[1],2)+POWER(R10C3-R[-11]C[2],2),3/2))*(R10C1-R[-11]C)*R10C7*R[-15]C[2]*R9C2" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-1],2)+POWER(R10C2-R[-11]C,2)+POWER(R10C3-R[-11]C[1],2),3/2))*(R10C2-R[-11]C)*R10C7*R[-15]C[1]*R9C2" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-2],2)+POWER(R10C2-R[-11]C[-1],2)+POWER(R10C3-R[-11]C,2),3/2))*(R10C3-R[-11]C)*R10C7*R[-15]C*R9C2" Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R[-24]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 = "El color de la carga se modifica en la misma celda de la magnitud. La magnitud puede ser negativa." 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 = "Las fuerzas entre cada par de cargas se muestran en l" & ChrW(237) & "nea punteada." Cells(m + 3, n + 1).Interior.Color = "15773696" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q2" Call AddNewVector End If ' vector ends If m = m1 + 36 Then ' vector 6 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - q""&R[-9]C[-1]/2, "" + q""&R[-9]C[-1]/2)" Cells(m + 3, n + 1).FormulaR1C1 = "0.0001" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&R[-9]C[-3]/2" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 21).FormulaR1C1 = "De acuerdo a la tabla anterior, modifique la magnitud, posici" & ChrW(243) & "n y signo de las cargas de acuerdo a " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "su criterio y observe los resultados oprimiento el bot" & ChrW(243) & "n XYZ o cualquier bot" & ChrW(243) & "n de coordenadas. " Cells(m + 6, n + -1).FormulaR1C1 = "="" q""&R[-12]C/2&"" = """ Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 6, n + 21).FormulaR1C1 = "Identifique puntos de simetr" & ChrW(237) & "a en el espacio y coloque all" & ChrW(237) & " la carga Q. " Cells(m + 7, n + -1).FormulaR1C1 = "4" Cells(m + 7, n + 0).FormulaR1C1 = "-4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de q""&R[-13]C[-3]/2" Cells(m + 8, n + 21).FormulaR1C1 = "El modelo est" & ChrW(225) & " diseŠado para agregar m" & ChrW(225) & "s cargas en el espacio. Para agregar una carga adicional" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "6" Cells(m + 9, n + 21).FormulaR1C1 = "haga lo siguiente:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "1. Oprima el bot" & ChrW(243) & "n +OBJ. " Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "7" Cells(m + 11, n + 21).FormulaR1C1 = "2. Ingrese A100 =3, B100=3, C100=6 para posici" & ChrW(243) & "n de la nueva carga. Oprima XYZ para ver el " Cells(m + 3, n + 1).Interior.Color = "255" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Call AddNewVector End If ' vector ends If m = m1 + 45 Then ' vector 5 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 22).FormulaR1C1 = "resultado." Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Oprima >>C para ver el resultado de forma clara." Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Para agregar m" & ChrW(225) & "s cargas el procedimiento es similar." Cells(m + 6, n + 21).FormulaR1C1 = "La magnitud de la fuerza resultante se muestra en la celda G14." Cells(m + 7, n + -1).FormulaR1C1 = "=R10C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R10C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R10C3" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 21).FormulaR1C1 = "Ejemplo:" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C,2)+POWER(R10C2-R[-11]C[1],2)+POWER(R10C3-R[-11]C[2],2),3/2))*(R10C1-R[-11]C)*R10C7*R[-15]C[2]*R9C2" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-1],2)+POWER(R10C2-R[-11]C,2)+POWER(R10C3-R[-11]C[1],2),3/2))*(R10C2-R[-11]C)*R10C7*R[-15]C[1]*R9C2" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-2],2)+POWER(R10C2-R[-11]C[-1],2)+POWER(R10C3-R[-11]C,2),3/2))*(R10C3-R[-11]C)*R10C7*R[-15]C*R9C2" Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R[-24]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "Dadas cuatro cargas q1= q2 = q3 = q4 = 3C ubicadas en los v" & ChrW(233) & "rtices de un cuadrado de lado 8." Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 22).FormulaR1C1 = "Hallar las componentes de la fuerza resultante sobre una carga Q = 1C ubicada" 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 + 22).FormulaR1C1 = "a) en el centro del cuadrado " Cells(m + 3, n + 1).Interior.Color = "15773696" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q3" Call AddNewVector End If ' vector ends If m = m1 + 54 Then ' vector 4 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - q""&R[-9]C[-1]/2, "" + q""&R[-9]C[-1]/2)" Cells(m + 3, n + 1).FormulaR1C1 = "0.0001" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&R[-9]C[-3]/2" Cells(m + 3, n + 22).FormulaR1C1 = "b) a una altura del centro del cuadrado z=5" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 22).FormulaR1C1 = "c) sobre el eje y a y=10" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n:" Cells(m + 6, n + -1).FormulaR1C1 = "="" q""&R[-12]C/2&"" = """ Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 6, n + 21).FormulaR1C1 = "a)" Cells(m + 6, n + 22).FormulaR1C1 = "Magnitud" Cells(m + 6, n + 24).FormulaR1C1 = "Posici" & ChrW(243) & "n" Cells(m + 7, n + -1).FormulaR1C1 = "4" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de q""&R[-13]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "q1 = C24 =" Cells(m + 7, n + 22).FormulaR1C1 = "3" Cells(m + 7, n + 24).FormulaR1C1 = "(A28=0, B28=0, C28=0)" Cells(m + 8, n + 21).FormulaR1C1 = "q1 = C42 =" Cells(m + 8, n + 22).FormulaR1C1 = "3" Cells(m + 8, n + 24).FormulaR1C1 = "(A46=8, B46=0, C46=0)" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "6" Cells(m + 9, n + 21).FormulaR1C1 = "q1 = C60 =" Cells(m + 9, n + 22).FormulaR1C1 = "3" Cells(m + 9, n + 24).FormulaR1C1 = "(A64=8, B64=8, C64=0)" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "q1 = C78 =" Cells(m + 10, n + 22).FormulaR1C1 = "3" Cells(m + 10, n + 24).FormulaR1C1 = "(A82=0, B82=8, C82=0)" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "7" Cells(m + 11, n + 21).FormulaR1C1 = "Q = C6 =" Cells(m + 11, n + 22).FormulaR1C1 = "1" Cells(m + 11, n + 24).FormulaR1C1 = "(A10=4, B10=4, C10=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 + 63 Then ' vector 3 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 21).FormulaR1C1 = " k = G10 =" Cells(m + 3, n + 22).FormulaR1C1 = "8.9" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Oprima XYZ " Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Observaci" & ChrW(243) & "n: introducimos un sistema de unidades en el que k=8,9." Cells(m + 6, n + 21).FormulaR1C1 = "RESULTADO: " Cells(m + 7, n + -1).FormulaR1C1 = "=R10C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R10C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R10C3" Cells(m + 7, n + 21).FormulaR1C1 = "|F| = G9 =" Cells(m + 7, n + 22).FormulaR1C1 = "0" Cells(m + 7, n + 23).FormulaR1C1 = "(por simetr" & ChrW(237) & "a)." Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C,2)+POWER(R10C2-R[-11]C[1],2)+POWER(R10C3-R[-11]C[2],2),3/2))*(R10C1-R[-11]C)*R10C7*R[-15]C[2]*R9C2" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-1],2)+POWER(R10C2-R[-11]C,2)+POWER(R10C3-R[-11]C[1],2),3/2))*(R10C2-R[-11]C)*R10C7*R[-15]C[1]*R9C2" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-2],2)+POWER(R10C2-R[-11]C[-1],2)+POWER(R10C3-R[-11]C,2),3/2))*(R10C3-R[-11]C)*R10C7*R[-15]C*R9C2" Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R[-24]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "b) " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "Q = C6 =" Cells(m + 10, n + 22).FormulaR1C1 = "1" Cells(m + 10, n + 24).FormulaR1C1 = "(A10=4, B10=4, C10=5)" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "RESULTADO: " Cells(m + 3, n + 1).Interior.Color = "15773696" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = " + q4" Call AddNewVector End If ' vector ends If m = m1 + 72 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(RC[1]<0, "" - q""&R[-9]C[-1]/2, "" + q""&R[-9]C[-1]/2)" Cells(m + 3, n + 1).FormulaR1C1 = "0.0001" Cells(m + 3, n + 2).FormulaR1C1 = "=""<< -- Magnitud y color de q""&R[-9]C[-3]/2" Cells(m + 3, n + 21).FormulaR1C1 = "|F| = G9 =" Cells(m + 3, n + 22).FormulaR1C1 = "1.24" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "9" Cells(m + 4, n + 21).FormulaR1C1 = "Fx = A21 =" Cells(m + 4, n + 22).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 + 21).FormulaR1C1 = "Fy = B21 = " Cells(m + 5, n + 22).FormulaR1C1 = "0" Cells(m + 6, n + -1).FormulaR1C1 = "="" q""&R[-12]C/2&"" = """ Cells(m + 6, n + 0).FormulaR1C1 = "=R[-3]C[1]" Cells(m + 6, n + 21).FormulaR1C1 = "Fz = C21 = " Cells(m + 6, n + 22).FormulaR1C1 = "1.24" Cells(m + 7, n + -1).FormulaR1C1 = "-4" Cells(m + 7, n + 0).FormulaR1C1 = "4" Cells(m + 7, n + 1).FormulaR1C1 = "0" Cells(m + 7, n + 2).FormulaR1C1 = "=""<< -- Posici" & ChrW(243) & "n de q""&R[-13]C[-3]/2" Cells(m + 7, n + 21).FormulaR1C1 = "Oprima XYZ o YZ" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "6" Cells(m + 9, n + 21).FormulaR1C1 = "c) " Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 21).FormulaR1C1 = "Q = C6 =" Cells(m + 10, n + 22).FormulaR1C1 = "1" Cells(m + 10, n + 24).FormulaR1C1 = "(A10=0, B10=10, C10=0)" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "7" Cells(m + 11, n + 21).FormulaR1C1 = "RESULTADO: " Cells(m + 3, n + 1).Interior.Color = "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 + 81 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "=R[-9]C+R6C1" Cells(m + 3, n + 21).FormulaR1C1 = "|F| = G9 =" Cells(m + 3, n + 22).FormulaR1C1 = "7.18" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 21).FormulaR1C1 = "Fx = A21 =" Cells(m + 4, n + 22).FormulaR1C1 = "-0.5" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "2" Cells(m + 5, n + 1).FormulaR1C1 = "0" Cells(m + 5, n + 21).FormulaR1C1 = "Fy = B21 = " Cells(m + 5, n + 22).FormulaR1C1 = "7.2" Cells(m + 6, n + 21).FormulaR1C1 = "Fz = C21 = " Cells(m + 6, n + 22).FormulaR1C1 = "0" Cells(m + 7, n + -1).FormulaR1C1 = "=R10C1" Cells(m + 7, n + 0).FormulaR1C1 = "=R10C2" Cells(m + 7, n + 1).FormulaR1C1 = "=R10C3" Cells(m + 7, n + 21).FormulaR1C1 = "Oprima XY" Cells(m + 9, n + -1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C,2)+POWER(R10C2-R[-11]C[1],2)+POWER(R10C3-R[-11]C[2],2),3/2))*(R10C1-R[-11]C)*R10C7*R[-15]C[2]*R9C2" Cells(m + 9, n + 0).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-1],2)+POWER(R10C2-R[-11]C,2)+POWER(R10C3-R[-11]C[1],2),3/2))*(R10C2-R[-11]C)*R10C7*R[-15]C[1]*R9C2" Cells(m + 9, n + 1).FormulaR1C1 = "=1/(POWER(POWER(R10C1-R[-11]C[-2],2)+POWER(R10C2-R[-11]C[-1],2)+POWER(R10C3-R[-11]C,2),3/2))*(R10C3-R[-11]C)*R10C7*R[-15]C*R9C2" Cells(m + 9, n + 2).FormulaR1C1 = "=""F_""&R[-24]C[-3]/2" Cells(m + 9, n + 21).FormulaR1C1 = "Ejercicios:" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + -1).FormulaR1C1 = "2" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 21).FormulaR1C1 = "1. Utilizando el bot" & ChrW(243) & "n +OBJ construya una l" & ChrW(237) & "nea cargada compuesta de 20 cargas el" & ChrW(233) & "ctricas de igual" Cells(m + 3, n + 1).Interior.Color = "15773696" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 10 End If ' vector ends If m = m1 + 81 Then Cells(m + 12, n + 21).FormulaR1C1 = "magnitud y signo y elabore el modelo para estudiar la fuerza de esa l" & ChrW(237) & "nea sobre la carga Q, que se " Cells(m + 13, n + 21).FormulaR1C1 = "encuentra a cierta distancia. Compare los resultados del modelo con los c" & ChrW(225) & "lculos hechos por emdio " Cells(m + 14, n + 21).FormulaR1C1 = "de integrales. " Cells(m + 16, n + 21).FormulaR1C1 = "2. Construya el modelo para estudiar la fuerza de un dipolo sobre una carga Q. " Cells(m + 17, n + 22).FormulaR1C1 = "Nota: utilice el bot" & ChrW(243) & "n -OBJ para eliminar cargas." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub