材料力学上机大作业_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
材料力学上机大作业
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢材力上机作业_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
材力上机作业
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
哈工大材力上机作业
下载积分：2500
内容提示：哈工大材力上机作业
文档格式：PDF|
浏览次数：4|
上传日期： 21:03:20|
文档星级：
该用户还上传了这些文档
哈工大材力上机作业.PDF
官方公共微信哈工大材力上机完整版(VB)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
哈工大材力上机完整版(VB)
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢57哈工大材料力学上机
上亿文档资料，等你来发现
57哈工大材料力学上机
材料力学上机大作业；应力状态分析；曹启迪；一、问题的提出；该程序可以解决的问题：①平面应力状态，已知σx，；二、程序源代码；平面；PrivateSubCommand1_Click；DimδxAsDouble,δyAsDouble；δx=Val(Text1.Text)；δy=Val(Text2.Text)；τxy=Val(Text3.Tex
材料力学上机大作业应力状态分析曹启迪 一、 问题的提出 该程序可以解决的问题：① 平面应力状态，已知σx，σy，τxy和角度的情况下计算不同任意截面的应力分量，还可以计算平面应力状态主应力的大小和方向并能画出应力圆；② 空间应力状态，已知σx，σy，σz，τxy等的情况下计算主应力和最大切应力。二、程序源代码平面Private Sub Command1_Click()Dim δx As Double, δy As Double, τxy As Double, а As Double, X As Double, Y As Double, z As Doubleδx = Val(Text1.Text)δy = Val(Text2.Text)τxy = Val(Text3.Text)а = Val(Text4.Text)X = 0Y = (δx + δy) / 2 + ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5 z = (δx + δy) / 2 - ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5 If X &= Y And X &= z ThenText5.Text = Str(X)Text6.Text = Str(Y)Text7.Text = Str(z)Text8.Text = Str((X - z) / 2)ElseIf X &= Y And X &= z ThenText5.Text = Str(Y)Text6.Text = Str(z)Text7.Text = Str(X)Text8.Text = Str((Y - X) / 2)ElseText5.Text = Str(Y)Text6.Text = Str(X)Text7.Text = Str(z)Text8.Text = Str((Y - z) / 2)End IfEnd IfText9.Text = Str((δx + δy) / 2 + (δx - δy) / 2 * Cos(2 * а) + τxy * Sin(2 * а))Text10.Text = Str(-(δx - δy) / 2 * Sin(2 * а) + τxy * Cos(2 * а)) If δx = δy ThenText11.Text = Str(45)ElseText11.Text = Str(Atn(τxy ^ 2 / (δx - δy)) / 2)End IfIf ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5 &= 50 And ((δx - δy) ^ 2 / 4 + τxy ^2) ^ 0.5 &= 20 ThenPicture1.ScaleMode = 3Picture1.Scale (0, 0)-(200, 80)Picture1.Scale (-100, 40)-(100, -40)Picture1.Line (-100, 0)-(100, 0)Picture1.Line (0, -40)-(0, 40)Picture1.Circle ((δx + δy) / 2, 0), ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5, QBColor(12)ElseIf ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5 & 20 And ((δx - δy) ^ 2 / 4 + τxy ^2) ^ 0.5 & 0 ThenPicture1.ScaleMode = 3Picture1.Scale (0, 0)-(80, 40)Picture1.Scale (-40, 20)-(40, -20)Picture1.Line (-40, 0)-(40, 0)Picture1.Line (0, -20)-(0, 20)Picture1.Circle ((δx + δy) / 2, 0), ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5, QBColor(12)ElsePicture1.ScaleMode = 3Picture1.Scale (0, 0)-(400, 200)Picture1.Scale (-200, 100)-(200, -100)Picture1.Line (-200, 0)-(200, 0)Picture1.Line (0, -100)-(0, 100)Picture1.Circle ((δx + δy) / 2, 0), ((δx - δy) ^ 2 / 4 + τxy ^ 2) ^ 0.5, QBColor(12)End IfEnd IfEnd Sub Private Sub Command2_Click()Text1.Text = &&Text2.Text = &&Text3.Text = &&Text4.Text = &&Text5.Text = &&Text6.Text = &&Text7.Text = &&Text8.Text = &&Text9.Text = &&Text10.Text = &&Text11.Text = &&Picture1.ClsEnd Sub空间Private Sub Command1_Click()Dim δx As Double, δy As Double, δz As Double, τxy As Double, τyz As Double, τzx As Doubleδx = Val(Text1.Text)δy = Val(Text3.Text)δz = Val(Text2.Text)τxy = Val(Text4.Text)τyz = Val(Text5.Text)τzx = Val(Text6.Text)I1 = δx + δy + δzI2 = δx * δy - τxy ^ 2 + δy * δz - τyz ^ 2 + δz * δx - τzx ^ 2I3 = (δy * δz - τyz ^ 2) * δx - (τxy * δz - τyz * τzx) * τxy + (τxy * τyz - τzx * δy) * τzxa = I1 ^ 2 - 3 * 1 * I2b = -I1 * I2 + 9 * 1 * I3c = I2 ^ 2 - 3 * I1 * I3d = b ^ 2 - 4 * a * cIf (a = 0 And b = 0) ThenX1 = I1 / 3X2 = I1 / 3X3 = I1 / 3End IfIf (a && 0 And d = 0) ThenX1 = I1 + b / aX2 = -b / (2 * a)X3 = -b / (2 * a)End IfIf (d & 0 And a & 0) Thent = (-2 * a * I1 - 3 * b) / (2 * a ^ (3 / 2))If (t = 0) Thenu = 3.79 / 2X1 = (I1 - 2 * a ^ (1 / 2) * Cos(u / 3)) / 3X2 = (I1 + a ^ (1 / 2) * (Cos(u / 3) + 3 ^ (1 / 2) * Sin(u / 3))) / 3
X3 = (I1 + a ^ (1 / 2) * (Cos(u / 3) - 3 ^ (1 / 2) * Sin(u / 3))) / 3
ElseIf (-1 & t And t & 1 And t && 0) Thenu = Atn((1 - t ^ 2) / t)X1 = (I1 - 2 * a ^ (1 / 2) * Cos(u / 3)) / 3X2 = (I1 + a ^ (1 / 2) * (Cos(u / 3) + 3 ^ (1 / 2) * Sin(u / 3))) / 3
X3 = (I1 + a ^ (1 / 2) * (Cos(u / 3) - 3 ^ (1 / 2) * Sin(u / 3))) / 3
End IfEnd IfEnd IfIf (d & 0 Or d & 0 And a &= 0) ThenMsgBox &方程可能不全是实根,无法比较根的大小,请重新输入&, vbOKOnly, &温馨提示& Text1.Text = &&Text3.Text = &&Text2.Text = &&Text4.Text = &&Text5.Text = &&Text6.Text = &&Text1.SetFocusEnd If If (X1 &= X2 And X2 &= X3) ThenText7.Text = Str(X1)Text8.Text = Str(X2)Text9.Text = Str(X3)Text10.Text = Str((X1 - X3) / 2)Picture2.ScaleMode = 3Picture2.Scale (0, 0)-(200, 80)Picture2.Scale (-100, 40)-(100, -40)Picture2.Line (-100, 0)-(100, 0)Picture2.Line (0, -40)-(0, 40)Picture2.Circle ((X1 + X2) / 2, 0), (X1 - X2) / 2, QBColor(12)
Picture2.Circle ((X1 + X3) / 2, 0), (X1 - X3) / 2, QBColor(12)
Picture2.Circle ((X2 + X3) / 2, 0), (X2 - X3) / 2, QBColor(12)
End IfIf (X1 &= X3 And X3 &= X2) ThenText7.Text = Str(X1)Text8.Text = Str(X3)Text9.Text = Str(X2)Text10.Text = Str((X1 - X2) / 2)Picture2.ScaleMode = 3Picture2.Scale (0, 0)-(200, 80)Picture2.Scale (-100, 40)-(100, -40)Picture2.Line (-100, 0)-(100, 0)Picture2.Line (0, -40)-(0, 40)Picture2.Circle ((X1 + X2) / 2, 0), (X1 - X2) / 2, QBColor(12)
Picture2.Circle ((X1 + X3) / 2, 0), (X1 - X3) / 2, QBColor(12)
Picture2.Circle ((X2 + X3) / 2, 0), (X3 - X2) / 2, QBColor(12)
End IfIf (X2 &= X1 And X1 &= X3) ThenText7.Text = Str(X2)Text8.Text = Str(X1)Text9.Text = Str(X3)Text10.Text = Str((X2 - X3) / 2)Picture2.ScaleMode = 3Picture2.Scale (0, 0)-(200, 80)Picture2.Scale (-100, 40)-(100, -40)Picture2.Line (-100, 0)-(100, 0)Picture2.Line (0, -40)-(0, 40)Picture2.Circle ((X1 + X2) / 2, 0), (X2 - X1) / 2, QBColor(12)
Picture2.Circle ((X1 + X3) / 2, 0), (X1 - X3) / 2, QBColor(12)
Picture2.Circle ((X2 + X3) / 2, 0), (X2 - X3) / 2, QBColor(12)
End IfIf (X2 &= X3 And X3 &= X1) ThenText7.Text = Str(X2)Text8.Text = Str(X3)Text9.Text = Str(X1)Text10.Text = Str((X2 - X1) / 2)Picture2.ScaleMode = 3Picture2.Scale (0, 0)-(200, 80)Picture2.Scale (-100, 40)-(100, -40)Picture2.Line (-100, 0)-(100, 0)Picture2.Line (0, -40)-(0, 40)Picture2.Circle ((X1 + X2) / 2, 0), (X2 - X1) / 2, QBColor(12)
Picture2.Circle ((X1 + X3) / 2, 0), (X3 - X1) / 2, QBColor(12)
Picture2.Circle ((X2 + X3) / 2, 0), (X2 - X3) / 2, QBColor(12)
End IfIf (X3 &= X1 And X1 &= X2) ThenText7.Text = Str(X3)Text8.Text = Str(X1)Text9.Text = Str(X2)Text10.Text = Str((X3 - X1) / 2)Picture2.ScaleMode = 3Picture2.Scale (0, 0)-(200, 80)Picture2.Scale (-100, 40)-(100, -40)Picture2.Line (-100, 0)-(100, 0)Picture2.Line (0, -40)-(0, 40)包含各类专业文献、专业论文、应用写作文书、行业资料、高等教育、中学教育、文学作品欣赏、幼儿教育、小学教育、57哈工大材料力学上机等内容。　
　哈工大材料力学上机大作业_理学_高等教育_教育专区 暂无评价|0人阅读|0次下载|举报文档 哈工大材料力学上机大作业_理学_高等教育_教育专区。材料力学上机大作业 ... 　哈尔滨工业大学 Harbin Institute of Technology 材料力学上机作业 课程名称: 设计题目: 院班姓学系: 级: 名: 号: 材料力学 应力状态分析 XXXXXXXXX XXXXX XXXXX ... 　材料力学上机实验 一.软件功能 1.单独计算二向应力状态的主应力、切应力的大小和方向,并绘制应力圆图形; 2.单独计算空间应力状态的主应力、切应力的大小和方向,... 　哈工大材料力学上机报告--绘制梁的剪力弯矩图_机械/仪表_工程科技_专业资料。哈工大材料力学上机报告--绘制梁的剪力弯矩图Harbin Institute of Technology 材料力学上... 　哈工大材料力学上机大作业_理学_高等教育_教育专区。哈工大土木工程学院材料力学大作业材料力学(上机作业) 学班学姓 院级号名 土木工程学院 3300127 赵鹏... 　材料力学上机大作业 院班作学 系: 级: 者: 号: 机电工程学院 1208107 吕肃
指导教师: 设计时间: 一、问题的提出: 计算出 6... 　哈工大材料力学上机 暂无评价 15页 1下载券喜欢此文档的还喜欢 ...材料力学电算大作业题目名称:matlab 绘制梁的挠曲线 作者班号:XXXXXXX 作者学号... 　材料力学上机实验 应力状态分析 姓名 付帅磊 班级 1208105 学号
一、问题重述 1.平面应力状态输入 输入 ? x , ? y , ? xy ,某截面的方位角 ? ... 　哈工大材料力学上机大作业 隐藏&& 材料力学电算大作业 题目:一个力作用下的任意截面的弯矩,挠度 班号: 学号: 姓名: 学院: 0810304 解增辉 机电工程学...}