



Estude fácil! Tem muito documento disponível na Docsity
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Prepare-se para as provas
Estude fácil! Tem muito documento disponível na Docsity
Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity
Encontra documentos específicos para os exames da tua universidade
Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade
Responda perguntas de provas passadas e avalie sua preparação.
Ganhe pontos para baixar
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Traz como modelar problemas de Programação linear em R
Tipologia: Manuais, Projetos, Pesquisas
1 / 5
Esta página não é visível na pré-visualização
Não perca as partes importantes!




library (lpSolve)
#vetor contendo os coeficientes da função objetivo f.obj <- c(1,9,1)
#matriz 2x3 contendo as funções de restrição f.con <- matrix(c(1,2,3,3,2,2),nrow=2,byrow=TRUE)
#vetor contendo o tipo de equação ou inequação das restrições f.dir <- c("<=","<=")
#vetor contendo os lados direitos das restrições f.rhs <- c(9,15)
Solução primal
#função lp() com os parâmetros necessários para a solução do problema. "Solution" resolve lp("max",f.obj,f.con,f.dir,f.rhs)$solution
#limites inferiores dos coeficientes (análise de sensibilidade) lp ("max", f.obj, f.con, f.dir, f.rhs, compute.sens=TRUE)$sens.coef.fr om
#limites superiores dos coeficientes (análise de sensibilidade) lp ("max", f.obj, f.con, f.dir, f.rhs, compute.sens=TRUE)$sens.coef.to
Dual
lp ("max", f.obj, f.con, f.dir, f.rhs, compute.sens=TRUE)$duals
#visualizando a montagem do problema de LP print(lprec)
#resolvendo o modelo de PL (retorna 0, caso tudo esteja correto) solve(lprec)
#chamando a função de apresentação relat.lprec(lprec)
erior
0e+
0e+
5e+