焊接热源的施加问题?
如何修改以下程序,使焊接热源的起始点不位于坐标原点而在某一坐标值?*DIM,FLUX2,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME
*DO,K,1,MAX_TIME,1
*DO,I,1,MAX_X,1
FLUX2(I,0,K)=(I-1)*LSIZE
*ENDDO
*DO,J,1,MAX_Y,1
FLUX2(0,J,K)=(J-1)*LSIZE
*ENDDO
*DO,I,1,MAX_X,1
*DO,J,1,MAX_Y,1
XCENTER=0
YCENTER=v*(K-1)*TINC
LL=sqrt(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2)
Q=200000!热流密度
*IF,LL,LE,R,THEN
FLUX2(I,J,K)=Q
*ELSE
FLUX2(I,J,K)=0
*ENDIF
*ENDDO
*ENDDO
FLUX2(0,0,K)=(K-1)*TINC
*ENDDO XCENTER=0
YCENTER=v*(K-1)*TINC
修改这两个坐标值 :lol:lol:lol:lol:lol
页:
[1]