24小时热门版块排行榜

>论坛更新日志 (3059)
>虫友互识 (234)
>文献求助 (163)
>导师招生 (71)
>休闲灌水 (50)
>考博 (46)
>招聘信息布告栏 (41)
>博后之家 (34)
>硕博家园 (23)
>论文投稿 (19)
>晶体 (18)
>论文道贺祈福 (16)
>考研 (15)
>公派出国 (14)
>教师之家 (13)
>有机资源 (10)

返回列表

N@天河

新虫 (初入文坛)

应助: 3 (幼儿园)
金币: 293.6
帖子: 39
在线: 21.6小时
虫号: 1181225
注册: 2010-12-31
专业: 机械摩擦学与表面技术

[交流] ANSYS做瞬态热分析代码（送给有需要的朋友）已有1人参与

/CLEAR
/FILNAME,EXAMPLE32
/PREP7
ET,1,PLANE77
MP,KXX,1,383
MP,DENS,1,8889
MP,C,1,390
MP,KXX,2,70
MP,DENS,2,7833
MP,C,2,445
MP,KXX,3,2
MP,DENS,3,996
MP,C,3,4185
RECTNG,0,0.6,0,0.5
RECTNG,0.15,0.225,0.225,0.27
RECTNG,0.342,0.42,0.225,0.27
AOVLAP,ALL    !交叠所有面
AATT,1,1,1    !指定单元属性
MSHAPE,0    !指定单元形状为四边形
MSHKEY,1    !指定映射网格
ESIZE,0.01
AMESH,2
AATT,2,1,1
AMESH,3
AATT,3,1,1
MSHKEY,0    !指定自由网格
ESIZE,0.03
AMESH,4
FINISH
/SOLU
ANTYPE,TRANS
!进行稳态分析，施加初始温度
TIMINT,OFF !关闭积分时间
TIME,0.01    !时间
DELTIM,0.01 !时间步长
DA,2,TEMP,400 !在面上施加载荷
DA,3,TEMP,500 !
DA,4,TEMP,20  !
SOLVE
!开始瞬态热分析
TIME,3600
TIMINT,ON    !打开时间积分
DELTIM,50,10,200 !时间步长
AUTOTS,ON       !自动时间步长
DADELE,ALL,TEMP !删除稳态分析时施加的温度自由度
OUTRES,ALL,ALL !输出控制
SOLVE
SAVE             !保存数据库
FINISH
/POST26
NSOL,2,106,TEMP,,TEMP_106  !
PLVAR,2
FINISH

回复此楼