ansys高斯热源施加.docx

!平板对接开 v 型坡口多道焊成型（温度场）
!采用 guass 表面热源
finish
/clear,nostart
/filname,
/title,3D_weld_thermal_an*sqrt
(2)/2,arf,0,90
L,1,7!形成拖拉路径L14
Vdrag,all,,〃〃14!沿线拖拉面
Vptn,all !分割体
Vglue,all !粘贴体？
Nummrg,all
!*************************************************************
! 划分网格
aadd,24,32!面相加，以便生成映射网格
lccat,40,49
lccat,42,52
!*************************************沿焊缝 z 方向划分，均为 2mm
lsel,s,line,,17,21,2
lsel,a,line,,24,26,2
lsel,a,line,,35,36
lsel,a,line,,14,30,16
lesize,all,2e-3
!***************************************沿厚度 y 方向划分 1-
lsel,s,line,,6,25,19
lsel,a,line,,2,18,16
lesize,all,,,6
lsel,s,line,,41,43,2
lsel,a,line,,50,53,3 lsel,a,line,,44,46,2
lesize,all,-3
Isel,s,line〃45,47,2!母材
x 方向划分 1mm
lesize,all,,,18,
lsel,s,line,,7,27,20!母材 lesize,all,,,12,
lsel,a,line,,5,23,18
lsel,s,line,,11,34,23!焊缝
lsel,a,line,,48,51,3
lesize,all,,,4
!****************************************划分体， alls
mshkey,l!映射网格
mshape,0,3d !六面体形状
vsel,all
vatt,,,l
aslv,s
aatt,,,l
type,l!单元类型为1
vmesh,all
!*******************************************存档备份有限元模型
alls
save,'','db'
finish
!================================================================= !重新载入有限元模型进行加载求解
!=================================================================
/solu
/view〃-32-5!调整窗口视角
!*****************************************************************
! 杀死焊缝区单元
v1=5!焊缝1所在的体
v2=7!焊缝2所在的体
a1=18!焊缝1的上表面
a2=31!焊缝2的上表面 esel,s,type〃1!选取1类单元
*get,nemax,elem〃num,max!得到所有1类单元号码的最大值 *get,nemin,elem,,num,min !********************************************分段杀死第 2 道焊缝
vsel,s,,,v2
eslv ekill,all
esel,s,live
eplot
!***************************************************************
!边界条件（暂时没有考虑对流）
!***************************************************************
nsel,s,loc,x,0!在x=0处施加对称边界条件
dsym,symm,x
!设置非线性求解选项 !*****************************************************************
alls
antype,trans !瞬态分析
trnopt,full !瞬态分析选项，完全分析