资源描述：
《材料力学上机大作业》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划材料力学上机大作业 材料力学上机大作业 题目1: 杆件在拉伸与压缩变形下的强度及刚度计算输入: 1.几何尺寸输入坐标或 2.截面参数输入3.材料常数输入 4,载荷输入输出：1.结构构形图2.轴力图 3.校核结果 4.变形计算输入说明： 材料总长度：50mm，弹性模量：50GPa，许用应力：120Mpa，阶梯状杆件数目：2，第一段长度L1：28mm，截面面积S1：80*10mm2，第二段长度L2：22mm，截面面积S2：45*1
2、0mm2，载荷个数：1，载荷F1：60KN，距端点举例a1：50mm对距端点举例为35mm处的截面进行校核。结果： 校核强度：最大应力为>[δ]，不满足强度要求 -1- 程序源代码 PrivateSubCommand1_Click()(0,0)-(6300,7200)=2=QBColor(5)=QBColor(0)IfOption4(0).Value=TrueThen目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺
3、利开展，特制定安保从业人员的业务技能及个人素质的培训计划 (700,1740-Sqr(Val()*10000/))-(Val()*100+700,1740+Sqr(Val()*10000/)),QBColor(5),BFElse If=TrueThen IfVal()(Val()-Val())ThenMsgBox"材料长度有误，程序自动调整第二段长度",0+64,"提示"Val()) (700,1740-Sqr(Val()*10000/))-(Val()*100+700,1740+Sqr(Val()*10000/)),QBColor(5), =
4、 Str(Val() - BF (Val()*100+700,1740-Sqr(Val()(Val() * *100 10000+ 700, / ))-1740 + Sqr(Val()*10000/)),QBColor(5),BFElse目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 IfVal()(Val()-Val()-Val())Th
5、enMsgBox"材料长度有误，程序自动调整第三段长度",0+64,"提示" = Str(Val() - Val()-Val()) (700,1740-Sqr(Val()*10000/))-(Val()*100+700,1740+Sqr(Val()*10000/)),QBColor(5),BF (Val()*100+700,1740-Sqr(Val() * 10000 / ))- ((Val()+Val())*100+ 700, -2- 1740+Sqr(Val()*10000/)),QBColor(5),BF ((Val(
6、)+Val())*100+700,1740-Sqr(Val()*10000/))-(Val()*100+700,1740+Sqr(Val()*10000/)),QBColor(5),BFEndIfEndIf If=TrueThenIf=TrueThen目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 (Val()*100+700,1740)-(Val()*100+
7、1300,1740)(Val()*100+1300,1740)-(Val()*100+1100,1640)(Val()*100+1300,1740)-(Val()*100+1100,1840)Else (Val()*100+700,1740)-(Val()*100+100,1740)(Val()*100+100,1740)-(Val()*100+300,1640)(Val()*100+100,1740)-(Val()*100+300,1840)EndIfElse If=TrueThen (Val()*100+700,1740)-(Val()*100
8、+1300,1740)(Val()*100+1300,1740)-(Val()*
