绘制左端固定悬臂梁的剪力弯矩图汇总

1、哈尔滨工业大学鱼漆甯窗求火厚HarbinInstituteofTechnology材料力学I上机实验报告姓名：XX学号：XXXXX班级：XXXXX院系：XXXXX时间：2015/06/20哈尔滨工业大学1.问题描述题目4绘制左端固定悬臂梁的剪力弯矩图输入：1 .梁的总长度l2 .各载荷大小、作用位置及方向（qi、ai、bi;pj、cj、mk、dk）输出：1 .剪力、弯矩（图示）2 .输出剪力、弯矩的最大值及截面位置。输入时，默认均布载荷和集中力方向向下为正，集中力偶以逆时针为正3 .程序流程输入梁的总长度L,确定；输入集中力F,F位置X1,确定；输入集中力偶M,力偶位置X2,确定；输入均布载荷

2、集度q,起始位置X3,终止位置X4,确定；绘制剪力图，绘制弯矩图，即可。4 .具体某个问题和涉及到的计算公式以及相关理论左固定端悬臂梁：设梁的长度为1,集中力大小为p,作用位置为c,均布载荷大小为q,作用起始位置a,终止位置为b,集中力偶大小为m,作用位置d。计算过程：在任意位置x处，取x以右部分为研究对象-1 -若c<x,a<b<x,d>x,则Fsy=0,M(x)=m;若 c>x,a<b<x,d<x,贝U Fsy=-P,M(x)=Px-Pc若c<x,a<x<b,d<x,则Fsy=-q(b-x),M(x)=-(b-x)2哈

3、尔滨工业大学若c<x,x<a<b,d>x,贝UFsy=-q(b-a),M(x)=-q(b-a)(a；b-x)；若c>x,a<b<x,d>x,贝UFsy=-P,M(x)=Px-Pc+m;(第、两种情况合成)若c<x,a<x<b,d>x,则Fsy=-q(b-x),M(x)=m-q(b-x)22(第、两种情况合成)若c<x,x<a<b,d>x,贝UFsy=-q(b-a),M(x)=m-q(b-a)(a；b-x)；(第、两种情况合成)若c>x,a<x<b,d<x,贝UFsy=-P-q

4、(b-x),M(x)=Px-Pc-(b-x)2;2(第、两种情况合成)若c>x,x<a<b,d<x,贝UFsy=-P-q(b-a),M(x)=Px-Pc-q(b-a)* (a；b-x)；(第、两种情况合成)若c>x,x<a<b,d>x,贝UFsy=-P-q(b-a),M(x)=m+Px-Pc-q(b-a)* (alb-x)；(第、两种情况合成)?c>x,a<x<b,d>x,贝UFsy=-P-q(b-x),M(x)m+Px-Pc-q(b-a)* (坐-x);(第、两种情况合成)2将上述公式编入程序即可计算出在固定端悬臂梁情况

5、下任意位置处的剪力和弯矩，采用散点法作出梁的剪力弯矩图。利用max函数筛选出最大值及该最大值所对应的x,即可输出最大值和最大值位置。5 .程序源代码Diml,p,m,q,c,d,a,b,x5,x6,F1,M1AsDoublePrivate Sub Label16_Click()p = CDbl(Text2.Text)c = CDbl(Text3.Text)-3 -哈尔滨工业大学V"Label16.Caption=EndSubPrivateSubLabel17_Click()m=CDbl(Text4.Text)d=CDbl(Text5.Text)Label17.Caption=&quo

6、t;EndSubPrivateSubLabel18_Click()q=CDbl(Text6.Text)a=CDbl(Text7.Text)b=CDbl(Text8.Text)Label18.Caption="EndSubPrivateSubLabel19_Click()Text2.Text=""Text3.Text=""p=0c=0Label16.Caption="O"EndSubPrivateSubLabel20_Click()Text4.Text=""Text5.Text=""m=

7、0d=0Label17.Caption="O"EndSubPrivateSubLabel21_Click()Text6.Text=""Text7.Text=""Text8.Text=""q=0a=0b=0Label18.Caption="O"EndSubPrivateSubLabel23_Click()Dimx,y,max,maxxAsSingleDimheightAsIntegerheight=2*Abs(0-p-q*(b-a)Picture2.Scale(0,-height)-(l,heig

8、ht)Picture2.DrawWidth=1Picture2.Line(0,0)-(l,0),vbYellowPicture2.DrawWidth=2max=-1Forx=0TolStep0.001Ifx>bThenIfc<xTheny=0Else:y=-pEndIfElseIfx>aThenIfc<xTheny=0-q*(b-x)Else:y=0-p-q*(b-x)EndIfElse:Ifc<xTheny=0-q*(b-a)Else:y=0-p-q*(b-a)EndIfEndIfPicture2.PSet(x,-y),vbWhiteIfAbs(y)>Ab

9、s(max)Thenmax=ymaxx=xEndIfNextxText9.Text=Str(max)Text10.Text=Str(maxx)EndSubPrivateSubLabel37_Click()Dimx,y,max,maxxAsSingleDimheightAsIntegerheight=2*mPicture5.Scale(0,-height)-(l,height)Picture5.DrawWidth=1Picture5.Line(0,0)-(l,0),vbYellowPicture5.DrawWidth=2max=-1Forx=0TolStep0.001- 5 -哈尔滨工业大学If

10、x>bThenIfc<xAndd>xTheny=mElseIfc>xAndd<xTheny=p*x-p*cElse:y=p*x-p*c+mEndIfElseIfx>aThenIfc<xAndd<xTheny=0-q/2*(b-x)*(b-x)ElseIfc<xAndd>xTheny=m-q/2*(b-x)*(b-x)ElseIfc>xAndd<xTheny=p*(x-c)-q/2*(b-x)*(b-x)Else:y=m+p*(x-c)-q/2*(b-x)*(b-x)EndIfElse:Ifc<xAndd>xTh

11、eny=0-q*(b-a)*(a+b)/2-x)ElseIfc>xAndd<xTheny=p*(x-c)-q*(b-a)*(a+b)/2-x)Else:y=m+p*(x-c)-q*(b-a)*(a+b)/2-x)EndIfEndIfPicture5.PSet(x,-y),vbWhiteIfAbs(y)>Abs(max)Thenmax=ymaxx=xEndIfNextxText11.Text=Str(max)Text12.Text=Str(maxx)EndSubPrivateSubLabel4_Click()l=CDbl(Text1.Text)Label4.Caption=&q

12、uot;V"EndSubPrivate Sub Label5_Click()Text1.Text = ""- # -哈尔滨工业大学l=0Label4.Caption="OEndSub5 .具体问题的计算结果和结果分析（对或者不对）有一左固定端悬臂梁长l=4m,在梁中间作用有集中力P=4N,梁右端作用有集中力偶m=5Nm,左端作用均布载荷，载荷集度q=2N/m,作用图示如下。请作出梁的剪力弯矩图，并求出剪力弯矩的最大值与其出现位置。P=4N2N/m程序截图输入作用条件梁的总长度L=4m集中力作用作用力F=4NFtSSXl=2m集中力偶作用空中力偶网=5力偶位置X?二4均布载荷作用NF防S睡”2|IN/me0m绛止位置X4=2m剪力最大值Fl=书N/最大值Ml=.1N品大值位为6=0m/最大也位置0m哈制英力用绘制喜痹图理论计算根据题意可得FA=8NMB=7N-m,将梁分为ABBC段进行分析，即可作出梁的剪力、弯矩图，所作图形与程序所作结果相同。从剪力、弯矩图上显然可以看出剪力最大值Fmax=-8N弯矩最大值Mz=7Nm1均与程序相同，故此段程序编写正确。6 .心得体会不足之处：由于本程序绘制剪力