/prep7
ET,1,BEAM24,,,,,
ET,2,COMBIN40,1,,2 !隔震垫竖向单元
ET,3,COMBIN40,1,,1 !阻尼器单元

R,1,-0.2,0.2,0,0.2,0.2,0.012
rmore,0.2,-0.2,0.012,-0.2,-0.2,0.012
rmore,-0.2,0.2,0.012

R,2,-0.15,0.15,0,0.15,0.15,0.012
rmore,0.15,-0.15,0.012,-0.15,-0.15,0.012
rmore,-0.15,0.15,0.012

R,3,-0.1,0.2,0,0.1,0.2,0.013
rmore,0,0.2,0,0,-0.2,0.008
rmore,-0.1,-0.2,0,0.1,-0.2,0.013
rmore,-0.1,0.2,0

R,4,-0.2*2,0.2,0,0.2*2,0.2,0.012
rmore,0.2*2,-0.2,0.012*2,-0.2*2,-0.2,0.012
rmore,-0.2*2,0.2,0.012*2

R,5,2.06E8,0,0,0,6E6,0
R,6,-0.1*2,0.2,0,0.1*2,0.2,0.013
rmore,0,0.2,0,0,-0.2,0.008*2
rmore,-0.1*2,-0.2,0,0.1*8,-0.2,0.013

R,36,,0.02,0,0,0,2.1e10 !隔震垫竖向单元
R,37,,0.02,0,0,0,2.1e0 !横向单元

MP,EX,1,2.06e11
MP,NUXY,1,0.3
MP,DENS,1,7800
MP,EX,2,2.06e11
MP,NUXY,2,0.3
MP,DENS,2,3.8e4


k,,0,0,0
*do,i,1,9
k,,(i-1)*6+6.4,0,0
*enddo
k,,3.45+6.4+8*6,,
k,,6.4+6*9,,
k,,6.4+3.7+9*6,,
k,,6.4+6*10,,
k,,6.4+6*10+10,,
k,,6.4+6*10+10+1.15,,

kgen,2,1,14,,,3.6
kgen,6,17,30,,,3.5
kgen,2,15,16,,,3.6

kgen,2,1,16,,,-1
kgen,2,1,16,,1
k,319,36.4,10000,
k,320,10000,10.6
*do,i,17,29
l,i,i+1
*enddo
lgen,6,1,13,,,3.5
l,30,101
l,101,102

*do,i,1,14
l,i,i+16
*enddo
l,15,101
l,16,102
*do,i,17,30
l,i,i+14
*enddo
lgen,5,97,110,,,3.5

*do,i,1,16
l,i+103-1,i
*enddo

*do,i,1,16
l,i+119-1,i
*enddo

!划分梁网格
lsel,s,,,1,80
latt,2,3,1,,319
lesize,all,,,1
lmesh,all
!划分柱网格
lsel,s,,,81,96
latt,1,2,1,,320
lesize,all,,,1
lmesh,all
lsel,s,,,97,166
latt,1,2,1,,320
lesize,all,,,1
lmesh,all
!划分隔振器网格
lsel,s,,,167,182,1
LATT,1,36,2
LESIZE,ALL,,,1
LMESH,ALL
allsel,all
lsel,s,,,183,198,1
latt,1,37,3
lesize,all,,,1
lmesh,all

!耦合


NSEL,S,LOC,Y,3.6
CP,1,UX,ALL
CP,2,Uy,ALL
ALLSET,ALL
NSEL,S,LOC,Y,7.1
CP,3,UX,ALL
CP,4,Uy,ALL
ALLSET,ALL
NSEL,S,LOC,Y,10.6
CP,5,UX,ALL
CP,6,Uy,ALL
ALLSET,ALL
NSEL,S,LOC,Y,14.1
CP,7,UX,ALL
CP,8,Uy,ALL
ALLSET,ALL
NSEL,S,LOC,Y,17.6
CP,9,UX,ALL
CP,10,Uy,ALL
ALLSET,ALL
NSEL,S,LOC,Y,21.1
CP,11,UX,ALL
CP,12,Uy,ALL
FINISH

/ESHAPE,1.0
SAVE


/SOLV

!施加重力及位移约束
antype,modal
modopt,subsp,5
nSEL,ALL
D,ALL,ROTX
d,all,uz
D,ALL,ROTY
nSEL,ALL
NSEL,S,node,,395,410
D,ALL,ALL
nSEL,ALL
NSEL,S,node,,411,426
D,ALL,ALl
NSEL,ALL
MXPAND,5
SOLVE
FINISH

/POST1
SET,LIST,2
SET,FIRST
PLDISP,0