SOLUCIÓN TALLER MÉTODOS NUMÉRICOS
Enviado por harold cifuentes • 8 de Febrero de 2021 • Tareas • 397 Palabras (2 Páginas) • 158 Visitas
[pic 1]
SOLUCIÓN TALLER MÉTODOS NUMÉRICOS
PRESENTADO POR:
HAROLD CIFUENTES 0000044159
JORGE EDUARDO TORRES 0000019566
JOSE PACHECO SERRANO 0000025736
ANDRES SOLANA SANCHEZ 0000041793
PRESENTADO A:
HENRY LAMBIS MIRANDA
TECNOLOGICO COMFENALCO
FACULTAD DE INGENIERIA
INGENIERIA ELECTRONICA
CARTAGENA-BOLIVAR
2020
- Escriba una subrutina en base al diagrama de flujo mostrado en la figura.
[pic 2]
Sub imaginario_real()
Dim a As Integer
Dim b As Single
Dim VA As Integer
a = 5 'se coloca un numero negativo o positivo para evaluar la condición
If (a < 0) Then
VA = Abs(a)
b = Sqr(VA)
MsgBox b
MsgBox "IMAGINARY"
Else
b = Sqr(a)
MsgBox b
MsgBox "REAL"
End If
End Sub
- Desarrolle un programa en excel-vba que calcule en función de 4 parámetros, el faltante, usando cualquiera de las formulas suministradas. puede usar valores que encuentre en la literatura.
[pic 3]
[pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28][pic 29][pic 30][pic 31][pic 32][pic 33][pic 34][pic 35][pic 36][pic 37][pic 38][pic 39][pic 40][pic 41][pic 42]
CODIGO EN EXCEL VBA
Function calculo_variables()
Dim Ur As Integer
Dim lg As Double
Dim S As Double
Dim N As Double
Dim raiz As Double
Dim L As Double
Ur = 125 ' ferrita F50A-61
L = Range("B2").Value
S = Range("B3").Value
N = Range("B4").Value
lg = Range("B5").Value
If L > 0 And N > 0 And lg > 0 Then
MsgBox "CALCULAMOS S"
GoTo CALCULOS
Else
GoTo opcion2
End If
CALCULOS:
S = (10 ^ 8 * L * lg) / (1.257 * N ^ 2 * Ur)
Hoja1.Range("B3").Value = S
GoTo fin
opcion2:
If L > 0 And N > 0 And S > 0 Then
MsgBox "CALCULAMOS lg"
GoTo CALCULOlg
Else
GoTo opcion3
End If
CALCULOlg:
...