!@encoding CP1252
model trabalho1 !nome do modelo
  uses "mmxprs" !usa XPRESS Optimizer

  declarations
    !variáveis de decisão
    MESES = 1..6
    x: array(MESES) of mpvar !Quantidade de dinheiro extraído da linha de crédito por mês
    y: array(MESES) of mpvar !Quantidade de 'papel comercial' dado por mês
    z: array(MESES) of mpvar !Fundos em excesso por mês
  end-declarations

  TAXA_x:= 1.01!1.015
  TAXA_y:= 1.02!-1.02
  TAXA_z:= 1.003!1.005

  RIQUEZA:=z(6)

  !restrições
  x(1)               + y(1)               - z(1)               = -150!-200 !fluxo de dinheiro para o mês de Janeiro
  x(2) - TAXA_x*x(1) + y(2)               - z(2) + TAXA_z*z(1) = -100!50 !fluxo de dinheiro para o mês de Fevereiro
  x(3) - TAXA_x*x(2) + y(3)               - z(3) + TAXA_z*z(2) =  200!-100 !fluxo de dinheiro para o mês de Março
  x(4) - TAXA_x*x(3)        - TAXA_y*y(1) - z(4) + TAXA_z*z(3) = -200!-50 !fluxo de dinheiro para o mês de Abril
  x(5) - TAXA_x*x(4)        - TAXA_y*y(2) - z(5) + TAXA_z*z(4) =   50!100 !fluxo de dinheiro para o mês de Maio
       - TAXA_x*x(5)        - TAXA_y*y(3) - z(6) + TAXA_z*z(5) =  300!250 !fluxo de dinheiro para o mês de Junho

  forall(m in MESES) x(m) <= 100!50                                     !limite da linha de crédito para todos os meses

  forall(m in MESES) x(m) >= 0                                      !não Negatividade
  forall(m in MESES) y(m) >= 0                                      !não Negatividade
  forall(m in MESES) z(m) >= 0                                      !não Negatividade

  !maximizar
  maximize(RIQUEZA)

  writeln("Solução do PL:")
  writeln(" Objectivo: ", getobjval)
  writeln(" Maximizar RIQUEZA =",getsol(RIQUEZA))
  forall(m in MESES) writeln("x(", m, "): ", getsol(x(m)))
  forall(m in MESES) writeln("y(", m, "): ", getsol(y(m)))
  forall(m in MESES) writeln("z(", m, "): ", getsol(z(m)))
end-model