| 查看: 250 | 回复: 2 | ||
[求助]
求助一段程序的解释（不知道什么语言写的） 已有1人参与
|
|
select case REG(NDATA) case is =< 1000 select case REF(NDATA) case is =< 1000 CC(NDATA)=5 case is >1000 select case REF(NDATA) case is <2000 CC(NDATA)=(5/1000)*REF(NDATA) case is => 2000 CC(NDATA)=10 end select end select case is > 1000 select case REG(NDATA) case is <2000 select case REF(NDATA) case is =< 1000 CC(NDATA)=(7/1000)*REG(NDATA)-2 case is >1000 select case REF(NDATA) case is <2000 CC(NDATA)=((3/1000)*REG(NDATA)+2)*(REF(NDATA)/1000)+(4/1000)*REG(NDATA)-4 case is => 2000 CC(NDATA)=(10/1000)*REG(NDATA) end select end select case is =>2000 select case REF(NDATA) case is =< 1000 CC(NDATA)=12 case is >1000 select case REF(NDATA) case is <2000 CC(NDATA)=(8/1000)*REF(NDATA)+4 case is => 2000 CC(NDATA)=20 end select end select end select end select DPG(NDATA)=2*FG(NDATA)/DD*MG*JG(NDATA)^2 DPF(NDATA)=2*FF(NDATA)/DD*MF*JF(NDATA)^2 XX(NDATA)=sqr(DPf(NDATA)/DPg(NDATA)) DPT(NDATA)=DPF(NDATA)*(1+CC(NDATA)/XX(NDATA)+1/XX(NDATA)^2) EPS(NDATA)=(JG(NDATA)+JF(NDATA))/(VOID(NDATA)*MG+(1-VOID(NDATA))*MF)*DPT(NDATA) |
回复此楼
2楼2016-11-21 18:34:22
3楼2016-11-22 09:26:49
