Komputasi untuk Sains dan Teknik - Universitas Indonesia

82 BAB 5. METODE ITERASI33 end3435 xlama=xbaru; %xbaru dijadikan xlama untuk iterasi berikutnya36 endMetode yang baru saja kita bahas ini disebut metode Iterasi Jacobi. Metode ini bertujuanmencari nilai-nilai pengganti variabel-variabel x dengan perumusandimana i=1,2,3,...,n.x (k)i=∑ )nj=1(−a ij x (k−1)j+ b i(5.7)a ii5.3.3 Algoritma• Langkah 1: Tentukan k=1• Langkah 2: Ketika (k ≤ N) lakukan Langkah 3-6– Langkah 3: Untuk i=1,...,n, hitunglahx i = − ∑ nj=1 (a ijXO j ) + b ia ii– Langkah 4: Jika ‖x − XO‖ < ǫ, maka keluarkan OUTPUT (x 1 , ..., x n ) lalu STOP– Langkah 5: Tentukan k=k+1– Langkah 6: Untuk i=1,...n, tentukan XO i = x i• Langkah 7: OUTPUT (’Iterasi maksimum telah terlampaui’) lalu STOP5.3.4 Program dalam Fortran1 IMPLICIT NONE2 DIMENSION A(10,10),B(10),X(10),XO(10)3 REAL A,B,X,XO,EPS,NORM,S4 INTEGER N,I,J,K,ITMAX5 WRITE(*,*) ’==> ITERASI JACOBI UNTUK SISTEM LINEAR