高斯赋值-第2部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 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　　　
！温度场完毕以第一道为例