马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
- /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
复制代码 |