Algoritma Metode Secant

Berikut ini adalah source code matlab untuk metode secant:

function metodesecant;
  clc;
  clear;
  disp('Program Metode Secant');
  disp('=============================');
  E=0.0001;
  x0=input('Masukkan X0  :');
  xb=input('Masukkan X1  :');
  i=0;
  M=9;
  disp('_______________________________________________');
  disp(' i           xi          f(xi)     epsilon');
  disp('_______________________________________________');
 
  while (E<M)
    fx=exp(x0)-5*x0^2;
    fxb=exp(xb)-5*xb^2;
    d = xb - (fxb*(xb-x0)/(fxb-fx));
    M=abs(x0-xb);
    x0 = xb;
    xb = d;
    i=i+1;
    fprintf('%3.0f %12.6f %12.6f %12.6f\n',i,xb,fx,M); %angka angka didalamnya adalah spasi
  end;
   disp('_______________________________________________');
 
  fprintf('Akarnya Adalah = %10.8f\n',xb);
end