ansys 钢筋混凝土简支梁命令流
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
钢筋混凝土简支梁-分离式模型
FINISH
/CLEAR
/PREP7
!1.定义单元与材料属性
ET,1,SOLID65,,,,,,,1
ET,2,LINK8
MP,EX,1,13585 !混凝土材料的初始弹模以及泊松比
MP,PRXY,1,0.2
FC=14.3 !混凝土单轴抗压强度和单轴抗拉强度
FT=1.43
!TB,CONCR,1
!TBDATA,,0.5,0.95,FT,-1 !定义混凝土材料及相关参数，关闭压碎!TB,MISO,1,,11 !定义混凝土应力应变曲线，用MISO模型
!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.002,FC
!TBPT,,0.0033,FC*0.85
MP,EX,2,2.0E5 !钢筋材料的初始弹模以及泊松比
MP,PRXY,2,0.3
!TB,BISO,2 TBDATA,,300,0 !钢筋的应力应变关系，用BISO模型!PI=ACOS(-1)
R,1
R,2,0.25*PI*22*22
R,3,0.25*PI*10*10
!TBPLOT,MISO,1 !混凝土材料的数据表绘图
!TBPLOT,BISO,2 !钢筋材料的数据表绘图
!2.创建几何模型
BLC4,,,150,300,2000
*DO,I,1,19 !切出箍筋位置
WPOFF,,,100
VSBW,ALL
*ENDDO
WPCSYS,-1
WPOFF,,,950 !切出拟加载面
VSBW,ALL
WPOFF,,,100
VSBW,ALL
WPCSYS,-1
WPROTA,,-90
WPOFF,,,30
VSBW,ALL
WPOFF,,,240
VSBW,ALL
WPCSYS,-1
WPOFF,30
WPROTA,,,90
VSBW,ALL
WPOFF,,,45
VSBW,ALL
WPOFF,,,45
VSBW,ALL
WPCSYS,-1
!3.划分钢筋网格
ELEMSIZ=50 !网格尺寸变量，设置为50mm LSEL,S,LOC,X,30
LSEL,R,LOC,Y,30
LATT,2,2,2
LESIZE,ALL,ELEMSIZ
LMESH,ALL
LSEL,S,LOC,X,75
LSEL,R,LOC,Y,30
LATT,2,2,2
LESIZE,ALL,ELEMSIZ
LMESH,ALL
LSEL,S,LOC,X,120
LSEL,R,LOC,Y,30
LATT,2,2,2
LESIZE,ALL,ELEMSIZ
LMESH,ALL
LSEL,S,LOC,X,30
LSEL,R,LOC,Y,270
LATT,2,3,2
LESIZE,ALL,ELEMSIZ
LMESH,ALL
LSEL,S,LOC,X,120
LSEL,R,LOC,Y,270 LATT,2,3,2
LESIZE,ALL,ELEMSIZ LMESH,ALL
LSEL,S,TAN1,Z LSEL,R,LOC,Y,30,270 LSEL,R,LOC,X,30,120 LSEL,U,LOC,X,75 LSEL,U,LOC,Z,0 LSEL,U,LOC,Z,2000 LSEL,U,LOC,Z,950 LSEL,U,LOC,Z,1050 LATT,2,3,2
LESIZE,ALL,ELEMSIZ LMESH,ALL
LSEL,ALL
!4.划分混凝土网格VATT,1,1,1 MSHKEY,1
ESIZE,ELEMSIZ VMESH,ALL
ALLSEL,ALL
!5.施加荷载和约束LSEL,S,LOC,Y,0 LSEL,R,LOC,Z,100 DL,ALL,,UY
LSEL,S,LOC,Y,0 LSEL,R,LOC,Z,1900 DL,ALL,,UY
DK,KP(0,0,100),UX,,,,UZ DK,KP(0,0,1900),UX
P0=180000
Q0=P0/150/100 ASEL,S,LOC,Z,950,1050 ASEL,R,LOC,Y,300 SFA,ALL,1,PRES,10
ALLSEL,ALL
FINISH
!6.求解控制设置与求解/SOLU
ANTYPE,0 NSUBST,60 OUTRES,ALL,ALL AUTOS,ON
NEQIT,20 CNVTOL,U,,0.015 ALLSEL,ALL
SOLVE
FINISH