高斯赋值-第2部分

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！


*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　　　
！温度场完毕以第一道为例