哈工大材料力学上机实验梁的力学分析

1、哈工大材料力学上机实验梁的力学分析 Harbin Institute of Technology 材料力学电算大作业 题目名称：梁的力学分析 作者班级：1402401 作者学号： 作者姓名： 指导教师： 完成时间： 目 录 一组合截面几何性质计算 . 1 1 理论 . 1 2 程序（） . 2 二应力状态分析 . 8 1 理论 . 8 2 程序（） . 9 三绘制梁的剪力、弯矩图 . 19 1理论 . 19 2 程序（） . 20 四启动窗体 . 29 五算例 . 31 1组合截面几何性质计算 . 31 2 应力状态分析 . 32 3 绘制梁的剪力、弯矩图 . 34 一组合截面几何性质计算 1

2、 理论 （一）计算质心 若截面为矩形，则 若截面为圆形，则 若截面为环形，则 （二）计算主惯性矩 若截面为矩形，则 若截面为圆形，则 ? ?AydA?AdA? ?AzdA? ?A dA? ?b?2? ? ? h?2? ? d 2 ? D2 Iy?A z2dA?I2 ? z?AydA? ? I?bh3?yC 12?Ib3? zC ? h?12?I?d4? yC?IzC? 64? 1 若截面为环形，则 IyC?IzC?(D4?d4)? 64? ? 2 程序（） PublicClassGeometric Private intShape AsInteger = -1 '定义储存值的参

3、数 '定义绘图类 Dim graph AsGraphics Dim penCoordinate AsNewPen(Color.Black, 3) Dim penInertia AsNewPen(Color.Blue, 2) Dim penNet AsNewPen(Color.Gray) Dim figureColor AsBrush EndSub If intShape = 0 Then'选择圆 lblOne.Text = "D:" lblTwo.Text = "" txtOne.Enabled = True txtOne

4、.Text = "" txtTwo.Enabled = False txtTwo.Text = "" lblI.Text = "X轴主惯性矩："& vbNewLine & vbNewLine &"Y轴主惯性矩：" ElseIf intShape = 1 Then'选择圆环 lblOne.Text = "D:" lblTwo.Text = "d:" txtOne.Enabled = True txtOne.Text

5、 = "" 2 txtTwo.Enabled = True txtTwo.Text = "" lblI.Text = "X轴主惯性矩："& vbNewLine & vbNewLine &"Y轴主惯性矩：" Else'选择矩形 lblOne.Text = "h:" lblTwo.Text = "b:" txtOne.Enabled = True txtOne.Text = "" txtTwo.Enabled = True txtTwo.Text = "" lblI.Text = "X轴主惯性矩："& vbNewLine & vbNewLine &"Y轴主惯性矩：" End