エカつきのブログ = Eka tsuki no blog

clc;
clear;
x0=1;
x1=2;
y0=4;
y1=5;
epsilon=0.000001;
disp('Metode Secant untuk persamaan exp(x)-9*x')
disp('iterasi akar1 akar2')
for k=1:17;
x=x1-(exp(x1)-9*x1)*(x1-x0)/(exp(x1)-9*x1-exp(x0)+9*x0);
y=y1-(exp(y1)-9*y1)*(y1-y0)/(exp(y1)-9*y1-exp(y0)+9*y0);
fprintf(' %3g %10.7f %10.7f\n', k, x, y);
if(abs(x-x1)<epsilon)&(abs(y-y1)<epsilon);
break;
end;
x0=x1;
x1=x;
y0=y1;
y1=y;
end;
akar1=x;
akar2=y;
fprintf('Akar akarnya adalah %10.7f dan %10.7f\n',akar1, akar2);
fprintf('Jumlah iterasi = %g\n',k);