DECL/COMMON,CHAR,20,BARAXISDECL/LOCAL,INTGR,NUM,NUM_DOdecl/COMMON,REAL,ERROR1,ERROR2,MAXERROR,MINERROR,MAXMINdecl/COMMON,REAL,VI,VJ,VK,VIABS,VJABS,VKABSRECALL/D(MCS)MODE/MANNUM_DO=PROMPT/'请输入打点数'F(PT0)=FEAT/POINT,CART,0,0,

DECL/LOCAL,REAL,LPEND,HEIGHT,TOLERROR,LL,CRDVCE,PROBVCEDECL/LOCAL,CHAR,20,BARAXIS,PROB,ANSDECL/COMMON,DOUBLE,DR_PRBRAD,PRO_APPRCH,PRO_RETRCT,MSVELDECL/COMMON,DOUBLE,VI,VJ,VK,VI2,VJ2,VK2,DCX,DCY,DCZ,DX,DY,DZ,BARDIR,DMAX,DMINDECL/C

DECL/COMMON,INTGR,Doloop,DONUM,LSTEPDECL/COMMON,DOUBLE,DR_PRBRAD,TOL2,TOL1DECL/COMMON,DOUBLE,VI,VJ,VK,VI2,VJ2,VK2DECL/COMMON,DOUBLE,GAGEHEIGHT,GAGEWIDTH,ENDCLEARDECL/COMMON,DOUBLE,BLENGTH[30],ZP,XP,BL,LBDECL/CHAR,20,PROB$$步距规步长30，可

DECL/LOCAL,REAL,LPEND,HEIGHT,TOLERROR,LL,CRDVCE,PROBVCEDECL/LOCAL,CHAR,20,BARAXIS,PROB,ANSDECL/COMMON,DOUBLE,DR_PRBRAD,PRO_APPRCH,PRO_RETRCT,MSVELDECL/COMMON,DOUBLE,VI,VJ,VK,VI2,VJ2,VK2,DCX,DCY,DCZ,DX,DY,DZ,BARDIR,DMAX,DMINDECL/C