LAB2.txt

Wukona³ £ukasz Œledzik

ZAD1


library(lpSolve) 
library(RODBC) 
setwd("C:/Users/£ukasz/Desktop/WAT/MIW/lab2") 
dane <- odbcConnectExcel("koszty.xls") 
koszty <- sqlQuery(dane, "select * from [Arkusz1$]") 
koszty=as.matrix(koszty) 
row.signs <- rep ("<=", 3) 
row.rhs <- c(70000,70000,70000) 
col.signs <- rep (">=", 5)                        
col.rhs <- c(40000,40000,40000,40000,40000) 
lp.transport (koszty,"min",row.signs,row.rhs,col.signs,col.rhs) 
lp.transport (koszty,"min",row.signs,row.rhs,col.signs,col.rhs)$solution 


> library(lpSolve) 
> library(RODBC) 
> setwd("C:/Users/£ukasz/Desktop/WAT/MIW/lab2") 
> dane <- odbcConnectExcel("koszty.xls") 
> koszty <- sqlQuery(dane, "select * from [Arkusz1$]") 
> koszty=as.matrix(koszty) 
> row.signs <- rep ("<=", 3) 
> row.rhs <- c(70000,70000,70000) 
> col.signs <- rep (">=", 5)                        
> col.rhs <- c(40000,40000,40000,40000,40000) 
> lp.transport (koszty,"min",row.signs,row.rhs,col.signs,col.rhs) 
Success: the objective function is 3.6096e+10 
> lp.transport (koszty,"min",row.signs,row.rhs,col.signs,col.rhs)$solution
      [,1]  [,2]  [,3]  [,4]  [,5]
[1,] 30000 40000     0     0     0
[2,]     0     0 30000 40000     0
[3,] 10000     0 10000     0 40000




ZAD2

library(lpSolve)
library(RODBC)
setwd("C:/Users/£ukasz/Desktop/WAT/MIW/lab2")
dane <- odbcConnectExcel("koszty3.xls")
koszty <- sqlQuery(dane, "select * from [Arkusz1$]")
koszty = as.matrix(koszty)
row.signs <- rep ("<=", 4)
row.rhs <- c(120,120,40,280)
col.signs <- rep (">=", 3)                       
col.rhs <- c(100,100,100)
lp.transport (koszty, "min", row.signs, row.rhs, col.signs, col.rhs)
lp.transport (koszty, "min", row.signs, row.rhs, col.signs, col.rhs)$solution




> library(lpSolve)
> library(RODBC)
> setwd("C:/Users/£ukasz/Desktop/WAT/MIW/lab2")
> dane <- odbcConnectExcel("koszty3.xls")
> koszty <- sqlQuery(dane, "select * from [Arkusz1$]")
> koszty = as.matrix(koszty)
> row.signs <- rep ("<=", 4)
> row.rhs <- c(120,120,40,280)
> col.signs <- rep (">=", 3)                       
> col.rhs <- c(100,100,100)
> lp.transport (koszty, "min", row.signs, row.rhs, col.signs, col.rhs)
Success: the objective function is 1580000 
> lp.transport (koszty, "min", row.signs, row.rhs, col.signs, col.rhs)$solution
     [,1] [,2] [,3]
[1,]  100    0    0
[2,]    0   60   60
[3,]    0    0   40
[4,]    0   40    0
>