哈工大材料力学上机大作业标准答案

《哈工大材料力学上机大作业标准答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、材料力学上机大作业题目名称：应力状态分析班号：1033002学号：1103300233姓名：杜科材学院：土木工程学院完成时间：2011.12.2使用软件：VisualBasic应力状态分析一、问题的提出该程序可以解决的问题：①平面应力状态，已知σx，σy，τxy和角度的情况下计算不同任意截面的应力分量，还可以计算平面应力状态主应力的大小和方向并能画出应力圆；②空间应力状态，已知σx，σy，σz，τxy等的情况下计算主应力和最大切应力。二、数学模型1、平面应力状态任一斜截面上既有正应力又有切应力，公式为：2、平面应力状态主应力大小及方向   １、公式   主应力计

2、算公式      主平面方位计算公式   3、最大切应力：最大切应力发生在与主平面夹45度角的平面方位。   其公式   4、应力圆应力圆原理：圆心：半径：5、三向应力状态三向应力计算公式：特征方程：三个不变量三、程序流程图㈠平面应力计算打开界面选择平面应力计算出现数据输入对话框输入σx，σy，τxy和角度点击计算可计算出任意截面的应力分量以及三个主应力和最大切应力记录数据点击清除可进行重复计算㈡空间应力状态计算打开界面选择空间应力状态计算出现数据输入对话框输入σx，σy，σz，τxy，τyz，τxz点击计算得出结果可计算出三个主应力及最大切应力记录数据点击清除

3、可以重复计算四、程序说明本程序分为平面应力状态与空间应力状态,点击相应主菜单进行相应的计算。平面应力状态：本程序能进行多次重复输入与计算根据提示输入数据进行计算输入X，Y，XY方向上的应力值及X'转动的角度值，点击"计算"按扭，进行数值计算。可画出与数据相对应的应力圆空间应力状态:本程序能进行多次重复输入与计算根据提示输入数据进行计算输入X，Y，Z，XY，YZ，ZY方向上的应力值，点击"计算"按扭，可以计算出三个主应力及最大切应力。五、程序源代码PrivateSubclear3_Click(IndexAsInteger)DimjAsIntegerText1.Te

4、xt=ClearText2.Text=ClearText3.Text=ClearText11.Text=ClearPic1.ClsFori=0To6Step1Text10(i).Text=ClearNextiEndSubPrivateSubCombo1_Click()Pic1.ClsIfCombo1.ListIndex=1ThenFrame2.Visible=FalseFrame1.Visible=TrueFrame3.Visible=FalseElseFrame1.Visible=FalseFrame2.Visible=TrueFrame3.Visible=F

5、alseEndIfEndSubPrivateSubCommand1_Click()Text10(4).Visible=FalseText10(5).Visible=FalseText10(6).Visible=FalseDima(6)AsDoubleDimi(3)AsDoubleDimjAsIntegerDimx(3)AsDouble,wAsDouble,tAsDoublea(0)=Val(Text4.Text)a(1)=Val(Text5.Text)a(2)=Val(Text6.Text)a(3)=Val(Text7.Text)a(4)=Val(Text8.T

6、ext)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'abcd'一元三次方程aX^3＋bX^2＋cX＋d=0，（a，b，c，d∈R，且a≠

7、0）。'重根判别式:'　　A=b^2－3ac；'　　B=bc－9ad；'　　C=c^2－3bd，'总判别式:'　　Δ=B^2－4AC。'　　当A=B=0时，盛金公式①（WhenA=B=0，Shengjin'sFormula①）：'　　X1=X2=X3=－b/(3a)=－c/b=－3d/c。''''　当Δ=B^2－4AC=0时，盛金公式③（WhenΔ=B^2－4AC=0，Shengjin'sFormula③）：'X1=－b/a＋K；'　　'X2=X3=－K/2，'　　其中K=B/A，(A≠0)。'　　当Δ=B^2－4AC<0时，盛金公式④（WhenΔ=B^2－4A

8、C<0，Shengjin