求助-生产系统仿真-第六章例子运行错误

soso001 · 发表于 2014-12-17 14:24:26

本帖最后由 soso001 于 2014-12-17 14:53 编辑

不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
j,k,nstep,c, scheduleteps,mincomptime:integer;
M:string;
selecTab:table[integer,integer,integer,string];
do
initorders;

scheduledorders.delete;
seletTab.create;

orders.initialize({2,1}..{2,*},0);
orders.initialize({4,1}..{4,*},0);
for j:=1 to numorders loop
orders[5,j]:=orders[1,j][2,1];
next;
occres.initialize({1,1}..{1,*},0);

--XUNHUAN
for scheduledsteps:=1 to numsteps loop --
selectab.delete;
k:=1;
for j:=1 to numorders loop

nstep:=orders[2,j]+1;
if nstep<=orders[3,j] then
selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
k:=k+1;

end;
next;
mincomptime:=selecttab.min({3,1}..{3,*});

from j:=1 until j>selectab.ydim loop

if selectab[2,j]<mincomptime then
j:=j+1;
else
selecttab.cutrow(j);
end;
end;

j:=selectionrule(selecttab);

nstep;+orders[2.j]+1;
orders[2,j]:=nstep;
m:=orders[1,j][1,nstep];
c:=orders[5,j]
occres[1,m]:=c;

--jieguo:start,end,res,job,step
scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
for k:=1 to numorders loop
nstep:=orders[2,k]+1;

if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
   --
then
orders[4,k]:=max(c,orders[4,k]);
--
orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
--
end;
next;
nstep:=orders[2,j]+1:
if nstep<=orders[3,j]

then
orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
end;
next;

print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
mygantt;
ens;

帐号		自动登录	找回密码
密码			注册

[求助] 求助-生产系统仿真-第六章例子运行错误

相关帖子

浏览过的版块

[求助] 求助-生产系统仿真-第六章例子 运行错误

相关帖子

浏览过的版块

[求助] 求助-生产系统仿真-第六章例子运行错误