Operasi Riset

Exercise


Kontak : \(\downarrow\)
Email
Instagram https://www.instagram.com/claraevania/
RPubs https://rpubs.com/claradellaevania/

Contoh Soal :

Tiga pabrik barang dengan kapasitas 90 ton, 60 ton dan 50 ton hendak mengirim barang ke tiga kota dengan kebutuhan masing – masing kota adalah 50 ton, 110 ton dan 40 ton. Biaya pengiriman (ribuan) dari dari pabrik ke kota disajikan dalam tabel berikut.

Hitung Biaya Total Pengiriman.

Pembahasan

# Mengimpor package lpSolve 
library(lpSolve)

# Membuat Matriks Kota dan Pabrik
tabel <- matrix(c(20, 5, 8,
                  15, 20, 10, 
                  25, 10 , 19), nrow = 3, byrow = TRUE)

# Memberi Nama Kolom dan Baris pada Matriks
colnames(tabel) <- c("KOTA A", "KOTA B", "KOTA C")
rownames(tabel) <- c("PABRIK 1", "PABRIK 2", "PABRIK 3")

tabel
##          KOTA A KOTA B KOTA C
## PABRIK 1     20      5      8
## PABRIK 2     15     20     10
## PABRIK 3     25     10     19
# Menetapkan tanda ketidaksetaraan/kesetaraan untuk Persediaan
row.signs <- rep("<=", 3)

# Tetapkan koefisien sisi kanan untuk Persediaan
row.rhs <- c(90, 60, 50)

# Menetapkan tanda ketidaksetaraan/kesetaraan untuk Permintaan
col.signs <- rep(">=", 3)

# Tetapkan koefisien sisi kanan untuk Permintaan
col.rhs <- c(50, 110, 40)

# Nilai akhir (z)
lp.transport(tabel, "max", row.signs, row.rhs, col.signs, col.rhs)
## Success: the objective function is 3260
# Solusi Nilai akhir 
lp.transport(tabel, "max", row.signs, row.rhs, col.signs, col.rhs)$solution
##      [,1] [,2] [,3]
## [1,]   50   40    0
## [2,]    0   60    0
## [3,]    0   10   40

Maka dapat disimpulkan Biaya Total Pengiriman adalah sebesar 3260.