02 Januari 2009

Analisis Numerik

R dapat digunakan untuk mencari akar persamaan Matematika. contohnya adalah akar persamaan berikut ini:

AkarPers

Perintahnya adalah sebagai berikut.


> # Penyelesaian Akar Persamaan
> # - variabel tunggal (univariate)


> # Definisikan fungsinya, misal f.akar
> f.akar <- function(x){ x - cos(x^2) }
> x <- seq(0, pi, length=100)
> plot(x, f.akar(x), type="l")
> abline(h=0, lwd=2, col=2)


Perintah tersebut akan menampilkan grafik berikut.

GrafikAkarPers02

Perpotongan antara kurva dengan garis horisontal (berwarna merah) adalah akar persamaan tersebut. Titik potong tersebut berada antara titik 0.5 dan 1.0.

> uniroot(f = f.akar, interval=c(0.5, 1) )

Outputnya adalah

$root
[1] 0.8010704

$f.root

[1] -8.13351e-07

$iter

[1] 4

Jadi nilai akar persamaan tersebut diaproksimasi sebesar 0.8010704

Ok Sekian dulu lain kali sambung lagi. ;-)

1 komentar:

Tina mengatakan...

Gorgeous!