物流系统建模与仿真
Work List
Park Lists为Vehicles卸完货闭置后仍找不到Loads去载运时，所要去停靠的控制点。
10
物流系统建模与仿真
设定cprsfrontin的Vehicles到cprsfrontout停靠
设定cprsfrontout的Vehicles到cplook01停靠
1.5.11模式画面布置
本模式的layout如下图所示，包括Process系统，Conveyor系统、Path Mover系统。
11
物流系统建模与仿真
1.5.12 Run Control的设定
1.5.13定义Source File beginPread arriving while 1 = 1 do begin
wait for e 6 min
12
物流系统建模与仿真
readAfront,Amiddle,Aback,Astock from \clone 1 load to Pinitial end end
beginPinitial arriving procedure move into Qinitial wait for n 5,1 min move into Qpark wait for u 20,5 min send to Pdock end
beginPdock arriving procedure setAdock to oneof(1:1,1:2,1:3,1:4) move into Qdock(Adock) getRdockworker getRliftfork
whileAfront+Amiddle+Aback+Astock> 0 do begin
setAtype to oneof(Afront:1,Amiddle:2,Aback:3,Astock:4) ifAtype = 1 then begin
wait for n 40,5 sec
clone 1 load to PconvnltLfront decAfront by 1 end
else if Atype =2 then begin
wait for t 25,35,40 sec
clone 1 load to PconvnltLmiddle decAmiddle by 1 end
else if Atype =3 then begin
wait for e 55 sec
clone 1 load to PconvnltLback dec Aback by 1 end
else if Atype = 4 then begin
wait for u 45,5 sec
clone 1 load to PconvnltLstock decAstock by 1 end end
13
物流系统建模与仿真
freeRliftfork freeRdockworker end
beginPconv arriving procedure move into cnv:stain(Adock) ifAtype = 1 then begin
travel to cnv:cpFront move into Qfront wait for 30 min send to Pagv end
else if Atype = 2 then begin
travel to cnv:cpMiddle move into Qmiddle wait for 30 min send to Pagv end
else if Atype = 3 then begin
travel to cnv:cpBack move into Qback wait for 30 min send to Pagv end
else if Atype = 4 then begin
travel to cnv:cpStock move into Qstock wait for 1 hr end end
beginPagv arriving procedure move into pm:cpin(Atype) ifAtype = 1 then begin
travel to pm:cprsfrontin move into QrsFrontIn setAnum to 12 getRfront
whileAnum> 0 do begin
wait for 3 min
14