TS Lab7

cantitateCeasuriCerere FUNCTION RN1,D7
.1,10/.35,12/.65,18/.80,24/.92,30/.97,36/1,48

histTimpNecesarLivrare TABLE M1 100 100 200
histNumarImpachetariPerZi TABLE M1 100 100 200

timpImpachetar VARIABLE 120+10#p1
capacitateIntialaDepozit EQU 1000
capacitateMaximaDepozit EQU 4000

SAVEVALUE 1 0

GENERATE (Exponential(1,0,15))
ASSIGN 1 fn$cantitateCeasuriCerere

TEST LE p1 capacitateIntialaDepozit etichetaFinal
QUEUE impachetare
SEIZE masinaImpachetare
ADVANCE timpImpachetar
RELEASE masinImpachetare
DEPART impachetare

SAVEVALUE 1+ numarCeasuriImpachetate


etichetaFinal TERMINATE 1