finish
/cle
/units,si
/prep7
k,1,-21.75,6,0
k,2,-19.05,6,0
k,3,-15.75,6,0
k,4,-13.05,6,0
k,5,-10.35,6,0
k,6,-7.05, 6,0
k,7,-4.35, 6,0
k,8,-1.65, 6,0
k,9,1.65, 6,0
k,10,4.35, 6,0
k,11,7.05, 6,0
k,12,10.35,6,0
k,13,13.05,6,0
k,14,15.75,6,0
k,15,19.05,6,0
k,16,21.75,6,0
kgen,2,1,16,1,0,-12,0,
kgen,2,1,32,1,0,0,3.75,
a,1,2,34,33
*do,i,3,4,1
a,i,i+1,i+33,i+32
*enddo
*do,i,6,7,1
a,i,i+1,i+33,i+32
*enddo
*do,i,9,10,1
a,i,i+1,i+33,i+32
*enddo
*do,i,12,13,1
a,i,i+1,i+33,i+32
*enddo
a,15,16,48,47
a,17,18,50,49
*do,i,19,20,1
a,i,i+1,i+33,i+32
*enddo
*do,i,22,23,1
a,i,i+1,i+33,i+32
*enddo
*do,i,25,26,1
a,i,i+1,i+33,i+32
*enddo
*do,i,28,29,1
a,i,i+1,i+33,i+32
*enddo
a,31,32,64,63
*do,i,1,16,3
a,i,i+16,i+48,i+32
*enddo
*do,i,34,46,3
l,i,i+1
*enddo
*do,i,50,62,3
l,i,i+1
*enddo
!!!!!!!!!!!!!定义单元属性!!!!!!!!!!!!!!
et,1,shell63
et,2,beam188
r,1,0.75
r,3
mp,ex,1,3.55e10!!!!!混凝土属性!!!!!!
mp,nuxy,1,0.2
mp,dense,1,2650
mp,ex,2,2.1e11!!!!!!!钢材属性!!!!!!!!
mp,nuxy,2,0.3
mp,dense,2,7800
!!!!!!!c11a!!!!!!!!!
c11aw1=0.3
c11aw2=0.3
c11aw3=1.1
c11at1=0.022
c11at2=0.022
c11at3=0.026
!!!!!!!!!!梁尺寸!!!!!!!!!!!!!
sectype,1,beam, i,c11a,0
secoffset,cent
secdata,c11aw1,c11aw2,c11aw3,c11at1,c11at2,c11at3,0,0,0,0
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!分网!!!!!!!!!!
!!!!!!!!!!!剪力墙!!!!!!!!!!!!
allsel,all
asel,s,loc,z,0,3.7
aatt,1,1,1,,
aesize,all,3
amesh,all
k,1000,0,0,1000
lsel,s,line,,85,94
latt,2,3,2,,1000,,1
lesize,all,,,2,,,,,
lmesh,all
allsel,all
asel,s,loc,z,0,3.7
agen,10,all,,,0,0,3.75,0,0
allsel,all
lsel,s,line,,85,94
lgen,10,all,,,0,0,3.75,0,0
nummrg,all
FINISH
/SOLU
ANTYPE,2
MODOPT,SUBSP,10
EQSLV,FRONT
MXPAND,10, , ,0
LUMPM,0
PSTRES,0
MODOPT,SUBSP,10,0,10000, ,OFF
RIGID,
SUBOPT,8,4,14,0,0,ALL
NSEL,ALL
NSEL,S,LOC,Z,0
FLST,2,50,1,ORDE,44
FITEM,2,1
FITEM,2,-2
FITEM,2,7
FITEM,2,-8
FITEM,2,13
FITEM,2,16
FITEM,2,-17
FITEM,2,22
FITEM,2,25
FITEM,2,-26
FITEM,2,31
FITEM,2,34
FITEM,2,-35
FITEM,2,40
FITEM,2,43
FITEM,2,-44
FITEM,2,49
FITEM,2,-50
FITEM,2,55
FITEM,2,-56
FITEM,2,61
FITEM,2,64
FITEM,2,-65
FITEM,2,70
FITEM,2,73
FITEM,2,-74
FITEM,2,79
FITEM,2,82
FITEM,2,-83
FITEM,2,88
FITEM,2,91
FITEM,2,-92
FITEM,2,97
FITEM,2,-99
FITEM,2,106
FITEM,2,-108
FITEM,2,115
FITEM,2,-117
FITEM,2,124
FITEM,2,-126
FITEM,2,133
FITEM,2,-135
FITEM,2,142
FITEM,2,-144
/GO
D,P51X, ,0, , , ,ALL, , , , ,
ALLSEL,ALL
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,FIRST
PLDI, ,
ANMODE,10,0.5, ,0
SET,LIST
/cle
/units,si
/prep7
k,1,-21.75,6,0
k,2,-19.05,6,0
k,3,-15.75,6,0
k,4,-13.05,6,0
k,5,-10.35,6,0
k,6,-7.05, 6,0
k,7,-4.35, 6,0
k,8,-1.65, 6,0
k,9,1.65, 6,0
k,10,4.35, 6,0
k,11,7.05, 6,0
k,12,10.35,6,0
k,13,13.05,6,0
k,14,15.75,6,0
k,15,19.05,6,0
k,16,21.75,6,0
kgen,2,1,16,1,0,-12,0,
kgen,2,1,32,1,0,0,3.75,
a,1,2,34,33
*do,i,3,4,1
a,i,i+1,i+33,i+32
*enddo
*do,i,6,7,1
a,i,i+1,i+33,i+32
*enddo
*do,i,9,10,1
a,i,i+1,i+33,i+32
*enddo
*do,i,12,13,1
a,i,i+1,i+33,i+32
*enddo
a,15,16,48,47
a,17,18,50,49
*do,i,19,20,1
a,i,i+1,i+33,i+32
*enddo
*do,i,22,23,1
a,i,i+1,i+33,i+32
*enddo
*do,i,25,26,1
a,i,i+1,i+33,i+32
*enddo
*do,i,28,29,1
a,i,i+1,i+33,i+32
*enddo
a,31,32,64,63
*do,i,1,16,3
a,i,i+16,i+48,i+32
*enddo
*do,i,34,46,3
l,i,i+1
*enddo
*do,i,50,62,3
l,i,i+1
*enddo
!!!!!!!!!!!!!定义单元属性!!!!!!!!!!!!!!
et,1,shell63
et,2,beam188
r,1,0.75
r,3
mp,ex,1,3.55e10!!!!!混凝土属性!!!!!!
mp,nuxy,1,0.2
mp,dense,1,2650
mp,ex,2,2.1e11!!!!!!!钢材属性!!!!!!!!
mp,nuxy,2,0.3
mp,dense,2,7800
!!!!!!!c11a!!!!!!!!!
c11aw1=0.3
c11aw2=0.3
c11aw3=1.1
c11at1=0.022
c11at2=0.022
c11at3=0.026
!!!!!!!!!!梁尺寸!!!!!!!!!!!!!
sectype,1,beam, i,c11a,0
secoffset,cent
secdata,c11aw1,c11aw2,c11aw3,c11at1,c11at2,c11at3,0,0,0,0
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!分网!!!!!!!!!!
!!!!!!!!!!!剪力墙!!!!!!!!!!!!
allsel,all
asel,s,loc,z,0,3.7
aatt,1,1,1,,
aesize,all,3
amesh,all
k,1000,0,0,1000
lsel,s,line,,85,94
latt,2,3,2,,1000,,1
lesize,all,,,2,,,,,
lmesh,all
allsel,all
asel,s,loc,z,0,3.7
agen,10,all,,,0,0,3.75,0,0
allsel,all
lsel,s,line,,85,94
lgen,10,all,,,0,0,3.75,0,0
nummrg,all
FINISH
/SOLU
ANTYPE,2
MODOPT,SUBSP,10
EQSLV,FRONT
MXPAND,10, , ,0
LUMPM,0
PSTRES,0
MODOPT,SUBSP,10,0,10000, ,OFF
RIGID,
SUBOPT,8,4,14,0,0,ALL
NSEL,ALL
NSEL,S,LOC,Z,0
FLST,2,50,1,ORDE,44
FITEM,2,1
FITEM,2,-2
FITEM,2,7
FITEM,2,-8
FITEM,2,13
FITEM,2,16
FITEM,2,-17
FITEM,2,22
FITEM,2,25
FITEM,2,-26
FITEM,2,31
FITEM,2,34
FITEM,2,-35
FITEM,2,40
FITEM,2,43
FITEM,2,-44
FITEM,2,49
FITEM,2,-50
FITEM,2,55
FITEM,2,-56
FITEM,2,61
FITEM,2,64
FITEM,2,-65
FITEM,2,70
FITEM,2,73
FITEM,2,-74
FITEM,2,79
FITEM,2,82
FITEM,2,-83
FITEM,2,88
FITEM,2,91
FITEM,2,-92
FITEM,2,97
FITEM,2,-99
FITEM,2,106
FITEM,2,-108
FITEM,2,115
FITEM,2,-117
FITEM,2,124
FITEM,2,-126
FITEM,2,133
FITEM,2,-135
FITEM,2,142
FITEM,2,-144
/GO
D,P51X, ,0, , , ,ALL, , , , ,
ALLSEL,ALL
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,FIRST
PLDI, ,
ANMODE,10,0.5, ,0
SET,LIST
