按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!
!问题:热流载荷的分布和温度场的分布不一致(该完全一致才对),有点偏移?
!若要继续,读入〃finish/solu〃
*do;i;1;6
sfedele;all;i;hflux !删除每个单元六个面上的热载荷
*enddo
*enddo
alls
esel;s;live
eplot !查看温度场
save;'1。11thermal_analysis_alive1';'db'
!=
!生成节点温度分布云图动画文件的程序段
!=
/post1
/seg;dele !允许图形数据存储到局部终端存储器
/dscale;1;1。0 !显示位移时,设置放大系数
avprin;0;0 !规定主项量和总向量如何被计算
avres;1 !规定当powergraphies可用时,结果数据如何被平均
/seg;multi;1。11temp…10;0。2 !存动画;分节存储后来的显示;动画名字;每个画面间延迟系数
esel;s;live
!*************************************************读取初始稳态温度场结果
set;;;1;;dt0 !从结果文件读;载荷步;子步;比例因子实部;比例因子虚部;时间
plnsol;temp
!*****************************************读取第1道焊缝过程中的温度场结果
*do;im;0;lnum;1
tm=dt1+im*tinc
set;;;1;;tm
plnsol;temp
*enddo
/seg;off;1。11temp…10;0。2
anim;1;1 !*********************************生成动画完毕
!****************************************存储第1道焊缝过程中的温度场结果图片
esel;s;live
*do;im;0;lnum;1
*if;im;eq;0;then
tm=dt1
set;;;1;;tm
plnsol;temp
/image;save;1。11temp0;jpeg
*endif
tm=dt1+im*tinc
set;;;1;;tm
plnsol;temp
*if;tm;eq;dt1+lnum/2*tinc;then
set;;;1;;tm
plnsol;temp6。5;jpeg
*endif
*enddo
/image;save;1。11temp12。5;jpeg
!温度场完毕以第一道为例