下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、word/prep7!DEFINE THE ELEMENTARY PARAMETERS*DIM,L,ARRAY,10*DIM,DISTC,ARRAY,10N=4NBOX=2L(1)=20L(2)=30L(3)=30L(4)=20NUML=NBOX+3NUMC=(L(1)+L(2)+L(3)+L(4)+1CITA=25/180*3.1415926DISTC(1)=2.9584DISTC(2)=4.0802DISTC(3)=0.00DISTC(4)=4.0802DISTC(5)=2.9584!DEFINE THE NODES OF BRIDGEN,1,0,0,0.00N,NUMC,NUMC-1,0
2、,0.00FILL,1,NUMCN,200+1,(DISTC(1)+DISTC(2)*SIN(CITA)/COS(CITA), 0.0,-(DISTC(1)+DISTC(2)N,200+NUMC,NUMC-1+(DISTC(1)+DISTC(2)*SIN(CITA)/COS(CITA),0.0,-(DISTC(1)+DISTC(2)FILL,201,200+NUMCN,400+1,DISTC(2)*SIN(CITA)/COS(CITA), 0.0,-DISTC(2)N,400+NUMC,NUMC-1+DISTC(2)*SIN(CITA)/COS(CITA), 0.0,-DISTC(2)FILL
3、,401,400+NUMCN,600+1,-DISTC(2)*SIN(CITA)/COS(CITA), 0.0,DISTC(2)N,600+NUMC,NUMC-1-DISTC(4)*SIN(CITA)/COS(CITA),0.0,DISTC(4)FILL,601,600+NUMCN,800+1,-(DISTC(4)+DISTC(5)*SIN(CITA)/COS(CITA),0.0, DISTC(4)+DISTC(5)N,800+NUMC,NUMC-1-(DISTC(4)+DISTC(5)*SIN(CITA)/COS(CITA),0.0,DISTC(4)+DISTC(5)FILL,801,800
4、+NUMC! 定義縱梁單元材料、幾何參數(shù) ET,1,BEAM4MP,EX,1,3.45E+10MP,NUXY,1,0.2000MP,DENS,1,2600MP,ALPX,1,1.00E-05R,1,0.3133,0.0871,0.0959,1.0,0.25,RMORE ,0.00265,ET,2,BEAM4MP,EX,2,3.45E+10MP,NUXY,2,0.2000MP,DENS,2,2600MP,ALPX,2,1.00E-05R,2,1.6048,0.5486,1.5400,2.0,1.0,RMORE ,0.036,ET,3,BEAM4MP,EX,3,3.45E+10MP,NUXY,3,
5、0.2000MP,DENS,3,2600MP,ALPX,3,1.00E-05R,3,2.3625,0.9885,2.2600,2.0,1.0,RMORE ,0.0956, ! 定義橫梁單元材料、幾何參數(shù) ET,4,BEAM4MP,EX,4,3.45E+10MP,NUXY,4,0.2000MP,DENS,4,0MP,ALPX,4,1.00E-05R,4,0.500,0.4582,0.0416,1.0,1.0,RMORE ,0.00879,ET,5,BEAM4MP,EX,5,3.45E+10MP,NUXY,5,0.2000MP,DENS,5,0MP,ALPX,5,1.00E-05R,5,1.025
6、0,0.2770,0.0495,1.0,1.0,RMORE ,0.0609, ! 生成縱向梁格單元TYPE,1MAT,1REAL,1*DO,I,1,NUMC-1,1 E,200+I,200+I+1*ENDDO*DO,I,1,NUMC-1,1 E,800+I,800+I+1*ENDDOTYPE,2MAT,2REAL,2*DO,I,1,NUMC-1,1 E,400+I,400+I+1*ENDDO*DO,I,1,NUMC-1,1 E,600+I,600+I+1*ENDDOTYPE,3MAT,3REAL,3*DO,I,1,NUMC-1,1 E,I,I+1*ENDDO! 生成橫向梁格單元TYPE,5MA
7、T,5REAL,5 E,200+1,400+1 E,400+1,1 E,1,600+1 E,600+1,800+1TYPE,4MAT,4REAL,4*DO,I,2,L(1),1 E,200+I,400+I E,400+I,I E,I,600+I E,600+I,800+I*ENDDOTYPE,5MAT,5REAL,5 E,200+L(1)+1,400+L(1)+1 E,400+L(1)+1,L(1)+1 E,L(1)+1,600+L(1)+1 E,600+L(1)+1,800+L(1)+1TYPE,4MAT,4REAL,4*DO,I,L(1)+2,L(1)+L(2),1 E,200+I,400
8、+I E,400+I,I E,I,600+I E,600+I,800+I*ENDDOTYPE,5MAT,5REAL,5 E,200+L(1)+L(2)+1,400+L(1)+L(2)+1 E,400+L(1)+L(2)+1,L(1)+L(2)+1 E,L(1)+L(2)+1,600+L(1)+L(2)+1 E,600+L(1)+L(2)+1,800+L(1)+L(2)+1TYPE,4MAT,4REAL,4*DO,I,L(1)+L(2)+2,L(1)+L(2)+L(3),1 E,200+I,400+I E,400+I,I E,I,600+I E,600+I,800+I*ENDDOTYPE,5MA
9、T,5REAL,5 E,200+L(1)+L(2)+L(3)+1,400+L(1)+L(2)+L(3)+1 E,400+L(1)+L(2)+L(3)+1,L(1)+L(2)+L(3)+1 E,L(1)+L(2)+L(3)+1,600+L(1)+L(2)+L(3)+1 E,600+L(1)+L(2)+L(3)+1,800+L(1)+L(2)+L(3)+1TYPE,4MAT,4REAL,4*DO,I,L(1)+L(2)+L(3)+2,L(1)+L(2)+L(3)+L(4),1 E,200+I,400+I E,400+I,I E,I,600+I E,600+I,800+I*ENDDOTYPE,5MA
10、T,5REAL,5 E,200+L(1)+L(2)+L(3)+L(4)+1,400+L(1)+L(2)+L(3)+L(4)+1 E,400+L(1)+L(2)+L(3)+L(4)+1,L(1)+L(2)+L(3)+L(4)+1 E,L(1)+L(2)+L(3)+L(4)+1,600+L(1)+L(2)+L(3)+L(4)+1 E,600+L(1)+L(2)+L(3)+L(4)+1,800+L(1)+L(2)+L(3)+L(4)+1/SOLACEL,9.81,0!* *! 定義邊界條件!*D,400+1,UX,0,UY,UZD,600+1,UX,0,UY,UZD,21,UY,0D,421,UY,0D,621,UY,0D,51,UY,0D,651,UY,0D,451,UY,0D,81,UY,0D,681,UY,0D,481,UY,0D,400+101,UX,0,UY,UZD,600+101,UX,0,UY,UZANTYPE,0/STATUS,SOLUSOLVE /POST1/REP,FAST AVPRIN,0, , ETABLE, ,SMISC, 2 AVPRIN,0, , ETABLE, ,SMISC,8AVPRIN,0, , ETABLE, ,
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 四害消殺合同
- 退化生態(tài)系統(tǒng)恢復(fù)機(jī)制-洞察分析
- 無人駕駛汽車法規(guī)與政策-洞察分析
- 有色金屬行業(yè)循環(huán)經(jīng)濟(jì)發(fā)展與環(huán)境保護(hù)協(xié)同創(chuàng)新-洞察分析
- 新形勢下汽車租賃行業(yè)高速增長戰(zhàn)略制定與實(shí)施研究報(bào)告
- 2025-2030年中國美發(fā)理發(fā)行業(yè)營銷創(chuàng)新戰(zhàn)略制定與實(shí)施研究報(bào)告
- 2024年項(xiàng)目管理人員安全培訓(xùn)考試題及參考答案(B卷)
- 四則混合運(yùn)算質(zhì)量自測練習(xí)題
- 關(guān)于合同風(fēng)險(xiǎn)自查的報(bào)告
- 全屋定制合同不寫板材等級
- 2024年度醫(yī)療器械監(jiān)督管理?xiàng)l例培訓(xùn)課件
- 項(xiàng)目七電子商務(wù)消費(fèi)者權(quán)益保護(hù)的法律法規(guī)
- 100以內(nèi)不進(jìn)位不退位加減法練習(xí)題
- 企業(yè)安全生產(chǎn)評估報(bào)告
- 水庫大壩深基坑開挖專項(xiàng)方案樣本
- 經(jīng)橈動(dòng)脈腦血管造影術(shù)前術(shù)后護(hù)理
- 品質(zhì)經(jīng)理工作總結(jié)
- 集成電路設(shè)計(jì)工藝節(jié)點(diǎn)演進(jìn)趨勢
- 運(yùn)行設(shè)備巡回檢查制度模版
- 肯德基經(jīng)營策略分析報(bào)告總結(jié)
- 噴涂主管年后業(yè)務(wù)規(guī)劃暨工作計(jì)劃
評論
0/150
提交評論