Contoh Program - METODE NEWTON RAPHSON - METODE NUMERIK

Dibawah adalah sintax metode numerik dengan metode posisi palsu (regulasi falsi). Yang kebetulan software yang penulis gunakan adalah program QtOctave di linux, jadi yang belum ada install seperti post ini.

Catatan : sintax yang di blok hijau, ganti sesuai soal yang di dapat . wkwkwk

Langsung aja di copi om di kode editor nya!!

clear;

function y=fungsi(x)

y=(x^3)+(x^2)+(2*x)-2;

return;

endfunction

function df=fungsi1(x)

df=3*(x^2)+2*x+2;

return;

endfunction

disp('Program Metode Newton Raphson');

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

xo=input('Masukkan Xo == ');

fxo=fungsi(xo);

dfxo=fungsi1(xo);

tol = 0.005;

n = 100;

disp('_______________________________________________');

disp(' i x i 77 x i+1 f(xi) df(xi)');

disp('_______________________________________________');

for i=1 :n

xn=xo-(fxo/dfxo);

fxn=fungsi(xn);

dfxn=fungsi1(xn);

fprintf('%3d %8.6f %8.6f %8.6f %8.6f \n',i,xo,xn,fxo,dfxo);

if abs(fxo) < tol

fprintf('akarnya = %g \n',xn);

break;

else

xo=xn;

fxo=fxn;

dfxo=dfxn;

end

end

if i>n

disp('tidak ditemukan akarnya');

end