ansys激光焊接命令流文档格式.docx
《ansys激光焊接命令流文档格式.docx》由会员分享，可在线阅读，更多相关《ansys激光焊接命令流文档格式.docx（55页珍藏版）》请在冰点文库上搜索。
定义激光的功率密度
*set,PI,3.1415926
*set,v,0.05!
定义激光的移动速度
*set,tim,0
*SET,QC,Q/（PI*rb*rb）
et,1,solid70!
定义单元类型
mp,dens,1,7833!
定义密度
mp,c,1,465!
定义比热
mp,kxx,1,54!
定义热传导系数
block,0,0.052,0,0.025,-0.025,0!
建长方体模型
/view,1,1,1,1!
转变视图方向为ISO视角
esize,0.002!
单元大小
mshkey,0!
网格设置
mshape,1,3D
vmesh,all!
划分网格
nsel,s,loc,x,0,0.05!
选择激光光斑区域
nsel,r,loc,y,0,0.005
nsel,r,loc,z,-0.01,0
nrefine,all,3!
对激光光斑作用的区域进行网格细化
save
*SET,x_center,x0+rb!
设置光斑的初始位置
*SET,y_center,y0
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNCCSYS
*SET,_FNCNAME,'
laser'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*SET,_FNC_C1
（1）,QC
*SET,_FNC_C2
（1）,x_center
*SET,_FNC_C3
（1）,y_center
*SET,_FNC_C4
（1）,rb
*SET,_FNCCSYS,0
!
/INPUT,laser.func,,,1
*DIM,%_FNCNAME%,TABLE,6,19,1,,,,%_FNCCSYS%
Beginofequation:
QC*EXP（-2*（（{X}-x_center）^2+（{Y}-y_center）^2）/（rb^2））
*SET,%_FNCNAME%（0,0,1）,0.0,-999
*SET,%_FNCNAME%（2,0,1）,0.0
*SET,%_FNCNAME%（3,0,1）,%_FNC_C1
（1）%
*SET,%_FNCNAME%（4,0,1）,%_FNC_C2
（1）%
*SET,%_FNCNAME%（5,0,1）,%_FNC_C3
（1）%
*SET,%_FNCNAME%（6,0,1）,%_FNC_C4
（1）%
*SET,%_FNCNAME%（0,1,1）,1.0,-1,0,0,0,0,0
*SET,%_FNCNAME%（0,2,1）,0.0,-2,0,1,0,0,-1
*SET,%_FNCNAME%（0,3,1）,0,-3,0,1,-1,2,-2
*SET,%_FNCNAME%（0,4,1）,0.0,-1,0,2,0,0,-3
*SET,%_FNCNAME%（0,5,1）,0.0,-2,0,1,-3,3,-1
*SET,%_FNCNAME%（0,6,1）,0.0,-1,0,1,2,2,18
*SET,%_FNCNAME%（0,7,1）,0.0,-3,0,2,0,0,-1
*SET,%_FNCNAME%（0,8,1）,0.0,-4,0,1,-1,17,-3
*SET,%_FNCNAME%（0,9,1）,0.0,-1,0,1,3,2,19
*SET,%_FNCNAME%（0,10,1）,0.0,-3,0,2,0,0,-1
*SET,%_FNCNAME%（0,11,1）,0.0,-5,0,1,-1,17,-3
*SET,%_FNCNAME%（0,12,1）,0.0,-1,0,1,-4,1,-5
*SET,%_FNCNAME%（0,13,1）,0.0,-3,0,1,-2,3,-1
*SET,%_FNCNAME%（0,14,1）,0.0,-1,0,2,0,0,20
*SET,%_FNCNAME%（0,15,1）,0.0,-2,0,1,20,17,-1
*SET,%_FNCNAME%（0,16,1）,0.0,-1,0,1,-3,4,-2
*SET,%_FNCNAME%（0,17,1）,0.0,-1,7,1,-1,0,0
*SET,%_FNCNAME%（0,18,1）,0.0,-2,0,1,17,3,-1
*SET,%_FNCNAME%（0,19,1）,0.0,99,0,1,-2,0,0
Endofequation:
QC*EXP（-2*（（{X}-x_center）^2+（{Y}-y_center）^2）/（rb^2））
-->
FINISH
/SOL
antype,4,new!
定义分析类型
trnopt,full
toffst,0!
设置采用的温度单位为K
tunif,300!
设置初始温度为300K
---------------------------
*do,i,1,13
*SET,tim,tim+0.04
time,tim!
设置载荷步作用时间
*SET,x_center,x0+（i-1）*2*rb!
设置当前作用区域的中心点坐标（每次x向前移动一个直径的离）
*set,laser（4,0,1）,x_center!
改变定义的函数中响应的中心点坐标值
nsel,s,loc,x,x_center-0.002,x_center+0.002
nsel,r,loc,y,y_center,y_center+0.002
nsel,r,loc,z,0
sf,all,hflux,%laser%!
在选择的节点上面施加定义好的热流密度函数
allsel,all
nsubst,5
solve
*enddo
/POST1
SET,FIRST
SET,LIST,2
PLDISP,0
*
/EFACET,1
PLNSOL,TEMP,,0
PLNSOL,TF,SUM,0
SET,LIST
SET,NEXT
SET,PREVIOUS
SET,LIST,999
SET,,,,,,,1
SET,,,,,,,2
SET,,,,,,,3
SET,1,LAST,1,
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,0.924021086472,1
SET,2,LAST,1,
SET,,,1,,0.6,,
SET,,,,,,,4
SET,,,,,,,5
SET,,,,,,,13
SET,LAST
/PREP7
PATH,STATUS
/VIEW,1,WP
/REPLOT
/USER,1
/VIEW,1,0.213030386275,0.00000000000,0.977045574435
/REPLO
/FOC,1,0.3,,,1
/VIEW,1,0.260432779182,-0.176********4,0.949145599354
/ANG,1,-0.427481532461
VPLOT
EPLOT
nsel,r,loc,y,0,0
nsel,r,loc,z,0,0
FLST,2,6,1
FITEM,2,409
FITEM,2,411
FITEM,2,412
FITEM,2,413
FITEM,2,415
/FOC,1,,0.3,,1
FLST,2,6,8
FITEM,2,0,0,0
FITEM,2,0.5E-01,0,0
PATH,rad,6,30,20,
PPATH,P51X
/PBC,PATH,1
PDEF,trad,TEMP,,AVG
/PBC,PATH,,0
PLPATH,TRAD
PLPAGM,TRAD,1,Blank
PLPAGM,XG,1,Blank
PLPAGM,YG,1,Blank
PLPAGM,ZG,1,Blank
PLPAGM,S,1,Blank
/PBC,PATH,0
PRANGE,1,,,TRAD,
/VIEW,2,WP
PATH,RAD
PLPATH,
RMNDISP,'
TLOAD'
'
WRITE'
FLST,2,67,1
FITEM,2,410
FITEM,2,419
FITEM,2,424
FITEM,2,434
FITEM,2,6492
FITEM,2,6674
FITEM,2,6789
FITEM,2,6849
FITEM,2,6367
FITEM,2,6352
FITEM,2,6349
FITEM,2,435
FITEM,2,431
FITEM,2,428
FITEM,2,427
FITEM,2,423
FITEM,2,420
FITEM,2,422
FITEM,2,425
FITEM,2,421
FITEM,2,426
FITEM,2,418
FITEM,2,417
FITEM,2,416
FITEM,2,414
FITEM,2,429
FITEM,2,430
FITEM,2,432
FITEM,2,433
FITEM,2,6337
FITEM,2,6340
FITEM,2,6351
FITEM,2,6353
FITEM,2,6355
FITEM,2,6406
FITEM,2,6379
FITEM,2,6463
FITEM,2,6513
FITEM,2,6537
FITEM,2,6544
FITEM,2,6628
FITEM,2,6627
FITEM,2,6675
FITEM,2,6773
FITEM,2,6682
F
升级会员 