Goedangilmu

Source Code Metode Gauss Sedel

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

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

var
a11,a12,a13,a21,a22,a23,a31,a32,a33,c1,c2,c3,galat3,x3lama,x3baru,x2baru,

x1baru,galat1,galat2,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;

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

i:=1;

repeat
x1baru:=(c1-(a12*x2lama)-(a13*x3lama))/a11;
x2baru:=(c2-(a21*x1baru)-(a23*x3lama))/a22;
x3baru:=(c3-(a31*x1baru)-(a32*x2baru))/a33;

galat1:=abs((x1baru-x1lama)/x1baru);
galat2:=abs((x2baru-x2lama)/x2baru);
galat3:=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(galat1)+chr(vk_tab)+floattostr(galat2)+chr(vk_tab)+floattostr(galat3));

i:=i+1;
until (galat1<0.0000001) and (galat2<0.0000001) and (galat3<0.0000001);

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

Related Posts :

• Source Code Metode Jacobi
• Source Code Metode Regresi Linier
• Source Code Newton Raphson
• Source Code Metode Secant
• Source Code Metode Trapesium
• Source Code Metode False Position
• Source Code Metode Interpolasi Newton Dan Lagrange
• Source Code Metode Titik Tengah
• Source Code Metode Bisection
• Source Code Metode Interpolasi Newton