24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2186  |  回复: 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的回帖
相关版块跳转 我要订阅楼主 德群 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿085404,总分291,四级已过,求调剂 +5 阿俊阿俊阿俊 2026-04-04 7/350 2026-04-04 13:23 by 莲菜就是藕吧
[考研] 化工求调剂 +11 荔香芝士椰奶 2026-04-03 11/550 2026-04-03 22:06 by 啵啵啵0119
[考研] 070300一志愿211,312分求调剂院校 +16 小黄鸭宝 2026-03-30 16/800 2026-04-03 19:53 by lijunpoly
[考研] 材料专硕调剂 +18 椰椰。 2026-03-29 18/900 2026-04-03 16:45 by 玲玲0606
[考研] 309求调剂 +14 呆菇不是戴夫 2026-04-02 14/700 2026-04-03 09:42 by 蓝云思雨
[考研] 一志愿南开大学0710生物学359求调剂 +6 兔兔兔111223314 2026-03-29 8/400 2026-04-02 22:37 by louise0220
[考研] 材料0856 英一数二 323 求调剂 +10 袁sy 2026-04-01 10/500 2026-04-02 19:52 by xingsh
[考研] 一志愿华南师范大学-22408计算机-292分-求华南师范大学调剂 +4 爱读书的小鳄鱼 2026-04-02 4/200 2026-04-02 18:35 by 求调剂zz
[考研] 22408 266求调剂 +3 masss11222 2026-04-02 3/150 2026-04-02 18:11 by 笔落锦州
[考研] 318求调剂,计算材料方向 +10 吸喵有害笙命 2026-04-01 11/550 2026-04-02 16:29 by oooqiao
[考研] 0832食品科学与工程学硕282调剂 +4 鱼在水中游a 2026-04-02 7/350 2026-04-02 14:12 by baoball
[考研] 286分调剂 +20 Faune 2026-03-30 22/1100 2026-04-02 13:24 by clyblh
[考研] 08工科求调剂290分 +5 1314捧花 2026-04-02 8/400 2026-04-02 13:16 by 乔哒哒哒
[考研] 271求调剂 +15 勒布朗@ 2026-03-31 20/1000 2026-04-02 11:24 by Sammy2
[考研] 材料专硕322分 +11 哈哈哈吼吼吼哈 2026-04-01 11/550 2026-04-02 10:52 by lnilvy
[考研] 348环境工程调剂 +3 吴彦祖24k 2026-04-01 3/150 2026-04-02 09:14 by nanaliuyun
[考研] 296求调剂 +4 汪!?! 2026-03-31 7/350 2026-04-01 22:04 by 客尔美德
[考研] 材料科学与工程求调剂 +13 深V宿舍吧 2026-03-29 13/650 2026-03-31 19:50 by Dyhoer
[考研] 070300化学354求调剂 +15 101次希望 2026-03-28 15/750 2026-03-31 17:58 by jp9609
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
信息提示
请填处理意见