Jurnal Praktikum KNTK - R [PDF]

Citation preview

JURNAL PRAKTIKUM KOMPUTASI NUMERIK TEKNIK KIMIA



MODUL I (METODE BISECTION, INTERPOLASI LINEAR, SUCCESSIVE APPROXIMATION)



NAMA



: TOMMY ARBIANZAH



NRP



: 5008201103



KELOMPOK



:5



ASISTEN



: AISYAH ALIAFTUL Z.R



HARI, TANGGAL PRAKTIKUM



: KAMIS, 1 APRIL 2021



LABORATORIUM SIMULASI DAN KOMPUTASI DEPARTEMEN TEKNIK KIMIA INSTITUT TEKNOLOGI SEPULUH NOPEMBER SURABAYA 2021



I. Tujuan Praktikum Mempelajari dan membandingkan metode-metode numerik untuk menyelesaikan persamaan nonlinier yaitu metode Bisection, Interpolasi Linier dan Successive Approximation. II. Dasar Teori II.1 Metode Bisection Metode bisection (bagi dua) merupakan metode yang diawali dengan menebak dua nilai, yaitu x1 dan x2, dengan anggapan bahwa nilai akar yang dicari (x3) berada di antara keduanya. Formulasi dengan persamaan: x3= (x1 + x2)/2, dimana nilai f(xa)*f(b)=0 x1=input ('masukkan nilai x1='); x2=input ('masukkan nilai x2='); tol=input ('masukkan nilai toleransi='); f1=(((37.5*(x1^2))+(1200*x1))-12000); f2=(((37.5*(x2^2))+(1200*x2))-12000); end e=1; ite=0; while e>tol x3=((x1+x2)*1/2); f3=(((37.5*(x3^2))+(1200*x3))-12000); ite=ite+1; e=1/2*abs(x1-x2); if f1*f3=0 x1=input('masukkan nilai x1='); x2=input('masukkan nilai x2='); tol=input('masukkan nilai toleransi='); f1=(((37.5*(x1^2))+(1200*x1))-12000); f2=(((37.5*(x2^2))+(1200*x2))-12000); end e=1; ite=0; while e>=tol ite=ite+1; x3=x2-((f2/(f2-f1))*(x2-x1)); f3=(((37.5*(x3^2))+(1200*x3))-12000); e=abs(f3); if f1*f3=tol g0=(-37.5*(x0^2)+12000)/1200; x1=g0; e=abs((x1-x0)/x0); ite=ite+1; x0=x1; end disp(['Jadi nilai x1=',num2str(x1)]); disp(['Dengan nilai toleransi=',num2str(tol)]); disp(['Didapatkan jumlah iterasi=',num2str(ite)]); disp(['Dengan Error=',num2str(e)]);