/PREP7
/VIEW, 1 ,1,1,1
/ANG, 1
/REP,FAST  
k,1,
k,2,0,6.8  
k,3,,8.63  
k,4,-4.6,8.63
k,5,-2,8.63
k,6,2,8.63
k,7,4.6,8.63
k,8,-2,10.755
k,9,2,10.755
k,10,,,9.6
k,11,,6.8,9.6
k,12,,9.793,9.6  
k,13,-4.2,9.793,9.6
k,14,-2,9.793,9.6
k,15,2,9.793,9.6
k,16,4.2,9.793,9.6
k,17,-2,10.755,9.6
k,18,2,10.755,9.6
kgen,5,10,18,1,,,9.6,9
kgen,2,46,54,1,,,12.8,9
kgen,2,55,63,1,,,9.6,9
kgen,2,1,9,1,,,80,72
k,82,-2,10.755,80
k,83,2,10.755,80
k,150,-2,10.755
k,151,2,10.755
lstr,5,150
lstr,6,151
lstr,77,82
lstr,78,83
*do,n,1,73,9
lstr,n,n+1
lstr,n+1,n+2
lstr,n+3,n+4
lstr,n+4,n+2
lstr,n+2,n+5
lstr,n+5,n+6
*enddo
!梁上节点
k,116,-2,10.755,8.44
k,117,2,10.755,8.44
k,118,-2,10.755,10.64
k,119,2,10.755,10.64
k,120,-2,10.755,15.36
k,121,2,10.755,15.36
k,122,-2,10.755,17.56
k,123,2,10.755,17.56
k,124,-2,10.755,27.96
k,125,2,10.755,27.96
k,126,-2,10.755,30.16
k,127,2,10.755,30.16
k,128,-2,10.755,34.88
k,129,2,10.755,34.88
k,130,-2,10.755,37.08
k,131,2,10.755,37.08
k,132,-2,10.755,47.48
k,133,2,10.755,47.48
k,134,-2,10.755,49.68
k,135,2,10.755,49.68
k,136,-2,10.755,54.4
k,137,2,10.755,54.4
k,138,-2,10.755,56.6
k,139,2,10.755,56.6
k,140,-2,10.755,67
k,141,2,10.755,67
k,142,-2,10.755,69.2
k,143,2,10.755,69.2
k,144,-2,10.755,73.92
k,145,2,10.755,73.92
k,146,-2,10.755,76.12
k,147,2,10.755,76.12
lstr,8,116
lstr,116,17
lstr,17,118
lstr,118,120
lstr,120,122
lstr,122,26
lstr,26,124
lstr,124,35
lstr,35,126
lstr,126,128
lstr,128,130
lstr,130,44
lstr,44,132
lstr,132,53
lstr,53,134
lstr,134,136
lstr,136,138
lstr,138,62
lstr,62,140
lstr,140,142
lstr,142,71
lstr,71,144
lstr,144,146
lstr,146,80
lstr,9,117
lstr,117,18
lstr,18,119
lstr,119,121
lstr,121,123
lstr,123,27
lstr,27,125
lstr,125,36
lstr,36,127
lstr,127,129
lstr,129,131
lstr,131,45
lstr,45,133
lstr,133,54
lstr,54,135
lstr,135,137
lstr,137,139
lstr,139,63
lstr,63,141
lstr,141,143
lstr,143,72
lstr,72,145
lstr,145,147
lstr,147,81
!定义单元
ET,1,BEAM4  
ET,2,MASS21
wpro,90
!墩
R,1,3,1,0.5625,1.5,2, , ,
!边跨短柱
r,11,0.72,0.0216,0.0864,0.6,1.2
wpro,-90
!墩顶
R,2,2.55,0.478125,0.614125,1.7,1.5
wpro,,,90
!轨道梁
R,3,2.125,0.1279,1.10677,2.5,0.85, , ,
!质量块  
R,4,58000,58000,58000
R,5,98000,98000,98000
R,6,161000,161000,161000
R,7,197000,197000,197000
r,8,85000,85000,85000
R,9,126000,126000,126000
!非预应力梁
MP,EX,1,3.3e10
!预应力梁
mp,ex,3,3.55e10
MP,DENS,1,2500
mp,damp,1,0.05
MP,DENS,3,2500
mp,damp,3,0.05
!桥墩（下）
FLST,5,9,4,ORDE,9  
FITEM,5,5  
FITEM,5,11  
FITEM,5,17  
FITEM,5,23  
FITEM,5,29  
FITEM,5,35  
FITEM,5,41  
FITEM,5,47  
FITEM,5,53  
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT,1,1,1, , , ,  
CMSEL,S,_Y  
CMDELE,_Y  
CMDELE,_Y1  
!*  
!桥墩（上）
FLST,5,9,4,ORDE,9  
FITEM,5,6  
FITEM,5,12  
FITEM,5,18  
FITEM,5,24  
FITEM,5,30  
FITEM,5,36  
FITEM,5,42  
FITEM,5,48  
FITEM,5,54  
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT,1,1,1, , , ,  
CMSEL,S,_Y  
CMDELE,_Y  
CMDELE,_Y1  
!*  
!墩顶
FLST,5,36,4,ORDE,18  
FITEM,5,7  
FITEM,5,-10
FITEM,5,13
FITEM,5,-16
FITEM,5,19  
FITEM,5,-22
FITEM,5,25  
FITEM,5,-28
FITEM,5,31  
FITEM,5,-34
FITEM,5,37  
FITEM,5,-40  
FITEM,5,43  
FITEM,5,-46
FITEM,5,49  
FITEM,5,-52
FITEM,5,55  
FITEM,5,-58      
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT,3,2,1, , , ,  
CMSEL,S,_Y  
CMDELE,_Y  
CMDELE,_Y1  
!*  
!轨道梁
FLST,5,48,4,ORDE,2  
FITEM,5,59  
FITEM,5,-106
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT,1,3,1, , , ,  
CMSEL,S,_Y  
CMDELE,_Y  
CMDELE,_Y1  
!边跨短柱
FLST,5,4,4,ORDE,2  
FITEM,5,1  
FITEM,5,-4  
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT,1,11,1, , , ,  
CMSEL,S,_Y  
CMDELE,_Y  
CMDELE,_Y1  
!*

!划分网格
FLST,2,106,4,ORDE,2
FITEM,2,1  
FITEM,2,-106
LMESH,P51X  
!质量块
type,2
real,4
e,18
e,184
real,5
e,163
e,100
real,6
e,142
real,7
e,121
real,8
e,58
real,9
e,37
/solu
ACEL,0,10,0
cp,,all,2,202
cp,,all,6,332
cp,,all,46,210
cp,,all,51,340
cp,,all,67,229
cp,,all,72,359
cp,,all,88,247
cp,,all,93,377
cp,,all,109,266
cp,,all,114,396
cp,,all,130,284
cp,,all,135,414
cp,,all,151,302
cp,,all,156,432
cp,,all,172,316
cp,,all,177,446
cp,,all,10,328
cp,,all,14,458
cpdele,4,106,6
cpdele,5,107,6
cpdele,6,108,6
d,17,all
d,36,all
d,57,all
d,78,all
d,99,all
d,120,all
d,141,all
d,162,all
d,183,all
ANTYPE,2
MODOPT,LANB,30,0.1,0, ,OFF, ,2
solve