/PREP7
ET,1,SOLID70
MP,DENS,1,7930
MP,C,1,502
mptemp,1,24,40,60,80,110,150
mpdata,kxx,1,1,9.33,10.42,11.58,12.7,14,18
/VIEW,1,1,1,1
!*************定义基板尺寸***********
lx=0.080
lz=0.060
ly=0.005
!*************定义焊接参数***********
weld=0.012 !每道焊道宽度
wheight=0.003 !焊道的高度
LSIZE=0.002
V=0.004 !速度
tinc=LSIZE/V !每小段的时间间隔
pi=3.1415926
U=25
I=180
Q=U*I !电源有效功率
effect=0.8
f1=0.6
f2=1.4
ah=0.003
chf=2*ah
chb=8*ah
bh=0.003
Qmax11=6*effect*3**(1/2)*f1*q/(pi*pi**(1/2)*ah*bh*chf)
Qmax12=6*effect*3**(1/2)*f2*q/(pi*pi**(1/2)*ah*bh*chb)
!*****************建立模型,生成网格**************
block,0,lx,0,ly,0,lz
wpoff,0,ly,lz/2
block,0,lx,0,wheight*5,-weld/2,weld/2
wpoff,0,0,-weld/2
vsbw,all,,delete
wpoff,0,0,weld
vsbw,all,,delete
wpoff,0,-ly,-weld/2
block,-0.02,0,0,ly,-lz/2,lz/2
block,lx,lx+0.02,0,ly,-lz/2,lz/2
wpoff,0,ly,weld/2
vglue,all
FLST,5,4,4,ORDE,4
FITEM,5,14
FITEM,5,16
FITEM,5,19
FITEM,5,39
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,40, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,23
FITEM,5,-24
FITEM,5,69
FITEM,5,71
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,6, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,13
FITEM,5,15
FITEM,5,70
FITEM,5,72
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,10, , , , ,1
!*
MSHAPE,0,3D
MSHKEY,1
!*
CM,_Y,VOLU
VSEL, , , , 8
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
ESIZE,2e-3,0,
/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
FLST,5,3,6,ORDE,3
FITEM,5,1
FITEM,5,7
FITEM,5,9
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FLST,5,2,6,ORDE,2
FITEM,5,10
FITEM,5,-11
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
/UI,MESH,OFF
/solu
antype,trans
trnopt,full
nropt,full,,on
AUTOTS,on
lnsrch,on
tunif,25
!**************杀死焊缝单元********************
nsel,s,loc,y,ly,ly+wheight*5
esln,s,1
CM,weld_elem,ELEM
ekill,all
esel,s,elem,,weld_elem
nsle,s
cm,weld_node,node
ALLSEL,ALL
esel,s,live
eplot |