Program Metode Numerik Posisi Palsu

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