METODE SECANT

vMETODE SECANT

  Metode yang hampir sama dengan biseksi dan regula falsi namun tidak bersyarat seperti berbeda tanda layaknya regula falsi dan biseksi. Akar dari metode secant juga tidak terdapat di 2 titik.

RUMUS

Algoritma program untuk secant

1.Definisikan fungsi F(x)

2.Ambil range nilai x =[a,b]

3.Hitung F(x0) dan F(x1)

4.Masukan ke dalam persamaan 

PROGRAM SECANT;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
VAR
E,X0,X1,X2,M : REAL;
X :INTEGER;
BEGIN
CLRSCR;
 WRITELN('PROGRAM METODE SECANT'); WRITELN('=====================');
E:=0.0001;
WRITE('MASUKKAN X0 = ');READLN(X0);
WRITE('MASUKKAN X1 = ');READLN(X1);
WRITELN;
X:=0;
REPEAT X2:=X1-F(X1)*(X1-X0)/(F(X1)-F(X0));
M:=ABS((X2-X1)/X2); X0:=X1; X1:=X2; X:=X+1;
WRITELN('ITERASI KE ',X,'= ',X2:0:8); UNTIL M < E; WRITELN; WRITELN('AKARNYA ADALAH = ',X2:0:6); READLN;
 END.