PROGRAM ITERASI Tabel Hitungan menggunakan program Microsoft Exsel dengan formula f(x) = x^3+x^2-3x-3 x^3+x^2-3x-3 f(x) = x - g(x) f(x) = x - ((x^3+x^2-3) /3)
g
ITERASI
Xi
0
1
-0.33333
1.333333333
1
-0.33333
-0.97531
0.641975309
2
-0.97531
-0.99217
0.01686233
3
-0.99217
-0.99743
0.005260055
4
-0.99743
-0.99915
0.001717043
5
-0.99915
-0.99972
0.000568437
6
-0.99972
-0.99991
0.000189049
7
-0.99991
-0.99997
6.29687E-05
(x)=X(i+1)
f(x)
Hitungan dengan menggunakan program : Dalam membuat program dengan fortran, pertama-tama dilakukan dengan membuka jendela fortran kemudian memasukkan listing (bahasa pemograman) seperti berikut:
program MIZAN
c
input data write (*,*) write (*,*) write (*,*)'
MUH MIZANUL HAQ
write (*,*) 1
'
2
write (*,*) write (*,*)' Fungsi : f(x) = x^3+x^2-3x-3 write (*,*)'
f(x) = x - g(x)'
write (*,*)'
f(x) = x - ((x^3+x^2-3) /3)'
write (*,*) write (*,*)'Input Nilai x = ' write (*,*) read (*,*) x tol = 1.0E-04 Itermax = 1000
c
program perhitungan iter = 0 gx = (x**3+x**2-3) /3
c
proses perhitungan 10
continue iter = iter + 1 xm = gx gx = (xm**3+xm**2-3) /3 fx = xm-gx write (*,*) iter,
c
xm,
gx, fx
pengkondisian if (iter>itermax) then write (*,*)'Konvergensi tidak tercapai' stop
'
3
end if if (abs(fx) itermax) then write (*,*) write (*,*)'Hasilnya sebagai berikut :' write (*,*) write (*,*)' (xm)
(fx)'
write (*,*) write (*,*) xm, fx write (*,*) write (*,*) write (*,*)'
TERIMA KASIH '
write (*,*) write (*,*) write (*,*) stop endif go to 10 stop end Setelah melakukan listing, deteksi kesalahan dengan meng-klik toolbar build rebuild all
Sehingga muncul pemberitahuan pada bagian bawah jendela fortran seperti gambar berikut:
Setelah tidak terjadi kesalahan klik execute pada toolbar
build
4
Sehingga program akan jalan dengan tampilan sebagai berikut:
5