激光切割移动热源加载命令流

xuyong0209

应该是可以自己写，也可以用ANSYS自动生成的东西吧

laokaner

MAX_TIME=41
MAX_X=41
MAX_Y=41
*DIM,laser,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,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_Y,1
laser(0,J,K)=(J-1)*LSIZE
*ENDDO
*DO,I,1,MAX_X,1
*DO,J,1,MAX_Y,1
XCENTER=V*(k-1)*TINC
YCENTER=0.01
DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2)
*IF,DISTANCE,LE,R,THEN
laser(I,J,K)=0.6*Qmax/EXP(3*DISTANCE**2/(rb**2))
*ELSE
laser(I,J,K)=0
*ENDIF
*ENDDO
*ENDDO
laser(0,0,K)=(K-1)*TINC
*ENDDO

xuyong0209

没有完整程序……

yueleizizi

分享这么一段还不如不拿出来分享呢

bcd420

程序很不完整.加载好像是GUI形式实现的

cannavaro

学习一下！

Vicly2012

顶楼主，多谢分享！