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

0 Z2 Z8 J' p6 Kdelete/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

: u) ]$ u% L+ h' Ctool(i,j)=transf/trans,tool(i,j-1)

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

# A% Q. F  L% q5 ?( A0 Nrot=matrix/xyrot,-(360*toolinc*sinf(B)/cosf(B))/(m*z*pi)

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

# \( q9 ^7 m# u4 A7 F; a7 `/ ^delete/gear2(i,j-1)

lb120:

tool(i+1,1)=transf/trans1,tool(i,k/toolinc+12),move

$ t& D# ^* B! o9 p) ?1 j7 L1 E: mgear(i+1,1)=transf/rot1,gear(i,k/toolinc+12),move

lb110:

7 ~9 K: p( t$ ]; ~/ [2 p0 Q/ Bmessg/'success!'

$$ delete/tool(k/toolinc+12)

mask/omit,70

delete/all

$$stop:

Halt

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