修改后的命令流如下,其中还给出了可以进一步改进的地方,用 !*** 作为标识:
FINISH
/CLEAR
/filn, luis_sun
/PREP7
PI=ACOS(-1)
!the area of upper steel
A1=2*PI*(0.001/2)**2
!the area of lower steel
A2=2*PI*(0.0016/2)**2
!the width of the concrete
Bc=0.2
!applied load 200kN
P=200000
!concrete compressive strength
FC=27.3E6
!concrete tensile strength
FT=2.5E6
!element size
ELESIZE=0.01
!concrete
ET,1,PLANE42
KEYOPT,1,3,3
MP,EX,1,FC*0.19/0.0002
MP,PRXY,1,0.2
MP,DENS,1,2400
R,1,Bc
!define the nolinear property of concrete
TB,CONCR,1
TBDATA,,0.5,0.95,FT,-1
TB,MISO,1,,10
TBPT,,0.0002,FC*0.19
TBPT,,0.0004,FC*0.36
TBPT,,0.0006,FC*0.51
TBPT,,0.0008,FC*0.64
TBPT,,0.0010,FC*0.75
TBPT,,0.0012,FC*0.84
TBPT,,0.0014,FC*0.91
TBPT,,0.0016,FC*0.96
TBPT,,0.0018,FC*0.99
TBPT,,0.0020,FC*1.00
!*
!steel
ET,2,LINK1
!*
R,2,A1
R,3,A2
!***
! ET,2,BEAM3 ! 将 link1 改为 beam3,并修改效应的实常数,效果更好
! KEYOPT,2,6,1
! KEYOPT,2,9,0
!*
! R,2,1.5707963267949e-006,3,0.5,0,0,0,
! R,3,4.0212385965949e-006,10,1.2,0,0,0,
!*
!*
MP,EX,2,2.1E11
MP,PRXY,2,0.33
!define the steel property of concrete
TB,BISO,2
TBDATA,,650E6 !*** 建议改为 TBDATA,,650E6, 1e9,即不要使用理想塑性
!
!MODELING
!concrete
BLC5,0,0,3.5,0.4
AATT,1,1,1
!steel
WPROTA,,-90
WPOFF,,,0.2-0.026
ASBW,ALL
WPOFF,,,-0.2+0.026-0.2+0.026
ASBW,ALL
LSEL,S,LOC,X,0
LSEL,R,LOC,Y,0.2-0.026
LATT,2,2,2
LESIZE,ALL,ELESIZE
LMESH,ALL
LSEL,S,LOC,X,0
LSEL,R,LOC,Y,-0.2+0.026
LATT,2,3,2
LESIZE,ALL,ELESIZE
LMESH,ALL
WPCSYS,-1
ALLSEL
AGLUE,ALL
ESIZE,ELESIZE
MSHAPE,0
AMESH,ALL
NUMMRG,ALL
!constrain nodes
NSEL,S,LOC,X,-3.5/2
NSEL,R,LOC,Y,-0.2
D,ALL,ALL
! NSEL,S,LOC,X,3.5/2
! NSEL,R,LOC,Y,-0.2
! D,ALL,UY
/SOLU
ANTYPE,0
NSUBST,20
OUTRES,ALL,ALL
!apply step load
! NSEL,S,LOC,X,0
! NSEL,R,LOC,Y,0.2
! F,ALL,FY,-P
!**** 以下修改是关键的
allsel,all
FLST,2,5,1,ORDE,2
FITEM,2,1932
FITEM,2,-1936
F,P51X,FY,-P/5 !*** 将单个节点的集中力分散到 5 个节点上
!*
FLST,2,10,1,ORDE,3
FITEM,2,703
FITEM,2,705
FITEM,2,-713
D,P51X, , , , , ,UY, , , , , !*** 将左端单个节点的集中约束分散到 5 个节点上
!*
FLST,2,1,1,ORDE,1
FITEM,2,703
D,P51X, , , , , ,UX, , , , , !*** 保留左端单个节点的 Ux 约束
!*
FLST,2,10,1,ORDE,3
FITEM,2,704
FITEM,2,1045
FITEM,2,-1053
D,P51X, , , , , ,UY, , , , , !*** 将右端单个节点的集中约束分散到 5 个节点上
!*
!****
ALLSEL
SOLVE
|