AaronSpark 发表于 2006-5-22 05:09

[转帖]ANSYS单元生死功能模拟门式刚架施工

本帖最后由 wdhd 于 2016-3-8 09:15 编辑

  ! ANSYS单元生死功能模拟门式刚架施工

  ! 施工分为三步

  ! 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
页: [1]
查看完整版本: [转帖]ANSYS单元生死功能模拟门式刚架施工