Metode Posisi Palsu di Program Matlab {False Position Method in Matlab Programs}

clc;

clear;

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

disp( '      AKAR-AKAR PERSAMAAN        ')

disp( 'METODE POSISI PALSU (False Position Menthod )' )

disp( '---------------------------------------------------- ')

disp( 'CREATED BY I MADE BAYU WIRAWAN' )

disp( '         1415031062           ')

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

iterasi=1;

a=input( ' Masukkan batas kiri selang (a) : ');

aawal=a;

b=input( ' Masukkan batas kanan selang (b) : ');

bawal=b;

epsilon=input( ' Masukkan Nilai Epsilon : ');

clama=2*b -a;

c=b -(f1(b)*(b -a))/(f1(b)-f1(a));

error=abs((c-clama)/c);

if error <= epsilon

    disp('Nilai akar adalah : %2.8f',c);

else

    disp('-----------------------------------------------------------------------------------------------------------')

    disp('Iterasi         a            b            c              f(a)          f(c)    eror relatif selang baru[a,b]')

    disp('-----------------------------------------------------------------------------------------------------------')

    while error > epsilon

        cekselang=f1(a)*f1(c);

        c=b-(f1(b)*(b-a))/(f1(b)-f1(a));

        error=abs((c-clama)/c);

        if cekselang < 0

            bbaru=c;

            abaru=a;

        else

            abaru=c;

            bbaru=b;

        end

        fprintf('%2d  %15.8f  %14.8f %13.8f %13.8f %13.8f [%3.8f, %3.8f]\n',iterasi,a,b,c,cekselang,error,abaru,bbaru);

        clama=c;

        a=abaru;

        b=bbaru;

        iterasi=iterasi+1;

    end

end

disp('---------------------------------------------------------------------------------------------------------------')

fprintf('Hampiran akar pada selang [%1.8f,%1.8f] dengan epsilon = %f adalah : %.8f \n\n',aawal,bawal,epsilon,c);

     

berikut ini hasil keluaran dari program matlab diatas, dan selamat mencoba guys. . .

AKAR-AKAR PERSAMAAN       

METODE POSISI PALSU (False Position Menthod )

----------------------------------------------------

CREATED BY I MADE BAYU WIRAWAN

         1415031062          

====================================================

 Masukkan batas kiri selang (a) : 0.1

 Masukkan batas kanan selang (b) : 2

 Masukkan Nilai Epsilon : 0.001

-----------------------------------------------------------------------------------------------------------

Iterasi         a                        b                     c                  f(a)                   f(c) eror relatif selang baru[a,b]

-----------------------------------------------------------------------------------------------------------

 1           0.10000000      2.00000000    0.95480812   -2.00118783    3.08459034 [0.10000000, 0.95480812]

 2           0.10000000      0.95480812    0.70517449   -2.00118783    0.35400262 [0.10000000, 0.70517449]

 3           0.10000000      0.70517449    0.62099847   -0.78382183    0.13554949 [0.10000000, 0.62099847]

 4           0.10000000      0.62099847    0.58890786   -0.31843171    0.05449173 [0.10000000, 0.58890786]

 5           0.10000000      0.58890786    0.57606438   -0.13088272    0.02229521 [0.10000000, 0.57606438]

 6           0.10000000      0.57606438    0.57082120   -0.05402619    0.00918533 [0.10000000, 0.57082120]

 7           0.10000000      0.57082120    0.56866321   -0.02233851    0.00379485 [0.10000000, 0.56866321]

 8           0.10000000      0.56866321    0.56777203   -0.00924269    0.00156962 [0.10000000, 0.56777203]

 9           0.10000000      0.56777203    0.56740348   -0.00382528    0.00064953 [0.10000000, 0.56740348]

---------------------------------------------------------------------------------------------------------------

Hampiran akar pada selang [0.10000000,2.00000000] dengan epsilon = 0.001000 adalah : 0.56740348