哈工大材力上机 精品.docVIP

材料力学上机实验 课程名称： 材料力学上机实验 设计题目： 平面与空间应力状态分析 院 系： 机电工程学院 班 级： 完 成 者： 学 号： 指导教师： 张桂莲 设计时间： 哈尔滨工业大学 平面与空间应力状态分析 1.设计方向 设计平面与空间应力状态分析程序，能够解决以下实际计算中遇到的问题： 平面应力状态分析，在σx，σy，τxy和角度的已知的情况下，计算在任意角度的截面上的应力分量； 画出应力圆，直观找到具体的位置； 能够自动计算平面应力状态主应力的大小与方向； 空间应力状态的分析，已知σx，σy，σz，τxy等的情况下，通过相关的公式来计算主应力的大小以及主应力的方向，最大切应力。 2.计算依据 （1）平面应力状态任一斜截面上公式为： 平面应力状态主应力大小及方向 主应力计算公式 ??? ?主公式 ??? 最大切应力公式 平面应力状态应力圆方程： 应力圆圆心： 半径： （3）三向应力状态 1.三向应力状态计算公式： 特征方程： 三个不变量I1、I2、I3 （3）计算解特征方程的方法：盛金公式 解一元三次方程aX^3＋bX^2＋cX＋d=0，（a，b，c，d∈R，且a≠0）。 重根判别式: 　　A=b^2－3ac； 　　B=bc－9ad； 　　C=c^2－3bd， 总判别式: 　　Δ=B^2－4ACΔ=B^2－4AC=0时 X1=－b/a＋K；X2=X3=－K/2X2=X3=(b＋A^(1/2)(cos(θ/3)±3^(1/2)sin(θ/3)))/(3a)，θ=arccosT，T= (2Ab－3aB)/(2A^(3/2))，(A0，－1T1)。Option Explicit Private Sub clear3_Click(Index As Integer) Dim j As Integer Text1.Text = Text2.Text = Text3.Text = Text11.Text = Picture1.Cls For j = 0 To 6 Step 1 Text10(j).Text = Next j End Sub Private Sub Combo1_Click() Picture1.Cls If Combo1.ListIndex = 1 Then Combo1.ListIndex = 1代表计算空间应力状态 Frame2.Visible = False Frame1.Visible = True Frame1用于显示空间应力状态的输入框 Frame3.Visible = False Picture1.Visible = False Else Frame1.Visible = False Frame2.Visible = True Frame2用于显示平面应力状态的输入框 Frame3.Visible = False Picture1.Visible = False End If End Sub Private Sub Command1_Click() 空间应力状态分析（空间的计算按钮） Text10(4).Visible = False Text10(5).Visible = False Text10(6).Visible = False Dim a(6) As Double Dim i(3) As Double Dim j As Integer Dim X(3) As Double, w As Double, t As Double Dim Y(6) As Double a(0) = Val(Text4(0).Text) a(0)指输入x方向上正应力 a(1) = Val(Text5(0).Text) a(1)指输入y方向正应力 a(2) = Val(Text