FINISH
/CLEAR
/PREP7
/UNITS,SI
ET,1,SOLID70
PI=3.1415
LENGTH=0.10
I=160
U=22
V=0.007
Q=0.7*I*U
ff=0.6
fr=1.4
af=0.004
ar=0.016
b=0.004
c=0.002
Qf=6*SQRT(3)*ff*Q/3.14/SQRT(3.14)/af/b/c
Qr=6*SQRT(3)*fr*Q/3.14/SQRT(3.14)/ar/b/c
TIME_FREQUENCY=0.5
L_NUMBER=LENGTH/V/TIME_FREQUENCY
MPTEMP,1,20,100,200,300,500,700
MPTEMP,,900,1100,1300,1500,1700,1900
MPTEMP,,2000,2200,2400,2600
MPDATA,DENS,1,1,7800,7770,7750,7730,7790,7680
MPDATA,DENS,1,,7570,7460,7360,7030,6810,6620
MPDATA,DENS,1,,6540,6360,6170,6090
MPDATA,KXX,1,1,34.15,35.91,37.15,34.42,22.6,24.99
MPDATA,KXX,1,,27.32,29.84,32.17,33.45,36.72,40.19
MPDATA,KXX,1,,42.1,45.75,49.4,52.0
MPDATA,C,1,1,450,480,570,880,550,580
MPDATA,C,1,,610,640,680,12600,830,830
MPDATA,C,1,,830,830,830,820
MPDATA,ENTH,1,1,0,0.28E8,0.83E8,1.47E8,3.64E8,4.77E8
MPDATA,ENTH,1,,5.88E8,7.14E8,8.56E8,1.23E9,1.40E9,1.58E9
MPDATA,ENTH,1,,1.66E9,1.82E9,1.98E9,2.07E9
MPDATA,HF,1,1,1.336,6.68,13.36,20.4,38.7,71.15
MPDATA,HF,1,,110.04,170.6,180,264.4,270,280
MPDATA,HF,1,,290,310,340,360
BLOCK,0,0.06,0,LENGTH,0,0.015
BLOCK,0.06,0.08,0,LENGTH,0,0.015
BLOCK,0.08,0.14,0,LENGTH,0,0.015
BLOCK,0.066,0.074,0,LENGTH,0.015,0.018
VGLUE,ALL
AGLUE,ALL
LGLUE,ALL
NUMCMP,ALL
VSEL,S,,,2
VPLOT
ESIZE,0.001
TYPE,1
VSWEEP,ALL
VSEL,S,,,4,
VPLOT
ESIZE,0.001
TYPE,1
VSWEEP,ALL
VSEL,S,,,1,3,2
VPLOT
ESIZE,0.002
TYPE,1
VMESH,ALL
ALLSEL
*GET,ELEM_COUNT_ALL,ELEM,0,COUNT
VSEL,S,,,4
ESLV
*GET,ELEM_COUNT_HAZ,ELEM,0,COUNT
VSEL,S,,,2
ESLV
*GET,ELEM_COUNT_WELD,ELEM,0,COUNT
*DIM,HAZ_NUMBER,ARRAY,ELEM_COUNT_HAZ
*DIM,HAZ_CENTX,ARRAY,ELEM_COUNT_HAZ
*DIM,HAZ_CENTY,ARRAY,ELEM_COUNT_HAZ
*DIM,HAZ_CENTZ,ARRAY,ELEM_COUNT_HAZ
*DIM,WELD_NUMBER,ARRAY,ELEM_COUNT_WELD
*DIM,WELD_CENTX,ARRAY,ELEM_COUNT_WELD
*DIM,WELD_CENTY,ARRAY,ELEM_COUNT_WELD
*DIM,WELD_CENTZ,ARRAY,ELEM_COUNT_WELD
!ÈÈÓ°ÏìÇøµ¥ÔªºÅÒÔ¼°µ¥ÔªÖÊÐÄ×ø±ê
VSEL,S,,,4
ESLV
*SET,A,1
*DO,I,1,ELEM_COUNT_ALL,1
*IF,ESEL(I),EQ,1,THEN
HAZ_NUMBER(A)=I
*GET,CENTX,ELEM,I,CENT,X
*GET,CENTY,ELEM,I,CENT,Y
*GET,CENTZ,ELEM,I,CENT,Z
HAZ_CENTX(A)=CENTX
HAZ_CENTY(A)=CENTY
HAZ_CENTZ(A)=CENTZ
*SET,A,A+1
*ENDIF
*ENDDO
!º¸·ìÇøµ¥ÔªºÅ¼°ÖÊÐÄ×ø±ê
VSEL,S,,,2
ESLV
*SET,A,1
*DO,I,1,ELEM_COUNT_ALL,1
*IF,ESEL(I),EQ,1,THEN
WELD_NUMBER(A)=I
*GET,CENTX,ELEM,I,CENT,X
*GET,CENTY,ELEM,I,CENT,Y
*GET,CENTZ,ELEM,I,CENT,Z
WELD_CENTX(A)=CENTX
WELD_CENTY(A)=CENTY
WELD_CENTZ(A)=CENTZ
*SET,A,A+1
*ENDIF
*ENDDO
FINISH
/SOLU
ANTYPE,4
NROPT.FULL
NLGEOM,ON
OUTPR,ALL,ALL
OUTRES,ALL,ALL
TIMINT,OFF
KBC,1
AUTOTS,ON
NSUBST,4
TIME,0.01
ALLSEL
NSLV
D,ALL,TEMP,25
ALLSEL
SOLVE
DDELE,ALL,ALL
VSEL,S,,,2
ESLV
EKILL,ALL
TIME,0.02
ALLSEL
SOLVE
XC=0.070
ZC=0.015
TIME=0.02
*DO,K,1,1,1
BFEDELE,ALL,ALL
SFADELE,ALL,ALL
SFDELE,ALL,ALL
YMIN=(K-1)*LENGTH/L_NUMBER
YMAX=K*LENGTH/L_NUMBER
YC=(YMIN+YMAX)/2
*DO,N,1,ELEM_COUNT_HAZ,1
CENTX=HAZ_CENTX(N)
CENTY=HAZ_CENTY(N)
CENTZ=HAZ_CENTZ(N)
!*GET,CENTX,ELEM,HAZ_NUMBER(N),CENT,X
!*GET,CENTY,ELEM,HAZ_NUMBER(N),CENT,Y
!*GET,CENTZ,ELEM,HAZ_NUMBER(N),CENT,Z
*IF,CENTY,GT,YC,THEN
YY=(CENTY-YC)*(CENTY-YC)/af/af
XX=(CENTX-XC)*(CENTX-XC)/b/b
ZZ=(CENTZ-ZC)*(CENTZ-ZC)/c/c
Q1=Qf*EXP(-3*(XX+YY+ZZ))
BFE,HAZ_NUMBER(N),HGEN,1,Q1
*ENDIF
*IF,CENTY,LE,YC,THEN
YY=(CENTY-YC)*(CENTY-YC)/ar/ar
XX=(CENTX-XC)*(CENTX-XC)/b/b
ZZ=(CENTZ-ZC)*(CENTZ-ZC)/c/c
Q1=Qr*EXP(-3*(XX+YY+ZZ))
BFE,HAZ_NUMBER(N),HGEN,1,Q1
*ENDIF
*ENDDO
ALLSEL
ASEL,ALL
NSLA
SF,ALL,CONV,-1,80
TIME=TIME+TIME_FREQUENCY
TIMINT,ON
TIME,TIME
LNSRCH,ON
NSUBST,1
KBC,1
ALLSEL
!ESEL,S,LIVE
SOLVE
!¼¤»îº¸·ìµ¥Ôª
!*DO,M,1,ELEM_COUNT_WELD,1
!CENTY=WELD_CENTY(M)
!*GET,CENTY,ELEM,WELD_NUMBER(M),CENT,Y
!*IF,CENTY,LE,YMAX,THEN
!*IF,CENTY,GT,YMIN,THEN
!EALIVE,WELD_NUMBER(M)
!*ENDIF
!*ENDIF
!*ENDDO
*ENDDO
BFEDELE,ALL,ALL
SFADELE,ALL,ALL
SFDELE,ALL,ALL
*DO,M,1,10,1
TIME=TIME+0.5
TIME,TIME
BFDELE,ALL,ALL
SFADELE,ALL,ALL
ALLSEL
ASEL,ALL
SFA,ALL,,CONV,-1,80
NSUBST,2
ALLSEL
SOLVE
*ENDDO
!TIME,TIME+300
!BFDELE,ALL,ALL
!SFADELE,ALL,ALL
!ALLSEL
!ASEL,ALL
!SFA,ALL,,CONV,-1,25
!NSUBST,100
!ALLSEL
!SOLVE
»¹ÊǰÑÔ´³ÌÐòÌùÉÏÀ´°É |