某混凝土拱坝工程施工期及运行期温度场仿真分析

发布日期:[08-12-04 15:29:39] 浏览人次:[]

LL,CONV,2016, %DAQI%

!!加水化热
*DO,I,1,M,1
CMSEL,S,LAYER(I,1)
NSLE,S
T0=3*(I-1)
HE01=25538*((T-T0)/(3.19+T-T0)-(T-T0-1)/(3.19+T-T0-1))
BFE,ALL,HGEN, ,HE01
*ENDDO

ALLSEL,ALL

!计算设置
TRNOPT,FULL
LUMPM,0
TIME,T
AUTOTS,0
DELTIM,1, , ,1
KBC,0
TSRES,ERASE
OUTRES,ALL,ALL,
SOLVE
*ENDDO
*ENDDO

!!##############################LAYER1-37整体施工完毕计算一个月##########################
!!主要是为了使坝体水化热散发完毕
*DO,T,112,141,1
!!岩石及纵向围堰单元,使对流边界条件可加在岩石及纵向围堰与大气相交面.
ESEL,A,MAT,,2
ESEL,A,MAT,,3

!!加第三类边界条件
!选岩石与大气接触节点
CMSEL,S,NBIAOMIAN
!选坝体与大气接触节点
*DO,I,1,37,1
*DO,J,1,2,1
CMSEL,A,NLAYER(I,J)
*ENDDO
*ENDDO
CMSEL,A,NLAYER(37,3)

!SF,ALL,CONV,200, %DAQI%
SF,ALL,CONV,2016, %DAQI%

!!加水化热
*DO,I,1,37,1
CMSEL,S,LAYER(I,1)
NSLE,S
T0=3*(I-1)
HE01=25538*((T-T0)/(3.19+T-T0)-(T-T0-1)/(3.19+T-T0-1))
BFE,ALL,HGEN, ,HE01
*ENDDO

ALLSEL,ALL

!计算设置
TRNOPT,FULL
LUMPM,0
TIME,T
AUTOTS,0
DELTIM,1, , ,1
KBC,0
TSRES,ERASE
OUTRES,ALL,ALL,
SOLVE
*ENDDO

!!##############################LAYER1-37整体施工完毕按月计算##########################
!!主要是为了节省计算空间
*DO,M,1,32,1
T=142+(M-1)*30
!!岩石及纵向围堰单元,使对流边界条件可加在岩石及纵向围堰与大气相交面.
ESEL,A,MAT,,2
ESEL,A,MAT,,3

!!加第三类边界条件
!选岩石与大气接触节点
CMSEL,S,NBIAOMIAN
!选坝体与大气接触节点
*DO,I,1,37,1
*DO,J,1,2,1
CMSEL,A,NLAYER(I,J)
*ENDDO
*ENDDO
CMSEL,A,NLAYER(37,3)

!SF,ALL,CONV,200, %DAQI%
SF,ALL,CONV,2016, %DAQI%


ALLSEL,ALL

!计算设置
TRNOPT,FULL
LUMPM,0
TIME,T
AUTOTS,-1
NSUBST,1, , ,1
KBC,0
TSRES,ERASE
OUTRES,ALL,ALL,
SOLVE
*ENDDO
===============================











! 0 = radian, 1 = degrees







Function


17.3+11.35*cos(0.01745*({TIME}-215))







www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:混凝土  拱坝  工程  施工期  运行期  温度场  仿真  分析
相关资讯
热点资讯
推荐资讯

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