Контрольная работа: Иммитационное моделирование работы магазина

savevalue (baseintp+X$tmp),(p$intp#100)

savevalue (basenum+X$tmp),(p$num#100)

rret advance (exponential(1,0,p$intp))

split 1,rret

assign 1,(basenummag+p$tip)

assign 2,(exponential(1,p$num/2,P$num/2))

test le p2,x*1,next

savevalue p1-,p2

savevalue sumout+,p$num

next buffer

savevalue delta,(x$sumin-x$sumout)

terminate 1

; завоз

generate 0,0,0.1,20

savevalue tmp1+,1

assign 1,(baseintp+x$tmp1)

assign 2,(basenum+x$tmp1)

assign intp,(x*1)

assign num,x*2

assign tip,X$tmp1

rret1 advance (exponential(1,0,p$intp))

split 1,rret1

assign 1,(basenummag+p$tip)

assign 2,(exponential(1,p$num/2,P$num/2))

savevalue p1,(x*1+p2)

buffer

savevalue sumin+,p2

terminate

start 15000