版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、finish$/clear$/prep7!定義單元類型、實常數(shù)、材料屬性、截面ET,1,BEAM3ET,2,LINK10et,3,combin14SECTYPE,1,BEAM,RECT,0SECOFFSET,CENTSECDATA, 1.1, 1, 0,0,0,0,0,0,0,0SECTYPE,2,BEAM,RECT,0SECOFFSET,CENTSECDATA, 0.4, 1, 0,0,0,0,0,0,0,0SECTYPE,3,BEAM,RECT, ,0SECOFFSET,CENTSECDATA, 1, 1, 0,0,0,0,0,0,0,0SECTYPE,4, BEAM,RECT,0SECO
2、FFSET,CENTSECDATA, 0.8, 1, 0,0,0,0,0,0,0,0SECTYPE,5,BEAM,RECT,0SECOFFSET,CENTSECDATA, 0.23375, 1, 0,0,0,0,0,0,0,0R,1, 1*1.1, 1*1.1*1.1*1.1/12, 1.1, , , ,R,2, 1*0.4, 1*0.6*0.6*0.6/12, 0.4, , , ,R,3, 1*1.0, 1*0.8*0.8*0.8/12, 1.0, , , ,R,4, 1*0.8, 1*0.8*0.8*0.8/12, 0.8, , , ,R,5, 0.23375*1, 0.23375*1*1
3、*1/12, 1, , , ,R,6, 160*1*1*1e6,R,7, 61.63*1*1*1e6,mp,ex,1,30e9mp,prxy,1,0.2mp,dens,1,2.5e3mp,ex,2,32.5e9mp,prxy,2,0.2mp,dens,2,2.5e3!建立幾何模型k,1, 0,0k,2, 7.7,0k,3, 14.8,0k,4, 22.5,0k,5, 0,7.275k,6, 7.7,7.275k,7, 14.8,7.275k,8, 22.5,7.275k,9, 0,14.05k,10, 7.7,14.05k,11, 14.8,14.05k,12, 22.5,14.05l,1,2
4、l,2,3l,3,4l,5,6l,6,7l,7,8l,9,10l,10,11l,11,12l,1,5l,5,9l,2,6l,6,10l,3,7l,7,11l,4,8l,8,12!單元網(wǎng)格劃分lsel,s,line,1,2,1lesize,all,1LATT,1,1,1,1lmesh,alllsel,s,line,2,3,1lesize,all,1LATT,1,1,1,1lmesh,alllsel,s,line,4,5,1lesize,all,1LATT,1,2,1,2lmesh,alllsel,s,line,5,6,1lesize,all,1LATT,1,2,1,2lmesh,alllsel,
5、s,line,7,8,1lesize,all,1LATT,1,3,1,3lmesh,alllsel,s,line,8,9,1lesize,all,1LATT,1,3,1,3lmesh,alllsel,s,line,10,11,1lesize,all,1LATT,1,4,1,4lmesh,alllsel,s,line,16,17,1lesize,all,1LATT,1,4,1,4lmesh,alllsel,s,line,12,13,1lesize,all,1LATT,2,5,1,5lmesh,alllsel,s,line,14,15,1lesize,all,1LATT,2,5,1,5lmesh,
6、all!創(chuàng)建彈簧單元nplot/pnum,node,1/replottype,3real,6nsel,s,loc,y,0ngen,2,500,all,-1*do,i,1,25,1e,i,i+500*enddo!施加邊界條件allsel,allnsel,s,loc,y,-1d,all,ux,0,uyallsel,alld,2,uy,0d,10,uy,0d,14,ux,0!施加荷載/soluq1=134.5e3q2=16.6e3q3=268.8e3e1=97.7e3e2=403.5e3allsel,allesel,s,real,3sfbeam,all,1,pres,q1allsel,allesel
7、,s,real,1sfbeam,all,1,pres,-q3allsel,allesel,s,real,2sfbeam,all,1,pres,q2allsel,allesel,s,real,4nsle,snsel,r,loc,x,0esln,r,1sfbeam,pres,*get,Nelm,elem,0,count*get,Emin,elem,0,num,min*dim,P,array,Nelm,3,1k=Emin*do,i,1,NelmP(i,1)=kk=elnext(k)*enddon=1*do,i,n,Nelmp(i,2)=e2-(e2-e1)*(i-n)*1/14.05P(i,3)=e
8、2-(e2-e1)*(i-n+1)*1/14.05*enddo*do,i,1,Nelmsfbeam,P(i,1),1,pres,P(i,2),P(i,3)*enddoallsel,allesel,s,real,4nsle,snsel,r,loc,x,22.5esln,r,1*get,Nelm,elem,0,count*get,Emin,elem,0,num,min*dim,P,array,Nelm,3,1k=Emin*do,i,1,NelmP(i,1)=kk=elnext(k)*enddon=1*do,i,n,Nelmp(i,2)=e2-(e2-e1)*(i-n)*1/14.05P(i,3)=
9、e2-(e2-e1)*(i-n+1)*1/14.05*enddo*do,i,1,Nelmsfbeam,P(i,1),1,pres,-P(i,2),-P(i,3)*enddoallsel,allacel,9.8 !自重應(yīng)該加9.8*1.485finish/SOL/STATUS,SOLUSOLVEfinish/POST1ETABLE,NI,SMISC,1ETABLE,NJ,SMISC,7ETABLE,QI,SMISC,2ETABLE,QJ,SMISC,8ETABLE,MI,SMISC,6ETABLE,MJ,SMISC,12PLLS,NI,NJ,1,0PLLS,QI,QJ,1,0PLLS,MI,MJ
10、,-1,0ESEL,U,TYPE,2!顯示變形圖pldisp,1finish2.標準組合命令流FINISH/CLEAR/title,tiyuzhongxinnanzhan!定義單元類型、實常數(shù)、材料屬性、截面/prep7ET,1,BEAM3ET,2,LINK10keyopt,2,3,1et,3,combin14SECTYPE,1,BEAM,RECT,0SECOFFSET,CENTSECDATA, 1.1, 1, 0,0,0,0,0,0,0,0SECTYPE,2,BEAM,RECT,0SECOFFSET,CENTSECDATA, 0.4, 1, 0,0,0,0,0,0,0,0SECTYPE,3,
11、BEAM,RECT, ,0SECOFFSET,CENTSECDATA, 1, 1, 0,0,0,0,0,0,0,0SECTYPE,4, BEAM,RECT,0SECOFFSET,CENTSECDATA, 0.8, 1, 0,0,0,0,0,0,0,0SECTYPE,5,BEAM,RECT,0SECOFFSET,CENTSECDATA, 0.23375, 1, 0,0,0,0,0,0,0,0R,1, 1*1.1, 1*1.1*1.1*1.1/12, 1.1, , , ,!底板R,2, 1*0.4, 1*0.6*0.6*0.6/12, 0.4, , , ,!中板R,3, 1*1.0, 1*0.8*
12、0.8*0.8/12, 1.0, , , ,!頂板R,4, 1*0.8, 1*0.8*0.8*0.8/12, 0.8, , , ,!側(cè)墻R,5, 0.23375*1, 0.23375*1*1*1/12, 1, , , ,!中柱R,6, 160*1*1*1e6,R,7, 61.63*1*1*1e6,mp,ex,1,30e9mp,prxy,1,0.2mp,dens,1,2.5e3mp,ex,2,32.5e9mp,prxy,2,0.2mp,dens,2,2.5e3!建立幾何模型k,1, 0,0k,2, 7.7,0k,3, 14.8,0k,4, 22.5,0k,5, 0,7.275k,6, 7.7,7
13、.275k,7, 14.8,7.275k,8, 22.5,7.275k,9, 0,14.05k,10, 7.7,14.05k,11, 14.8,14.05k,12, 22.5,14.05l,1,2l,2,3l,3,4l,5,6l,6,7l,7,8l,9,10l,10,11l,11,12l,1,5l,5,9l,2,6l,6,10l,3,7l,7,11l,4,8l,8,12!單元網(wǎng)格劃分lsel,s,line,1,2,1lesize,all,1LATT,1,1,1,1lmesh,alllsel,s,line,2,3,1lesize,all,1LATT,1,1,1,1lmesh,alllsel,s,
14、line,4,5,1lesize,all,1LATT,1,2,1,2lmesh,alllsel,s,line,5,6,1lesize,all,1LATT,1,2,1,2lmesh,alllsel,s,line,7,8,1lesize,all,1LATT,1,3,1,3lmesh,alllsel,s,line,8,9,1lesize,all,1LATT,1,3,1,3lmesh,alllsel,s,line,10,11,1lesize,all,1LATT,1,4,1,4lmesh,alllsel,s,line,16,17,1lesize,all,1LATT,1,4,1,4lmesh,alllse
15、l,s,line,12,13,1lesize,all,1LATT,2,5,1,5lmesh,alllsel,s,line,14,15,1lesize,all,1LATT,2,5,1,5lmesh,all!創(chuàng)建彈簧單元nplot/pnum,node,1/replottype,3real,6nsel,s,loc,y,0ngen,2,500,all,-1*do,i,1,25,1e,i,i+500*enddo!施加邊界條件allsel,allnsel,s,loc,y,-1d,all,ux,0,uyallsel,alld,2,uy,0d,10,uy,0d,14,ux,0!施加荷載/soluq1=94.6
16、e3q2=12.0e3q3=181e3e1=67.7e3e2=273.6e3allsel,allesel,s,real,3sfbeam,all,1,pres,q1allsel,allesel,s,real,1sfbeam,all,1,pres,-q3allsel,allesel,s,real,2sfbeam,all,1,pres,q2allsel,allesel,s,real,4nsle,snsel,r,loc,x,0esln,r,1*get,Nelm,elem,0,count*get,Emin,elem,0,num,min*dim,P,array,Nelm,3,1k=Emin*do,i,1,
17、NelmP(i,1)=kk=elnext(k)*enddon=1*do,i,n,Nelmp(i,2)=e2-(e2-e1)*(i-n)*1/14.05P(i,3)=e2-(e2-e1)*(i-n+1)*1/14.05*enddo*do,i,1,Nelmsfbeam,P(i,1),1,pres,P(i,2),P(i,3)*enddoallsel,allesel,s,real,4nsle,snsel,r,loc,x,22.5esln,r,1*get,Nelm,elem,0,count*get,Emin,elem,0,num,min*dim,P,array,Nelm,3,1k=Emin*do,i,1
18、,NelmP(i,1)=kk=elnext(k)*enddon=1*do,i,n,Nelmp(i,2)=e2-(e2-e1)*(i-n)*1/14.05P(i,3)=e2-(e2-e1)*(i-n+1)*1/14.05*enddo*do,i,1,Nelmsfbeam,P(i,1),1,pres,-P(i,2),-P(i,3)*enddoallsel,allacel,9.8finish/SOL/STATUS,SOLUSOLVEfinish/POST1ETABLE,NI,SMISC,1ETABLE,NJ,SMISC,7ETABLE,QI,SMISC,2ETABLE,QJ,SMISC,8ETABLE
19、,MI,SMISC,6ETABLE,MJ,SMISC,12PLLS,NI,NJ,1,0PLLS,QI,QJ,1,0PLLS,MI,MJ,-1,0ESEL,U,TYPE,2!顯示變形圖pldisp,1finish3.縱梁命令流/prep7ET,1,BEAM3ET,2,link10KEYOPT,2,3,1r,1,1.2*2,1.2*2*2*2/12,2 !頂縱梁r,2,1.2*1.2,1.2*1.2*1.2*1.2/12,1.2 !中縱梁r,3,1.2*2.5,1.2*2.5*2.5*2.5/12,2.5 !底縱梁r,4,0.8*1.2,0.8*1.2*1.2*1.2/12,1.2 !中柱R,5,1*1 !側(cè)墻MP,EX,1,3e10MP,PRXY,1,0.2MP,DENS,1,2500MP,EX,2,3.35e10MP,PRXY,2,0.2MP,DENS,2,2500MP,EX,3,1.6e8*DO,i,1,41,1N,i,i-1,18.5N,i+41,i-1,8.5N,i+
溫馨提示
- 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)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 師德師風(fēng)警示教育活動總結(jié)6篇
- 工程信息管理體系
- 國開《可編程控制器應(yīng)用》形考任務(wù)五實驗1
- 2024年淮南聯(lián)合大學(xué)高職單招職業(yè)適應(yīng)性測試歷年參考題庫含答案解析
- 2022年6月7日陜西省省直事業(yè)單位廣播電視局面試真題及答案
- 中國人民大學(xué)會計系列教材·第四版《成本會計學(xué)》課件-第六章
- 濕紙巾發(fā)展趨勢分析報告
- 2024年隴西縣第一人民醫(yī)院高層次衛(wèi)技人才招聘筆試歷年參考題庫頻考點附帶答案
- 如何提起證券交易代理合同糾紛訴訟培訓(xùn)講學(xué)
- 2024年泰山護理職業(yè)學(xué)院高職單招職業(yè)適應(yīng)性測試歷年參考題庫含答案解析
- 統(tǒng)編版六年級語文上冊專項 專題11文言文閱讀-原卷版+解析
- 高中數(shù)學(xué)聯(lián)賽歷年真題分類匯編解析(高分強基必刷)
- 高中數(shù)學(xué)筆記總結(jié)高一至高三很全
- 011(1)-《社會保險人員減員申報表》
- 2024年工程部工作總結(jié)與計劃
- 電廠C級檢修工藝流程
- 刑事案件律師會見筆錄
- 金屬的拉伸實驗(實驗報告)
- 鍋爐定期檢驗
- 普通話課件(完整版)
- 函授本科《小學(xué)教育》畢業(yè)論文范文
評論
0/150
提交評論