24小时热门版块排行榜    

查看: 2231  |  回复: 0

德群

新虫 (小有名气)

[求助] 混凝土冻融循环下温度应力的模拟

各位大神好,本人想要模拟混凝土受冻融情况下的温度应力和温度应变,下面的是我的程序。我看资料自己的理解是将温度作为荷载加到混凝土上,然后由于混凝土线膨胀系数的不同产生约束,导致最终产生应力和应变。我选择time history variable里面有stress 和elastic strain 这个是温度产生的温度应力和由此产生的应变么
FINISH
/CLEAR
/FILNAME,SHIYAN quater
/PREP7
ET,1,SOLID70
MP,KXX,1,1.8
MP,KYY,1,1.8
MP,KZZ,1,1.8
MP,DENS,1,2400
MP,C,1,950

MP,KXX,2,0.61
MP,KYY,2,0.61
MP,KZZ,2,0.61
MP,DENS,2,996
MP,C,2,4185

BLOCK,0,-57.5E-3,0,-57.5E-3,0,450E-3
WPAVE,0,0,400E-3
CSYS,4
VSBW,ALL
WPCSYS,-1,0

WPROTA,0,-90,0
WPAVE,0,0,-50E-3
CSYS,4
VSBW,ALL
WPCSYS,-1,0

WPROTA,0,0,90
WPAVE,0,0,-50E-3
CSYS,4
VSBW,ALL
WPCSYS,-1,0

ALLSEL,ALL
VSEL,S,LOC,Z,0,400E-3
VSEL,R,LOC,X,-50E-3,0
VSEL,R,LOC,Y,-50E-3,0
VATT,1,,1
ALLSEL,ALL
VSEL,U,MAT,,1,1,1
VATT,2,,1
ALLSEL,ALL

ESIZE,75E-4
MSHKEY,1
MSHAPE,0
VMESH,ALL

/SOLU
ALLSEL
VSEL,S,MAT,,1                  
NSLV,S,1
D,ALL,TEMP,5.08              
ALLSEL,ALL
VSEL,S,MAT,,2
NSLV,S,1
D,ALL,TEMP,2.88                  
ALLSEL,ALL
ANTYPE, TRANS
TIMINT,OFF
TIME,0.01
!  DELTIM,0.01,    0.02,0.005     !***  设置为一个子步即可,不用 DELTIM 命令,改为下一句
nsubst, 1,1,1
SOLVE

*DIM,SHIJ,,1000
/INPUT,SJ,TXT
*DIM,WENDU,,1000
/INPUT,WD,TXT

/SOLU
*DO,I,1,1000,1
TIME,SHIJ(I,1,1)*60
TIMINT,ON
AUTOTS,ON
KBC,1
NSUBST,1,1
DDELE,ALL,TEMP
ALLSEL,ALL
ASEL,S,AREA,,26
ASEL,A,AREA,,22
ASEL,A,AREA,,4
ASEL,A,AREA,,18
ASEL,A,AREA,,31
ASEL,A,AREA,,34
ASEL,A,AREA,,38
ASEL,A,AREA,,41
NSLA,S,1
D,ALL,TEMP,WENDU(I,1,1)
OUTRES,ALL,1
ALLSEL,ALL
SOLVE
*ENDDO
FINISH

/PREP7
ETCHG,TTS
MP,EX,1,3E10
MP,ALPX,1,10E-6
MP,ALPY,1,10E-6
MP,ALPZ,1,10E-6
MP,NUXY,1,0.2  

MP,EX,2,2.18E9
MP,ALPX,2,0.0002
MP,ALPY,2,0.0002
MP,ALPZ,2,0.0002
MP,NUXY,2,0.2


ALLSEL,ALL
ASEL,S,AREA,,13
NSLA,S,1
D,ALL,UZ,0  
ALLSEL,ALL
ASEL,S,AREA,,5
NSLA,S,1
DSYM,SYMM,X,
ALLSEL,ALL
ASEL,S,AREA,,15
NSLA,S,1
DSYM,SYMM,Y
ALLSEL,ALL         

*DIM,SHIJIAN,,1000
/INPUT,JIANSHI,TXT
/SOLU
ANTYPE,TRANS
*DO,I,1,1000,1
TIME,SHIJIAN(I,1,1)*60
TIMINT,ON
AUTOTS,ON
NSUBST,1,1
NLGEOM,ON
NROPT,FULL

ALLSEL,ALL
ESEL,S,MAT,,2
EKILL,ALL
ALLSEL,ALL
ESEL,S,MAT,,1
NSLE,S
LDREAD,TEMP,,,SHIJIAN(I,1,1)*60,,SHIYAN quater,Rth              
ALLSEL,ALL
OUTRES,ALL
SOLVE
*ENDDO
FINISH

混凝土冻融循环下温度应力的模拟
time history variable.png@wuming524
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 德群 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 国社科又开始会评了,不知道这次命运如何 +8 雨打竹帘 2026-08-30 12/600 2026-09-03 06:24 by sincosx
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +8 gdd2018 2026-08-28 13/650 2026-09-03 06:22 by 羽毛枫f
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ero8OE6tv9cu 2026-09-02 4/200 2026-09-03 03:14 by rM1TE0WVDIIY
[博后之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 ero8OE6tv9cu 2026-09-02 6/300 2026-09-02 23:59 by rM1TE0WVDIIY
[基金申请] 为什么资助数各大高校都创新高,自己申请怎么就这么难 +14 Kittylucky 2026-08-27 15/750 2026-09-02 19:35 by liumei0601
[基金申请] 科研人应该花精力去思考如何解决问题,而不是去凝练问题 +7 瞬息宇宙 2026-09-01 14/700 2026-09-02 17:33 by ma0526
[基金申请] 要骂人了,新模版改版就是要淡化问题凝练这种虚的东西,结果有个评委还在说凝练得不够 +9 瞬息宇宙 2026-08-31 17/850 2026-09-02 14:04 by anjeeshine
[基金申请] 学科评审组评审是指会评吗? +5 瞬息宇宙 2026-08-31 5/250 2026-09-02 10:13 by 雨冰共舞
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[论文投稿] 小白求助 投论文要求的highlights应该如何写 5+3 l1963982152 2026-08-29 4/200 2026-09-01 09:04 by 北京莱茵编辑
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
信息提示
请填处理意见