哈工大材料力学上机大作业标准规范答案.docxVIP

材料力学上机大作业题目名称：应力状态分析班号： 1033002学号： 1103300233姓名： 杜科材学院： 土木工程学院完成时间： 2011.12.2使用软件：Visual Basic应力状态分析问题的提出该程序可以解决的问题：① 平面应力状态，已知σx，σy，τxy和角度的情况下计算不同任意截面的应力分量，还可以计算平面应力状态主应力的大小和方向并能画出应力圆；② 空间应力状态，已知σx，σy，σz，τxy等的情况下计算主应力和最大切应力。数学模型1、平面应力状态任一斜截面上既有正应力又有切应力，公式为：2、平面应力状态主应力大小及方向 ? １、公式 主应力计算公式 ? 主平面方位计算公式 3、最大切应力：最大切应力发生在与主平面夹45度角的平面方位。 其公式 4、应力圆应力圆原理： 圆心：半径：5、三向应力状态三向应力计算公式：特征方程：三个不变量三、程序流程图㈠ 平面应力计算打开界面选择平面应力计算 出现数据输入对话框 输入σx，σy，τxy 和角度 点击计算 可计算出任意截面的应力分量以及三个主应力和最大切应力 记录数据点击清除可进行重复计算㈡ 空间应力状态计算打开界面选择空间应力状态计算 出现数据输入对话框 输入σx，σy，σz，τxy ，τyz ，τxz点击计算 得出结果可计算出三个主应力及最大切应力 记录数据点击清除可以重复计算四、程序说明本程序分为平面应力状态与空间应力状态,点击相应主菜单进行相应的计算。平面应力状态：本程序能进行多次重复输入与计算根据提示输入数据进行计算输入X，Y，XY方向上的应力值及X转动的角度值，点击计算按扭，进行数值计算。可画出与数据相对应的应力圆空间应力状态:本程序能进行多次重复输入与计算根据提示输入数据进行计算输入X，Y，Z，XY，YZ，ZY方向上的应力值，点击计算按扭，可以计算出三个主应力及最大切应力。五、程序源代码Private Sub clear3_Click(Index As Integer)Dim j As Integer Text1.Text = Clear Text2.Text = Clear Text3.Text = Clear Text11.Text = Clear Pic1.Cls For i = 0 To 6 Step 1 Text10(i).Text = Clear Next iEnd SubPrivate Sub Combo1_Click() Pic1.Cls If Combo1.ListIndex = 1 Then Frame2.Visible = False Frame1.Visible = True Frame3.Visible = False Else Frame1.Visible = False Frame2.Visible = True Frame3.Visible = False End IfEnd SubPrivate Sub Command1_Click()Text10(4).Visible = FalseText10(5).Visible = FalseText10(6).Visible = FalseDim a(6) As DoubleDim i(3) As DoubleDim j As IntegerDim x(3) As Double, w As Double, t As Double a(0) = Val(Text4.Text) a(1) = Val(Text5.Text) a(2) = Val(Text6.Text) a(3) = Val(Text7.Text) a(4) = Val(Text8.Text) a(5) = Val(Text9.Text)i(0) = -1 * (a(0) + a(1) + a(2)) I1i(1) = a(0) * a(1) - a(3) * a(3) + a(1) * a(2) + a(0) * a(2) - a(4) * a(4) - a(5) * a(5) I2i(2) = -1 * (a(0) * a(1) * a(2) + 2 * a(3) * a(4) * a(5) - a(1) * a(5) * a(5) - a(0) * a(4) * a(4) - a(2) * a(3) * a(3)) I3以下解一元三次方程 σ3+I(0)*σ2+I(1)*σ+I(2)=0 a b c d一元三次方程aX^3＋bX^2＋cX＋d=0，（a，b，c，d∈R，且a≠0）。重根判别式:　　A=b^2－3ac