钢筋混凝土管的动力响应特性分析实例

发布日期:[08-12-04 12:37:31] 浏览人次:[]

在管内壁激振后,采用瞬态模块,模拟半埋设钢筋混凝土管在内部震源作用下的动力特性。
请多提宝贵意见,如果给分就太好了!
谢谢!

/COM,ANSYS MEDIA REL. 7.1 (03-13-2003) REF. VERIF. MANUAL: REL. 7.1
/CONFIG,NRES,2000
/VERIFY,ACOUSTIC_WELL_RADIUS
/PREP7
/TITLE,ACOUSTIC, ACOUSTIC_WELL_RADIUS
/NOPR

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! 2003/12/31
!! 按平面问题分析
!! 钢板+钢筋混凝土+砂浆/泥浆+原位岩/土(瞬态)
!! 6种介质成分,存放在介质属性数组中。
!! 计算边界外延一定宽度,以抑制边界干扰*****************
!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

JH_HSGD=10!计算高度
JH_GBHD=0.04!钢板厚度
JH_HNTHD=0.7 !混凝土厚度
JH_JYHD=0.6!浆液厚度,高度方向上砂浆和泥浆各占一半,砂浆在下,泥浆在上
JH_YTTHD=0.6!岩土体厚度
JH_RADWELL=4
ZHD=JH_RADWELL+JH_GBHD+JH_HNTHD+JH_JYHD+JH_YTTHD
BJCSM=4
BJCR1=ZHD+0.5
BJCR2=ZHD+1.0
BJCR3=ZHD+1.5
BJCR4=ZHD+2.0
R1ANGLE=6
SCBCJG=250
ENDTIME=0.001 !总计算时间
DST=1E-06 !记录的时间步长
ZYPL=5E4 !震源频率

PI=2*ASIN(1)

TCCS=6 !介质分类数目

!钢 钢筋混凝土 泥浆 砂浆 原位岩/土
*DIM,TC,ARRAY,TCCS,5 !该数组为介质参数,第一列为介质密度
! 第二列为泊松比,
! 第三列为弹模
! 第四列为纵波波速,用于计算时间步长
! 第五列为横波波速,如为液体,横波波速为0
!土层自下而上排列,物理参数暂时按各土层相同考虑
TC(1,1)=7800,2500,1200,2000,2700,2700
TC(1,2)=0.285,0.32,0.48,0.35,0.35,0.35 !液体泊松比为0.5,计算出现错误,按提示改为0.499
TC(1,3)=210E9,36E9,2E6,6E9,20E9,20E9

!计算各种介质的P、S波速度,以计算时间步长
*DO,I,1,TCCS
LAME1=TC(I,3)*TC(I,2)/(1+TC(I,2))/(1-2*TC(I,2))
LAME2=TC(I,3)/2/(1+TC(I,2))
TC(I,4)=((LAME1+2*LAME2)/TC(I,1))**.5
TC(I,5)=(LAME2/TC(I,1))**.5 !《土中应力波及其量测》P26
*ENDDO

!#########生成各介质区的边界控制点############
JZFQ=4 !介质分区数目
R1=JH_RADWELL
R2=JH_RADWELL+JH_GBHD
R3=JH_RADWELL+JH_GBHD+JH_HNTHD
R4=JH_RADWELL+JH_GBHD+JH_HNTHD+JH_JYHD
R5=JH_RADWELL+JH_GBHD+JH_HNTHD+JH_JYHD+JH_YTTHD
R6=BJCR1
R7=BJCR2
R8=BJCR3
R9=BJCR4

*DIM,JHRB,ARRAY,JZFQ+BJCSM+1,1
JHRB(1,1)=R1,R2,R3,R4,R5,R6,R7,R8,R9!
*DIM,JHRA,ARRAY,JZFQ+BJCSM+1,4 !定义数组,用于存放
*DIM,AMAT,ARRAY,JZFQ+BJCSM+1,1
*DIM,DYCC,ARRAY,JZFQ+BJCSM+1,1
JHRA(1,1)=R1,R2,R3,R3,R4,R5,R6,R7,R8!
JHRA(1,2)=R2,R3,R4,R4,R5,R6,R7,R8,R9!
JHRA(1,3)=0,0,0,180,0,0,0,0,0
JHRA(1,4)=360,360,180,360,360,360,360,360,360

AMAT(1,1)=1,2,3,4,5,5,5,5,5!介质编号
DYCC(1,1)=0.2,0.2,0.2,0.2,0.2,0.3,0.45,0.6,1!剖分尺寸

/PREP7
/REPLOT,RESIZE

*DO,I,1,JZFQ+BJCSM+1
CYL4,0,0,JHRA(I,1),JHRA(I,3),JHRA(I,2),JHRA(I,4)
*ENDDO

AGLUE,ALL
NUMMRG,ALL
NUMCMP,ALL !压缩各定义项的编号,使之连续
APLOT
!############计算时间步长##################
VMAX=TC(1,4) !钢板的纵波速度控制时间步长
DT=DYCC(1)/VMAX/2
*IF,DT,GE,DST,THEN !若时间步长大于设定的记录时间步长,采用记录时间步长记录
DT=DST
*ENDIF
ZBC=ENDTIME/DT !时间总步数

!############震源处理##########
T0=1/ZYPL/2 !震源
|<< << < 1 2 3 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:钢筋  混凝土    动力响应  特性  分析  实例
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务