Goedangilmu

Source Code Metode Jacobi

Posted on April 27th, 2007 in Programming, 318 views

Berikut ini merupakan source code metode jacobi yang saya buat menggunakan delphi.

var
a11,a12,a13,a21,a22,a23,a31,a32,a33,c1,c2,c3 :real;
galatx3,x3lama,x3baru,x2baru,x1baru,galatx1,galatx2,x1lama,x2lama :real;
i :integer;
begin
a11:=4; a12:=1; a13:=2;
a21:=1; a22:=3; a23:=1;
a31:=1; a32:=2; a33:=5;
c1:=16;
c2:=10;
c3:=12;

galatx1:=1; galatx2:=1; galatx3:=1;
x3baru:=0; x2baru:=0; x1baru:=0;

x1lama:=1;
x2lama:=1;
x3lama:=1;
i:=1;

while (galatx1>0.0000001) or (galatx2>0.0000001) or (galatx3>0.0000001) do
begin
x1baru:=(c1-(a12*x2lama)-(a13*x3lama))/a11;
x2baru:=(c2-(a21*x1lama)-(a23*x3lama))/a22;
x3baru:=(c3-(a31*x1lama)-(a32*x2lama))/a33;

galatx1:=abs((x1baru-x1lama)/x1baru);
galatx2:=abs((x2baru-x2lama)/x2baru);
galatx3:=abs((x3baru-x3lama)/x3baru);

x1lama:=x1baru;
x2lama:=x2baru;
x3lama:=x3baru;

memo1.Lines.add(inttostr(i)+chr(vk_tab)+floattostr(x1baru)+chr(vk_tab)+

floattostr(x2baru)+chr(vk_tab)+floattostr(x3baru)+chr(vk_tab)+floattostr(galatx1)+

chr(vk_tab)+floattostr(galatx2)+chr(vk_tab)+floattostr(galatx3));

i:=i+1;
end;

edit1.Text:=floattostr(x1baru);
edit2.Text:=floattostr(x2baru);
edit3.Text:=floattostr(x3baru);
end;

Related Posts :

• Source Code Metode Gauss Sedel
• Source Code Metode Regresi Linier
• Source Code Metode Trapesium
• Source Code Metode Titik Tengah
• Source Code Newton Raphson
• Source Code Metode Interpolasi Newton Dan Lagrange
• Source Code Metode Interpolasi Newton
• Source Code Metode Secant
• Source Code Metode Newton Cotes Open Formula
• Source Code Metode Newton Cotes Close Formula