求助：麻烦谁是否可以发一份关于三维高斯热源加载的命令流文件

jinzhen

在论坛上也搜过了，但是基本上貌似都是有点问题的，所以麻烦哪位大侠可以发我一份可以运行的，感激不尽，谢谢！
邮箱：guibaozhen@hotmail.com

tulongpower

我也需要，谢谢啦
tulongpower@qq.com

aiyouguai

*DIM,LASER,TABLE,MAX_X,MAX_Z,MAX_TIME,X,Z,TIME
*DO,K,1,MAX_TIME,1
*DO,I,1,MAX_X,1
LASER(I,0,K)=(I-1)*LSIZE
*ENDDO
*DO,J,1,MAX_Z,1
LASER(0,J,K)=(J-1)*LSIZE
*ENDDO
*DO,I,1,MAX_X,1
*DO,J,1,MAX_Z,1
DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-ZCENTER)**2)
*IF, DISTANCE,LE,R,THEN
LASER(I,J,K)=Qmax*EXP(-((DISTANCE)**2/(R**2)))            
*ELSE
LASER(I,J,K)=0
*ENDIF
*ENDDO
*ENDDO
LASER(0,0,K)=(K-1)*TINC
*ENDDO

simwee

楼上的是二维的吧？

450962603

这个高斯公式里没有涉及到板厚方向上的能量传递

Vicly2012

同求！多谢啦，694339060@qq.com