#menubar{ width:900px; margin-top:5px; float:center; background:#de360f; height:35px; border:1px solid #de360f; } #menubar-left{ float:left; width:900px; padding-top:1px; } #menubar ul{ position:relative; overflow:hidden; padding:0; margin:0; font-weight:none; font-size:12px; } #menubar li{ cursor:pointer; float:left; margin:0 padding:0; height:32px; } #menubar ul li{ float:left; list-style:none } #menubar ul li a{ border-right:1px solid #F0512D; float:left; padding: 9px 12px; text-decoration:none; color: #ffffff; font-weight:bold; font-size:14px; font-family: Calibri; } #menubar ul li a:hover{ background:transparent; color: #ffa500; } #menubar ul li a.current, #menubar ul li a.current:visited, #menubar ul li a.current:hover{ color:#ffa500; }

Selasa, 26 Februari 2013

Mencari Akar Perpotongan 2 buah kurva dengan metode Regula Falsi menggunakan Matlab

clear all;
clc;
disp('--------------------------------------------------------------------')
disp('program : Metode Regula Falsi   ')
disp('Oleh    : Kelompok 1     ')
disp('--------------------------------------------------------------------')
syms x;
c=input('masukkan persamaan f(x1): ');
d=input('masukkan persamaan f(x2): ');
g=c-d;
f=g;
a=input('masukkan nilai a : ');
b=input('masukkan nilai b : ');
et=input('masukkan Error Toleransi : ');
e=abs(b-a);
i=1;
disp(' i      a       b      c     f(a)    f(b)   f(c)    E');
disp('-----------------------------------------------------');
clama=a;
cbaru=b;
while (e > et ) & (clama ~= cbaru);
    fa=subs(f,x,a);
    fb=subs(f,x,b);
    clama=cbaru;
    c=(fb*a-fa*b)/(fb-fa);
    cbaru=c;
    fc= subs(f,x,c);
    fprintf('%3.0f %6.4f %6.4f %12.10f %7.4f %7.4f %7.4f %7.4f \n', i, a, b, c, fa, fb, fc, e);
    if fa*fc < 0
       b=c; %geser kiri
    else
       a=c; %geser kanan
    end
    e=abs(b-a);  % menghitung error
    i=i+1;
   end
 i=i-1;

fprintf('Diperoleh akar persamaan di = %f\n ', c)
fprintf('Pada Iterasi ke %f\n  ', i)

0 komentar:

Posting Komentar