材料力学上机报告

《材料力学上机报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、材料力学电算大作业题目名称：空间及平面应力状态分析作者班号：1432103作者学号：1143210307作者姓名：崔洪涛指导教师：王春香完成时间：2015年12月28日一.算法:txy*sin2aox'二(ox+oy)/2+(ox-oy)*cos2a/2+Ix"y'二-(ox-oy)*sin2a+txy*cos2aox'+oy'=ox+oytan2a=2*txy/(ax-oy)txy"2厂(1/2)TxyJ厂(1/2)omax=(ox+oy)/2+{[(ox-oy)/2厂(1/2)+omin=(ox+oy)/2-{[(ox-oy)/2]"(1/2)+t'二

2、{[(ox-oy)/2]，(1/2)+txy八2厂(1/2)二-{[(。x-oy)/2Y(1/2)+xxyP厂(1/2)二、流程图:初始界面:平面应力状态分析:输入：X方向和y方向的应力；切应力；角度;输入数据后，进行计算，得出结果，并给出其应力圆:L手面竝力状态分析I2215生成应力團4552417469626Sao=濟空后退10.47582530374-10.9999998928204Tmax=15.5241746962637.7747737338562丄输出结果：旋转角度后的正应力和切应力的值；三个主应力的大小以及和给出应力的夹角;应力圆图形:空间应

3、力状态分析:0空间应力状态分析30-4^生成应力圍•:2x•.4输入数据后，进行计算，得出结果，并给出其应力圆:输入：三个方向的正应力和切应力;0空间应力状态分析XF

4、30219后退箱空570111106535253■12.04416225409151600I•苗.・生成应力圆输出结果：三个方向的主应力和切应力的最人值;应力圆图形:程序说明：程序用途：使用该程序可以输入给定方向的正应力和切应力，会输出平面或空间的主应力的数值、方向以及切应力在该方向的最大值。使用步骤：1.双击图标进入开始界面2.根据使用需要，选择空间应力状态分析或平面应力状态分析3.选择后

5、输入正应力过切应力的数值、角度4.点击“得出结果”按钮，得出主应力和主切应力的数值5.点击“生成应力圆”按钮，再点击“生成”按钮，得出应力圆6.点击“关闭图像”按钮，关闭图像7.点击“清空按钮”将输入及输出的数据清零，方便下一次计算8.点击“后退“按钮，返回到上一步三、计算代码及其图形代码:PrivateSubCommandl_Click()form2.Show0forml.HideEndSubPrivateSubCommand2_Click()Dimcc=MsgBoxC确认退出程序吗?",33,“材料力学“)Ifc=vbOKThenEndEndIfEnd

6、SubPrivateSubCommand3_Click()Form6.Show0forml.HideEndSubPrivateSubCommandl_Click()forml.Show0form2.HideEndSubPrivateSubCommand2_Click()DimaAsDouble,bAsDouble,cAsDouble,dAsDouble,eAsDouble,fAsDouble,gAsDoublea=(Vai(Text1.Text)+Vai(Text2.Text))/2+(Vai(Text1.Text)・Val(Text2.Text))/2*

7、Cos(2*Vai(Text3.Text)*3.1415926/180)-Val(Text4.Text)*Sin(2*Vai(Text3.Text)*3.1415926/180)b=(Vai(Text1.Text)・Vai(Text2.Text))/2*Sin(2*Vai(Text3.Text)*3.1415926/180)+Val(Text4.Text)*Cos(2*Vai(Text3.Text)*3.1415926/180)IfVaI(Text1.Text)=Val(Text2.Text)Thenc=45Elsec=-180/3.1215926*Atn

8、(2*Vai(Text4.Text)/(Vai(Text1.Text)-Val(Text2.Text)))/2EndIfd=(Val(Textl.Text)+Val(Text2.Text))/2+Sqr((Val(Textl.Text)・Vai(Text2.Text))/2*(Vai(Text1.Text)・Vai(Text2.Text))/2+Val(Text4.Text)*Val(Text4.Text))e=(Vai(Text1.Text)+Vai(Text2.Text))/2-Sqr((Val(Textl.Text)-Vai(Text2.Text))

9、/2*(Val(Textl.Text)-Vai(Text2.Tex