请教，如何实现ansys环形移动热源的加载！！！

daly158

如题，我想在一个圆形平板上加载一个移动的热源，应该怎么实现？我自己想的一部分程序 但是运行完了好像不能绕着中心中心轴转动，还请各位大侠帮忙看一下！！谢谢啦………………
建立一个内径为4mm外径为16mm的1/4圆盘，在上面加载一个直径为0.8mm的圆形热源，想让它绕圆的轴线做环形移动。
附图 是我这个程序运行后的结果，不是沿着轴线做圆周运动的。
………………
………………
K,1,0.004,0,0,  
K,2,0.016,0,0,  
K,3,0.016,0,0.001,  
K,4,0.004,0,0.001,
K,11,0,0,0,
K,12,0,0,0.004,
/VIEW,1,,,-1
/ANG,1  
/REP,FAST   
/VIEW,1,,1  
/ANG,1  
/REP,FAST
LSTR,       1,       2  
LSTR,       2,       3  
LSTR,       3,       4  
LSTR,       4,       1
FLST,2,4,4  
FITEM,2,1   
FITEM,2,2   
FITEM,2,3   
FITEM,2,4   
AL,P51X   
!*****************
FLST,5,1,4,ORDE,1   
FITEM,5,1   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,60, , , , ,1
!*  
FLST,5,1,4,ORDE,1   
FITEM,5,4   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,8, , , , ,1  
!*  
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
MSHKEY,1
AMESH,_Y1   
MSHKEY,0
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*
!****************
TYPE,   1   
EXTOPT,ESIZE,90,0,  
EXTOPT,ACLEAR,1
!*  
EXTOPT,ATTR,0,0,0   
MAT,_Z2
REAL,_Z4
ESYS,0  
!*
FLST,2,1,5,ORDE,1   
FITEM,2,1   
FLST,8,2,3  
FITEM,8,11   
FITEM,8,12   
VROTAT,P51X, , , , , ,P51X, ,90, ,  
!**********************
/SOL
*afun,rad
CSYS,1
*SET,LSIZE,0.0002            
*SET,V,V1/60000
*SET,rb,0.0008
*SET,pi,3.1415926  
*SET,TINC,pi/180            
*SET,Qmax,0.5*Q/(pi*rb**2)   
!*********************
*SET,MAX_TIME,81           
*SET,MAX_X,81              
*SET,MAX_Y,91               
*DIM,arc,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME    !   
*DO,K,1,MAX_TIME,1         
*DO,I,1,MAX_X,1
*SET,arc(I,0,K),(I+19)*LSIZE
*ENDDO  
*DO,J,1,MAX_Y,1
*SET,arc(0,J,K),(J-1)*TINC
*ENDDO  
*DO,I,1,MAX_X,1
*DO,J,1,MAX_Y,1
*SET,XCENTER,0.009  
*SET,YCENTER,(K-1)*TINC

*SET,DISTANCE,SQRT((0.009)**2+((I+19)*LSIZE)**2-2*0.009*((I+19)*LSIZE)*cos(ABS(J*pi/180-(K-1)*TINC)))

*IF,DISTANCE,LE,rb,THEN
*SET,arc(I,J,K),Qmax
*ELSE   
*SET,arc(I,J,K),0   
*ENDIF  

*ENDDO  
*ENDDO  
*SET,arc(0,0,K),(K-1)*TINC  
*ENDDO  
!************   

………………
………………

daly158

!!!!汗呀……没有一个响应！

daly158

C:\Documents