|
阅读：12641回复：22
ansys 连续刚构桥
刚构桥
|
|
|
|
4楼#
发布于：2010-10-29 12:45
顶
|
|
|
8楼#
发布于：2010-12-29 16:08
楼主真是好人，谢谢！
|
|
|
9楼#
发布于：2010-12-29 20:53
/filname,rigid bridge,1
keyw,pr_struc,1 /prep7 !定义单元类型 et,1,shell63 et,2,link8 !定义实常数 r,1,0.25 !顶层与底层 r,2,0.6 !腹板 r,3,1 !v形支撑的厚度 r,4,0.02,-0.005 !定义材料属性 mp,ex,1,3.25e10 !混凝土 mp,prxy,1,0.2 mp,dens,1,2700 mp,ex,2,207e9 !钢筋 mp,prxy,2,0.3 mp,dens,2,7800 !建模 /view,1,1,1,1 !以正等侧方式观看 k,1 !建立主桥边界面上的关键点 k,2,4 k,3,10 k,4,16 k,5,20 k,6,24 k,7,30 k,8,36 k,9,40 k,10,4,-1.8 k,11,10,-1.8 k,12,16,-1.8 k,13,24,-1.8 k,14,30,-1.8 k,15,36,-1.8 kgen,2,1,15,1,,,-16 !建立梁高为1.8m处的关键点 kgen,2,1,15,1,,,-85 kgen,2,1,15,1,,,-154 kgen,2,1,15,1,,,-170 k,101,,,-36 !建立梁高为3m处的关键点 k,102,4,,-36 k,103,10,,-36 k,104,16,,-36 k,105,20,,-36 k,106,24,,-36 k,107,30,,-36 k,108,36,,-36 k,109,40,,-36 kgen,2,102,104,1,,-3,,8 kgen,2,106,108,1,,-3,,7 kgen,2,101,115,1,,,-12,15 kgen,2,116,130,1,,,-12,15 kgen,2,131,145,1,,,-50,15 kgen,3,146,160,1,,,-12,15 !建立箱形梁的顶层并划分网格 *do,i,1,8,1 a,i,i+15,i+16,i+1 *enddo *do,i,16,23,1 a,i,i+85,i+86,i+1 *enddo *do,i,101,108,1 a,i,i+15,i+16,i+1 *enddo *do,i,116,123,1 a,i,i+15,i+16,i+1 *enddo *do,i,31,38,1 a,i,i+100,i+101,i+1 *enddo *do,i,31,38,1 a,i,i+115,i+116,i+1 *enddo *do,i,146,153,1 a,i,i+15,i+16,i+1 *enddo *do,i,161,168,1 a,i,i+15,i+16,i+1 *enddo *do,i,46,53,1 a,i,i+130,i+131,i+1 *enddo *do,i,46,53,1 a,i,i+15,i+16,i+1 *enddo lesize,all,4 !设置单元长度为4 aatt,1,1,1 amesh,all !建立箱形梁的底层并划分网格 asel,u,,,all kplot *do,i,10,11,1 a,i,i+15,i+16,i+1 *enddo *do,i,13,14,1 a,i,i+15,i+16,i+1 *enddo *do,i,25,26,1 a,i,i+85,i+86,i+1 *enddo *do,i,28,29,1 a,i,i+85,i+86,i+1 *enddo *do,i,110,111,1 a,i,i+15,i+16,i+1 *enddo *do,i,113,114,1 a,i,i+15,i+16,i+1 *enddo *do,i,125,126,1 a,i,i+15,i+16,i+1 *enddo *do,i,128,129,1 a,i,i+15,i+16,i+1 *enddo *do,i,40,41,1 a,i,i+100,i+101,i+1 *enddo *do,i,43,44,1 a,i,i+100,i+101,i+1 *enddo *do,i,40,41,1 a,i,i+115,i+116,i+1 *enddo *do,i,43,44,1 a,i,i+115,i+116,i+1 *enddo *do,i,155,156,1 a,i,i+15,i+16,i+1 *enddo *do,i,158,159,1 a,i,i+15,i+16,i+1 *enddo *do,i,170,171,1 a,i,i+15,i+16,i+1 *enddo *do,i,173,174,1 a,i,i+15,i+16,i+1 *enddo *do,i,55,56,1 a,i,i+130,i+131,i+1 *enddo *do,i,58,59,1 a,i,i+130,i+131,i+1 *enddo *do,i,55,56,1 a,i,i+15,i+16,i+1 *enddo *do,i,58,59,1 a,i,i+15,i+16,i+1 *enddo lesize,all,4 aatt,1,1,1 amesh,all !建立腹板并划分网格 asel,u,,,all *do,i,2,4,1 a,i,i+8,i+23,i+15 *enddo *do,i,6,8,1 a,i,i+7,i+22,i+15 *enddo *do,i,17,19,1 a,i,i+8,i+93,i+85 *enddo *do,i,21,23,1 a,i,i+7,i+92,i+85 *enddo *do,i,102,104,1 a,i,i+8,i+23,i+15 *enddo *do,i,106,108,1 a,i,i+7,i+22,i+15 *enddo *do,i,117,119,1 a,i,i+8,i+23,i+15 *enddo *do,i,121,123,1 a,i,i+7,i+22,i+15 *enddo *do,i,32,34,1 a,i,i+8,i+108,i+100 *enddo *do,i,36,38,1 a,i,i+7,i+107,i+100 *enddo *do,i,32,34,1 a,i,i+8,i+123,i+115 *enddo *do,i,36,38,1 a,i,i+7,i+122,i+115 *enddo *do,i,147,149,1 a,i,i+8,i+23,i+15 *enddo *do,i,151,153,1 a,i,i+7,i+22,i+15 *enddo *do,i,162,164,1 a,i,i+8,i+23,i+15 *enddo *do,i,166,168,1 a,i,i+7,i+22,i+15 *enddo *do,i,47,49,1 a,i,i+8,i+138,i+130 *enddo *do,i,51,53,1 a,i,i+7,i+137,i+130 *enddo *do,i,47,49,1 a,i,i+8,i+23,i+15 *enddo *do,i,51,53,1 a,i,i+7,i+22,i+15 *enddo lsel,s,loc,y,-0.9 lesize,all,,,1 lsel,s,loc,y,-1.5 lesize,all,,,2 esize,all,4 aatt,1,2,1 amesh,all !预应力钢筋布置及网格划分 lsel,s,loc,x,3.9,4.1 lsel,a,loc,x,9,11 lsel,a,loc,x,15,17 lsel,a,loc,x,23,25 lsel,a,loc,x,29,31 lsel,a,loc,x,35,37 lsel,u,loc,y,-1.7,-0.1 lesize,all,4 !单元长度为4 latt,2,4,2 !单元为2，实常数为4，材料属性为2 lmesh,all !建立v形支撑模型并划分网格 asel,u,loc,y,-3.1,0.1 k,1001,4,-15,-48 k,1002,16,-15,-48 k,1003,24,-15,-48 k,1004,36,-15,-48 k,2001,4,-15,-122 k,2002,16,-15,-122 k,2003,24,-15,-122 k,2004,36,-15,-122 a,110,112,1002,1001 a,112,113,1003,1002 a,113,115,1004,1003 a,140,142,1002,1001 a,142,143,1003,1002 a,143,145,1004,1003 a,155,157,2002,2001 a,157,158,2003,2002 a,158,160,2004,2003 a,185,187,2002,2001 a,187,188,2003,2002 a,188,190,2004,2003 lesize,all,4 aatt,1,3,1 amesh,all nummrg,all numcmp,all allsel !加载及求解 !施加位移约束 nsel,s,loc,z,-0.1,0.1 nsel,a,loc,z,-171,-169 nsel,r,loc,y,-1.9,-1.7 d,all,uy allsel nsel,s,loc,y,-16,-14 d,all,all allsel !预应力静力求解 /solu acel,,9.8 pstres,on allsel solve finish !预应力模态求解 /solu antype,2 upcoord,1,on pstres,on modopt,subsp,10 mxpand,10,,,1 allsel solve finish |
|
上一页
下一页
