USEPRB PRB(901)
MEPLA MA_PLA, , REFR$CSY, , NOE
MECIR MA_CIR0, , , MA_PLA, NOE
MECIR MA_CIRMY, , , MA_PLA, NOE
COLPTS MA_AXIMY, , , (MA_CIR0,MA_CIRMY)
BLDAXI MA_AXIMY
BLDCSY MA_CSY, , , MA_PLA, Z, , MA_AXIMY, -Y, , MA_CIR0, , MA_CIR0, , MA_PLA
MEPLA PLATOP, , MA_CSY
!DELNPT PLATOP, Y
STOP
TRAELE CIRMY, MA_CSY, MA_CIRMY, CSY
ADDEVA CIRMY
GENCYL CYL(1), , -60, 2, 62, 15, , O, 60, 120, 3, MA_CSY, 18, 3, , 25
MECYL CYL(1), , MA_CSY
PEPNTAXI PE, , MA_CSY, , MA_CIR0, , CYL(1)
BLDCSY CSY, , , PLATOP, Z, , PE, -Y, , MA_CIR0, , MA_CIR0, , MA_PLA
DO I, 1, 5, 1
TRAOBJ CYL(I+1), CYL(I), , , , 72, Z, , , CSY
MECYL CYL(I), , CSY, , , , , , , , , , CY1
CONECT INTPNT1(I), POI, CSY, INT, CYL(I).$AXI, AXI, MA_PLA, PLA, , , , , , , NOE
CONECT INTPNT2(I), POI, CSY, INT, CYL(I).$AXI, AXI, PLATOP, PLA, , , , , , , NOE
GETVAL RA(I), CYL(I).EVA(3), D
ENDDO
STOP
DM=2*(RA(1)+RA(2)+RA(3)+RA(4)+RA(5))/5
COLPTS COLCYL, CSY, , (ELE:INTPNT2(),ELE:INTPNT1())
EDTAPT COLCYL
BLDCYL COLCYL, , CSY, , , , DM, , O, , , , , , , , IM
BLDCSY CSY1, , , COLCYL, Z, , PE, -Y, , COLCYL, , COLCYL, , MA_PLA
STOP
MECYL CYL_79, , CSY1, , , , , , , , , , CY1
!MECYL CYL_86, , CSY1, , , , , , , , , , CY1
SQRNES SQR_58, PLATOP, , , COLCYL
!SQRNES SQR_86, CYL_86, CYL, , MA_PLA
!PARALL PAR, PLATOP, , , MA_PLA
!DIPNTSRF DI, , CSY1, , PLATOP, , MA_PLA
!POSITN POS, CYL_74, CYL, CSY1.$XY, CSY1.$YZ, CSY1.$ZX, , 0, 0
!RADRUN RAD, MA_CIR0, CSY1.$ZAX
LISEVA (CYL_79,COLCYL,SQR_58)
LISREA (REA:RA())
以上是外转子测量程序,测量外转子不用扫描,内转子测量是用2维曲线扫描得到实际曲线,与输入计算机的名义曲线做最佳拟合,然后评价出曲线误差,绘制出误差图形。