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

, c) G. f$ |( d) F$ Gdelete/all

$$运动仿真

toolinc=0.5

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

8 I, H: P; Q* Drot1=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)

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

. B5 |+ g2 ^% S8 `rot=matrix/xyrot,-(360*toolinc*sinf(B)/cosf(B))/(m*z*pi)

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

! R* \0 S  ^+ a. x7 h' E- `delete/gear2(i,j-1)

lb120:

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

  T- ^( K' o% e: B0 [( H  a  Rgear(i+1,1)=transf/rot1,gear(i,k/toolinc+12),move

lb110:

messg/'success!'

. t; T9 ?: g' X# H5 N4 Z( r$$ delete/tool(k/toolinc+12)

mask/omit,70

( O3 v/ Y/ o5 G; L4 Q9 C$ x0 pdelete/all

$$stop:

Halt

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