Thursday, October 27, 2011

Metode Iterasi Jacobi

procedure TForm1.Button1Click(Sender: TObject);
var
  x0,y0,z0,x1,y1,z1,e,mx,my,mz:Real;
begin
  x0:=strtofloat(edit1.text);
  y0:=strtofloat(edit2.Text);
  z0:=strtofloat(edit3.Text);
  e:=0.0001;
repeat
  x1:=(7+y0-z0)/4;
  listbox2.Items.add(format('%8.4f',[x1]));
  mx:=abs(x1-x0);
  listbox3.items.add(format('%8.4f',[mx]));
  x0:=x1;
  Repeat
    y1:=(21+(4*x0)+z0)/8;
    listbox4.items.add(format('%8.4f',[y1]));
    my:=abs(y1-y0);
    listbox5.items.add(format('%8.4f',[my]));
    y0:=y1;
    Repeat
     z1:=(15+(2*x0)-y0)/5;
     listbox6.Items.add(format('%8.4f',[z1]));
     mz:=abs(z1-z0);
     listbox7.items.add(format('%8.4f',[mz]));
     z0:=z1;
    Until
      mz<e;
  Until
    my<e;
until
  mx<e;
  edit4.Text:=format('%8.4f',[x1]);
  edit5.Text:=format('%8.4f',[y1]);
  edit6.Text:=format('%8.4f',[z1]);
end;

diatas merupakan algoritma untuk metode jacobi dalam aplikasi delphi.

adapun tampilannya adalah sebagai berikut :
untuk penjelasan lebih lanjut. nantikanlah.

2 comments: