finish$/clear$/config,fsplit,750$/prep7 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!定义材料!!!!!!!
!!下面定义材料 1，Q235A型钢钢材!!!!!!!!!
mp,ex,1,2.1e11$mp,prxy,1,0.3$mp,dens,1,7850 tb,bkin,1 tbdata,,268.85e6,0
!!下面定义材料 9，Q235A型钢钢材!!!!!!!!! mp,ex,3,2.1e11$mp,prxy,3,0.3$mp,dens,3,7850 tb,bkin,3 $tbdata,,235e6,0
!!!下面定义材料 2,混凝土C40!!!!!!!!! fck=26*0.85*0.8e6$ftk=2.3e6
mp,ex,2,fck*0.44/0.0005$mp,prxy,2,0.2$mp,dens,2,2600 tb,concr,2$tbdata,,0.125,0.7,FTK,-1
tb,mkin,2$tbtemp,,strain ! 混凝土屈服准则 Tbdata,1,0.0005,0.001,0.0015,0.002,0.0038$tbtemp,0
$Tbdata,1,0.44*fck,0.75*fck,0.94*fck,fck,0.85*fck !混凝土应力应变曲线
!!!下面定义材料 4,纵钢筋直径20!!!!!!!!! mp,ex,4,2.1e11$mp,prxy,4,0.3$mp,dens,4,7850 tb,bkin,4 tbdata,,365e6,0
!!!下面定义材料7,箍筋直径8!!!!!!!!! mp,ex,5,2.1e11$mp,prxy,5,0.3$mp,dens,5,7850 tb,bkin,5 tbdata,,243e6,0
!!!!定义实常数!!!!!! Pi=acos(-1) $ r,1$ r,2$
r,3,0.25*pi*0.020*0.020 r,4,0.25*pi*0.008*0.008 R,5
!!!!定义单元!!!!!!!
et,1,solid45$et,2,solid65$et,3,LINK8 keyopt,2,7,1$keyopt,2,1,1$keyopt,2,3,2
!!!!建模型!!!!!!! !柱子
wpstyl,defa$Block,-0.2,0.2,-1.5,1.5,0,0.2 cm,zhuzi,volu
!工字钢
vsel,none$wpstyl,defa$$block,-2,2,-0.125,0.125,0,0.003$block,-2,2,0.125-0.015,0.125,0,0.078$
$block,-2,2,-0.125,-0.125+0.015,0,0.078$
$wpstyl,defa$wpoff,-0.2$$block,0,0.010,-0.125,0.125,0,0.078 $wpstyl,defa$wpoff,0.2$$block,-0.010,0,-0.125,0.125,0,0.078 $wpstyl,defa$wpoff,,0.125-0.015
$block,-0.075,0.075,0,1.5-0.125+0.015,0,0.003$ $block,-0.075,-0.075+0.008,0,1.39,0,0.078$ $block,0.075-0.008,0.075,0,1.39,0,0.078$
$wpstyl,defa$wpoff,,-0.125+0.015 $block,-0.075,0.075,-1.39,0,0,0.003$ $block,-0.075,-0.075+0.008,-1.39,0,0,0.078$ $block,0.075-0.008,0.075,-1.39,0,0,0.078$
$wpstyl,defa$wpoff,,-0.125+0.015 $block,-0.2,0.2,-0.06-0.015,0,0,0.003$
$wpstyl,defa$wpoff,,0.125-0.015
$block,-0.2,0.2,0,0.060+0.015,0,0.003$
$wpstyl,defa$wpoff,-0.2$$block,0,0.010,0.125,0.125+0.06,0,0.2 $wpstyl,defa$wpoff,0.2$$block,-0.010,0,0.125,0.125+0.06,0,0.2 $wpstyl,defa$wpoff,-0.2$$block,0,0.010,-0.125-0.06,-0.125,0,0.2
$wpstyl,defa$wpoff,0.2$$block,-0.010,0,-0.125-0.06,-0.125,0,0.2
$wpstyl,defa$wpoff,,-0.125$wpoff,,,0.2
$block,-0.2,0.2,-0.06,0,-0.010,0$ $wpstyl,defa$wpoff,,0.125$wpoff,,,0.2 $block,-0.2,0.2,0,0.06,-0.010,0$
$wpstyl,defa$wpoff,-0.2$$block,0,0.010,-0.11,0.11,0,0.2$wpstyl,defa$wpoff,0.2$$block,-0.010,0,-0.11,0.11,0,0.2 $wpstyl,defa$wpoff,,,0.2
$block,-0.2,0.2,-0.11,0.11,-0.010,0$
Nummrg,kp$vptn,all$ cm,gzg,volu$numcmp,all
$allsel,all $vptn,all$ $allsel,all Vsel,u,,,gzg Cm,zhuzi,volu
!切分gzg
Cmsel,s,gzg,volu$Nummrg,kp$ !画纵筋
$wpstyl,defa$wpoff,0.2$wpoff,,,0.160$vsbw,all$ $wpstyl,defa$wpoff,0.160$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,-0.16$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,0.110$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,-0.11$wprota,,,90$ vsbw,all $wpstyl,defa$wpoff,0.2$wpoff,,,0.078$vsbw,all$
$numcmp,all !画箍筋
$wpstyl,defa$wprota,,90 $wpoff,,,0.04$vsbw,all $wpoff,,,0.070$vsbw,all