钢筋混凝土梁的弹塑性分析ansys命令流

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

!(1)工作环境设置

/FILENAME,RC-BEAM !指定工作文件名

/TITLE,ALAL YSIS OF A RC-BEAM !指定图形标题

!(2)进行前处理器

/prep7

!(3)定义单元类型

ET,1,LINK8 !定义钢筋单元

ET,2,SOLID65 !定义混凝土单元

ET,3,MESH200 !用于拉伸成体单元KEYOPT,3,1,6

!(4)定义钢筋截面积

r,1,28.3

r,2,50.3

r,3,314.1

!(5)为solid65单元定义一个实参数组

r,4,

!(6)定义混凝土材料

MP,EX,2,2.55E10

MP,PRXY,2,0.3

TB,CONC,2,1,9, !定义混凝土的破坏参数TBDA TA,,0.3,0.55,1.55E6,-1,,

TBDA TA,,,,0.6

!(7)定义钢筋材料模型及参数

mp,ex,2,2e5 !纵向受拉钢筋材料

mp,prxy,2,0.3

tb,bkin,2,1,2,1

tbdata,,350

mp,ex,3,2e5 !横向箍筋,架立钢筋材料mp,prxy,3,0.25

tb,bkin,3,1,2,1

tbdata,,200

!(8) 创建以及复制节点

/pnum,node,1

/pnum,elem,1

n,1

n,9,200

fill,1,9

ngen,11,9,1,9,1,,30

ngen,11,99,1,99,1,,,-150

/view,1,1,1,1

!(9)建立箍筋单元

type,1

real,1

mat,3

!水平箍筋

*do,i,11,16,1

e,i,i+1

e,i+(83-11),i+(83-11)+1

*enddo

!坚直箍筋

*do,i,11,74,9

e,i,i+9

e,i+6,i+6+9

*enddo

!产生整个模型的箍筋

egen,11,99,all

!(10)建立架立筋以及纵筋单元

!创建上部的架立钢筋单元

*do,i,83,node(25,270,-1500+150),99 e,i,i+99

e,i+6,i+6+99

*enddo

!纵向受拉钢筋单元的属性

type,1

real,3

mat,2

!创建纵筋单元

*do,i,11,node(25,30,-1500+150),99 e,i,i+99

e,i+3,i+3+99

e,i+6,i+6+99

*enddo

/view,1,1,1,1

/pnum,elem,0

/pnum,node,0

/eshape,1

eplot

!(11)建立混凝土剖面并划分网格

k,1

K,2,200,

k,3,200,300

k,4,,300

a,1,2,3,4

lsel,s,loc,y,0

lsel,a,loc,y,300

lesize,all,,,8

lsel,all

lsel,s,loc,x,0

lsel,a,loc,x,200

lesize,all,,,10

type,3

amesh,all

!(12)拉伸形成混凝土单元type,2

real,3

mat,1

extopt,esize,20

extopt,aclear,1

vext,all,,,,,-1500

/pnum,mat,1

/pnum,node,0

/pnum,elem,0

eplot

allsel

!(13)合并压缩节点编号nummrg,all

numcmp,all

eplot

!(14)施加支座约束nsel,s,loc,y,0

nsel,r,loc,z,-1500+75

d,all,uy

d,all,ux

!(15)施加对称面约束asel,s,loc,z,0

da,all,symm

!(16)施加载荷

nsel,all

nsel,s,loc,y,300

nsel,r,loc,z,-450

d,all,uy,-30

allsel

!(17)退出前处理器

fini

!(18) 进入求解器

/solu

!(19)求解器选项设置

nlgeom,on

nsubst,200

outres,all,all

neqit,50

pred,on

cnvtol,f,,0.05,2,0.5

allsel

!(20)求解并退出求解器

solve

fini

!(21)进入通用处理器并读入最后一个子步的结果/post1

set,last

!(22)后处理操作

plnsol,u,y,0,1

/device,vector,1

plcrack,0,0

!(23)退出通用后处理器

finish

相关文档
最新文档