Enasyos
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)...
Regístrate para leer el documento completo.