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

clc;
clear;
%f(x) = exp(x) - 9*x=0
x0=0;
x=exp(x0)/9;
epsilon = 0.0000001;
iterasi=0;
disp('METODE TITIK TETAP untuk persamaan f(x)=exp(x)-9*x');
disp('x=0, epsilon=0.0000001');
disp('iterasi akar');
while abs(x-x0)>epsilon
x=x0;
x0=exp(x0)/9;
fprintf(' %3g %10.7f\n',iterasi, x);
iterasi=iterasi+1;
end;
akar = x;
fprintf('Akarnya adalah = %8.7f\n', akar);
fprintf('Jumlah Iterasi = %3g\n', iterasi);