激光移动加载APDL语言

xtxk

发个程序，不知道有没有问题，望高手指教完善！
激光沿宽度方向直线扫描，板材宽度5mm，长度10mm
连续激光  扫描速度80mm/min

LSIZE=0.0001           !单步时间内光斑的移动距离
V=0.08/60              !扫描速度  
TINC=LSIZE/V           !单步时间长度  
KK=2                   !能量集中系数
R=0.0002               !高斯光斑半径
Qmax=20000000          !光斑中心的能量值
MAX_TIME=51            !数组下标K，KMAX的最大值
MAX_X=51               !数组下标I，IMAX的最大值
MAX_Y=101              !数组下标J, JMAX的最大值
!------------------------!定义表载荷----------------------------------
*DIM,FLUX2,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME !利用DIM语句定义一个三维table数组  
*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=V*(K-1)*TINC
     YCENTER=0
     DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2)
     *IF,DISTANCE,LE,R,THEN  
     FLUX2(I,J,K)=Qmax/EXP(KK*(DISTANCE**2)/(R**2))
     *ELSE  
     FLUX2(I,J,K)=0  
     *ENDIF  
   *ENDDO  
  *ENDDO  
  FLUX2(0,0,K)=(K-1)*TINC  
*ENDDO  
ANTYPE,TRANS           !定义分析类型为瞬态分析
TRNOPT,FULL           
*SET,DELT,1            !定义和赋值参数
!--------------------------设置瞬态热分析的初始条件-------------------
  TUNIF,300                 !设置均匀温度场 （仅对分析的第一个子步有效）
  TT=0.005/(0.08/60)        !整个扫描过程时间
*DO,TM,1E-6,TT,TINC         !大概循环50次
!-------------------------TIM/FREQUENCE选项--------------------------
  TIME,TM                   !定义计算终止时间
  AUTOTS,ON                 !打开自动时间步长
  DELTIM, , , ,1            !指定最大、最小时间步长（“1”表示用当前步的结束时间作为下一步的开始时间）
  KBC,0                     !设置加载方式为递增（ramperd）
  TIMINT,ON                 !打开时间积分效应(OFF为稳态热分析)
  LNSRCH,ON                 !打开线性搜索
  NEQIT,80                  !设置每一子步允许的最大迭代次数
  
  OUTRES,ALL,ALL            !输出控制
  
  !--------------------选择施加热流密度的面施加表载荷-----------------
  TSRES,ERASE  
  ASEL,S,,,2
  SFA,ALL,1,HFLUX,%FLUX2%  !在所选面上施加热流密度载荷
  SOLVE                    !开始求解计算
*ENDDO

xtxk

无人问津？

sthyujun

你模型没有建立吧

claudiasch

热源主体程序好像没有什么问题，不过没有加对流和冷却的部分

reltek

期待冷却部分命令流

wxpand2004

不知道楼主有没有解决问题！