求助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

( E" h) k9 \8 m6 idelete/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

; K) ^6 B) J$ a: wtrans=matrix/transl,0,0,toolinc

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

gear2(i,j-1)=subtra/gear(i,j-1),with,tool(i,j-1)

2 N0 }! V0 k" ^7 `7 V! f" q9 yrot=matrix/xyrot,-(360*toolinc*sinf(B)/cosf(B))/(m*z*pi)

; Z- H- t8 l1 Cgear(i,j)=transf/rot,gear2(i,j-1)

delete/gear2(i,j-1)

lb120:

6 W" X  j2 f  M* Ntool(i+1,1)=transf/trans1,tool(i,k/toolinc+12),move

, I/ e4 D: S! R$ t/ c# G2 Fgear(i+1,1)=transf/rot1,gear(i,k/toolinc+12),move

lb110:

& o" z2 D' B1 a8 n) imessg/'success!'

$ i) k; Y, O6 E4 g" }$$ delete/tool(k/toolinc+12)

- y% K& r! @1 M8 o- S2 hmask/omit,70

% N) P- ]9 f" ~/ X5 G5 U) odelete/all

$$stop:

Halt

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