Program Secant (Metode Numerik)

%program secant dengan matlab simbolik

%created by Taufik

clc;

%input program

f=input('Masukkan fungsi (dalam x)= ');

x0=input('masukkan nilai awal (x0)= ');

x1=input('masukkan nilai awal (x1)= ');

n=input('masukkan banyak iterasi= ');

exact=input('masukkan salah satu solusi eksak= ');

%membuat tabel secant

disp(' ')

disp('            METODE SECANT             ')

disp('======================================')

disp(' i          akar      error           ')

disp('======================================')

%perulangan pada metode bisection

for i=1:n

   fx0=subs(f,'x',x0);     %menghitung nilai f(x0)

   fx1=subs(f,'x',x1);     %menghitung nilai f(x1)

   xr=x1-fx1*(x1-x0)/(fx1-fx0);  %menghitung akar dengan secant

   eror=abs(exact-xr);     %menghitung error absolut

   fprintf('%2.0f %5.5f %2.5f\n', i, xr, eror) % mencetak bentuk tabel

   x0=x1;x1=xr;

end

%membuat footer table secant

disp('============================')