refactor

Author: emanuelcatao

problema_camisetas/camisetasParte2.dat

@@ -2,7 +2,7 @@ data;
 
 param custoNorm := 2.00;
 param custoExtra := 2.80;
-param custoDuasUltimas := 2.50;
+param custoSemanasFinais := 2.50;
 param custoArm := 0.20;
 
 param capacidadeNormal := 25000;

problema_camisetas/camisetasParte2.mod

@@ -1,6 +1,6 @@
 param custoNorm;
 param custoExtra;
-param custoDuasUltimas;
+param custoSemanasFinais;
 param custoArm;
 param capacidadeNormal;
 param capacidadeExtra;
@@ -18,28 +18,26 @@ param demanda{T in TIMES, i in S};
 
 var x{T in TIMES, i in S} >= 0; # quantidade de camisetas produzidas do time T na semana i
 var y{T in TIMES, i in SExtra} >= 0; # quantidade de camisetas produzidas extra do time T na semana i
-var v{T in TIMES, i in S} >= 0; # quantidade de camisetas vendidas do time T na semana i
+var vendas{T in TIMES, i in S} >= 0;
 var estoque{T in TIMES, i in S} >= 0; # quantidade de camisetas em estoque do time T na semana i
-var excedente{T in TIMES, i in S} >= 0;
 
 # maximizar lucro
 maximize Lucro:
-    sum{T in TIMES, i in S} (preco[T,i] * v[T,i] - custoNorm * x[T,i]) # preço liquido das camisetas sem1 e sem2
-    + sum{T in TIMES, i in SExtra} (preco[T,i] * v[T,i] - custoExtra * y[T,i]) # preço liquido das camisetas prodE
-    - sum{T in TIMES, i in inicioSemanasFinais..fimSemanasFinais} (custoDuasUltimas * x[T,i]) # custo fabricao semanas 3 e 4
-    - sum{T in TIMES, i in S} (custoArm * estoque[T,i]); # custo total de armazenamento 
+  sum{T in TIMES, i in 1..fimSemanasIniciais} (preco[T,i] * vendas[T,i] - custoNorm * x[T,i] - custoArm * estoque[T,i] - custoExtra * y[T,i])
+  + sum{T in TIMES, i in inicioSemanasFinais..fimSemanasFinais} (preco[T,i] * x[T,i] - (custoSemanasFinais * x[T,i]) - (custoArm * estoque[T,i]));
 
 
 # Atualização do estoque
 subj to atualiza_estoque{T in TIMES, i in S}:
-  estoque[T,i] = (if i == 1 then 0 else estoque[T,i-1]) + x[T,i] + (if i <= fimSemanasIniciais then y[T,i] else 0) - v[T,i];
+  estoque[T,i] = (if i == 1 then 0 else estoque[T,i-1]) + x[T,i] + (if i <= fimSemanasIniciais then y[T,i] else 0) - vendas[T,i];
+
 # o estoque e atualizado semana a semana, cada time tem um estoque de camisetas, ele e resultado
 # da soma do estoque do mes anterior com o excedente do mes atual (note que se o excedente e negativo
 #temos que o estoque sera reduzido.
 
 # de demanda (nao da para vender mais do que a demanda)
-subj to r_demanda{T in TIMES, i in S}: 
-    v[T,i] <= demanda[T,i];
+subj to restr_vendas1{T in TIMES, i in S}:
+  vendas[T,i] <= demanda[T,i];
 
 # de produção (não dá para produzir mais do que a capacidade normal)
 subj to prodN{i in S}: 
@@ -51,7 +49,7 @@ subj to prodE{i in SExtra}:
 
 # de estoque e producao (nao da para vender mais do que o estoque + producao)
 subj to venda_estoque_prod{T in TIMES, i in S}:
-  v[T,i] <= x[T,i] + (if i <= fimSemanasIniciais then y[T,i] else 0) + (if i > 1 then estoque[T,i-1] else 0);
+  vendas[T,i] <= x[T,i] + (if i <= fimSemanasIniciais then y[T,i] else 0) + (if i > 1 then estoque[T,i-1] else 0);
 
 
 end;