材料力学上机大作业—梁的强度校核
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
材料力学上机作业题目五：梁的强度校核
［摘要］本程序使用Microsoft Visual Basic 编写，由输入梁的支撑条件，输入梁
的受力状态，实现了梁危险截面的最大正应力计算与梁的强度校核。在校核结果为否定的情况下还可由许用应力值进行部分截面设计和许用载荷计算等功能。
［数学原理及数学模型］
材料力学公式有： 1.梁弯曲正应力公式
z
z x
W M =
max
σ
2.抗弯截面系数
矩形截面 6
2
bh W z =
圆形截面 32
3
d W z π=
空心圆截面 )1(32
43
απ-=
D W z ， 式中 D
d =
α 3.采用一定数量级上的穷举法计算出最大弯矩Mz 。
［VB 所做软件］
1. 软件部分窗体截图
2.程序结构图
3.
［应用实例］
1.验证《新编材料力学》书中P247例12-9
该题由正应力强度条件求得题中矩形截面悬臂梁许用载荷为q≤9.1kN/m,现加载q=8kN/m，看是否符合正应力强度要求。
已知左悬臂梁l=3m,[σ]=120Mpa,b=80mm,h=160mm,整个梁承受向下的均布载荷q
解：
1.运行程序进入主页面
2.点击开始并选择支撑条件为左固定端悬臂梁，点击确定。如图
3.选择梁的截面形状并输入尺寸参数，点击确定。如图
4.输入受力条件，点击确定进行计算。如图
5.程序运行结果如图
计算结果与实际运算结果相同
2.求解《新编材料力学》P246例12-8。
解： 1.运行程序计入主界面，点击开始。
2.选择支撑条件为右外伸梁，点击确定。
3.选择梁的截面形状并输入尺寸，点击确定。如图，（不妨先设b=10，h=30。注意，
应避免b或h为零以防止出现除数为零的情况使程序出错）
4.输入受力情况及右支架位置并点击确定，如图（如果未能输入右支架位置，可
能使程序出错）
5.得到计算结果
计算结果与答案b=30mm，h=60mm一致，不过以截面抗弯系数代替截面具体尺寸。
其中小数点后的微量误差受穷举法所采用数量级的影响。
值得注意的是，由于本程序涉及的截面形状及载荷种类较多，而且载荷位置不固定，因此截面设计和许用载荷计算难以得到最终的具体结果。时间仓促，为减小工作量，本程序将许用载荷计算简化为梁截面所能承受的最大弯矩的计算。将截面设计略微简化为截面最小抗弯系数的设计。验证表明，计算结果同样精确。
[主要算法代码和部分窗体截图]：
部分窗体截图：
Form9窗体内源代码：
Private Sub Command1_Click() ‘进入实际工作界面’
Form0.Show
Me.Hide
End Sub
Private Sub Command2_Click() ‘若点击“结束”按钮则结束程序’
End
End Sub
Form0窗体内源代码：
Public l As Double ‘声明变量’
Public q As Double
Public f1 As Double
Public f2 As Double
Public f As Double
Public m1 As Double
Public m2 As Double
Public m As Double
Public x As Double
Public xa As Double
Public xb As Double
Public xq1 As Double
Public xq2 As Double
Public xf1 As Double
Public xf2 As Double
Public xm1 As Double
Public xm2 As Double
Public x1 As Double
Public x2 As Double
Public x3 As Double
Public x4 As Double
Public x5 As Double
Public x6 As Double
Public fa As Double
Public fb As Double
Public w As Double
Public b As Double
Public h As Double
Public d1 As Double
Public d2 As Double
Public d3 As Double
Public wz As Double
Public syl As Double
Public xyl As Double
Public pi As Double
Public zdzh As Double
Private Sub Command1_Click() ‘进入截面形状选择及尺寸参数输入界面’Form7.Show
Me.Hide
End Sub
Private Sub Command2_Click() ‘若点击“结束”按钮则终止程序’
End