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

Harbin Institute of Technology 材料力学I 上机实验报告 姓名：XX 学号：XXXXX 班级：XXXXX 院系：XXXXX 时间：2015/06/20 哈尔滨工业大学 1.问题描述 题目4 绘制左端固定悬臂梁的剪力弯矩图 输入： 1.梁的总长度l 2.各载荷大小、作用位置及方向（qi、ai、bi；pj、cj、mk、dk） 输出： 1.剪力、弯矩（图示） 2.输出剪力、弯矩的最大值及截面位置。 输入时，默认均布载荷和集中力方向向下为正，集中力偶以逆时针为正。 2.程序流程 ⑴ 输入梁的总长度L，确定； 输入集中力F,F位置X1，确定； 输入集中力偶M,力偶位置X2，确定； 输入均布载荷集度q,起始位置X3，终止位置X4，确定； ⑵绘制剪力图绘制弯矩图即可 3.具体某个问题和涉及到的计算公式以及相关理论 左固定端悬臂梁：设梁的长度为l,集中力大小为p，作用位置为c，均布载荷大小为q，作用起始位置a，终止位置为b，集中力偶大小为m，作用位置d。 计算过程： 在任意位置x处，取x以右部分为研究对象 ①若cx,abx,dx,则Fsy=0,M(x)=m； ②若cx,abx,dx,则Fsy=-P,M(x)=Px-Pc； ③若cx,axb,dx,则Fsy=-q(b-x),M(x)=-(b-x)2； ④若cx, xab,dx,则Fsy=-q(b-a),M(x)=-q(b-a)(-x)； ⑤若cx,abx,dx,则Fsy=-P,M(x)= Px-Pc+m； (第①、②两种情况合成) ⑥若cx,axb,dx,则Fsy=-q(b-x),M(x)=m-(b-x)2； (第①、③两种情况合成) ⑦若cx,xab,dx,则Fsy=-q(b-a),M(x)=m-q(b-a)(-x)； (第①、④两种情况合成) ⑧若cx,axb,dx,则Fsy=-P-q(b-x),M(x)=Px-Pc-(b-x)2； (第②、③两种情况合成) ⑨若cx,xab,dx,则Fsy=-P-q(b-a),M(x)=Px-Pc-q(b-a) *(-x)；(第②、④两种情况合成) ⑩若cx,xab,dx,则Fsy=-P-q(b-a), M(x)=m+Px-Pc-q(b-a) *(-x)；(第①、②、④两种情况合成) ?cx,axb,dx, 则Fsy=-P-q(b-x), M(x)m+Px-Pc-q(b-a) *(-x); (第①、②、③两种情况合成) 将上述公式编入程序即可计算出在固定端悬臂梁情况下任意位置处的剪力和弯矩，采用散点法作出梁的剪力弯矩图。利用max函数筛选出最大值及该最大值所对应的x，即可输出最大值和最大值位置。 4.程序源代码 Dim l, p, m, q, c, d, a, b, x5, x6, F1, M1 As Double Private Sub Label16_Click() p = CDbl(Text2.Text) c = CDbl(Text3.Text) Label16.Caption = √ End Sub Private Sub Label17_Click() m = CDbl(Text4.Text) d = CDbl(Text5.Text) Label17.Caption = √ End Sub Private Sub Label18_Click() q = CDbl(Text6.Text) a = CDbl(Text7.Text) b = CDbl(Text8.Text) Label18.Caption = √ End Sub Private Sub Label19_Click() Text2.Text = Text3.Text = p = 0 c = 0 Label16.Caption = O End Sub Private Sub Label20_Click() Text4.Text = Text5.Text = m = 0 d = 0 Label17.Caption = O End Sub Private Sub Label21_Click() Text6.Text = Text7.Text = Text8.Text = q = 0 a = 0 b = 0 Label18.Caption = O End Sub Private Sub Label23_Click() Dim x, y, max, max