求助grip错误，谢谢

zhaozhao427

number/k,j,m,z,B,i,toolinc,trans(12),trans1(12),$

rot(12),rot1(12),mat(12),mat1(12),mat2(12),pi

entity/cur(10),gear(1000,1000),gear2(1000,1000),tool(1000,1000)

pi=3.14

z=60

m=12

B=10

k=20

$$lb100:

$$param/'输入加工参数','模数',m,$

$$'齿数',int,z,$

$$'齿轮宽',k,$

$$'螺旋角',B,respond

$$jump/lb100:,stop:,,respond

$$刀具

cur(3)=circle/38,0,0,5

tool(1,2)=solext/cur(3),height,1.5

delete/cur(3)

mat1=matrix/yzrot,90-B

mat2=matrix/transl,0,0,-4

mat=matrix/mat1,mat2

tool(1,1)=transf/mat,tool(1,2)

delete/tool(1,2)

$$齿轮毛坯

cur(1)=circle/0,0,0,25

cur(2)=circle/0,0,0,35

gear(1,1)=solext/cur(1..2),height,k

delete/cur(1),cur(2)

mask/omit,70

5 r  _- y4 ~' E& J& ]delete/all

$$运动仿真

toolinc=0.5

trans1=matrix/transl,0,0,-(k+12*toolinc)

rot1=matrix/xyrot,5

do/lb110:,i,1,z,1

do/lb120:,j,2,k/toolinc+12,1

trans=matrix/transl,0,0,toolinc

tool(i,j)=transf/trans,tool(i,j-1)

/ a; h/ S, k0 G# k6 T+ j! ?gear2(i,j-1)=subtra/gear(i,j-1),with,tool(i,j-1)

3 _. L) `$ d3 V( Y" Zrot=matrix/xyrot,-(360*toolinc*sinf(B)/cosf(B))/(m*z*pi)

gear(i,j)=transf/rot,gear2(i,j-1)

) ]' H' g( y7 Y5 b( D+ F' x$ zdelete/gear2(i,j-1)

lb120:

8 T) }9 v+ Q8 J, O2 W# n) htool(i+1,1)=transf/trans1,tool(i,k/toolinc+12),move

8 M5 R' R' ^8 n! c7 d$ ~gear(i+1,1)=transf/rot1,gear(i,k/toolinc+12),move

lb110:

% u* q- m. D' p' tmessg/'success!'

( E: ?* @7 i) K& x" c$$ delete/tool(k/toolinc+12)

- Y: K& e. g0 omask/omit,70

: u0 k( U) ^  E! [- O) ~- u$ @1 ~delete/all

$$stop:

Halt

这是一个加工仿真程序，编译可以通过，但是运行的时候中间会出错，求高手指点，谢谢