/PREP7 !进入前处理器
/COM,Structural
/Title,modal analysis of cable-stayed bridge with large span.txt
!设置图形标题
!创建斜拉桥自定义主梁截面
et,3,82 !定义单元类型
k,1,10,1 !创建三室箱梁的关键点
k,2,-10,1
k,3,-10,0
k,4,-8.4,0
k,5,-5,-1
k,6,5,-1
k,7,8.4,0
k,8,10,0
k,9,7.6,0.5
k,10,2.5,0.5
k,11,2.0,0.5
k,12,-2.0,0.5
k,13,-2.5,0.5
k,14,-7.6,0.5
k,15,-7.6,0.29
k,16,-4.93,-0.5
k,17,-2.5,-0.5
k,18,-2.0,-0.5
k,19,2.0,-0.5
k,20,2.5,-0.5
k,21,4.93,-0.5
k,22,7.6,0.29
a,1,2,3,4,5,6,7,8 !由点生成面
a,9,10,20,21,22
a,11,12,18,19
a,13,14,15,16,17
asba,1,all !面减面形成箱梁的三室 576688393孟非
allsel !选择所有面
smrtsize,8 !设定网格密度等级为8
amesh,all !智能划分截面网格
secwrite,girdersec,sect,,3 !将截面信息写入文件girdersec
sectype,6,beam,mesh,girder !截面代号为6
secoffset,cent !设置截面中心
secread,'girdersec','sect',,mesh !读入截面
asel,all !选择所有面
aclear,all !清除所有面
adele,all,,,1 !将图形及面、线、点全部删除
!定义单元类型
et,1,beam188 !选取beam188梁单元
et,2,link10 !选取link10杆单元,模拟拉索
et,4,combin7 !选取combin7
et,5,combin14,,2 !选取combin14
!定义实常数
R,1 !实常数1
R,2,0.010,2.1e-3 !斜拉索实常数2
R,3,0.012,2.5e-3 !斜拉索实常数3
R,4,0.014,2.4e-3 !斜拉索实常数4
R,5,1e6,2e10,1e9,1e9,0,-2
R,6,1e9,0,0
!定义材料特性
!桥主墩及边墩C40
mp,ex,1,3.25e10 !弹性模量
mp,prxy,1,0.2 !泊松比
mp,dens,1,2550 !密度
mp,alpx,1,1e-5 !热膨胀系数
!塔及主梁C50材料属性
mp,ex,2,3.45e10 !弹性模量
mp,prxy,2,0.2 !泊松比
mp,dens,2,2550 !密度
mp,alpx,2,1e-5 !热膨胀系数
!斜拉索材料属性
mp,ex,4,2.0e11 !弹性模量
mp,prxy,4,0.25 !泊松比
mp,dens,4,8000 !密度
mp,alpx,4,1.2e-5 !热膨胀系数
!鱼刺横梁材料属性
mp,ex,5,1e18 !鱼刺1
mp,prxy,5,0
mp,dens,5,4.5e4
mp,ex,6,1e18 !鱼刺2
mp,prxy,6,0
mp,dens,6,3.5e4
mp,ex,7,1e18 !鱼刺3
mp,prxy,7,0
mp,dens,7,4.0e4
mp,ex,8,1e18 !鱼刺4
mp,prxy,8,0
mp,dens,8,3.25e4
mp,ex,9,1e18 !鱼刺5
mp,prxy,9,0
mp,dens,9,2.5e4
mp,ex,10,1e18 !鱼刺6
mp,prxy,10,0
mp,dens,10,2.0e4
!截面定义
sectype,1,beam,hrec,pier !主墩截面类型1
secdata,9,5,1.5,1.5,1,1 !主墩截面尺寸
sectype,2,beam,hrec,towercolumn !塔柱截面类型2
secdata,8,4,1.5,1.5,1,1 !塔柱截面尺寸
sectype,3,beam,rect,beam in uptower and sidepier
!塔柱上部、边墩的连接梁截面类型3
secdata,3,4 !连接梁截面尺寸
sectype,4,beam,rect,mainbeam in tower !塔柱底部的连接梁截面类型4
secdata,4,5 !连接梁截面尺寸
sectype,5,beam,hrec,sidepier !边墩截面类型5
secdata,5,3,1,1,0.75,0.75 !边墩截面尺寸
sectype,6,beam,hrec,girder !6号箱梁截面,前述自定义截面
secdata,20,2,2,2,0.5,0.5
sectype,7,beam,rect,fishbone !鱼刺横梁截面类型7
secdata,0.5,0.3 !鱼刺横梁截面尺寸
!创建主梁及鱼刺横梁节点
n,1,0,0,0
n,2,0,-10,0
n,3,0,10,0
n,4,-8,0,0
n,5,-8,-10,0
n,6,-8,10,0
*do,i,1,4 !使用do循环语句,此处生成节点7~18
n,3*i+4,-8-5*i,0,0
n,3*i+5,-8-5*i,-10,0
n,3*i+6,-8-5*i,10,0
*enddo
*do,i,1,20
n,3*i+16,-28-8*i,0,0
n,3*i+17,-28-8*i,-10,0
n,3*i+18,-28-8*i,10,0
*enddo
n,79,-194,0,0
n,80,-194,-10,0
n,81,-194,10,0
n,82,-200,0,0
n,83,-200,-10,0
n,84,-200,10,0
n,85,-206,0,0
n,86,-206,-10,0
n,87,-206,10,0
n,88,-212,0,0
n,89,-212,-10,0
n,90,-212,10,0
*do,i,1,20
n,3*i+88,-212-8*i,0,0
n,3*i+89,-212-8*i,-10,0
n,3*i+90,-212-8*i,10,0
*enddo
*do,i,1,4
n,3*i+148,-372-5*i,0,0
n,3*i+149,-372-5*i,-10,0
n,3*i+150,-372-5*i,10,0
*enddo
n,163,-400,0,0
n,164,-400,-10,0
n,165,-400,10,0
!建立主梁单元
type,1 !选择单元类型1,即beam188
real,1 !选择实常数1
mat,2 !选择材料2
secnum,6 !选择截面6
*do,i,1,54 !使用do循环生成主梁单元
e,3*i-2,3*i+1
*enddo
!建立鱼刺横梁刚臂单元
type,1 !选择单元类型1,即beam188
real,1 !选择实常数1,不变
mat,10 !选择材料10,变化
secnum,7 !选择截面7,不变
e,1,2
e,1,3
type,1
real,1
mat,8 !选择材料8
secnum,7
e,4,5
e,4,6
type,1
real,1
mat,9 !选择材料9
secnum,7
*do,i,1,3
e,3*i+4,3*i+5
e,3*i+4,3*i+6
*enddo
type,1
real,1
mat,8 !选择材料8
secnum,7
e,16,17
e,16,18
type,1
real,1
mat,7 !选择材料7
secnum,7
*do,i,1,19
e,3*i+16,3*i+17
e,3*i+16,3*i+18
*enddo
type,1
real,1
mat,6 !选择材料6
secnum,7
e,76,77
e,76,78
type,1
real,1
mat,5 !选择材料5
secnum,7
e,79,80
e,79,81
e,85,86 !注意此处无82点,前面已建过单元
e,85,87
type,1
real,1
mat,6 !选择材料6
secnum,7
e,88,89
e,88,90
type,1
real,1
mat,7 !选择材料7
secnum,7
*do,i,1,19
e,3*i+88,3*i+89
e,3*i+88,3*i+90
*enddo
type,1
real,1
mat,8 !选择材料8
secnum,7
e,148,149
e,148,150
type,1
real,1
mat,9 !选择材料9
secnum,7
*do,i,1,3
e,3*i+148,3*i+149
e,3*i+148,3*i+150
*enddo
type,1
real,1
mat,8 !选择材料8
secnum,7
e,160,161
e,160,162
type,1
real,1
mat,10 !选择材料10
secnum,7
e,163,164
e,163,165
!建立主塔节点
n,166,-200,-11,-35 !生成主塔节点166~181
n,167,-200,11,-35
n,168,-200,-14,0
n,169,-200,14,0
n,170,-200,-14,60
n,171,-200,14,60
n,172,-200,-14,70
n,173,-200,14,70
n,174,-200,-14,80
n,175,-200,14,80
n,176,-200,-14,90
n,177,-200,14,90
n,178,-200,-14,100
n,179,-200,14,100
n,180,-200,-14,115
n,181,-200,14,115
n,197,-200,0,0 !创建此节点197用于加设阻尼器
!创建主塔单元
type,1
real,1
mat,1 !选择材料1
secnum,1
e,166,168
e,167,169 !主墩单元
type,1
real,1
mat,2 !选择材料2
secnum,2
*do,i,1,6
e,2*i+166,2*i+168
e,2*i+167,2*i+169
*enddo !塔柱单元
type,1
real,1
mat,2 !选择材料2
secnum,4
e,197,168
e,197,169 !塔柱底部的连接梁单元
type,1
real,1
mat,2 !选择材料2
secnum,3
e,170,171
e,178,179 !塔柱上部连接梁
!创建索单元
type,2
mat,4 !选择材料4
real,4
*do,i,1,5
e,3*i+2,176
e,3*i+3,177
e,-3*i+164,176
e,-3*i+165,177
*enddo
type,2
mat,4 !选择材料4
real,3
*do,i,1,10
e,3*i+17,174
e,3*i+18,1