IBNU HAJAR

Berpacu menjadi yang terbaik

Kategori

google

    Loading

Calender

Mencari Akar Persamaan linier Menggunakan Soegi Method

diposting oleh ibnu-h--fst10 pada 28 May 2013
di Umum - 0 komentar

Hey semua, kali ini saya akan berbagi mengenai metode yang dapat kita gunakan untuk mendapatkan nilai akar suatu persamaan linier menggunakan metode yang dikerjakan oleh salah satu pengajar saya dalam kuliah komputasi biomedis. Metode ini disebut Soegi Method. Pengerjaannya menggunakan program yang akan kita buat melalui delphi.

Oke, untuk memulai kita siapkan program delphi kita. Saya menggunakan delphi 7 untuk membuat program ini. Langkah –langkahnya adalah sebagai berikut selamat menyimak:

1. Pertama kita membutuhkan beberapa komponen untuk membuat program ini. Disini akan saya gunakan button untuk mengeksekusi programnya dan memo untuk menampilkan hasil perhitungannya. Kedua komponen tersebut dapat kalian temukan di toolbar delphi.

http://www.facebook.com/photo.php?fbid=679788415369983&set=a.679162038765954.1073741825.100000164921063&type=1&theater

2. Kemudian klik button untuk menginputkan source codenya. Berikut contoh source code pada metode ini.

 

procedure TForm1.Button1Click(Sender: TObject);

var x,y, ylama,xlama,xtemuan, delta, awal, akhir : real;

i,j, jumlahlangkah : integer;

 

begin

jumlahlangkah := 50; //jumlah langkah

awal := -50; // nilai awal

akhir := 50; // nilai akhir

memo1.Clear; // memo clear

 

for j := 1 to 3 do // jumlah iterasi (jumlah perulangan)

begin

x:= awal; // nilai x sm dengan nilai awal

delta := (akhir-awal)/jumlahlangkah; // nilai delta

for i := 0 to jumlahlangkah - 1 do

begin

x := x+delta; // x baru = x lama di tambah delta ( langkah perubahan )

y := 10*x+105; //persamaan yang akan di cari

 

if (i>0) then

begin

if (ylama <> 0) and (y*ylama <= 0) then // jika y lama tidak sama dengan 0 dan y *ylama kurang dari sama dengn 0

begin

memo1.Lines.Add(' x =' + floattostr(x)); // print x

memo1.Lines.Add(' y =' + floattostr(y)); // print y

memo1.Lines.Add(' xlama =' + floattostr(x-delta)); // print x lama

memo1.Lines.Add(' ylama =' + floattostr(ylama)); // print y lama

xtemuan := x; //x temuan sama dengan x

end;

end;

ylama := y; // update nilai ylama

end;

awal := xtemuan-delta; // perubahan nilai awal dari nilai x yang ditemukan

akhir := xtemuan; // perubahan nilai akhir dari nilai x yang ditentukan

memo1.Lines.Add(floattostr(awal)); // cek nilai awal

memo1.Lines.Add(floattostr(akhir)); // cek nilai akhir

memo1.Lines.Add(floattostr(delta)); // cek delta

memo1.Lines.Add('------------'); //pemisah hasil tiap iterasi

end;

 

end;

3. Setelah selesai jalankan program untuk mengetahui hasilnya. Hasilnya seperti gambar berikut :

http://www.facebook.com/photo.php?fbid=679787758703382&set=a.679162038765954.1073741825.100000164921063&type=1&theater

 

Selamat mencoba. ^_^d

 

Tinggalkan Komentar

Nama :
E-mail :
Web : tanpa http://
Komentar :
Verification Code :