METODE REGULA FALSI

Metode Regula Falsi disebut juga metode Interpolasi Linear yaitu metode yang digunakan untuk mencari akar- akar persamaan nonlinear melalui proses iterasi di dalam persamaan, dimana bersyarat sama dengan biseksi nilai f(a) dan nilai f(b) harus memenuhi persyaratan f(a)*f(b)<0

DENGAN RUMUS

ALGORITMA

Algoritma program untuk metode Regula Falsi

a). Tentukan a, b, toleransi, dan jumlah iterasi maksimum (RELATIF).

b). Periksa apakah f(a) x f(b) > 0; jika ya, keluar dari progam karena pada selang yang diberikan tidak terdapat akar persamaan.

c). Hitung nilai c = a - f(b) x (b - a) / [f(b) - f(a)].

d). Jika nilai mutlak (fc) < toleransi, tuliskan c sebagai hasil perhitungan, dan akhiri program; jika tidak, lanjutkan ke langkah berikutnya

e). Jika f(a) x f(c) < 0, maka b = c; fb=fc jika tidak, a = c ;fa=fc

f). Kembali ke langkah (c).

var a,b,c,fa,fb,fc:real;

no:integer;

begin

a:=0;

b:=1;

no:=0;

writeln('METODE REGULA FALSI'); writeln('============================================');

writeln('no a b c f(a) f(b) f(c) (a-b)');

writeln('-----------------------------------------------------------------------------');

repeat

no:=no+1;

fa:=exp(a)-5*(a*a);

fb:=exp(b)-5*(b*b);

c:=b-(fb*(b-a)/(fb-fa));

fc:=exp(c)-5*(c*c);

if fc=0 then

begin

a:=c;

b:=c;

end

else

if fa*fc<0>

b:=c

else

a:=c;

writeln(no,' ',a:5:6,' ',b:5:6,' ',c:5:6,' ',fa:5:6,' ',fb:5:6,' ',fc:5:6,' ',(b-a):5:6);

until abs(a-b)<=0.000001;

writeln('==============================================');

writeln('akar x adalah= ',c:5:6);

readln;

end.

Tampilan setelah di run :