/PREP7
et,1,solid70
pi=3.1415926
LSIZE=0.005
V=0.007
Tinc= LSIZE/V
e=0.8
Q=160*7
af=0.002
ar=0.004
b=0.002
c=0.002
ff=0.667
fr=1.333
Qmax11=6*e*3**(1/2)*ff*Q/(pi*pi**(1/2)*af*b*c)
Qmax12=6*e*3**(1/2)*fr*Q/(pi*pi**(1/2)*ar*b*c)
MPTEMP,,,,,,,,
MPTEMP,1,297,693,1093,1293,1493,1693
MPTEMP,7,1743,1793
MPDATA,C,1,1,450,610,670,670,700,1490
MPDATA,C,1,7,9260,810
MPDATA,C,2,1,450,590,640,660,710,3160
MPDATA,C,2,7,7390,810
MPDATA,DENS,1,1,7770,7640,7480,7400,7310,7190
MPDATA,DENS,1,7,7010,6690
MPDATA,DENS,2,1,7800,7660,7500,7410,7310,7170
MPDATA,DENS,2,7,7010,6980
MPDATA,KXX,1,1,16.71,21.42,26.4,28.94,31.36,33.49
MPDATA,KXX,1,7,30.79,31.48
MPDATA,KXX,2,1,16.09,21.02,26.4,28.93,31.51,32.94
MPDATA,KXX,2,7,30.71,31.43
Block,0,0.1,0,0.1,0,0.004
Wpoff,0.05,0,0.004
Block,-0.002,0.002,0,0.1,0,0.0005
Wprota,0,0,-90
Wpoff,0,0,0.002
vsbw,all,,delete
Wpoff,0,0,-0.004
vsbw,all,,delete
Wprota,0,0,90
Wpoff,-0.002,0,0.001
K,,0.05,0,0.0055
Larc,13,14,25
FLST,2,2,4
FITEM,2,17
FITEM,2,33
AL,P51X
voffst,18,-0.1
FLST,2,2,6,ORDE,2
FITEM,2,2
FITEM,2,4
VADD,P51X
FLST,2,2,5,ORDE,2
FITEM,2,10
FITEM,2,27
AADD,P51X
FLST,2,2,5,ORDE,2
FITEM,2,9
FITEM,2,18
AADD,P51X
vglue,all
lsel,s,line,,20
lesize,all,,,40
lsel,s,line,,34
lsel,a,line,,17
lesize,all,,,4
lsel,s,line,,43
lesize,all,,,8
mat,2
vmesh,2
alls
lsel,s,line,,7
lsel,a,line,,37
lsel,a,line,,4
lsel,a,line,,2
lesize,all,,,30,0.1
lsel,s,line,,10
lesize,all,,,5
mat,1
vmesh,1
alls
lsel,s,line,,28,29
lsel,a,line,,25,26
lesize,all,,,30,0.1
lsel,s,line,,12
lesize,all,,,5
mat,1
vmesh,3,5
alls
finish
/solu
j=0
*do,i,1,21,1
j=j+tinc
XX=(i-1)*LSIZE
antype,4
trnopt,full
tunif,293
outres,all,all
time,j
nsubst,3,,,1
autots,1
kbc,1
lnsrch,1
tsres,erase
timint,1,therm
nsel,s,ext
sf,all,conv,200,293
allsel,all
local,11,2,0.05,XX,0.0055,,,,2,1
NSEL,S,LOC,X,,0.002
NSEL,R,LOC,Y,,180
NSEL,R,LOC,Z,-90,0
CM,NODEF,NODE
local,12,0,0.05,XX,0.0055,,,,1,1
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNCCSYS
*SET,_FNCNAME,'front'
*DIM,_FNC_C1,,1
*SET,_FNC_C1(1),qmax11
*SET,_FNCCSYS,12
! /INPUT,.\Desktop\front1.func,,,1
*DIM,%_FNCNAME%,TABLE,6,23,1,,,,%_FNCCSYS%
!
! Begin of equation: Qmax11*exp(-3(({x}/0.002)^2+({y}/0.002)^2+({z}/0.002)^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), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*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, 0.002, 0, 0, 2
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, 2, 4, -1
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,7,1), 0.0, -4, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 0.002, 0, 0, 3
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 1, 3, 4, -1
*SET,%_FNCNAME%(0,10,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,12,1), 0.0, -1, 0, 1, -4, 1, -5
*SET,%_FNCNAME%(0,13,1), 0.0, -2, 0, 0.002, 0, 0, 4
*SET,%_FNCNAME%(0,14,1), 0.0, -4, 0, 1, 4, 4, -2
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,16,1), 0.0, -5, 0, 1, -4, 17, -2
*SET,%_FNCNAME%(0,17,1), 0.0, -2, 0, 1, -1, 1, -5
*SET,%_FNCNAME%(0,18,1), 0.0, -1, 0, 3, 0, 0, -2
*SET,%_FNCNAME%(0,19,1), 0.0, -4, 0, 1, -1, 3, -2
*SET,%_FNCNAME%(0,20,1), 0.0, -1, 0, 1, -3, 3, -4
*SET,%_FNCNAME%(0,21,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,22,1), 0.0, -2, 0, 1, 17, 3, -1
*SET,%_FNCNAME%(0,23,1), 0.0, 99, 0, 1, -2, 0, 0
! End of equation: Qmax11*exp(-3(({x}/0.002)^2+({y}/0.002)^2+({z}/0.002)^2))
!-->
BF,nodef,HGEN,%front%
CMDELE,nodef
ALLSEL,ALL
local,13,2,0.05,XX,0.0055,,,,2,1
NSEL,S,LOC,X,,0.002
NSEL,R,LOC,Y,-180,0
NSEL,R,LOC,Z,-90,0
CM,NODEB,NODE
local,14,0,0.05,XX,0.0055,,,,1,1
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNCCSYS
*SET,_FNCNAME,'back'
*DIM,_FNC_C1,,1
*SET,_FNC_C1(1),qmax12
*SET,_FNCCSYS,14
! /INPUT,.\Desktop\back.func,,,1
*DIM,%_FNCNAME%,TABLE,6,23,1,,,,%_FNCCSYS%
!
! Begin of equation: Qmax12*exp(-3(({x}/0.002)^2+({y}/0.004)^2+({z}/0.002)^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), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*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, 0.002, 0, 0, 2
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, 2, 4, -1
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,7,1), 0.0, -4, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 0.004, 0, 0, 3
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 1, 3, 4, -1
*SET,%_FNCNAME%(0,10,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,12,1), 0.0, -1, 0, 1, -4, 1, -5
*SET,%_FNCNAME%(0,13,1), 0.0, -2, 0, 0.002, 0, 0, 4
*SET,%_FNCNAME%(0,14,1), 0.0, -4, 0, 1, 4, 4, -2
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,16,1), 0.0, -5, 0, 1, -4, 17, -2
*SET,%_FNCNAME%(0,17,1), 0.0, -2, 0, 1, -1, 1, -5
*SET,%_FNCNAME%(0,18,1), 0.0, -1, 0, 3, 0, 0, -2
*SET,%_FNCNAME%(0,19,1), 0.0, -4, 0, 1, -1, 3, -2
*SET,%_FNCNAME%(0,20,1), 0.0, -1, 0, 1, -3, 3, -4
*SET,%_FNCNAME%(0,21,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,22,1), 0.0, -2, 0, 1, 17, 3, -1
*SET,%_FNCNAME%(0,23,1), 0.0, 99, 0, 1, -2, 0, 0
! End of equation: Qmax12*exp(-3(({x}/0.002)^2+({y}/0.004)^2+({z}/0.002)^2))
!-->
BF,nodeb,HGEN,%back%
CMDELE,nodeb
ALLSEL,ALL
SOLVE
BFDELE,all,HGEN
*ENDDO
焊接仿真的命令流,出现了图中的问题,那位大神解释一下怎么回事
![焊接仿真计算]()
12.png |