mirror of
https://github.com/Steffo99/appunti-magistrali.git
synced 2024-11-24 03:04:18 +00:00
76 lines
2.9 KiB
Modula-2
76 lines
2.9 KiB
Modula-2
|
/*
|
|||
|
|
Un grossista gestisce nel suo magazzino P tipi di prodotti differenti.
|
|||
|
|
- [x] Ogni prodotto k = 1..P ha un volume di v_k unit<EFBFBD>.
|
|||
|
|
- [x] Ogni prodotto ha una domanda stimata, per le prossime T settimane, pari a d_{tk} (t = 1..T).
|
|||
|
|
- [x] L'approvigionamento di ogni prodotto k <EFBFBD> limitato a un massimo di m_k unit<EFBFBD> per settimana.
|
|||
|
|
- [x] Il volume totale disponibile nel magazzino <EFBFBD> pari a V.
|
|||
|
|
- [x] Ogni prodotto k non pu<EFBFBD> occupare pi<EFBFBD> di V_k unit<EFBFBD> di spazio in magazzino.
|
|||
|
|
- [x] Alla settimana t = 0 il magazzino dispone di I_{0k} unit<EFBFBD> di ogni prodotto k.
|
|||
|
|
- [x] Alla fine della settimana T devono rimanere in magazzino s_k unit<EFBFBD> di ogni prodotto k.
|
|||
|
|
- [x] In ogni settimana si pu<EFBFBD> ordinare (o meno) ogni prodotto k al rispettivo fornitore.
|
|||
|
|
- [x] Il prodotto viene consegnato al magazzino nella stessa settimana.
|
|||
|
|
- [x] Ogni ordine di prodotto k non pu<EFBFBD> essere inferiore a una data quantit<EFBFBD> minima q_k.
|
|||
|
|
|
|||
|
|
Si scriva un modello di programmazione lineare per aiutare l'azienda a definire una politica di approvigionamento che permetta di soddisfare la domanda, nel rispetto di tutti i vincoli e minimizzando la giacenza media delle T settimane.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
# Numero di prodotti
|
|||
|
|
param P;
|
|||
|
|
|
|||
|
|
# Numero di settimane
|
|||
|
|
param T;
|
|||
|
|
|
|||
|
|
# Domanda per ogni prodotto
|
|||
|
|
param domanda{1 .. P, 1 .. T}, >= 0;
|
|||
|
|
|
|||
|
|
# Offerta per ogni prodotto
|
|||
|
|
param approvigionamento{1 .. P}, >= 0;
|
|||
|
|
|
|||
|
|
# Quantit<EFBFBD> in magazzino di ogni prodotto alla settimana 0
|
|||
|
|
param quantitaIniziale{1 .. P}, >= 0;
|
|||
|
|
|
|||
|
|
# Capacit<EFBFBD> in magazzino massima di ogni prodotto
|
|||
|
|
param capacita{1 .. P}, >= 0;
|
|||
|
|
|
|||
|
|
# Capacit<EFBFBD> massima in totale
|
|||
|
|
param capacitaTotale, >= 0;
|
|||
|
|
|
|||
|
|
# Quantit<EFBFBD> minima di ogni prodotto che deve rimanere in magazzino alla fine dell'ultima settimana
|
|||
|
|
param safety{1 .. P}, >= 0;
|
|||
|
|
|
|||
|
|
# Dimensione minima di un ordine
|
|||
|
|
param ordineMinimo{1 .. P}, >= 0;
|
|||
|
|
|
|||
|
|
# Quantit<EFBFBD> da ordinare ogni settimana di ogni prodotto
|
|||
|
|
var ordine{1 .. P, 1 .. T}, >= 0;
|
|||
|
|
|
|||
|
|
# Quantit<EFBFBD> in magazzino di ogni prodotto
|
|||
|
|
var quantita{1 .. P, 1 .. T}, >= 0;
|
|||
|
|
|
|||
|
|
# Quantit<EFBFBD> totale di prodotti in magazzino
|
|||
|
|
var quantitaTotale{1 .. T}, >= 0;
|
|||
|
|
|
|||
|
|
|
|||
|
|
# All'ultima settimana, la quantit<EFBFBD> deve essere almeno safety
|
|||
|
|
c1{p in 1 .. P}: safety[p] <= quantita[p, T];
|
|||
|
|
|
|||
|
|
# La quantit<EFBFBD> di ogni prodotto deve sempre essere minore della capacit<EFBFBD> e la safety.
|
|||
|
|
c2{p in 1 .. P, t in 1 .. T}: quantita[p, t] <= capacita[p];
|
|||
|
|
|
|||
|
|
# Ci possono essere massimo X prodotti in magazzino.
|
|||
|
|
c3{t in 1 .. T}: quantitaTotale[t] == sum{p in 1 .. P} quantita[p, t];
|
|||
|
|
c4{t in 1 .. T}: quantitaTotale[t] <= capacitaTotale;
|
|||
|
|
|
|||
|
|
# Si pu<EFBFBD> ordinare al minimo X e al massimo Y prodotti ogni settimana
|
|||
|
|
c5{p in 1 .. P, t in 1 .. T}: ordine[p, t] >= ordineMinimo[p];
|
|||
|
|
c6{p in 1 .. P, t in 1 .. T}: ordine[p, t] <= approvigionamento[p];
|
|||
|
|
|
|||
|
|
# La quantit<EFBFBD> <EFBFBD> uguale alla somma degli ordini e della quantit<EFBFBD> iniziale
|
|||
|
|
c7{p in 1 .. P, t in 1 .. T}: quantita[p, t] == quantitaIniziale[p] + sum{u in 1 .. t} ordine[p, u] - sum{u in 1 .. t} domanda[p, u];
|
|||
|
|
|
|||
|
|
# Funzione obiettivo
|
|||
|
|
minimize sol: sum{t in 1 .. T} quantitaTotale[t];
|
|||
|
|
solve;
|
|||
|
|
|
|||
|
|
end;
|