24小时热门版块排行榜

返回列表

tuzuoqi

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 341.6
散金: 20
帖子: 119
在线: 22.1小时
虫号: 1811738
注册: 2012-05-12
性别: GG
专业: 金属结构材料

[求助] ansys焊接命令流解释

/CLEAR
/FILNAME,EXAMPLE30
/PREP7
ET,1,PLANE77
ET,2,SOLID90
V=0.005
LENGTH=0.05
L_NUMBER=LENGTH/V
MPTEMP,1,0,300,600,1000,1300,2000
MPDATA,DENS,1,1,7859,7770,7659,7600,6750,6750
MPDATA,DENS,2,1,7859,7770,7659,7600,6750,6750
MPDATA,C,1,1,450,514,967,1370,2800,2000
MPDATA,C,2,1,450,514,967,1370,2800,2000
MPDATA,KXX,1,1,67,53,39,31,20,20
MPDATA,KXX,2,1,67,53,39,31,20,20
RECT,0,0.10,0,0.01
K,5,0.002
K,6,0.002,0.002
K,7,0.00662,0.01
K,8,0.00339,0.01112
K,9,0,0.0115
LARC,7,9,8
A,1,5,6,7,9
AGEN,2,2
ASBA,1,2
AGLUE,ALL
K,20,0,-0.00385
CIRCLE,20,0.008,,,90
CIRCLE,20,0.012,,,90
ASBL,3,4
ASBL,2,5
ESIZE,0.00075
SMRTSIZE,7
MSHAPE,1
AMESH,3,5,1
ESIZE,0.003
AMESH,1
EXTOPT,ESIZE,L_NUMBER
EXTOPT,ACLEAR,1
MAT,1
VEXT,3,5,1,,,LENGTH
MAT,2
VEXT,1,,,,,LENGTH
NUMMRG,NODE
ALLS
FINISH
/SOLU
AUTOTS,ON
OUTPR,NSOL,ALL
OUTRES,NSOL,ALL
KBC,1
ANTYPE,TRANS
TIMINT,OFF
NSUBST,4
D,ALL,TEMP,20
TIME,0.01
SOLVE
ESEL,S,MAT,,1
EKILL,ALL
ESEL,ALL
TIME,0.02
SOLVE
TIMINT,ON,THER
DDELE,ALL,TEMP
TIME=0.02
*DIM,QQ,ARRAY,8
*DIM,E_NODE,ARRAY,20
*GET,ELEM_MAX,ELEM,0,NUM,MAX
*GET,ELEM_MIN,ELEM,0,NUM,MIN
*GET,NODE_MAX,NODE,0,NUM,MAX
*GET,NODE_MIN,NODE,0,NUM,MIN
*DIM,NODE_AVE,ARRAY,NODE_MAX
*DO,J,NODE_MIN,NODE_MAX
ALLS
*IF,NSEL(J),EQ,1,THEN
NSEL,S,,,J
ESLN,S
*GET,NODE_AVE(J),ELEM,0,COUNT
*ENDIF
*ENDDO
ALLS
*DO,KK,1,3
R=0.02
*IF,KK,EQ,1,THEN
Q=3200*0.7
QMAX=3*Q/3.1415926/R/R
XC=0.11190E-02
YC=0.21451E-02
V_NUM=2
TIME_INC=LENGTH/L_NUMBER/V
*ENDIF
*IF,KK,EQ,2,THEN
Q=4500*0.7
QMAX=3*Q/3.1415926/R/R
XC=0.20373E-02
YC=0.60454E-02
V_NUM=1
TIME_INC=LENGTH/L_NUMBER/1.5/V
*ENDIF
*IF,KK,EQ,3,THEN
Q=5800*0.7
QMAX=3*Q/3.1415926/R/R
XC=0.29574E-02
YC=0.94733E-02
V_NUM=3
TIME_INC=LENGTH/L_NUMBER/2/V
*ENDIF
*DO,J,1,L_NUMBER
SFEDELE,ALL,ALL,HFLUX
VSEL,S,,,V_NUM
ESLV,S,1
NSEL,R,LOC,Z,(J-1)*LENGTH/L_NUMBER+0.001,J*LENGTH/L_NUMBER-0.001
ESLN,R
EALIVE,ALL
ALLS
ZC=(J-0.5)*LENGTH/L_NUMBER
*DO,I,ELEM_MIN,ELEM_MAX
*IF,ESEL(I),EQ,1,THEN
ESEL,S,,,I
*DO,K,1,8
*GET,E_NODE(K),ELEM,I,NODE,K
SS=E_NODE(K)
DISP=SQRT((NX(SS)-XC)*(NX(SS)-XC)+(NY(SS)-YC)*(NY(SS)-YC)+(NZ(SS)-ZC)*(NZ(SS)-ZC))
EEE=3*DISP*DISP/R/R
*IF,EEE,LT,25,THEN
QQ(K)=QMAX*EXP(-EEE)/NODE_AVE(E_NODE(K))
*ELSE
QQ(K)=0
*ENDIF
*ENDDO
*IF,QQ(1)+QQ(2)+QQ(3)+QQ(4),NE,0,THEN
SFE,I,1,HFLUX,,QQ(1),QQ(2),QQ(3),QQ(4)
*ENDIF
*IF,QQ(1)+QQ(2)+QQ(5)+QQ(6),NE,0,THEN
SFE,I,2,HFLUX,,QQ(1),QQ(2),QQ(6),QQ(5)
*ENDIF
*IF,QQ(6)+QQ(2)+QQ(3)+QQ(7),NE,0,THEN
SFE,I,3,HFLUX,,QQ(2),QQ(3),QQ(7),QQ(6)
*ENDIF
*IF,QQ(1)+QQ(4)+QQ(5)+QQ(7),NE,0,THEN
SFE,I,5,HFLUX,,QQ(1),QQ(4),QQ(7),QQ(5)
*ENDIF
*IF,QQ(5)+QQ(6)+QQ(7)+QQ(8),NE,0,THEN
SFE,I,6,HFLUX,,QQ(5),QQ(6),QQ(7),QQ(8)
*ENDIF
ALLS
*ENDIF
*ENDDO
ALLS
ASEL,S,LOC,Z,0
ASEL,A,LOC,Z,LENGTH
ASEL,A,,,20,22,1
ASEL,A,,,17
SFA,ALL,1,CONV,30,20
ALLS
TIME=TIME+TIME_INC
NSUBST,5,10,3
LNSRCH,ON
TIME,TIME
SOLVE
*ENDDO
TIME=TIME+3600
TIME,TIME
SFEDELE,ALL,ALL,HFLUX
SOLVE
*ENDDO
SAVE
FINI

EEE=3*DISP*DISP/R/R
*IF,EEE,LT,25,THEN
QQ(K)=QMAX*EXP(-EEE)/NODE_AVE(E_NODE(K))
*ELSE
QQ(K)=0
*ENDIF
*ENDDO
*IF,QQ(1)+QQ(2)+QQ(3)+QQ(4),NE,0,THEN
SFE,I,1,HFLUX,,QQ(1),QQ(2),QQ(3),QQ(4)
*ENDIF
*IF,QQ(1)+QQ(2)+QQ(5)+QQ(6),NE,0,THEN
SFE,I,2,HFLUX,,QQ(1),QQ(2),QQ(6),QQ(5)
*ENDIF
*IF,QQ(6)+QQ(2)+QQ(3)+QQ(7),NE,0,THEN
SFE,I,3,HFLUX,,QQ(2),QQ(3),QQ(7),QQ(6)
*ENDIF
*IF,QQ(1)+QQ(4)+QQ(5)+QQ(7),NE,0,THEN
SFE,I,5,HFLUX,,QQ(1),QQ(4),QQ(7),QQ(5)
*ENDIF
*IF,QQ(5)+QQ(6)+QQ(7)+QQ(8),NE,0,THEN
SFE,I,6,HFLUX,,QQ(5),QQ(6),QQ(7),QQ(8)
*ENDIF
ALLS
*ENDIF
*ENDDO
ALLS
ASEL,S,LOC,Z,0
ASEL,A,LOC,Z,LENGTH
ASEL,A,,,20,22,1
ASEL,A,,,17
SFA,ALL,1,CONV,30,20
ALLS
TIME=TIME+TIME_INC
NSUBST,5,10,3
LNSRCH,ON
TIME,TIME
SOLVE
*ENDDO
TIME=TIME+3600
TIME,TIME
SFEDELE,ALL,ALL,HFLUX

上面第二段代码，EEE=3*DISP*DISP/R/R 是什么意思为什么EEE<25 还有后面为什么要给六个面施加热流哪位大神能给解释一下吗

回复此楼