连续钢构桥三维仿真分析【转】
/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
很给力真的{:{39}:}
页:
[1]