【正文】 4 .5463 結(jié)點號 = 5 .0000 .................各單元桿端內(nèi)力 .................... 單元號 = 1 左端彎矩 = 右端彎矩 = 單元號 = 2 左端彎矩 = 右端彎矩 = .296 單元號 = 3 左端彎矩 = 右端彎矩 = 單元號 = 4 左端彎矩 = 右端彎矩 = 。 荷載正負號：力偶逆時針為正，力向上為正。 非節(jié)點荷載類型：均布荷載為 1，集中力為 2，集中力偶為 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)力影響線等。 關鍵詞： 連續(xù)梁、電算程序、截面內(nèi)力 程序功能 ： 連續(xù)梁程序可對 連續(xù)梁結(jié)構(gòu)進行相關的計算。 影響線程序可以計算單位 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ù)梁彎矩圖： 如下： 4 . 4 5 34 . 4 1 30 . 2 9 69 . 7 0 42 . 6 3 01 . 3 7 00 . 8 1 5M彎 矩 圖 算例 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。 1010 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15010 1 2 3 4 5 6 7 8 9 10 11 12 13 14 151截面彎矩影響線 1截面剪力影響線 read(*,10)dat0 write(*,*)39。 read(*,10)dat1 10 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) END C ************************************ 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é)點荷截列陣 F0 C ***********************************************