Program berikut adalah program untuk mencari akar persamaan menggunakan metode Newton-Rhapson. Program tersebut memiliki inti di persamaan berikut:
![Rumus 1 Rumus 1](http://lh6.ggpht.com/_tiE6TD9US3M/SvgcAZ447GI/AAAAAAAABJE/cn3vd8TTspo/s800/rumus.png)
Contoh-contoh programnya sebagai berikut:
mencari akar dari fungsi
![](http://lh6.ggpht.com/_tiE6TD9US3M/SvgeZ5MOibI/AAAAAAAABJY/6IYydd9M-h0/s800/Screen%20shot%202009-11-09%20at%208.42.17%20PM.png) |
From Aravir (am I Physicist?) |
Program diatas memiliki tebakan awal x=7, artinya program akan mencoba nilai f(7), jika f(7) bukan nol maka akan dicoba nilai x yang berikutnya sesuai dengan persamaan di atas, jika f(x)=0 maka program akan berhenti dan x adalah akar dari persamaan yang diberikan. Ketelitian program adalah 0.01, artinya jika f(x) bernilai kurang dari 0.01 maka x adalah akar dari persamaan yang diberikan. Ketelitian ini bisa diperkecil sesuai kebutuhan.
![](http://lh4.ggpht.com/_tiE6TD9US3M/SvgeaqwZCDI/AAAAAAAABJc/1o_q_wPFre8/s800/Screen%20shot%202009-11-09%20at%208.42.21%20PM.png) |
From Aravir (am I Physicist?) |
dari output diatas dapat dilihat bahwa nilai x konvergen menuju ke nilai 4, sehingga dengan ketelitian 0,01 dapat simpulkan bahwa akar dari fungsi tersebut adalah 4
contoh-contoh lain:
![](http://lh5.ggpht.com/_tiE6TD9US3M/SvgcB7chCYI/AAAAAAAABJM/1StTJMURIxc/s800/rumus3.png)
![](http://lh6.ggpht.com/_tiE6TD9US3M/SvgebqePoHI/AAAAAAAABJg/qv3FZoovh1c/s800/Screen%20shot%202009-11-09%20at%208.43.54%20PM.png) |
From Aravir (am I Physicist?) |
![](http://lh4.ggpht.com/_tiE6TD9US3M/SvgecfXqNeI/AAAAAAAABJk/etQxDRKPWXQ/s800/Screen%20shot%202009-11-09%20at%208.43.58%20PM.png) |
From Aravir (am I Physicist?) |
![](http://lh5.ggpht.com/_tiE6TD9US3M/SvgcBa4HoQI/AAAAAAAABJI/E_Juh8WLmfY/s800/rumus2.png) |
From Aravir (am I Physicist?) |
![](http://lh3.ggpht.com/_tiE6TD9US3M/SvgedYFlj7I/AAAAAAAABJo/03qa8MduVPs/s800/Screen%20shot%202009-11-09%20at%208.48.03%20PM.png) |
From Aravir (am I Physicist?) |
![](http://lh5.ggpht.com/_tiE6TD9US3M/Svged4ORNiI/AAAAAAAABJs/fs-1bYTgcIQ/s800/Screen%20shot%202009-11-09%20at%208.48.06%20PM.png) |
From Aravir (am I Physicist?) |
Ada kalanya hasil yang kita dapatkan kurang cocok, hal ini disebabkan karena iterasi yang kita tentukan terlalu sedikit, contohnya adalah fungsi berikut
![](http://lh4.ggpht.com/_tiE6TD9US3M/SvgcCQUuMOI/AAAAAAAABJQ/r4rKN_RwMNw/s144/rumus4.png) |
From Aravir (am I Physicist?) |
![](http://lh4.ggpht.com/_tiE6TD9US3M/Svgee3Sgb0I/AAAAAAAABJw/dwHcn3Npqvo/s800/Screen%20shot%202009-11-09%20at%208.48.43%20PM.png) |
From Aravir (am I Physicist?) |
![](http://lh5.ggpht.com/_tiE6TD9US3M/Svgexu4GAPI/AAAAAAAABKA/I0oJi6E-uDM/s800/Screen%20shot%202009-11-09%20at%208.48.58%20PM.png) |
From Aravir (am I Physicist?) |
Hasil diatas memperlihatkan bahwa x belum mencapai batas kestabilan yang telah ditentukan. Untuk itu kita harus memperbanyak iterasi
![](http://lh6.ggpht.com/_tiE6TD9US3M/Svgezq2L9wI/AAAAAAAABKE/cXWTugUwZpA/s800/Screen%20shot%202009-11-09%20at%208.49.13%20PM.png) |
From Aravir (am I Physicist?) |
![](http://lh4.ggpht.com/_tiE6TD9US3M/Svge0SIOZGI/AAAAAAAABKI/rfMzCXl0ZGw/s800/Screen%20shot%202009-11-09%20at%208.49.17%20PM.png) |
From Aravir (am I Physicist?) |