设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 15464|回复: 2

[求助] Automod Syntax 编译的一个问题

[复制链接]
发表于 2009-4-4 23:58:32 | 显示全部楼层 |阅读模式
5仿真币
想请版上的人帮我看看我这段code中的一个错误,我刚学Automod没多久,实在找不出错在什么地方了,谢谢+ o, j2 e% Q/ ~7 O6 o

# C5 x7 y3 i4 Q0 r- J: ^' z我的问题是,在每个P_pick的process中的while循环内,总显示错误Expecting QueuePtr or Location, but found PathPtr. 在我定义所有的attribute的时候,从来没有定义过任何QueuePtr or location or PathPtr,为什么会出现这种错误呢。 我这里面A_picks是一个30x1的array的load attribute,我想用A_i这个load attribute来读取这个array中的数值,不知道会不会有什么不妥。3 j# f7 m+ g) C, \7 ^
7 b; T: U9 C1 p. D; A0 L) x5 w; F
begin P_read arriving
- M% r' {2 j6 h" a0 \: A    while 1=1 do begin( k$ G, }/ V' y* y
        read A_tote from "data.txt" with delimiter "\n"8 _/ j: z$ s" S# R. s3 T; H
        read A_time from "data.txt" with delimiter "\n"! L0 \5 _% ~) w, p8 |, e
        read A_leave from "data.txt" with delimiter "\n"4 z5 Q# z2 l( v2 F
        read A_picks from "data.txt" with delimiter "\n"+ g' L! P! A* L0 ^
        set load type to A_tote
# f6 x3 k  x% h0 Z+ Y        if A_tote="tote 1" then set A_induct to 1
; [9 e! g- P/ K' O        else if A_tote="tote 2" then set A_induct to 2
' H6 d& I% K/ _4 F8 p+ m            else set A_induct to 3   
; E! g# g( ]' U- z, l& `        set A_i to 0
5 i4 Q. F% J4 V        clone 1 load to P_induction# O! e- G2 d0 M+ c  V" |. n, V
        wait for A_time sec
. H! E8 p0 Q" O. U& L    end6 G6 F8 c. C7 H( S) L# s
end. y, f) _( B( x. b& i; S  i) G

" S& u' W0 k2 j5 Z9 Q$ X0 m/ ]begin P_induction arriving
: ~* S6 \9 S2 f+ t& v    if A_induct=1 then clone 1 load to P_pick1
9 ~0 r1 L# x" m  M    else if A_induct=2 then clone 1 load to P_pick2
' n0 O* V$ Q; d        else clone 1 load to P_pick3) _4 p/ t6 L0 _( H- c8 s6 M
end
8 C+ T  e: s. T7 q
1 Z9 W: G( a" U0 u; _2 a8 ybegin P_pick1 arriving+ {: C( ~5 I4 [- R' w+ G
    set A_i to 1
0 k4 U4 j* D7 @' |    move into Q_induct1
9 L" T* @/ P$ h/ H    move into pickaisle.induct1
2 ~' S( d" K1 ^8 |    while A_i<=30 do begin! E! m' C( S+ N; O! K6 i# a& q4 K  n
        travel to pickaisle.con(A_i)/ N" I2 r  x  e/ f. ?. J
        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec
5 T' M( G* ^) A7 D4 _$ K3 t        else wait for 10 sec1 m/ ?$ m( H# @4 n. D- t8 v; `
        if A_i=A_leave then send to die
6 p/ _, O0 k; Q* v" k* D$ e        else inc A_i by 1
  c+ a5 s5 ]+ m. Y0 u    end
. ]6 E4 x  o, j5 X' W3 uend5 g2 h* |1 e$ t
: p  ]* ]4 ]4 g8 J- r6 y" |6 g
begin P_pick2 arriving
$ O; @! c' d. \4 [" K    set A_i to 11
- ^* B3 Z1 @+ ]) p3 r( D- \4 v$ D    move into Q_induct2
9 K+ d' w4 s' |. P, h/ H) o* }    move into pickaisle.induct2
# i; V9 a6 k8 \( @" |4 Q8 i    while A_i<=30 do begin: H/ C5 [, n" m+ G  |
        travel to pickaisle.con(A_i)1 U: k) y. k* d! z- b" l) E
        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec' R* T% o2 W2 d' D& K
        else wait for 10 sec# d# p- E0 }# V. J3 O3 @+ {
        if A_i=A_leave then send to die
  E# \1 O1 a& P* J/ F2 ~        else inc A_i by 15 |- s  a$ n' n0 y9 Y' W+ {
    end( ]( v2 z4 i4 s
end/ W/ D& q. r- f# s; X* }7 f
5 b9 Q7 j+ I) d% L- G" Q  C
begin P_pick3 arriving
" T- y- w2 G5 _( H+ N! A2 o    set A_i to 21: f% f) l  @# P1 a. C, M
    move into Q_induct3
  c4 E, g4 K3 K    move into pickaisle.induct35 ~, l& `1 y# ?. t+ }
    while A_i<=30 do begin+ O) _& W, t7 t. W  P
        travel to pickaisle.con(A_i), H' T! B5 p/ ?4 x5 m
        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec1 u6 F- ?9 i0 U4 t: v& P5 C
        else wait for 10 sec
* S+ Z1 W& N+ o; q0 p8 I        if A_i=A_leave then send to die
  B2 D8 e2 [7 H$ u  C. u' H        else inc A_i by 1
1 ]2 Y4 b. V: _( S    end# {1 |6 N4 ]+ j
end

最佳答案

查看完整内容

pickaisle.induct1/2/3是个什么东东? move into后面,应该是一个station或control point,或者Queue/Container/Vehicle/Segment之类的东西。看你的报错信息,这个induct是个path么? AutoMod Editor的语法报错信息,有时候会指在下一行,必要的时候要把上下几行都看一下。 另外,你的几个P_pick是完全重复的,建议以如下方式修改,可以减少代码编写量: 1. 创建一个Process:名称为P_pick,number of Processes为3,其它按你的 ...
发表于 2009-4-4 23:58:33 | 显示全部楼层
pickaisle.induct1/2/3是个什么东东?
. i' W' Y* p. K2 @' \! umove into后面,应该是一个station或control point,或者Queue/Container/Vehicle/Segment之类的东西。看你的报错信息,这个induct是个path么?
* x  @' w% J9 I+ D/ T% r. R
% M/ S1 W/ @- I2 E3 |% F9 KAutoMod Editor的语法报错信息,有时候会指在下一行,必要的时候要把上下几行都看一下。
* `8 z% J8 I7 n2 V- d$ ~7 N7 H% b1 P6 ]  d8 m# N. R. J
另外,你的几个P_pick是完全重复的,建议以如下方式修改,可以减少代码编写量:( v2 e! f4 A" I+ r7 A1 s
1. 创建一个Process:名称为P_pick,number of Processes为3,其它按你的需要设置;删除那几个P_pick;
% ~2 h& y/ O2 S; a2. 创建一个Queue:名称为Q_induct,number of Queues为3,其他按你的需要设置并放置;删除那几个Q_induct;' x7 ~7 b& @. T0 z
3. 以如下方式改写P_induction和几个P_pick的arriving procedure的代码:- P+ ]9 h9 ?# A' C2 g0 ]$ N6 V
begin P_induction arriving
, C- P: r, j* h    clone 1 load to P_pick(A_induct)
* ]! ^5 E& d. K; Q& Hend最大的系
" T% V/ `$ G8 U# G
1 Y, V! E5 a: R' L# @begin P_pick arriving- o: ^  h% N; e& `* X
    set A_i to procindex * 10 + 1
1 D4 b" y9 J. q    move into Q_induct(procindex)
  E/ J; |! p2 d) _! w: ?    move into pickaisle.induct(procindex)
* n: }- Z6 J% T$ ]2 N- N    /*check the type of pickaisle.induct(i), for your last problem.*/3 B/ z6 b4 k* \7 Z4 U2 V& v& h

( v8 T$ r5 G5 A8 V+ u    while A_i<=30 do begin
9 A. V  P& a# w% \& i8 g        travel to pickaisle.con(A_i)
$ {9 P, o% U0 A: g+ J7 z4 R3 C9 B" |  X        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec. Z7 G5 J3 e# t0 i1 S( h% {
        else wait for 10 sec" K1 ?) i" j( F' l6 |$ Y* r
        if A_i=A_leave then send to die9 V( `' j) Y0 z
        else inc A_i by 12 `7 z2 }' ]: U3 f9 d# D
    end
9 f! ~5 X" ~+ s" u3 send! @. x$ ]7 g$ h- J& H
' x, d; f" D8 j" i
其中的procindex为整形,代表当前process的序号。
, v. s  b# V' a3 R9 j: K4 Fstation和control point只要以数字结尾,都可以直接用作数组。如pickaisle.induct(procindex),当procindex为1的时候,和pickaisle.induct1是等同的。
发表于 2009-4-20 15:33:32 | 显示全部楼层
你的主要错误应该是在move into pickaisle.induct或者 travel to pickaisle.con这两个类型的语句中,因为你的编译说明的意思是类型混淆,你查一下报错的行数,应该就能找到问题,其他的问题慢慢调吧
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-9-12 03:20 , Processed in 0.016616 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表