Oleh: hasanpunyablog | September 6, 2009

Menaksir nilai phi

Lingkaran seperti yang sudah kita ketahui adalah suatu bidang datar, begitu pula persegi. Yang bisa dihitung dari suatu bidang datar ialah luas dan keliling bidang tersebut, begitu pula lingkaran. Untuk menghitung keliling dan luasan lingkaran diperlukan suatu besaran baku tertentu, yaitu phi yang biasanya bernilai 3,14 atau 22/7. Sebenarnya nilai phi bisa ditaksir dengan cara membandingkan luas dan keliling lingkaran dengan persegi diman nilai jari-jari lingkarannya setengah nilai sisi persegi. Simulasi kali ini akan menaksir nilai phi berdasarkan cara diatas. Agar lebih mudah pembutannya maka terlebih dahulu dibuat algoritmanya seperti di bawah ini:
1. Start
2. Tentukan i:=0
3. i:=i+1
4. Dibangkitkan 10000 titik dimana x ~ U(0,1) dan y ~ U(0,1)
5. Ditentukan nilai phi:=4*m/n
6. Jika i < 1000 kembali ke langkah 3
7. Nilai phi taksiran sama dengan total nilai phi perulangan dibagi 1000
8. Nilai phi dicetak
9. Selesai

Pasti sudah penasaran kan seperti apa lanjutannya? Ya setelah dibuat algoritmanya, maka transformasikan algoritma tersebut menjadi syntax berikut:

program phigituloh;

uses wincrt;

var x,y,p:real;

i,m,n:integer;

begin

randomize;

n:=10000;

m:=0;

for i:=1 to n do

begin

x:=random;

y:=random;

if(x*x+y*y)<=1 then m:=m+1;

end;

p:=4*m/n;

writeln(p);

end.

Setelah dijalankan diperoleh nilai phi sebesar 3,1628000000E+00. Bisa dilihat niali phi yang diperoleh berbeda dengan nilai phi yang sebenarnya, maka harus kita selidiki pasti ada yang slah, yang mana ya? Coba kita utak atik lagi algoritmanya, coba kita tentukan nilai sample atau percobaan yang dilakukan senayak 1000 kali, untuk lebih mudahnya kita lambangkan dengan huruf s.

program philagimen;

uses wincrt;

var x,y,p,s:real;

j,i,m,n:integer;

begin

s:=0;

for i:=1 to 1000 do

begin

randomize;

n:=10000;

m:=0;

for i:=1 to n do

begin

x:=random;

y:=random;

if(x*x+y*y)<=1 then m:=m+1;

end;

p:=4*m/n;

s:=s+p;

end;

p:=s/1000;

writeln(p);

end.

Tralala
Setelah dijalankan diperoleh nilai phi sebesar sebesar 3,1415904000E+00, dekat dengan nilai phi yang bias kita pakai kan
Berarti program diatas bias digunakan untuk menaksir nilai phi. Silahkan dicoba ya (^_^)


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: