Automod物流分拣仿真设计(8)

wait for n 40,5 sec

clone 1 load to Pconv nlt Lfront

dec Afront by 1

end

else if Atype = 2 then

begin

wait for t 25,35,40 sec

clone 1 load to Pconv nlt Lmiddle

dec Amiddle by 1

end

else if Atype = 3 then

begin

wait for e 55 sec

clone 1 load to Pconv nlt Lback

dec Aback by 1

end

else if Atype = 4 then

begin

wait for u 45,5 sec

clone 1 load to Pconv nlt Lstock

dec Astock by 1

end

end

free Rliftfork

free Rdockworker

end

begin Pconv arriving procedure

move into conv:sta(Adock)

if Atype = 1 then

begin

travel to conv:cpfront

move into Qfront

wait for 3 min

send to Pagv

end

else if Atype = 2 then

begin

travel to conv:cpmiddle

move into Qmiddle

wait for 3 min

send to Pagv

end

else if Atype = 3 then

begin