【正文】 ，集中力偶為3；節(jié)點荷載只有外力偶。提取期中的數(shù)據(jù)，利用excel或其它工具繪制影響線即可。距該單元左端距離，然后保存該文件。在其中一次輸入單元數(shù)、支承類型、要求影響線的數(shù)量、彈性模量、單位載荷每次移動的距離、桿長amp。運行連續(xù)梁內(nèi)力程序，按提示輸入起始文件即初始數(shù)據(jù)的文件（要求全名），再輸入結(jié)果文件名，在相應文件夾下打開結(jié)果文件即可查看結(jié)果。荷載類型號（依次按組輸入）、所求截面所在單元號amp。距該單元左端距離amp。慣性矩（依次按組輸入）、節(jié)點荷載大小amp。使用說明：（1）連續(xù)梁內(nèi)力程序在連續(xù)梁計算程序（.exe文件）所在文件夾中建立一新的txt文件，并命名（）。能夠計算在任意形式均布荷載、跨中集中力荷載、跨中力偶荷載、節(jié)點力偶荷載組合下連續(xù)梁單元的桿端力，也可計算連續(xù)梁各截面內(nèi)力，從而繪制連續(xù)梁的彎矩圖。結(jié)構(gòu)力學電算實習報告姓名:*** 學號:********摘 要: 現(xiàn)實生活中往往存在一些很復雜的連續(xù)梁模型，它們的支撐性質(zhì)和受力特點都比較復雜，結(jié)構(gòu)力學電算則是將它們有規(guī)律的進行簡化，最后將其所有已知的性質(zhì)表達為一組數(shù)據(jù)，將這些數(shù)據(jù)輸入到我們所編好的程序中，既可以得到我們所要求一些量如：桿端力，各截面內(nèi)力，某界面的內(nèi)力影響線等。關(guān)鍵詞：連續(xù)梁、電算程序、截面內(nèi)力程序功能：連續(xù)梁程序可對連續(xù)梁結(jié)構(gòu)進行相關(guān)的計算。影響線程序可以計算單位1集中力荷載作用下的指定截面中內(nèi)力在單位1載荷按指定距離移動情況下的變化情況，從而提取數(shù)據(jù)繪制影響線。在文件其中依次輸入單元數(shù)、支承類型、節(jié)點荷載個數(shù)、非節(jié)點荷載個數(shù)、指定截面?zhèn)€數(shù)、彈性模量、桿長amp。對應節(jié)點編號（依次按組輸入）、非節(jié)點荷載值amp。單元號amp。距該單元左端距離（依次按組輸入），然后保存該文件。（2）影響線程序在影響線程序（.exe文件）所在文件夾中建立一新的txt文件，并命名。慣性矩、截面所在單元號amp。運行影響線程序，輸入起始文件即初始數(shù)據(jù)的文件，再輸入結(jié)果文件名，在相應文件夾下打開結(jié)果文件即可查看結(jié)果。程序注釋：支承類型：兩端鉸支為1，左固右鉸為2，左鉸右固為3，兩端固定為4。非節(jié)點荷載作用距離：指到單元左端的距離，其中均布荷載指均布荷載結(jié)束位置到單元左端的距離。算例1：求圖示結(jié)構(gòu)的彎矩圖及指定截面內(nèi)力。 截面 1 彎矩= 剪力= 截面 2 彎矩= 剪力= 截面 3 彎矩= 剪力= 截面 4 彎矩= 剪力= 截面 5 彎矩= 剪力= .917 截面 6 彎矩= 剪力= 截面 7 彎矩= 剪力= ====================== 計算結(jié)束 ======================根據(jù)此得出數(shù)據(jù)，繪制連續(xù)梁彎矩圖：如下：算例2：求圖示結(jié)構(gòu)2截面的剪力影響線。附：程序清單（程序中含有注釋）（1）連續(xù)梁內(nèi)力程序 PROGRAM LXL DIMENSION GC(20),GX(20),PJ(20,2),PF(10,4),sqjm(20,2),DK(2,2),P(45), 1,F0(2),WY(2),F(2),ZK1(45),ZK2(45),gd(20,2),qdnl(20,2) character*12 dat0,dat1 write(*,*)39。 read(*,10)dat0 write(*,*)39。 read(*,10)dat110 format(A12) open(8,file=dat0,status=39。) open(9,file=dat1,status=39。) write(9,11)11 format(8x,39。) READ(8,*)NE,NZ,NP,NF,njm,E0 WRITE(9,12)NE,NZ,NP,NF,njm,E0 12 FORMAT(1X,39。,6x,I3,5x,39。,I3,5x,39。I3,/, 1 1x,39。,I3,5x,39。,i3,5x,39。,F12., 14) NJ=NE+1 CALL SRSJ(NE,NP,NF,GC,GX,PJ,PF,sqjm,njm) CALL XCP(NJ,NP,NF,NE,P,PJ,PF,F0,GC) CALL JCZK(NE,NJ,E0,ZK1,ZK2,DK,GC,GX) CALL ZCCL(NZ,NJ,ZK1,ZK2,P) CALL FCQJ(NJ,ZK1,ZK2,P) CALL SCWY(NJ,P) CALL GDL(NE,NJ,NF,E0,P,WY,F,F0,DK,PF,GC,GX,gd) call jmnl(gd,sqjm,njm,qdnl,gc,ne,nf,pf) ENDC ************************************c 輸入初始數(shù)據(jù)SRSJ子程序C ************************************ SUBROUTINE SRSJ(NE,NP,NF,GC,GX,PJ,PF,sqjm,njm) DIMENSION GC(NE),GX(NE),PJ(NP,2),PF(NF,4),sqjm(njm,2)c sqjm:所求截面 njm:截面數(shù)目 sqjm(njm,1)=所屬單元 sqjm(njm,2)=距左端距離C GC(NE)：桿長 GX(NE)：慣性矩C 結(jié)點荷載:PJ(NP,1)=荷載大小 PJ(NP,2)=對應未知數(shù)序號 C 非結(jié)點荷載 : PF(NE,1)=荷載大小 PF(NE,2)=距離 PF(NE,3)=單元號 PF(NE,4)=荷載類型號 WRITE(9,11)11 FORMAT(1X,39。) READ(8,*)(GC(I),GX(I),I=1,NE) write(9,12)(GC(I),GX(I),I=1,NE)12 FORMAT(10X,) IF()THEN WRITE(9,22)22 FORMAT(1X,39。) READ(8,*)(PJ(I,1),PJ(I,2),I=1,NP) write(9,23)(PJ(I,1),PJ(I,2),I=1,NP)23 FORMAT(1X,) END IF IF() THEN WRITE(9,33) 33 FORMAT(1X,39。) READ(8,*)((PF(I,J),J=1,4),I=1,NF) WRITE(9,34)((PF(I,J),J=1,4),I=1,NF) 34 FORMAT(1X,) END IF if() then write(9,35)35 format(1x,39。) read(8,*)((sqjm(i,j),j=1,2),i=1,njm) write(9,36)((sqjm(i,j),j=1,2),i=1,njm)36 format(1x,) end if END C **********************************************c 計算第NHF個非結(jié)點荷截引起的等效結(jié)點荷截列陣F0C *********************************************** SUBROUTINE DJH(NHF,NE,NF,PF,F0,GC) DIMENSION PF(NF,4),F0(2),GC(NE)C G—荷載值,C—作用距離,NT單元號,ID—荷載類型號 G=PF(NHF,1) C=PF(NHF,2) NT=INT(PF(NHF,3)+) ID=INT(PF(NHF,4)+) BL=GC(NT) D=BLC C1=C/BL C2=C1*C1 GOTO(10,20,30),IDC 均布荷載作用下的等效荷載列陣F0(2)10 F0(1)=G*C*C*(*C1+*C2)/ F0(2)=G*C*C*C*(*C1)/ GOTO 200C 集中力作用下的等效荷截列陣P0(2)20 F0(1)=G*C*D*D/BL/BL F0(2)=G*D*C2 goto 2