资源描述：
《哈工大,材料力学》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划哈工大,材料力学 材料力学上机作业 题目名称：绘制梁的剪力图、弯矩图 运行环境：winXP 一、题目4 绘制梁的剪力图、弯矩图 输入 1.梁的总长度l 2.支撑条件及梁的各区段长度输入 3.各载荷大小、作用位置及方向输出： 1.结构构形图 2.剪力、弯矩 3.输出剪力、弯矩的最大值及截面位置 二、软件运行结果： 软件运行过程如下所示： 三、软件代码： P
2、rivateSubForm_Click() DimlAsDouble l=Val()目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 Dimx,y,Hua,fd1(10),fd2(10),fd3(10),pos1(10),pos2(10),pos3(10),pos4(10)AsDouble Dimxi
3、ang1(10),xiang2(10),xiang3(10)AsDouble Dimy1(10),y2(10),y3(10),M1(10),M2(10),M3(10)AsDouble Dimi,jAsInteger Fori=1To10 fd1(i)=Val(InputBox("请输入集中力的大小：(/kN，推荐值5KN)")) Iffd1(i)=0Then ExitForEndIfpos1(i)=Val(InputBox("请输入集中力的位置：(m)"))xiang1(i)=Val
4、(InputBox("请输入集中力的方向："))NextiFori=1To10Step1fd2(i)=Val(InputBox("请输入分布力的大小：(kN/m)"))Iffd2(i)=0ThenExitForEndIfpos2(i)=Val(InputBox("请输入分布力的pos2位置1：(m)"))pos3(i)=Val(InputBox("请输入分布力的pos3位置2：(m)"))xiang2(i)=Val(InputBox("请输入分布力的方向："))Nexti Fori=1To10
5、 fd3(i)=Val(InputBox("请输入集中力偶的大小：(kN*m)"))目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 Iffd3(i)=0Then ExitFor EndIf pos4(i)=Val(InputBox("请输入集中力偶的位置：(m)")) xiang3(i)=Val
6、(InputBox("请输入集中力偶的方向：")) Nexti (-*l,20)-(*l,-20)(0,0)-(l,0) Fori=0To10 Iffd1(i)0Andxiang1(i)>0Then(pos1(i),5)-(pos1(i),0)(pos1(i),0)-(pos1(i)-1,1)(pos1(i),0)-(pos1(i)+1,1)ElseIffd1(i)0Andxiang1(i)0Then (pos2(i),3)-(pos3(i),3)(pos2(i),3)-(pos2(i
7、),0) (pos2(i),0)-(pos2(i)-,1)(pos2(i),0)-(pos2(i)+,1)(pos3(i),3)-(pos3(i),0)目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 (pos3(i),0)-(pos3(i)-,1)(pos3(i),0)-(pos3(i)+,1)Forx
8、=pos2(i)+Topos3(i)Step(x,3)-(x,0)(x,0)-(x-,1)(x,0)-(x+,1)NextxEndIfNextiFori=0To10Iffd3(i)0Andxiang3(i)>0Then(pos4(i),3)-(pos4(i),-3)(pos4(i),3)-(pos4(i)-1,3)(pos4(i),-3)-(pos4(i)+1,-3)ElseIffd3(i)0Andxiang3(i)0Andx哈工大,材料力学)---------------------- -学
