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

（十三）、定义Source File

代码如下

begin Pread arriving

while 1=1 do

begin

wait for e 6 min

read Afront,Amiddle,Aback,Astock from

"C:/automod/12_6/demos/gswa/data1.txt" at end send to die clone 1 load to Pinitial

end

end

begin Pinitial arriving procedure

move into Qinitial

wait for n 5,1 min

move into Qpark

wait for u 20,5 min

send to Pdock

end

begin Pdock arriving procedure

set Adock to oneof(1:1,2:2,3:3,4:4)

move into Qdock(Adock)

get Rdockworker

get Rliftfork

while Afront+Amiddle+Aback+Astock >0 do

begin

set Atype to oneof(Afront:1,Amiddle:2,Aback:3,Astock:4) if Atype = 1 then

begin