Ilkom E-F Unpak

Tinggal Pelajari aja codingannya Kawan

function regula_falsi
a=input('MASUKAN BATAS KIRI = ');
b=input('MASUKAN BATAS KANAN = ');
t=input('MASUKAN NILAI TOLERANSI = ');
max=input('MASUKAN ITERASI MAKSIMUM = ');
fprintf('-------------------------------------------------------------------------------\n');
fprintf('n           a             b          x1        f(x1)       f(a)       f(b) \n');
fprintf('-------------------------------------------------------------------------------\n');

for n=1:max
   
    if(abs(b-a)<t)
        fprintf('AKAR TIDAK DAPAT DI ITERASI');
    end
    fprintf('%0.5f%12.7f%12.7f',n,a,b);   
    fa=fn(a);
    fb=fn(b);
    x1=((a*fb)-(b*fa))/(fb-fa);
    fx1=fn(x1);
    if fa * fx1<0
        b=x1;
       
    else if fa * fx1>0
            a=x1;
           
        else if fa * fx1==0
                break
            end
        end
    end
    fprintf('%12.7f%12.7f%12.7f%12.7f\n',x1,fx1,fa,fb);
end
    disp(['AKARNYA ADALAH = ',num2str(x1)]);
    disp(['JUMLAH ITERASINYA ADALAH = ', num2str(max)]);
    function f=fn(x)
        f=exp(x)-2;