24小时热门版块排行榜

返回列表

521majie

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 79
散金: 14
红花: 2
帖子: 52
在线: 26.6小时
虫号: 3046058
注册: 2014-03-10
专业: 金属材料的凝固与结晶学

[求助] 焊接命令流　　多层　　可用　求教一些问题

下面是焊接的一段命令流，有些不懂的地方，请各位大神指导一下:cry::cry::cry::cry:问题:cry::cry::cry::cry:该命令可用。另附件命令流一份
/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 :cry::cry::cry: 焊缝区杀死之后，又进行的”ESEL，ALL“选取的是哪？:cry::cry::cry:
ESEL, ALL
TIME, 0.02
SOLVE
TIMINT, ON, THER
DDELE, ALL, TEMP
TIME=0.02
*DIM, QQ, ARRAY, 8    :cry::cry::cry: 8是怎么来的？？:cry::cry::cry:
*DIM, E_NODE, ARRAY, 20
*GET, ELEM_MAX, ELEM, 0, NUM, MAX  :cry::cry::cry: 所有的GET命令是针对的焊缝区吗？？:cry::cry::cry:
*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 :cry::cry::cry::cry:从这开始*IF, QQ是什么意思:cry::cry::cry:
   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

回复此楼