- UID
- 58214
- 好友
注册时间2010-9-27
威望值 点
最后登录1970-1-1
激情值 点
积分1055
认证分 分
齿轮币 枚
回帖0
|

楼主 |
发表于 2012-6-21 16:45
|
显示全部楼层
费思量 发表于 2012-6-18 12:36
太好了!很适合中学生练习简单的程序设计用。虽然麻烦些,但也可当科学计算器用。
螺栓受轴向静载荷计算
最大轴向力: Fa=2500
螺纹大径: D=6
螺纹螺距: P=1
螺栓材料(10,Q215A,Q235A,35,45,15MnVB,40Cr,30CrMnSi):
m="45"
连接类型(松连接类型为1,紧连接类型为2):
type=2
安全系数:
if(type eq 1)
ss=(1.2+1.7)/2= 1.45
else
ss=choose[D <= 16,(4+3)/2;D >16 and D<=30,(3+2)/2;D>30,(2+1.3)/2]= 3.5
end if
螺栓屈服强度(MPa):
if(m eq "10")
Qs=210
else if(m eq "Q215A")
Qs=220
else if(m eq "Q235A")
Qs=240
else if(m eq "35")
Qs=320
else if(m eq "45")
Qs=360
else if(m eq "15MnVB")
Qs=800
else if(m eq "40Cr")
Qs=(650+900)/2= 775
else if(m eq "30CrMnSi")
Qs=900
else
alert("请选择正确的螺栓材料!")
end
end if
强度计算:
许用应力(MPa): Qx=Qs/ss= 102.8571
计算应力(MPa): Qj=among[type eq 1,Fa/(pi/4*(D-P)^2),1.3*Fa/(pi/4*(D-P)^2)]= 165.5211
if(Qj <= Qx)
alert("螺栓强度足够!")
else if(Qj > Qx)
alert("螺栓强度不够!")
end if
|
|