|
施工分为三步
! 1: 建立立柱和临时支撑
! 2: 安装横梁
! 3: 去掉临时支撑
FINISH
/CLEAR
/UNITS,SI
/PREP7
!*
SECTWIDTH=300 !构件截面宽度300MM
SECTHEIGHT=600 !构件截面高度600MM
SECTAREA=SECTWIDTH*SECTHEIGHT
SECTIYY=SECTWIDTH**3*SECTHEIGHT/12.
SECTIZZ=SECTWIDTH*SECTHEIGHT**3/12.
SPAN=24E3 !跨度24M
COLUMNHEIGHT=8E3 !柱子高度8M
SLOP=3E3 !顶部斜坡3M
ET,1,BEAM4
R,1,SECTAREA,SECTIYY,SECTIZZ,SECTHEIGHT,SECTWIDTH, ,
MP,EX,1,30E3
MP,NUXY,1,0.2
MP,DENS,1,2500E-12
K,1,
K,2,SPAN/2,0
K,3,SPAN
K,4,0,COLUMNHEIGHT
K,5,SPAN,COLUMNHEIGHT
K,6,SPAN/2.,COLUMNHEIGHT+SLOP
L,1,4 !左立柱
L,2,6 !临时支撑
L,3,5 !右立柱
L,4,6 !左横梁
L,5,6 !右横梁
LESIZE,ALL, , ,1 , , , , ,1
LMESH,ALL
/ESHAPE,1.0
FINISH
/SOLU
CNVTOL,F,,0.001,2,
NLGEOM,1
AUTOTS,0
NSUBST,3, , ,1
DK,1,ALL
DK,3,ALL
DK,2,ALL
ACEL,0,9.8E3,
!杀死横梁
EKILL, 4
EKILL, 5
SOLVE
FINISH
/POST
PARSAV, ALL, PARAM, TXT,
FINISH
/SOLU
ANTYPE,,REST,
PARRES, CHANGE , PARAM, TXT,
!激活横梁
EALIVE,4
EALIVE,5
SOLVE
FINISH
/POST
PARSAV, ALL, PARAM, TXT,
FINISH
/SOLU
ANTYPE,,REST,
PARRES, CHANGE , PARAM, TXT,
!激活横梁
EALIVE,4
EALIVE,5
!杀死临时支撑
EKILL,2
SOLVE
FINISH
/POST
/DSCALE,1,10
/REPLOT
|