当前位置: 首页 > 计算模拟 >ansys焊接命令流解释

ansys焊接命令流解释

作者 tuzuoqi
来源: 小木虫 150 3 举报帖子
+关注

/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      还有后面为什么要给六个面施加热流  哪位大神能给解释一下吗 返回小木虫查看更多

今日热帖
  • 精华评论
  • 123dingyc

    怎么算焊接

  • tuzuoqi

    引用回帖:
    2楼: Originally posted by 123dingyc at 2017-12-14 11:24:50
    怎么算焊接

    建立热源的数学模型,施加到有限元模型上进行计算

  • 123dingyc

    不懂

猜你喜欢
下载小木虫APP
与700万科研达人随时交流
  • 二维码
  • IOS
  • 安卓