文档介绍：:..:应力状态分析、压杆稳定性分析院系:班级:设计者:学号:指导教师:设计时间:哈尔滨工业人学材料力学上机报告一、问题描述应力状态分析:输入:::(ox、oy、oz、txy、tyz、tzx)输出:(。1、。2、。3)(tmax=t13二)。a、:,d矩形截而一h,b工字型截而一对形心轴的惯性矩Iy、、:E、,op、os;线性经验公式系数a、:(图示)。、程序源代码平面丿应力状态分析PrivateSubTimerl_Timer()mand1Click()Dim5xAsDouble,SyAsDouble,txyAsDouble,aAsDouble,XAsDouble,YAsDouble,zAsDouble'输入数据(§x,5y,txy);某截而方位角a"§x=Vai()6y=Vai()txy二Vai()a=Vai(()/180*4*Atn(l))'计算主应力X=0Y=(&x+6y)/2+((Sx-6v)八2/4+txy八2)'=(5x+Sy)/2-((§x-Sy)'2/4+pxy八2)''比较人小,输出主应力(§1,S2,63)和最大剪应力Tmax13=(61-53)/2IfX>=YAndX>==Str(X)=Str(Y)=Str(z)=Str((X-z)/2)ElseIfX<=YAndX<==Str(Y)(z)=Str(X)Text&Text=Str((Y-X)/2)=Str(Y)=Str(X)(z)=Str((Y-z)/2)EndIfEndIf'计算并输出a,ta,=Str((Sx+§y)/2+(§x-§y)/2*Cos(2*a)+txy*Sin(2*a))=Str(-(6x-6v)/2*Sin(2*a)+txv*Cos(2*a))If6x==Str(45)=Str((Atn(TXy*2/(&x-&y))/2)/(4*Atn(l))*180)EndIf'=3k=Text&(-130-Abs(5x+5y)一2*k,100+5*k)-(130+Abs(5x+8y)+2*k,-100一5*k)(-130-Abs(5x+§y)-2*k,0)-(130+Abs(5x+§y)+2*,0)(0,TOO-5*k)-(0,100+5*k)((6x+6y)2,0),((6X-6y)"2/4+Txy"2) ,QBColor(12)mand2Click()',,〃〃=''()()()EndSubPrivateSubForm_Load()EndSub平面应力状态分析数据输入Ox(Mpa)100Oy(Mpa) I-100Txy(Mpa)|200求解方向債 |°L结里检屮. mandlClick()DimSxAsDouble,§yAsDouble,5zAsDoub1®txyAsDouble,ty