绘制左端固定悬臂梁的剪力弯矩图.doc

Harbin Institute of Technology
材料力学I 上机实验报告
姓名:XX
学号:XXXXX
班级:XXXXX
院系:XXXXX
时间:2015/06/20
哈尔滨工业大学

题目4 绘制左端固定悬臂梁的剪力弯矩图
输入:

、作用位置及方向(qi、ai、bi;pj、cj、mk、dk)
输出:
、弯矩(图示)
、弯矩的最大值及截面位置。
输入时,默认均布载荷和集中力方向向下为正,集中力偶以逆时针为正。

⑴输入梁的总长度L,确定;
输入集中力F,F位置X1,确定;
输入集中力偶M,力偶位置X2,确定;
输入均布载荷集度q,起始位置X3,终止位置X4,确定;
⑵绘制剪力图,绘制弯矩图,即可。

左固定端悬臂梁:设梁的长度为l,集中力大小为p,作用位置为c,均布载荷大小为q,作用起始位置a,终止位置为b,集中力偶大小为m,作用位置d。
计算过程:
在任意位置x处,取x以右部分为研究对象
①若c<x,a<b<x,d>x,则Fsy=0,M(x)=m;
②若c>x,a<b<x,d<x,则Fsy=-P,M(x)=Px-Pc;
③若c<x,a<x<b,d<x,则Fsy=-q(b-x),M(x)=-(b-x)²;
④若c<x, x<a<b,d>x,则Fsy=-q(b-a),M(x)=-q(b-a)(-x);
⑤若c>x,a<b<x,d>x,则Fsy=-P,M(x)= Px-Pc+m;
(第①、②两种情况合成)
⑥若c<x,a<x<b,d>x,则Fsy=-q(b-x),M(x)=m-(b-x)²;
(第①、③两种情况合成)
⑦若c<x,x<a<b,d>x,则Fsy=-q(b-a),M(x)=m-q(b-a)(-x);
(第①、④两种情况合成)
⑧若c>x,a<x<b,d<x,则Fsy=-P-q(b-x),M(x)=Px-Pc-(b-x)²;
(第②、③两种情况合成)
⑨若c>x,x<a<b,d<x,则Fsy=-P-q(b-a),M(x)=Px-Pc-q(b-a) *(-x);(第②、④两种情况合成)
⑩若c>x,x<a<b,d>x,则Fsy=-P-q(b-a), M(x)=m+Px-Pc-q(b-a) *(-x);(第①、②、④两种情况合成)
⑪c>x,a<x<b,d>x, 则Fsy=-P-q(b-x), M(x)m+Px-Pc-q(b-a) *(-x); (第①、②、③两种情况合成)
将上述公式编入程序即可计算出在固定端悬臂梁情况下任意位置处的剪力和弯矩,采用散点法作出梁的剪力弯矩图。利用max函数筛选出最大值及该最大值所对应的x,即可输出最大值和最大值位置。

Dim l, p, m, q, c, d, a, b, x5, x6, F1, M1 As Double
Private Sub Label16_Click()
p = CDbl()
c = CDbl()
= "√"
End Sub
Private Sub Label17_