Enasyos

Solo disponible en BuenasTareas
  • Páginas : 3 (627 palabras )
  • Descarga(s) : 0
  • Publicado : 12 de diciembre de 2011
Leer documento completo
Vista previa del texto
UNIVERSIDAD SALESIANA DE BOLIVIA

INGENIERIA EN SISTEMAS

ANALISIS NUMERICO

DOCENTE: Lic. Maria Luisa Alanoca

ESTUDIANTE: Hilario Paucara Silvestre


PARALELO: 5”A-1”

FECHA:12 - 12 -11

LA PAZ _ BOLIVIA
INFORME

PROGRAMA QUE REALIZA EL MÉTODO DE LA POSICIÓN FALSA:

Mediante este método determinaremos el ejercicio 5.14

Calcule las raíces reales de f(x)=-2.5x+17x -22x-11
Empleando el método de la posición falsa con ERP== 0 Then
xd = xm
matriz2.TextMatrix(q, 2) = xd
Else
matriz2.TextMatrix(q, 2) = xd
End If
If fxm< 0 Then
fxi = fxmmatriz2.TextMatrix(q, 3) = fxi
Else
matriz2.TextMatrix(q, 3) = fxi
End If
If fxm>= 0 Then
fxd = fxm
matriz2.TextMatrix(q, 4) = fxd
Else
matriz2.TextMatrix(q, 4) = fxd
End If
xmm = xmm -matriz2.TextMatrix(q, 5)
xmm = Round(xmm, 3)
matriz2.TextMatrix(q, 7) = xmm
xmm = matriz2.TextMatrix(q, 5)
Next q
End If
If Option2 = True Then
For q = 2 To 7
xm = (xd - (xd - xi) * (fxd) / (fxd - fxi))
xm =Round(xm, 4)
matriz2.TextMatrix(q, 5) = xm
fxm = (xm) ^ 3 + (2 * (xm) ^ 2) + (10 * xm) - 20
fxm = Round(fxm, 4)
matriz2.TextMatrix(q, 6) = fxm
If fxm< 0 Then
xi = xmmatriz2.TextMatrix(q, 1) = xi
Else
matriz2.TextMatrix(q, 1) = xi
End If
If fxm>= 0 Then
xd = xm
matriz2.TextMatrix(q, 2) = xd
Else
matriz2.TextMatrix(q, 2) = xd
End If
If fxm< 0Then
fxi = fxm
matriz2.TextMatrix(q, 3) = fxi
Else
matriz2.TextMatrix(q, 3) = fxi
End If
If fxm>= 0 Then
fxd = fxm
matriz2.TextMatrix(q, 4) = fxd
Else
matriz2.TextMatrix(q,4) = fxd
End If
xmm = xmm - matriz2.TextMatrix(q, 5)
xmm = Round(xmm, 4)
matriz2.TextMatrix(q, 7) = xmm
xmm = matriz2.TextMatrix(q, 5)
Next q
End If
If Option3 = TrueThen
For q = 2 To 7
xm = (xd - (xd - xi) * (fxd) / (fxd - fxi))
xm = Round(xm, 5)
matriz2.TextMatrix(q, 5) = xm
fxm = (xm) ^ 3 + (2 * (xm) ^ 2) + (10 * xm) - 20
fxm = Round(fxm, 5)...
tracking img