...平面問題有限元程序設(shè)計理學(xué)院學(xué)號兔兔設(shè)計人—完成日期

程序功能說明本程序適用于節(jié)點荷載作用下的桁架分析問題，當(dāng)有節(jié)間荷載存在時可按照靜力等效原理將其轉(zhuǎn)化為節(jié)點荷載?？汕蠼馄矫骅旒茉陟o力荷載作用下的內(nèi)力和位移?？驁D的設(shè)計開始輸入數(shù)據(jù)開始輸入數(shù)據(jù)數(shù)組定義計算各桿截面面積和半帶寬調(diào)用形成單剛矩陣UNIT調(diào)用形成半帶寬存貯的結(jié)構(gòu)原始剛度矩陣TOTAL有節(jié)點荷載否輸入節(jié)點荷載值，并將其送入相應(yīng)的荷載列陣P（N）中考慮結(jié)構(gòu)是否自重將桿自重引起的等效荷載疊加到P（N）中支座處理、解方程，并輸出U（N）、V（N）調(diào)用UNIT，求各單元桿端內(nèi)力結(jié)束單元循環(huán)沒有有否是

程序的標(biāo)識符及數(shù)組說明NPOIN最大節(jié)點數(shù)NELEM最大單元數(shù)NLOAD節(jié)點的荷載總數(shù)NZERO節(jié)點的約束位移總數(shù)WT結(jié)構(gòu)的自重EE材料的彈性模量LL一維數(shù)組，用于存放單元桿件的長度AA一維數(shù)組，用于存放單元桿件的面積COORD節(jié)點坐標(biāo)數(shù)組LNODE單元節(jié)點數(shù)組BH二維數(shù)組，用于存放單元截面尺寸NRES二維數(shù)組，用于存放約束的位移值JP二維數(shù)組，用于存放節(jié)點的荷載值ESTIF四維數(shù)組，用于存放整體坐標(biāo)系下的單元剛度矩陣ASTIF二十維數(shù)組，用于存放半帶寬結(jié)構(gòu)原始剛度矩陣P用于存放節(jié)點的荷載列陣U用于存放節(jié)點x方向的位移值V用于存放節(jié)點y方向的位移值

源程序INTEGERE,NELEM,Z,HREALLL,ESTIF,ASTIF,JPDIMENSIONCOORD(3,2),LNODE(3,2),AA(200),BH(3,2),RES(3,2),&LL(200),ESTIF(4,4),ASTIF(400,20),JP(1,2),P(400),U(200),&V(200) OPEN(2,FILE='D:\NMX\JIA.DAT',STATUS='NEW')C輸入已知數(shù)據(jù) DATANPOIN,NELEM,NJP,NRES,EE,WT/3,3,1,3,21000,0/ DATACOORD/0,6,0,0,0,6/ DATALNODE/1,2,1,2,3,3/ DATABH/3*2,3*10/DATARES/3*0,1,2,4/C計算各單元面積 DO200E=1,NELEM AA(E)=BH(E,1)*BH(E,2)CALLUNIT(E,EE,COORD,LNODE,AA,ESTIF,LL,CX,CY)200CONTINUEC 計算半帶寬L2=2*NPOINNHBW=0DO210E=1,NELEMM=ABS(LNODE(E,1)-LNODE(E,2))IF(NHBW.LT.M)NHBW=M210CONTINUE WRITE(2,*)'半帶寬'NHBW=2*(NHBW+1)WRITE(2,220)NHBW220FORMAT(1X,'NHBW=',I2)C 單元循環(huán)DO300I1=1,L2DO300J1=1,NHBW300ASTIF(I1,J1)=0.0DO400E=1,NELEMCALLUNIT(E,EE,COORD,LNODE,AA,ESTIF,LL,CX,CY)CALLTOTAL(E,LNODE,ESTIF,ASTIF)400CONTINUEDO560N=1,L2560P(N)=0.0IF(NJP.EQ.0)GOTO650 DATAJP/10,5/DO630K1=1,NJPNN=JP(K1,2)+0.1630P(NN)=JP(K1,1)650IF(WT.LE.0.0)GOTO750DO700E=1,NELEMN1=LNODE(E,1)N2=LNODE(E,2)P(2*N1)=P(2*N1)-WT*AA(E)*LL(E)/2.0P(2*N2)=P(2*N2)-WT*AA(E)*LL(E)/2.0700CONTINUEWRITE(2,710)710FORMAT(/4X,'荷載總數(shù)',8X,'水平荷載',8X,'鉛垂荷載')DO730K=1,NO730WRITE(2,740)K,P(2*K-1),P(2*K)740FORMAT(4X,I2,8X,F8.3,8X,F8.3)750DO800I1=1,NRESZ=RES(I1,2)+1E-5ASTIF(Z,1)=ASTIF(Z,1)*1E8P(Z)=ASTIF(Z,1)*RES(I1,1)800CONTINUEDO850K1=1,L2-1IF(L2.GT.(K1+NHBW-1))THENIM=K1+NHBW-1ELSEIM=L2ENDIFDO850I1=K1+1,IML1=I1-K1+1C1=ASTIF(K1,L1)/ASTIF(K1,1)DO830J1=1,NHBW-L1+1MM=J1+I1-K1ASTIF(I1,J1)=ASTIF(I1,J1)-C1*ASTIF(K1,MM)830CONTINUEP(I1)=P(I1)-C1*P(K1)850CONTINUEP(L2)=P(L2)/ASTIF(L2,1)DO900I1=L2-1,1,-1IF(NHBW.GT.(L2-I1+1))THENJM=L2-I1+1ELSEJM=NHBWENDIFDO880J1=2,JMH=J1+I1-1P(I1)=P(I1)-ASTIF(I1,J1)*P(H)880CONTINUEP(I1)=P(I1)/ASTIF(I1,1)900CONTINUEWRITE(2,910)910FORMAT(/10X,'節(jié)點位移',10X,'水平位移',10X,'鉛垂位移'/)DO930N=1,NOU(N)=P(2*N-1)V(N)=P(2*N)930WRITE(2,950)N,U(N),V(N)950FORMAT(15X,I2,6X,F12.7,6X,F12.7)WRITE(2,970)970FORMAT(/4X,'單元號',8X,'節(jié)點號',8X,'N(KN)',8X,'Q(KN)'/)DO980E=1,NELEMCALLUNIT(E,EE,COORD,LNODE,AA,ESTIF,LL,CX,CY)N1=LNODE(E,1)N2=LNODE(E,2)ULNODE=U(N1)-U(N2)VLNODE=V(N1)-V(N2)D1=ESTIF(1,1)*ULNODE+ESTIF(1,2)*VLNODED2=ESTIF(1,2)*ULNODE+ESTIF(2,2)*VLNODEFI=CX*D1+CY*D2FJ=-FITI=-CY*D1+CX*D2TJ=-TIWRITE(2,990)E,N1,FI,TI,N2,FJ,TJ990FORMAT(4X,I2,12X,I2,8X,F8.4,8X,F8.4/18X,I2,8X,F8.4,8X,F8.4)980CONTINUEWRITE(2,1000)1000FORMAT(/28X,'結(jié)束',/15X,35('*')/)STOPEND子程序TOTAL形成總剛度矩陣 SUBROUTINETOTAL(E,LNODE,ESTIF,ASTIF)INTEGERE,DH,ZL,DLREALESTIF,ASTIFDIMENSIONLNODE(3,2),ESTIF(4,4),ASTIF(400,20)DO40I1=1,2DO40II=1,2KH=2*(I1-1)+IIDH=2*(LNODE(E,I1)-1)+IIDO40J1=1,2DO40JJ=1,2KL=2*(J1-1)+JJZL=2*(LNODE(E,J1)-1)+JJDL=ZL-DH+1IF(DL.GT.0)ASTIF(DH,DL)=ASTIF(DH,DL)+ESTIF(KH,KL)40CONTINUERETURNEND 子程序UNIT形成單剛 SUBROUTINEUNIT(E,EE,COORD,LNODE,AA,ESTIF,LL,CX,CY)INTEGEREREALLL,ESTIFDIMENSIONCOORD(3,2),LNODE(3,2),AA(200),LL(200),ESTIF(4,4)N1=LNODE(E,1)N2=LNODE(E,2)CX=COORD(N2,1)-COORD(N1,1)CY=COORD(N2,2)-COORD(N1,2)LL(E)=SQRT(CX*CX+CY*CY)CX=CX/LL(E)CY=CY/LL(E)EAL=EE*AA(E)/LL(E)ESTIF(1,1)=EAL*CX*CXESTIF(1,2)=EAL*CX*CYESTIF(2,2)=EAL*CY*CYESTIF(2,1)=ESTIF(1,2)DO10I=1,2DO10J=1,2ESTIF(I,J+2)=-ESTIF(I,J)ESTIF(I+2,J)=-ESTIF(I,J)10ESTIF(I+2,J+2)=ESTIF(I,J)RETURNEND

算例如圖1所示桁架，已知桿件材料的彈性模量,桿件截面高度H=10cm，截面的寬度為b=2cm，不計各桿的自重，求在荷載作用下，各桿的軸力。圖1桁架例圖圖1桁架例圖計算模型的輸入數(shù)據(jù)有以下各量：NPOINNRESNELEMNLOADYOGWT3331210000.0節(jié)點單元12LNODE(1,I)12LNODE(2,I)23LNODE(3,I)13編號數(shù)組123RES(I,1)0.00.00.0RES(I,2)124節(jié)點I123COORD(I,1)0.06.00.0COORD(I，2)0.00.06.0JP(I,1)10.0JP(I,2)5單元號I123BH(I,1)101010BH(I,2)222輸出結(jié)果:節(jié)點位移水平位移鉛垂位移10.00000000.000000020.00014290.000000030.00068980.0001429單元號節(jié)點號N(kN)Q(kN)11-10.00000.0000210.00000.00002214.14210.00003-14.14210.000031-10.00000.0000310.00000.0000

社會實踐報告系別：班級：學(xué)號：姓名：作為祖國未來的事業(yè)的繼承人，我們這些大學(xué)生應(yīng)該及早樹立自己的歷史責(zé)任感，提高自己的社會適應(yīng)能力。假期的社會實踐就是很好的鍛煉自己的機(jī)會。當(dāng)下，掙錢早已不是打工的唯一目的，更多的人將其視為參加社會實踐、提高自身能力的機(jī)會。許多學(xué)校也積極鼓勵大學(xué)生多接觸社會、了解社會，一方面可以把學(xué)到的理論知識應(yīng)用到實踐中去，提高各方面的能力；另一方面可以積累工作經(jīng)驗對日后的就業(yè)大有裨益。進(jìn)行社會實踐，最理想的就是找到與本專業(yè)對口單位進(jìn)行實習(xí)，從而提高自己的實戰(zhàn)水平，同時可以將課本知識在實踐中得到運用，從而更好的指導(dǎo)自己今后的學(xué)習(xí)。但是作為一名尚未畢業(yè)的大學(xué)生，由于本身具備的專業(yè)知識還十分的有限，所以我選擇了打散工作為第一次社會實踐的方式。目的在于熟悉社會。就職業(yè)本身而言，并無高低貴賤之分，存在即為合理。通過短短幾天的打工經(jīng)歷可以讓長期處于校園的我們對社會有一種更直觀的認(rèn)識。實踐過程：自從走進(jìn)了大學(xué)，就業(yè)問題就似乎總是圍繞在我們的身邊，成了說不完的話題。在現(xiàn)今社會，招聘會上的大字報都總寫著“有經(jīng)驗者優(yōu)先”，可還在校園里面的我們這班學(xué)子社會經(jīng)驗又會擁有多少呢？為了拓展自身的知識面，擴(kuò)大與社會的接觸面，增加個人在社會競爭中的經(jīng)驗，鍛煉和提高自己的能力，以便在以后畢業(yè)后能真正真正走入社會，能夠適應(yīng)國內(nèi)外的經(jīng)濟(jì)形勢的變化，并且能夠在生活和工作中很好地處理各方面的問題，我開始了我這個假期的社會實踐-走進(jìn)天源休閑餐廳。實踐，就是把我們在學(xué)校所學(xué)的理論知識，運用到客觀實際中去，使自己所學(xué)的理論知識有用武之地。只學(xué)不實踐，那么所學(xué)的就等于零。理論應(yīng)該與實踐相結(jié)合。另一方面，實踐可為以后找工作打基礎(chǔ)。通過這段時間的實習(xí)，學(xué)到一些在學(xué)校里學(xué)不到的東西。因為環(huán)境的不同，接觸的人與事不同，從中所學(xué)的東西自然就不一樣了。要學(xué)會從實踐中學(xué)習(xí)，從學(xué)習(xí)中實踐。而且在中國的經(jīng)濟(jì)飛速發(fā)展，又加入了世貿(mào)，國內(nèi)外經(jīng)濟(jì)日趨變化，每天都不斷有新的東西涌現(xiàn)，在擁有了越來越多的機(jī)會的同時，也有了更多的挑戰(zhàn)，前天才剛學(xué)到的知識可能在今天就已經(jīng)被淘汰掉了，中國的經(jīng)濟(jì)越和外面接軌，對于人才的要求就會越來越高，我們不只要學(xué)好學(xué)校里所學(xué)到的知識，還要不斷從生活中，實踐中學(xué)其他知識，不斷地從各方面武裝自已，才能在競爭中突出自已，表現(xiàn)自已。在餐廳里,別人一眼就能把我人出是一名正在讀書的學(xué)生,我問他們?yōu)槭裁?他們總說從我的臉上就能看出來,也許沒有經(jīng)歷過社會的人都有我這種不知名遭遇吧!我并沒有因為我在他們面前沒有經(jīng)驗而退后,我相信我也能做的像他們一樣好.我的工作是在那做傳菜生,每天9點鐘-下午2點再從下午的4點-晚上8:30分上班,雖然時間長了點但,熱情而年輕的我并沒有絲毫的感到過累,我覺得這是一種激勵,明白了人生,感悟了生活,接觸了社會,了解了未來.在餐廳里雖然我是以傳菜為主,但我不時還要做一些工作以外的事情，有時要做一些清潔的工作，在學(xué)校里也許有老師分配說今天做些什么，明天做些什么，但在這里，不一定有人會告訴你這些，你必須自覺地去做，而且要盡自已的努力做到最好，一件工作的效率就會得到別人不同的評價。在學(xué)校，只有學(xué)習(xí)的氛圍，畢竟學(xué)校是學(xué)習(xí)的場所，每一個學(xué)生都在為取得更高的成績而努力。而這里是工作的場所，每個人都會為了獲得更多的報酬而努力，無論是學(xué)習(xí)還是工作，都存在著競爭，在競爭中就要不斷學(xué)習(xí)別人先進(jìn)的地方，也要不斷學(xué)習(xí)別人怎樣做人，以提高自已的能力！記得老師曾經(jīng)說過大學(xué)是一個小社會，但我總覺得校園里總少不了那份純真，那份真誠，盡管是大學(xué)高校，學(xué)生還終歸保持著學(xué)生的身份。而走進(jìn)企業(yè)，接觸各種各樣的客戶、同事、上司等等，關(guān)系復(fù)雜，但我得去面對我從未面對過的一切。記得在我校舉行的招聘會上所反映出來的其中一個問題是，學(xué)生的實際操作能力與在校理論學(xué)習(xí)有一定的差距。在這次實踐中，這一點我感受很深。在學(xué)校，理論的學(xué)習(xí)很多，而且是多方面的，幾乎是面面俱到；而在實際工作中，可能會遇到書本上沒學(xué)到的，又可能是書本上的知識一點都用不上的情況?；蛟S工作中運用到的只是很簡單的問題，只要套公式似的就能完成一項任務(wù)。有時候我會埋怨，實際操作這么簡單，但為什么書本上的知識讓人學(xué)得這么吃力呢？這是社會與學(xué)校脫軌了嗎？也許老師是正確的，雖然大學(xué)生生活不像踏入社會，但是總算是社會的一個部分，這是不可否認(rèn)的事實。但是有時也要感謝老師孜孜不倦地教導(dǎo)，有些問題有了有課堂上地認(rèn)真消化，有平時作業(yè)作補(bǔ)充，我比一部人具有更高的起點，有了更多的知識層面去應(yīng)付各種工作上的問題，作為一名大學(xué)生，應(yīng)該懂得與社會上各方面的人交往，處理社會上所發(fā)生的各方面的事情，這就意味著大學(xué)生要注意到社會實踐，社會實踐必不可少。畢竟，很快我就不再是一名大學(xué)生，而是社會中的一分子，要與社會交流，為社會做貢獻(xiàn)。只懂得紙上談兵是遠(yuǎn)遠(yuǎn)不及的，以后的人生旅途是漫長的，為了鍛煉自己成為一名合格的、對社會有用的人才.很多在學(xué)校讀書的人都說寧愿出去工作，不愿在校讀書；而已在社會的人都寧愿回校讀書。我們上學(xué)，學(xué)習(xí)先進(jìn)的科學(xué)知識，為的都是將來走進(jìn)社會，獻(xiàn)出自己的一份力量，我們應(yīng)該在今天努力掌握專業(yè)知識，明天才能更好地為社會服務(wù)。實踐心得：雖然這次的實踐只有短短的幾天，而且從事的是比較簡單的服務(wù)工作，但是通過與各種各樣的人接觸，還是讓我學(xué)會了很多道理。首先是明白了守時的重要性。工作和上學(xué)是兩種完全不同的概念，上學(xué)是不遲到很多時候是因為懼怕老師的責(zé)怪，而當(dāng)你走上了工作崗位，這里更多的是由于自己內(nèi)心的一種責(zé)任。這種責(zé)任是我學(xué)會客服自己的惰性，準(zhǔn)時走上自己的崗位。這對我以后的學(xué)習(xí)生活也是一種鞭策，時刻牢記自己的責(zé)任，并努力加強(qiáng)自己的時間觀念。其次讓我真實的體會到了合作的重要性。雖然我工作的只是小小的一家餐廳，但是從點單到制作到遞送到結(jié)帳這一環(huán)環(huán)的工作都是有分工的，只有這樣才能使整家店的工作效率都大大的提高。以前雖然在書上看見過很多的團(tuán)隊合作的例子，但這一次是深刻的體會到了，正所謂“眾人拾柴火焰高