ansys激光焊接命令流.docx

ansys激光焊接命令流.docx

《ansys激光焊接命令流.docx》由会员分享，可在线阅读，更多相关《ansys激光焊接命令流.docx（55页珍藏版）》请在冰豆网上搜索。

ansys激光焊接命令流

/BATCH

/COM,ANSYSRELEASE12.1UP2009110217:

19:

4502/24/2012

/input,menust,tmp,'',,,,,,,,,,,,,,,,1

/GRA,POWER

/GST,ON

/PLO,INFO,3

/GRO,CURL,ON

/CPLANE,1

/REPLOT,RESIZE

WPSTYLE,,,,,,,,0

/prep7!

进入前处理

/units,si!

设置单位制为国际单位制

*set,x0,0!

赋值，类似于C++中的“＝”，下同

*set,y0,0

*set,rb,0.002!

定义激光光斑半径

*set,Q,8000!

定义激光的功率密度

*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,y_center,y0

*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

FINISH

/POST1

SET,FIRST

SET,FIRST

SET,LIST,2

PLDISP,0

!

*

/EFACET,1

PLNSOL,TEMP,,0

/EFACET,1

PLNSOL,TF,SUM,0

/EFACET,1

PLNSOL,TF,SUM,0

SET,LIST

SET,FIRST

SET,NEXT

SET,PREVIOUS

SET,LIST,999

SET,,,,,,,1

SET,,,,,,,2

SET,,,,,,,2

SET,,,,,,,3

SET,NEXT

SET,PREVIOUS

SET,,,,,,,3

SET,NEXT

SET,NEXT

SET,1,LAST,1,

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,2,LAST,1,

SET,,,1,,0.6,,

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,,,,,,,1

SET,,,,,,,1

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

SET,LIST,999

SET,NEXT

SET,,,,,,,2

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,NEXT

SET,,,,,,,3

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,,,,,,,4

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,NEXT

SET,,,,,,,5

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,NEXT

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

SET,LIST,999

SET,NEXT

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,NEXT

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,NEXT

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

SET,LIST,999

SET,,,,,,,13

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

SET,LAST

SET,LAST

/DIST,1,1.08222638492,1

/REP,FAST

!

*

/EFACET,1

PLNSOL,TEMP,,0

SET,LAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

FINISH

/PREP7

FINISH

/SOL

FINISH

/POST1

!

PATH,STATUS

!

*

/VIEW,1,WP

/REPLOT

!

*

/USER,1

/VIEW,1,0.213030386275,0.00000000000,0.977045574435

/REPLO

/FOC,1,0.3,,,1

/REP,FAST

/FOC,1,0.3,,,1

/REP,FAST

/VIEW,1,0.260432779182,-0.176********4,0.949145599354

/ANG,1,-0.427481532461

/REPLO

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,411

FITEM,2,412

FITEM,2,413

FITEM,2,415

!

*

!

*

/VIEW,1,WP

/REPLOT

!

*

/FOC,1,0.3,,,1

/REP,FAST

/FOC,1,0.3,,,1

/REP,FAST

/FOC,1,,0.3,,1

/REP,FAST

FLST,2,6,8

FITEM,2,0,0,0

FITEM,2,0,0,0

FITEM,2,0,0,0

FITEM,2,0.5E-01,0,0

FITEM,2,0.5E-01,0,0

FITEM,2,0.5E-01,0,0

!

*

PATH,rad,6,30,20,

PPATH,P51X

/PBC,PATH,1

/REPLOT

!

*

!

*

PDEF,trad,TEMP,,AVG

/PBC,PATH,,0

!

*

/DIST,1,1.08222638492,1

/REP,FAST

PLPATH,TRAD

PLPAGM,TRAD,1,Blank

PLPAGM,XG,1,Blank

PLPAGM,YG,1,Blank

PLPAGM,ZG,1,Blank

PLPAGM,S,1,Blank

PLPAGM,TRAD,1,Blank

!

*

/PBC,PATH,1

/REPLOT

/PBC,PATH,0

!

*

/PBC,PATH,1

/REPLOT

/PBC,PATH,0

!

*

/PBC,PATH,1

/REPLOT

/PBC,PATH,0

!

*

PRANGE,1,,,TRAD,

!

*

/VIEW,2,WP

/REPLOT

!

*

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

!

*

/VIEW,1,WP

/REPLOT

!

*

!

*

/VIEW,2,WP

/REPLOT

!

*

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

PATH,RAD

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,1.08222638492,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

PLPAGM,TRAD,1,Blank

PLPATH,TRAD

PLPATH,

PLPAGM,TRAD,1,Blank

RMNDISP,'TLOAD','WRITE'

RMNDISP,'TLOAD','WRITE'

!

*

PDEF,trad,TEMP,,AVG

/PBC,PATH,,0

!

*

EPLOT

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/FOC,1,0.3,,,1

/REP,FAST

/FOC,1,0.3,,,1

/REP,FAST

/FOC,1,,0.3,,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

/DIST,1,0.924021086472,1

/REP,FAST

!

PATH,STATUS

FLST,2,67,1

FITEM,2,409

FITEM,2,409

FITEM,2,409

FITEM,2,409

FITEM,2,409

FITEM,2,409

FITEM,2,409

FITEM,2,409

FITEM,2,409

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,424

FITEM,2,423

FITEM,2,420

FITEM,2,422

FITEM,2,425

FITEM,2,424

FITEM,2,421

FITEM,2,426

FITEM,2,419

FITEM,2,418

FITEM,2,417

FITEM,2,419

FITEM,2,416

FITEM,2,415

FITEM,2,414

FITEM,2,413

FITEM,2,412

FITEM,2,411

FITEM,2,429

FITEM,2,430

FITEM,2,431

FITEM,2,432

FITEM,2,433

FITEM,2,431

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