Program
Posisi Palsu
Metode posisi palsu
adalah suatu metode numeric yang paling tua untuk menghitung suatu persamaan.
Metode ini disebut dengan metode posisi palsu karena akar sebenarnya terletak
pada kurva yang menghubungkan titik-titik.
Dalam hal ini saya
tidak akan membahas lebih rinci tentang metode ini tapi lebih bagaimana
mengimplementasikan metode ini kedalam sebuah program numeric untuk mencari
suatu persamaan dengan menggunakan metode posisi palsu. Disini bahasa
pemrograman yang akan digunakan adalah bahasa pascal.
Pertama kita ketahui dulu algoritmanya ok…
1. Memasukkan
nilai a dan b
2. Menentukan f(a) dan f(b)
3. Menentukan
nilai w
Dengan menggunakan rumus
4. Menentukan
nilai f(w)
5. Menentukan
nilai f(a) * f(w)
Dengan ketentuaan jika nilai f(a) *
f(w) > 0 maka a=w
Tapi jika nilai dari f(a) * f(w)
< 0 maka b=w
6. Menentukan
nilai dari | Wi+1 – Wi |
Dengan ketentuan jika nilai > €
maka ulangi proses kedua
Tapi jika nilai < € maka akarnya
adalah w
Berikut sintaxnya :
uses crt;
function f(x:real):real;
begin
f :=x*x-x-1;
end;
var x0,x1,w,fw,m,w0,h,e:real;
i:integer;
begin
writeln('Program Posisi palsu');
writeln('By Lega Universitas
Teknologi Yogyakarta');
i:=0;
e:=0.001;
writeln('masukan a');
readln(x0);
writeln('masukan b');
readln(x1);
repeat
w0:=0;
w0:=0+w;
w:=((x0*f(x1))-(x1*f(x0)))/(f(x1)-f(x0));
fw:=w*w-w-1;
m:=f(x0)*fw;
h:=w-w0;
i:=i+1;
if m>0 then x0:=w else x1:=w;
w0:=w;
writeln('pada iterasi',i);
writeln();
writeln('nilai akar =',h:0:9);
until h<e;
writeln ('maka akarnya',w:0:9);
writeln();
writeln();
writeln(' Karena nilai dari akar
< ',' ',e:0:3);
end.
Ket: e adalah nilai error yang
sudah ditentukan ………
Semoga bermanfaat….
By Lega Chandra hilmawan ( 3125111
438) Universitas Teknologi Yogyakarta
Comments
Post a Comment