Mahasiswa Teknik Informatika

UIN Maulana Malik Ibrahim Malang

Dosen Pengampu : Prof. Dr. Suhartono, M.Kom

Setelah artikel sebelumnya yang membahas PtLSV, sekarang kita akan membahas bagaimana penyelesaian PtLSV menggunakan R

Contoh Soal : Selesaikan pertidaksamaan linear satu variabel, Tentukan himpunan penyelesaian dari 4x – 7 < 3x-5

Penyelesaian Menggunakan Tabel pada RStudio :

Kita dapat membuat suatu fungsi pada R untuk melakukan proses iterasi pada metode Tabel. Fungsi root_table() akan melakukan iterasi berdasarkan step algoritma 1 sampai 5. Berikut adalah sintaks yang digunakan:

root_table <- function(f, a, b, N=20){
    h <- abs((a+b)/N)
    x <- seq(from=a, to=b, by=h)
    fx <- rep(0, N+1)
    for(i in 1:(N+1)){
      fx[i] <- f(x[i])
    }
    data <- data.frame(x=x, fx=fx)
    return(data)
}

Tentukan himpunan penyelesaian 4x – 7 < 3x – 5 menggunakan tabel !

tabel <- root_table(f=function(x){4*x-7-3*x+5 },
                     a=0, b=1, N=10)
tabel
##      x   fx
## 1  0.0 -2.0
## 2  0.1 -1.9
## 3  0.2 -1.8
## 4  0.3 -1.7
## 5  0.4 -1.6
## 6  0.5 -1.5
## 7  0.6 -1.4
## 8  0.7 -1.3
## 9  0.8 -1.2
## 10 0.9 -1.1
## 11 1.0 -1.0

Penyelesaian Menggunakan Grafik pada RStudio :

Dari hasil tabel diatas tentang himpunan penyelesaian f(x) = 4x – 7 < 3x-5, kita jadikan grafik menggunakan fungsi plot :

plot(tabel, type= "l")