参数化画蜗轮蜗杆程序总是有错，求大神指点！！

铝氢篌 · 发表于 2014-9-6 18:52

下面是程序，这四个错怎么才能改过来啊
INPUT
M NUMBER
Z1 NUMBER
Z2 NUMBER
DIA1 NUMBER
LEFT YES_NO
B NUMBER
ZXKJ NUMBER
END INPUT

RELATIONS
DIA2=M*Z2
A=(DIA1+DIA2)/2
HA=1
DA1=DIA1+2*HA*M
DF1=DIA1-2.5*HA*M
DA2=M*(Z2+2*HA)
DA2A=DA2+0.5*M
DF2=DIA2-2.5*M*HA
IF Z1==1|Z1==2|Z1==3
B1=0.75*DA1
ELSE
IF Z1==4
B1=0.67*DA1
ENDIF
ENDIF
IF B>B1
!*** 错误:关系中有一个错误.
B=B1
ENDIF

PA1=M*PI
LL=Z1*PA1
HA1=HA*M
HF1=1.25*M
IF Z1==1
WLWJ=DA2+2*M
ENDIF
IF Z1==2|Z1==3
WLWJ=DA2+1.5*M
ENDIF
IF Z1==4
WLWJ=DA2+M
ENDIF
GAMA=ASIN(B/(DA1-0.5*M))
R1=DA1/2+0.25*M
R2=DF1/2+0.25*M
DB=M*Z2*COS(20)
ALFAA=ACOS(DB/DA2)
ALFAF=ACOS(DB/DF2)
INVA=TAN(20)-20/180*PI
INVAA=TAN(ALFAA)-ALFAA/180*PI
!*** 错误:关系中有一个错误.
INVAF=TAN(ALFAF)-ALFAF/180*PI
!*** 错误:关系中有一个错误.
S=M*PI/2
FAIB=(S*2/DIA2+2*INVA)/PI*180
FAIA=S/DIA2*DA2-2*(INVAA-INVA)
IF DF2>DB
FAIF=S/DIA2*DF2-2*(INVAF-INVA)
ENDIF
IF DF2<=DB
FAIF=FAIB
!*** 错误:关系中有一个错误.
ENDIF
END RELATIONS