设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 14243|回复: 2

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

[复制链接]
发表于 2009-4-4 23:58:32 | 显示全部楼层 |阅读模式
5仿真币
想请版上的人帮我看看我这段code中的一个错误,我刚学Automod没多久,实在找不出错在什么地方了,谢谢% R- B2 `* B' m( D, f( A! ~1 X
  u* G- g* e9 ^1 E2 o
我的问题是,在每个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中的数值,不知道会不会有什么不妥。
( ^/ d& K9 v  b, }  H6 \5 T* {: @2 H1 v$ C! [/ Z% |
begin P_read arriving8 H  H* x2 j& y* q+ y, W( o. H# F5 [% I
    while 1=1 do begin
$ F5 A# o5 c; C2 p# o/ s! r        read A_tote from "data.txt" with delimiter "\n"
  A7 x& w. v  d1 s        read A_time from "data.txt" with delimiter "\n"
; Z6 D4 k9 \  m; g( G        read A_leave from "data.txt" with delimiter "\n"
) k# ^, @+ S1 t2 O        read A_picks from "data.txt" with delimiter "\n"4 k0 |: Z8 k9 u, s% e  {8 g! O
        set load type to A_tote
2 A9 a$ }$ s/ X8 M2 N7 d+ j& |, E        if A_tote="tote 1" then set A_induct to 1/ x& L* x9 G* q
        else if A_tote="tote 2" then set A_induct to 2
% b1 q/ D3 N/ s. j            else set A_induct to 3    - x  ?' ?4 J4 b4 X' X- R
        set A_i to 0
6 n' T- y4 Q5 L. a' X        clone 1 load to P_induction7 s5 e6 ^# c) w
        wait for A_time sec
: M" J: B' t2 A! E5 E: Y# Z3 Y    end$ D8 Z/ u" z. r- i1 n- G: e
end
4 C+ P5 I' ^( S* ^
' l$ r- C( n4 F! m( c2 Wbegin P_induction arriving
5 d# ^/ |7 y- C% k    if A_induct=1 then clone 1 load to P_pick12 q( x# p  _& a% V: h& G  L9 `
    else if A_induct=2 then clone 1 load to P_pick2
3 I8 Q& J. q- f9 j# b" l        else clone 1 load to P_pick3
7 z9 ~6 s- q% w1 Wend
& W, G& w! S0 |$ {+ [  x% R* Z. U) _# ~
begin P_pick1 arriving
/ C% j: t) B: {' h0 j7 F& h$ Y& J    set A_i to 1
2 S) f/ ]8 I4 f    move into Q_induct1$ _1 k( X0 h- z; {7 v$ F, m
    move into pickaisle.induct13 R* N5 q; V7 W* n4 B* V2 D
    while A_i<=30 do begin! |4 k1 p6 H1 @; A% O
        travel to pickaisle.con(A_i)
4 W& a! o6 \9 n2 }        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec
  s+ _& ?8 ?7 i+ R        else wait for 10 sec5 d4 O+ ^2 ^. w4 {# P3 P" R& @
        if A_i=A_leave then send to die
* \, n5 ]/ H; z$ j        else inc A_i by 1: Q- Q6 ?) ~) Q( P, @
    end
: E9 R2 h# T. m% N0 S, f$ K- Oend# D# h; h% I: ^
  ^+ L* y% A" g9 P% v5 }
begin P_pick2 arriving- M2 Z- i& C6 j, y! y5 R
    set A_i to 116 }1 Q: Z$ a7 a* K. c0 r  F6 L7 ^
    move into Q_induct2( @  g. p0 q6 N( L1 l
    move into pickaisle.induct2
* i* b# @2 V# a6 Z9 h; G    while A_i<=30 do begin
- k- d+ A$ @+ I# T- s3 E5 s4 T        travel to pickaisle.con(A_i)% f( H: O3 B. t( W, M- i/ \% e
        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec
+ ?8 X& {" {1 S1 E        else wait for 10 sec' i& H3 q: [) D- c) ^, Y2 J
        if A_i=A_leave then send to die: r& l. W, n' x3 @- v2 i2 R  n1 U
        else inc A_i by 1
! ^9 F+ O( e1 [$ U; f    end; S! x, v7 ~5 `. u, m% B! ]* v" s7 O
end
! o5 l& l* U8 \0 ^+ n+ v
9 L0 i" M) ?" T% J$ X6 Y- A  Abegin P_pick3 arriving- M+ s/ o, f! i2 f1 z# O
    set A_i to 21
. Q2 c# Q" f0 X9 D6 H5 @  ?    move into Q_induct34 h0 m7 A$ I7 p
    move into pickaisle.induct3
* w' {6 S$ o2 s1 W- n" G    while A_i<=30 do begin
/ F2 F" H6 ~7 F. f0 {/ {        travel to pickaisle.con(A_i)( k+ U$ \, v" v
        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec
2 o( \% I' A& g8 p( l, A2 Y        else wait for 10 sec
+ ~8 b+ d+ W# z$ M        if A_i=A_leave then send to die
/ h/ i, G( S7 |) _: u5 p" c        else inc A_i by 1
: ?3 h  B7 j; j7 E* y    end
- A" h3 n9 W2 G0 P  \5 d- q+ g5 Uend

最佳答案

查看完整内容

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是个什么东东?
: w+ @$ c" }# E1 D" tmove into后面,应该是一个station或control point,或者Queue/Container/Vehicle/Segment之类的东西。看你的报错信息,这个induct是个path么?8 B" r, H1 R# E: c" D
$ M: M: o7 Q5 s" W! j7 F  K! f
AutoMod Editor的语法报错信息,有时候会指在下一行,必要的时候要把上下几行都看一下。
/ a5 B& F0 E4 }/ F' d7 h$ A7 {$ p. J  B! a6 T
另外,你的几个P_pick是完全重复的,建议以如下方式修改,可以减少代码编写量:
5 f0 h7 ^2 E; C0 Q$ n1. 创建一个Process:名称为P_pick,number of Processes为3,其它按你的需要设置;删除那几个P_pick;
$ B6 t! |8 o& E2. 创建一个Queue:名称为Q_induct,number of Queues为3,其他按你的需要设置并放置;删除那几个Q_induct;
0 V# u% m" w- ]9 n9 D" ~) p" Y3 l3. 以如下方式改写P_induction和几个P_pick的arriving procedure的代码:2 w8 w* C/ g0 ]# c* ^
begin P_induction arriving8 \8 M' a6 u, ~7 X$ T8 }
    clone 1 load to P_pick(A_induct)& y- U0 L# @! s! m2 `
end最大的系
; J, P0 b% S( x2 \, S! |% Z$ b& [+ Z7 ?: z4 Z% b6 a8 b& ?
begin P_pick arriving
% E1 `1 z2 Z- x    set A_i to procindex * 10 + 10 r9 z% b$ @- f6 g. u* X: Y) c
    move into Q_induct(procindex)
; o0 g8 Z9 S. v: f    move into pickaisle.induct(procindex)
! i  `- Y$ X" s9 p( y    /*check the type of pickaisle.induct(i), for your last problem.*/% o; I0 ]7 J6 `: d8 |5 J1 g( z& j

: I: C; L" H3 n0 b% n: ]- M    while A_i<=30 do begin+ [  w3 k$ f; A( I  R, e% N0 `
        travel to pickaisle.con(A_i)
& D0 f& {  s$ w9 W' a        if A_picks(A_i)<5 then wait for 5*A_picks(A_i) sec; E! x" ]! z, }# _
        else wait for 10 sec8 ^( x! k% W8 T5 a/ S$ h0 W
        if A_i=A_leave then send to die6 p9 q' s2 s" m2 z
        else inc A_i by 1
0 S4 s1 A9 l( p. e, S6 k    end
: |& y! H$ C9 v) x, h7 Mend
2 W! K* |+ p. r+ L* y" H
5 ^' F0 p' D" k# {其中的procindex为整形,代表当前process的序号。3 ?3 Z# L& a- W& {: X0 v5 G
station和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-6-24 00:17 , Processed in 0.016302 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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