|
楼主 |
发表于 2016-11-29 15:08:34
|
显示全部楼层
本帖最后由 mrlgs 于 2016-11-29 15:10 编辑
还有就是为什么我输入的都会在输入完显示
蓝色框的我想隐藏
我的源码
Define a.perv()=
Prgm
:setMode(5,1)
:Request "抗震等级(1,2,3,4)",a1
:Request "设防烈度(6,7,8,9)",a2
:Request "剪跨比",a3
:Request "混凝土强度设计值",a4
:Request "配箍率特征值λ",a5
:Request "钢筋强度设计值",a6
:a7:=ifFn(a4<16.7,((16.7*a5)/(a6)),((a4*a5)/(a6)))
:a8:=ifFn(a1=1,ifFn(a7>0.008,a7,0.008),ifFn(a1=2,ifFn(a7>0.006,a7,0.006),ifFn(a1=3 or a1=4,ifFn(a7>0.004,a7,0.004),0)))
:a9:=ifFn(a1=1 and a3≤2 and a2=9 and a8≤0.015,0.015,ifFn(a3≤2 and a8≤0.012,0.012,a8))
:Disp [["计算的体积配箍率=",a7]["根据抗震等级修正",a8]["根据剪跨比及抗震修正",a9]]
:EndPrgm
|
|