Metodo de Bisección VISUAL BASIC PDF

Preview

Summary

EJERCICIO DE VISUAL BASIC YA PROGRAMADO REALIZADO POR UN INGENIERO...

Description

Option Explicit Dim Y0, Y1, Y2 Dim X0, X1, X2, T, I, E Dim Fl As Boolean Public Function F(X) 'F = Log(X) - X + 2 F = (X ^ 2) * Exp(X) - 1 End Function Public Sub CalcX2() X2 = (X0 + X1) / 2 Y2 = F(X2) Y0 = F(X0) Y1 = F(X1) If (Y2 >= 0 And Y1 < 0) Or (Y2 < 0 And Y1 >= 0) Then X0 = X2 Exit Sub End If If (Y2 >= 0 And Y0 < 0) Or (Y2 < 0 And Y0 >= 0) Then X1 = X2 Exit Sub End If End Sub Private Sub Command1_Click() lblI.Caption = "Iteraciones" & Chr(13) & " I X0 Y0 Y1 E" If txtX0.Text = "" Or txtX1.Text = "" Or txtT.Text = "" Then MsgBox "Ingrese valores" txtX0.SetFocus

X1

Exit Sub End If X0 = Val(txtX0.Text) X1 = Val(txtX1.Text) T = Val(txtT.Text) E = Abs(X0 - X1) I=0 X2 = 0 Y2 = 0 Do While E >= T Y0 = F(X0) Y1 = F(X1) If I = 0 Then Fl = True If Fl = True Then I = I + 1 E = Abs(X0 - X1) Fl = False If (Y0 >= 0 And Y1 < 0) Or (Y0 < 0 And Y1 >= 0) Then Fl = True lblI.Caption = lblI.Caption & Chr(13) & Format(I, "000") & " " & Format(X0, "0.000000000") & " " & Format(X1, "0.000000000") & " " & Format(Y0, "0.000000000") & " " & Format(Y1, "0.000000000") & " " & Format(E, "0.000000000") Call CalcX2 Else Fl = False If I = 1 Then MsgBox "Escoja otros valores de X" Exit Sub End If End If Loop End Sub...