Árbók VFÍ/TFÍ - 01.06.2000, Page 303
Ritrýndar vísindagreinar 301
INDICES
Bu: = 1 ..15;
Ss: = Bu;
Va: = 1..28;
Vísar
Svæði (mjólkursvæði,vinnslustöð, sölusvæði).
Samheiti fyrir Bu.
Afurðaflokkur.
DATA
FasKos[Bu]
BrlKos[Bu,Va]
FrlMog[Bu,Va]
VetFlu[Bu,Ss]
FjarKnt[Bu,Ss]
TaxHra
TaxVar
EftSpu[Ss,Va]
MjolkfBu]
StuRjo
StuUnd
HraRjo[Va]
HraUnd[Va]
MotGet[Bu]
FrlGet[Va,Bu]
Gögn
Arlegur fastur rekstrarkostnaður stöðvar (kr/ári).
Breytilegur kostnaður við að framleiða afurðaflokk Va í vinnslustöð Bu
(kr/kg).
Framleiðslumöguleikar: 1 ef vinnslustöð Bu getur framleitt afurðaflokk Va,
0 ella.
Vetrarsamgöngur: 1 ef opið er milli Bu og Ss á vetrum, 0 ella.
Vegalengdir milli svæða (km).
Flutningskostnaður fyrir hráefni (kr/km/lítra).
Flutningskostnaður fyrir afurðir (kr/km/kg).
Arleg eftirspum eftir afurðaflokki Va á sölusvæði Ss (tonn/ári). Fyrir geym-
sluvörur er öll eftirspum landsins sett á Reykjavík.
Mjólkurkvóti á svæði Bu (þús. lítrar/ári).
Hlutfall rjóma í hrámjólk (0.109 lítrar/lítra).
Hlutfall undanrennu í hrámjólk (0.981 lítrar/lítra).
Rjómanotkun í afúrðaflokki Va (lítrar/kg).
Undanrennunotkun í afurðaflokki Va (lítrar/kg).
Móttökugeta vinnslustöðvar Bu (þús. lítrar/ári).
Framleiðslugeta fyrir afurðaflokk Va í vinnslustöð Bu (tonn/ári).
VARIABLES
Rekid[Bu]
Framl[Va,Bu,Ss]
MjoFlu[Bu,Ss]
RjoFlu[Bu,Ss]
UndFlu[Bu,Ss]
Breytur
1 ef vinnslustöð Bu er rekin, 0 ef hún er lokuð (heiltölur).
Arleg framleiðsla afúrðaflokks Va í vinnslustöð Bu og flutt til sölusvæðis Ss
(tonn/ári).
Hrámjólk flutt frá svæði Bu til vinnslustöðvar Ss (þús. lítrar/ári).
Rjómi fluttur ffá vinnslustöð Bu til stöðvar Ss (þús. 1/ári).
Undanrenna flutt frá stöð Bu til stöðvar Ss (þús. lítrar/ári).
IMODEL Markfall
MIN Kostnadur = SUM(Bu: FasKos * Rekid)
+ SUM(Bu,Va,Ss: (BrlKos + TaxVar * FjarKm) * Framl)
+ SUM(Bu,Ss: TaxHra * FjarKm * (MjoFlu + RjoFlu + UndFlu));
SUBJECTTO Skorður
(1) Markad[Ss,Va]: SUM(Bu: Framl) > = EftSpu;
(2a) Rjomi[Bu]:
SUM(Va,Ss: HraRjo * Framl) = StuRjo * (Mjolk + SUM(Ss: MjoFlu[Ss,Bu] - SUM(Ss:
MjoFlu[Bu,Ss])) + SUM(Ss: RjoFlu[Ss,Bu]) - SUM(Ss: RjoFlu[Bu,Ss]);
(2b) Undan[Bu]:
SUM(Va,Ss: HraUnd * Framl) = StuUnd *(Mjolk + SUM(Ss: MjoFlu[Ss,Bu] - SUM(Ss:
MjoFlu[Bu,Ss])) + SUM(Ss: UndFlu[Ss,Bu]) - SUM(Ss: UndFlu[Bu,Ss]);
(3a) FraBui[Bu]: SUM(Ss: MjoFlu[Bu,Ss]) = Mjolk * (1 - Rekid);
(3b) TilBus[Bu]: SUM(Ss: MjoFlu[Ss,Bu]) < = (MotGet - Mjolk) * Rekid;
(3c) AnBus[Bu]: SUM(Ss: RjoFlu[Bu,Ss] + RjoFlu[Ss,Bu] + UndFlu[Bu,Ss]
UndFlu[Ss,Bu]) < = StorTala * Rekid; (StorTala er t.d. 1000000)
(4) Afkost[Va,Bu]: SUM(Ss: Framl) < = FrlGet; (gildir um tiltekna afurðaflokka)
(5) FjoldiBua: SUM(Bu: Rekid) > = MinFjoldi; (MinFjoldi er t.d. 10)
BOUNDS
Rekid[5] = 1; Dæmi um sér skorðu (stöð no. 5 verður að reka vegna samgangna).
BINARY
Rekid;
END