Sub Project_21_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 21_Funciones_ES ' Updated: 1/04/24 ' 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 21 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 = "3" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "1" 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 = "=VLOOKUP(R[6]C[1],C[15]:C[25],10,FALSE)" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "0.5" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[5]C[1],C[15]:C[25],11,FALSE)" 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(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "Instrucciones para elaborar su propio manual de funciones " & Chr(10) & _ " Valores iniciales: " & Chr(10) & _ " Bot" & ChrW(243) & "n -> Avanzar de una funci" & ChrW(243) & "n a la siguiente. " & Chr(10) & _ " Bot" & ChrW(243) & "n <- Retroceder a la funci" & ChrW(243) & "n anterior. " & Chr(10) & _ " G14 =0 Valor de la funci" & ChrW(243) & "n en un punto del espacio, " & Chr(10) & _ " El punto se indica en las celdas A11, B11, C11 para una funci" & ChrW(243) & "n f(x,y,z) " & Chr(10) & _ " G14 = 1 Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (YZ). " & Chr(10) & _ " G14 = 2 Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (XZ) " & Chr(10) & _ " G14 = 3 Obtener la forma de la funci" & ChrW(243) & "n en tres dimensiones f (x,y) " & Chr(10) & _ " G15 Si f= f(x,y) indique en esta celda el valor de x para observar z= f(y) con x=const. " & Chr(10) & _ " " & Chr(10) & _ " C" & ChrW(243) & "mo introducir una nueva funci" & ChrW(243) & "n: " & Chr(10) & _ " En la " & ChrW(250) & "ltima fila de la tabla de arriba: " & Chr(10) & _ " 1. En la columna Etiqueta escriba la etiqueta que aparecer" & ChrW(225) & " en el eje z. " & Chr(10) & _ " 2. Si la funci" & ChrW(243) & "n tiene nuevas constantes, def" & ChrW(237) & "nalas en la parte derecha de la tabla, si es necesario con sus potencias en la columna Potencia. " & Chr(10) & _ " 3. En la columna Funci" & ChrW(243) & "n defina la funci" & ChrW(243) & "n z=f(x,y) utilizando las celdas de los valores de las respectivas constantes; en calidad de la variable x utilizar la celda A11 y de y la celda B11. Si solo depende de una variable, omitir la otra. " & Chr(10) & _ " 4. En las dos " & ChrW(250) & "ltimas columnas establecer el nombre de los ejes x,y respectivamente. " & Chr(10) & _ " 5. Oprima XYZ para ver el resultado. Si la funci" & ChrW(243) & "n tiene una escala muy grande o muy pequeÐa, ajustar la escala, encontrando el factor adecuado e ingres" & ChrW(225) & "ndolo en la columna Escala. " & Chr(10) & _ " 6. Si desea que aparezca la ecuaci" & ChrW(243) & "n en el sistema de coordenadas, agregue la ecuaci" & ChrW(243) & "n en la hoja 3DModels y p" & ChrW(243) & "ngale el nombre (Eq-a), en donde a es el n" & ChrW(250) & "mero consecutivo de la ecuaci" & ChrW(243) & "n. " & Chr(10) & _ " 7. Si su n" & ChrW(250) & "mero de funciones es m" & ChrW(225) & "s de 12, contin" & ChrW(250) & "e la lista consecutiva y si es necesario borre estas instrucciones, o c" & ChrW(243) & "rtelas y p" & ChrW(233) & "guelas en otro lugar de la hoja. " & Chr(10) & _ " 8. Puede editar las funciones ya existentes y modificarlas a su parecer. " 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 = "=IF(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 3, n + 9).FormulaR1C1 = "SOME VECTORS WERE U N D E R S C A L E D !" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[7]C[4]=0,"""",IF(R[7]C[4]=1,""o[5]x=[""&R[8]C[4]&"";""&R[8]C[4]&""]o2[5]y=[0;500]o3[5]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,001654412s"",IF(R[7]C[4]=2,""o[5]x=[0;500]o2[0,1]y=[50;50]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,003033088s"",IF(R[7]C[4]=3,""o[20]x=[0;500]o2[20]y=[0;500]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,002450715s"",""""))))" Cells(m + 4, n + 12).FormulaR1C1 = "=UPPER(VLOOKUP(R[3]C[-7],C[7]:C[11],5,FALSE))&"" ""&VLOOKUP(R[3]C[-7],C[7]:C[11],2,FALSE)" Cells(m + 4, n + 24).FormulaR1C1 = "MANUAL DE FUNCIONES " Cells(m + 5, n + -1).FormulaR1C1 = "85" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + 19).FormulaR1C1 = "_____________" Cells(m + 6, n + 20).FormulaR1C1 = "______________________________________________________" Cells(m + 6, n + 24).FormulaR1C1 = "____________________________________________________" Cells(m + 6, n + 28).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 + 4).FormulaR1C1 = "Ecuaci" & ChrW(243) & "n No." Cells(m + 7, n + 5).FormulaR1C1 = "=R[-5]C[2]+1" Cells(m + 7, n + 21).FormulaR1C1 = " FACTOR:" Cells(m + 7, n + 22).FormulaR1C1 = "=VLOOKUP(RC[-17],C[-3]:C[1],4,FALSE)" Cells(m + 8, n + -1).FormulaR1C1 = "300" Cells(m + 8, n + 0).FormulaR1C1 = "498" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[3]C[3]=0,""<< -- Ingrese las coordenadas del punto a evaluar"","""")" Cells(m + 8, n + 6).FormulaR1C1 = "=IF(R[2]C[-6]>0,""<-- use these cells."","""")" Cells(m + 8, n + 19).FormulaR1C1 = "No." Cells(m + 8, n + 20).FormulaR1C1 = "Etiqueta" Cells(m + 8, n + 21).FormulaR1C1 = "Funci" & ChrW(243) & "n" Cells(m + 8, n + 22).FormulaR1C1 = "Escala" Cells(m + 8, n + 23).FormulaR1C1 = "Descripci" & ChrW(243) & "n" Cells(m + 8, n + 24).FormulaR1C1 = "| Constante" Cells(m + 8, n + 25).FormulaR1C1 = "Valor " Cells(m + 8, n + 26).FormulaR1C1 = "Potencia (10^)" Cells(m + 8, n + 27).FormulaR1C1 = "Unidades" Cells(m + 8, n + 28).FormulaR1C1 = "Eje x" Cells(m + 8, n + 29).FormulaR1C1 = "Eje y" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=VLOOKUP(R[-2]C[4],C[18]:C[22],3,FALSE)" Cells(m + 9, n + 2).FormulaR1C1 = "<< -- Funci" & ChrW(243) & "n." Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "1" Cells(m + 9, n + 20).FormulaR1C1 = "n_s ()" Cells(m + 9, n + 21).FormulaR1C1 = "=(1/(EXP(RC[4]*R[-1]C[-21]/(R[1]C[4]*R[-1]C[-22]))-1))*R[-2]C[1]" Cells(m + 9, n + 22).FormulaR1C1 = "90" Cells(m + 9, n + 23).FormulaR1C1 = "Distribuci" & ChrW(243) & "n de Bose-Einstein" Cells(m + 9, n + 24).FormulaR1C1 = "| h" Cells(m + 9, n + 25).FormulaR1C1 = "6.6" Cells(m + 9, n + 26).FormulaR1C1 = "-34" Cells(m + 9, n + 27).FormulaR1C1 = "J s" Cells(m + 9, n + 28).FormulaR1C1 = "T" Cells(m + 9, n + 29).FormulaR1C1 = "w" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=IF(R[-8]C[6]=RC[24]*R[-2]C[-2],2,1)" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "2" Cells(m + 10, n + 20).FormulaR1C1 = "E(w) " Cells(m + 10, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-2]C[-21]*R[-1]C)*R[-3]C[1]" Cells(m + 10, n + 22).FormulaR1C1 = "0.8" Cells(m + 10, n + 23).FormulaR1C1 = "Energ" & ChrW(237) & "a media del fot" & ChrW(243) & "n" Cells(m + 10, n + 24).FormulaR1C1 = "| k_B" Cells(m + 10, n + 25).FormulaR1C1 = "1.38" Cells(m + 10, n + 26).FormulaR1C1 = "-23" Cells(m + 10, n + 27).FormulaR1C1 = "J/ÁK" Cells(m + 10, n + 29).FormulaR1C1 = "w" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Gr" & ChrW(225) & "fica:" Cells(m + 11, n + 5).FormulaR1C1 = "1" Cells(m + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "3" Cells(m + 11, n + 20).FormulaR1C1 = "u (w,T) " Cells(m + 11, n + 21).FormulaR1C1 = "=(R[-2]C*R[-2]C[4]*R[-3]C[-21]^3/(R[1]C[4]^3*PI()^2))*R[-4]C[1]" Cells(m + 11, n + 22).FormulaR1C1 = "0.03" Cells(m + 11, n + 23).FormulaR1C1 = "Densidad espectral de energ" & ChrW(237) & "a media" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 11, n + 26).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "ÁK" Cells(m + 11, n + 28).FormulaR1C1 = "T" Cells(m + 11, n + 29).FormulaR1C1 = "w" 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 = "Ec-1" 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 = "=""Ec-""&R[-5]C[5]" Cells(m + 3, n + 4).FormulaR1C1 = "=VLOOKUP(R[-5]C[1],C[15]:C[25],10,FALSE)& "" =""" Cells(m + 3, n + 5).FormulaR1C1 = "300" Cells(m + 3, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 3, n + 19).FormulaR1C1 = "4" Cells(m + 3, n + 20).FormulaR1C1 = "u (v,T) " Cells(m + 3, n + 21).FormulaR1C1 = "=(8*PI()*R[-3]C*R[-3]C[4]*R[-4]C[-21]^3/(RC[4]^3))*R[-5]C[1]" Cells(m + 3, n + 22).FormulaR1C1 = "0.002" Cells(m + 3, n + 23).FormulaR1C1 = "F" & ChrW(243) & "rmula de Planck - Distribuci" & ChrW(243) & "n espectral de energ" & ChrW(237) & "a del cuerpo negro" Cells(m + 3, n + 24).FormulaR1C1 = "| c" Cells(m + 3, n + 25).FormulaR1C1 = "1" Cells(m + 3, n + 26).FormulaR1C1 = "8" Cells(m + 3, n + 27).FormulaR1C1 = "m/s" Cells(m + 3, n + 28).FormulaR1C1 = "T" Cells(m + 3, n + 29).FormulaR1C1 = "v" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 4, n + 19).FormulaR1C1 = "5" Cells(m + 4, n + 20).FormulaR1C1 = "I (v,T) " Cells(m + 4, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-1]C/4)*R[-6]C[1]" Cells(m + 4, n + 22).FormulaR1C1 = "0.025" Cells(m + 4, n + 23).FormulaR1C1 = " Irradianza espectral del cuerpo negro" Cells(m + 4, n + 24).FormulaR1C1 = "| A" Cells(m + 4, n + 25).FormulaR1C1 = "1" Cells(m + 4, n + 26).FormulaR1C1 = "0" Cells(m + 4, n + 27).FormulaR1C1 = "m2" Cells(m + 4, n + 28).FormulaR1C1 = "T" Cells(m + 4, n + 29).FormulaR1C1 = "v" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "200" Cells(m + 5, n + 1).FormulaR1C1 = "200" Cells(m + 5, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 5, n + 19).FormulaR1C1 = "6" Cells(m + 5, n + 20).FormulaR1C1 = "F(r)" Cells(m + 5, n + 21).FormulaR1C1 = "=(RC[4]*R[1]C[4]*R[2]C[4]/R[-6]C[-21]^2)*RC[1]" Cells(m + 5, n + 22).FormulaR1C1 = "1000" Cells(m + 5, n + 23).FormulaR1C1 = "Fuerza el" & ChrW(233) & "ctrica - Ley de Coulomb" Cells(m + 5, n + 24).FormulaR1C1 = "| k_e" Cells(m + 5, n + 25).FormulaR1C1 = "8.99" Cells(m + 5, n + 26).FormulaR1C1 = "9" Cells(m + 5, n + 27).FormulaR1C1 = "Nm^2/C^2" Cells(m + 5, n + 28).FormulaR1C1 = "T" Cells(m + 5, n + 29).FormulaR1C1 = "r" Cells(m + 6, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 6, n + 19).FormulaR1C1 = "7" Cells(m + 6, n + 24).FormulaR1C1 = "| q1" Cells(m + 6, n + 25).FormulaR1C1 = "5" Cells(m + 6, n + 26).FormulaR1C1 = "-3" Cells(m + 6, n + 27).FormulaR1C1 = "C" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-4]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-13]C[3]-50" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-13]C[2]*2" Cells(m + 7, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 7, n + 19).FormulaR1C1 = "8" Cells(m + 7, n + 24).FormulaR1C1 = "| q2" Cells(m + 7, n + 25).FormulaR1C1 = "5" Cells(m + 7, n + 26).FormulaR1C1 = "-3" Cells(m + 7, n + 27).FormulaR1C1 = "C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 8, n + 19).FormulaR1C1 = "9" Cells(m + 8, n + 24).FormulaR1C1 = "|" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "10" Cells(m + 9, n + 24).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 + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "11" Cells(m + 10, n + 24).FormulaR1C1 = "|" 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 + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "12" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 3, n + 1).Interior.Color = "11892015" 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 = 2 End If ' vector ends If m = m1 + 9 Then Cells(m + 14, n + 18).FormulaR1C1 = "Instrucciones para elaborar su propio manual de funciones" Cells(m + 16, n + 18).FormulaR1C1 = "Valores iniciales:" Cells(m + 18, n + 19).FormulaR1C1 = "Bot" & ChrW(243) & "n ->" Cells(m + 18, n + 20).FormulaR1C1 = "Avanzar de una funci" & ChrW(243) & "n a la siguiente." Cells(m + 19, n + 19).FormulaR1C1 = "Bot" & ChrW(243) & "n <-" Cells(m + 19, n + 20).FormulaR1C1 = "Retroceder a la funci" & ChrW(243) & "n anterior." Cells(m + 20, n + 19).FormulaR1C1 = "G14 =0" Cells(m + 20, n + 20).FormulaR1C1 = "Valor de la funci" & ChrW(243) & "n en un punto del espacio, " Cells(m + 21, n + 20).FormulaR1C1 = "El punto se indica en las celdas A11, B11, C11 para una funci" & ChrW(243) & "n f(x,y,z)" Cells(m + 22, n + 19).FormulaR1C1 = "G14 = 1" Cells(m + 22, n + 20).FormulaR1C1 = "Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (YZ)." Cells(m + 23, n + 19).FormulaR1C1 = "G14 = 2" Cells(m + 23, n + 20).FormulaR1C1 = "Obtener la forma de la funci" & ChrW(243) & "n en dos dimensiones (XZ)" Cells(m + 24, n + 19).FormulaR1C1 = "G14 = 3" Cells(m + 24, n + 20).FormulaR1C1 = "Obtener la forma de la funci" & ChrW(243) & "n en tres dimensiones f (x,y)" Cells(m + 25, n + 19).FormulaR1C1 = "G15 " Cells(m + 25, n + 20).FormulaR1C1 = "Si f= f(x,y) indique en esta celda el valor de x para observar z= f(y) con x=const." Cells(m + 27, n + 18).FormulaR1C1 = "C" & ChrW(243) & "mo introducir una nueva funci" & ChrW(243) & "n:" Cells(m + 29, n + 18).FormulaR1C1 = "En la " & ChrW(250) & "ltima fila de la tabla de arriba:" Cells(m + 30, n + 18).FormulaR1C1 = "1. En la columna Etiqueta escriba la etiqueta que aparecer" & ChrW(225) & " en el eje z." Cells(m + 31, n + 18).FormulaR1C1 = "2. Si la funci" & ChrW(243) & "n tiene nuevas constantes, def" & ChrW(237) & "nalas en la parte derecha de la tabla, si es necesario con sus potencias en la columna Potencia." Cells(m + 32, n + 18).FormulaR1C1 = "3. En la columna Funci" & ChrW(243) & "n defina la funci" & ChrW(243) & "n z=f(x,y) utilizando las celdas de los valores de las " Cells(m + 33, n + 19).FormulaR1C1 = "respectivas constantes; en calidad de la variable x utilizar la celda A11 y de " Cells(m + 34, n + 19).FormulaR1C1 = "y la celda B11. Si solo depende de una variable, omitir la otra. " Cells(m + 35, n + 18).FormulaR1C1 = "4. En las dos " & ChrW(250) & "ltimas columnas establecer el nombre de los ejes x,y respectivamente." Cells(m + 36, n + 18).FormulaR1C1 = "5. Oprima XYZ para ver el resultado. Si la funci" & ChrW(243) & "n tiene una escala muy grande o muy pequeÐa, ajustar" Cells(m + 37, n + 19).FormulaR1C1 = "la escala, encontrando el factor adecuado e ingres" & ChrW(225) & "ndolo en la columna Escala. " Cells(m + 38, n + 18).FormulaR1C1 = "6. Si desea que aparezca la ecuaci" & ChrW(243) & "n en el sistema de coordenadas, agregue la ecuaci" & ChrW(243) & "n en la hoja" Cells(m + 39, n + 19).FormulaR1C1 = "3DModels y p" & ChrW(243) & "ngale el nombre (Eq-a), en donde a es el n" & ChrW(250) & "mero consecutivo de la ecuaci" & ChrW(243) & "n." Cells(m + 40, n + 18).FormulaR1C1 = "7. Si su n" & ChrW(250) & "mero de funciones es m" & ChrW(225) & "s de 12, contin" & ChrW(250) & "e la lista consecutiva y si es necesario borre " Cells(m + 41, n + 19).FormulaR1C1 = "estas instrucciones, o c" & ChrW(243) & "rtelas y p" & ChrW(233) & "guelas en otro lugar de la hoja." Cells(m + 42, n + 18).FormulaR1C1 = "8. Puede editar las funciones ya existentes y modificarlas a su parecer. " Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub