Goedangilmu

Source Code Metode Regresi Linier

Posted on May 9th, 2007 in Programming, 598 views

Berikut ini merupakan source code Metode Regresi Linier yang saya buat menggunakan Delphi.

var
fx,deviasi,deviasi2,y,x,xy,x2: array [1..100] of real;
n,i: integer;
xsoal,c1,c2,jumdeviasi,erumus,hasil,jumx,jumy,jumxy,jumx2: real;
a11,a12,a21,a22,x1lama,x2lama,x1baru,x2baru,galatx1,galatx2: real;
begin
x[1]:=1; y[1]:=3;
x[2]:=3; y[2]:=27;
x[3]:=4; y[3]:=64;
x[4]:=5; y[4]:=100;
n:=4;

jumx:=0;
jumy:=0;
jumxy:=0;
jumx2:=0;

for i:=1 to n do
begin
xy[i]:=x[i]*y[i];
x2[i]:=x[i]*x[i];

jumx:=jumx+x[i];
jumy:=jumy+y[i];
jumxy:=jumxy+xy[i];
jumx2:=jumx2+x2[i];
end;

a11:=n; a12:=jumx; c1:=jumy;
a21:=jumx; a22:=jumx2; c2:=jumxy;

x1lama:=1;
x2lama:=1;
i:=1;
repeat
x1baru:=(c1-(a12*x2lama))/a11;
x2baru:=(c2-(a21*x1lama))/a22;

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

memo1.Lines.add(inttostr(i)+chr(vk_tab)+floattostr(x1baru)+chr(vk_tab)+floattostr(x2baru)+chr(vk_tab)+floattostr(galatx1)+chr(vk_tab)+floattostr(galatx2));

x1lama:=x1baru;
x2lama:=x2baru;
i:=i+1;
until (galatx1<0.000001) and (galatx2<0.000001);

edit1.Text:=formatfloat(’#0.######’,x1baru);
edit2.Text:=formatfloat(’#0.######’,x2baru);
xsoal:=2;
hasil:=x1baru+(x2baru*xsoal);
edit3.Text:=formatfloat(’#0.######’,hasil);

jumdeviasi:=0;
for i:=1 to n do
begin
fx[i]:=x1baru+(x2baru*x[i]);
deviasi[i]:=abs(fx[i]-y[i]);
deviasi2[i]:=deviasi[i]*deviasi[i];
jumdeviasi:=jumdeviasi+deviasi2[i];
end;

erumus:=sqrt(jumdeviasi/n);
edit4.Text:=formatfloat(’#0.######’,erumus);
end;

Related Posts :

• Source Code Metode Jacobi
• Source Code Metode Gauss Sedel
• Source Code Metode Interpolasi Newton
• Source Code Metode Interpolasi Newton Dan Lagrange
• Source Code Metode Trapesium
• Source Code Metode Simpson
• Source Code Metode Titik Tengah
• Source Code Metode Newton Cotes Open Formula
• Source Code Metode Newton Cotes Close Formula
• Source Code Metode Interpolasi