激光移动加载APDL语言
发个程序，不知道有没有问题，望高手指教完善！激光沿宽度方向直线扫描，板材宽度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 无人问津？
你模型没有建立吧
你模型没有建立吧 热源主体程序好像没有什么问题，不过没有加对流和冷却的部分 期待冷却部分命令流 不知道楼主有没有解决问题！
页:
[1]