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

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