用GRIP编写的一个遍历算法，但是只能运行一部分，把程序写在下边，大家指教一下！

wangcong554

这是我编写的一个程序，思路如下，首先利用ident函数选择目标检测体和检测实体，，然后让每一个目标检测体和检测实体进行干涉分析，如果发生干涉就进行布尔求差运算，检测完一个后进行下一个，到完为止，但是运行时（我只选择了两个目标检测体两个检测实体）只有一半能运行，请大家指教程序错在哪里。
entity/ent1(1000),ent2(1000)
number/a(30,30),i,j
  v: H% m* o7 u  }' S3 Y! k8 F- ii=0
% n: Z/ U  s# k0 i/ tj=0
! R3 F4 m( ~1 n( w. e4 w3 [l10:
! ]% C8 f# z* x( eident/'pick target entity',ent1,cnt,num1,resp
: `* \' P: a0 i4 ^7 ujump/l10:,trm:,,resp
% k% p5 O* R) l- s. @l20:
* C, C4 n- {; V, @6 Vident/'pick the entities to check',ent2,cnt,num2,resp
jump/l20:,trm:,,resp

4 F/ G( {& w7 s" ~0 rl30:
i=i+1
( C( Z1 O  U/ s. H, Y: o/ P3 sj=0
l40:
  Q" j+ q8 U( a+ D9 m' _j=j+1
intfer/ent1(i),with,ent2(j),result,a(i,j)
print/a(i,j)
if/a(i,j)==3,ent1(i)=SUBTRA/ent1(i),with,ent2(j)
; p+ q2 J8 l& L: H4 Ol50:
if/j<num2,jump/l40:
, ]7 i! c1 d9 u' G( g, G- e- @l60:
6 ]# K* K+ h( M) L$ ]if/i<num1,jump/l30:
if/i>=num1,jump/trm:
6 k; {$ X. A7 I- Ptrm:
halt
3 t% N% J  y5 w  u7 ]# t0 b4 U
运行完后错误提示如下：
Error 820022 at line 21 intfer.
internal error:invalid solid object tag
请大家指教一下错在哪里，怎么改！
( }/ @; U. e* w2 J, g谢谢

圆月

高难度东西啊，无语

danyfer

报错的原因是前面在检查过程中已经有实体发生干涉，进行了布尔运算，尸体已经不错在，再去进行比较，肯定会找不到实体了。invalid solid object tag4 ，要想解决这个问题只有在进行布尔运算的时候再复制出两个相同的实体，并且命名为原来的名字。用transf命令吧，否则就要在后面的条件中跳过已经进行了运算的实体。

danyfer

( E3 @- \8 P- D# Q/ N
% m- D* w: ]1 p5 P4 I- e- Z报错的原因是前面在检查过程中已经有实体发生干涉，进行了布尔运算，实体已经不错在，再去进行比较，肯定会找不到实体了。invalid solid object tag4 ，要想解决这个问题只有在进行布尔运算的时候再复制出两个相同的实体，并且命名为原来的名字。用transf命令吧，否则就要在后面的条件中跳过已经进行了运算的实体。

yl.fu

太棒了 太棒了

wangcong554

谢谢！！！