Nama : Nadila Shifa Auria
NIM : 230605110072
Kelas : C
Mata Kuliah : Kalkulus
Dosen Pengajar: Prof.Dr.Suhartono,M.Kom
Pogram Studi : Teknik Informatika
Universitas : UIN Maulana Malik Ibrahim Malang
library(lpSolve)

Kita akan mencoba untuk memecahkan masalah linear menggunakan library lpSolve, ada dua variabel yang akan digunakan biaya untuk membuat meja dan kursi diinisialisasi dengan variabel f.obj

f.obj=c(70,50)

Mendefinisikan masalah dengan matriks

f.con=matrix(c(4,3,2,1),nrow=2,byrow=TRUE)

Mengatur tanda tanda dalam operasi yang akan dilakukan

f.dir=c("<=","<=")
f.rhs=c(240,100)

batas waktu mesin yang pertama adalah 240 dan yang kedua adalah 100 dan untuk mencari fungsi memaksimalkan keuntungan digunakan fungsi sebagai berikut

lp("max",f.obj,f.con,f.dir,f.rhs)
## Success: the objective function is 4100

disini kita mengetahui bahwa profit yang kita dapatkan adalah 4100.

lp("max",f.obj,f.con,f.dir,f.rhs)$solution
## [1] 30 40

untuk produk pertama menghasilkan 30 dan untuk produk kedua menghasilkan 40.