ansys一段代码，关于平板焊接的，运行有问题，精通ansys的大神能帮着修改一下吗

浏览: 1670
ET,1,SOLID70
BLOCK,0,0.08,0,0.09,0,0.006
BLOCK,0.08,0.17,0,0.09,0,0.006
BLOCK,0.17,0.19,0,0.09,0,0.006
BLOCK,0.19,0.3,0,0.09,0,0.006
VGLUE,ALL
MPTEMP,1,20,100,300,400,500,700
MPTEMP,7,900,1470,1550,1600,2500,5000
MPDATA,KXX,1,1,52,51,44,43,37,32.5
MPDATA,KXX,1,7,26.2,31.4,120,120,120,120
*DIM,CONV1,TABLE,17,1,1,TEMP
*SET,CONV1(1,0,1),20
*SET,CONV1(1,1,1),2.5
*SET,CONV1(2,0,1),100
*SET,CONV1(2,1,1),5.4
*SET,CONV1(3,0,1),300
*SET,CONV1(3,1,1),7
*SET,CONV1(4,0,1),500
*SET,CONV1(4,1,1),7.7
*SET,CONV1(5,0,1),750
*SET,CONV1(5,1,1),8.2
*SET,CONV1(6,0,1),1000
*SET,CONV1(6,1,1),8.5
*SET,CONV1(7,0,1),1590
*SET,CONV1(7,1,1),9.1
*SET,CONV1(8,0,1),5000
*SET,CONV1(8,1,1),10
LESIZE,57,,,20,3
LESIZE,58,,,20,3
LESIZE,59,,,20,3
LESIZE,60,,,20,3
LESIZE,47,,,4
LESIZE,46,,,4
LESIZE,49,,,20,1/3
LESIZE,50,,,20,1/3
LESIZE,51,,,20,1/3
LESIZE,52,,,20,1/3
LESIZE,53,,,20
LESIZE,54,,,20
LESIZE,55,,,20
LESIZE,56,,,20
Vmesh,all
R=3.25e-3
U=22
I=220
Q0=3*U*I*0.7/(3.14*R**2)
J=0
*DO,I,0,0.09,0.003
J=J+0.25
/solu
ANTYPE,4
TRNOPT,FULL
TUNIF,20
TIME,J
NROPT,FULL,,ON
DELTIME,0.01
AUTOTS,ON
OUTRES,BASIC,LAST
KBC,0
LNSRCH,1
TSRES,ERAES
TIMINT,1,THERM
NSEL,S,EXT
SF,ALL,CONV,%CONV1%,20
ALLSEL,ALL

LOCAL,11,1,0.18,I
NSEL,S,LOC,X,0,0.00325
NSEL,R,LOC,Z,0.006
CSYS,0
ESLN,S,0
*GET,nMAX,ELEM,,NUM,MAX
*GET,nMin,ELEM,,NUM,MIN
*DO,ei, nMAX, nMIN
*IF, ei,EQ,1,THEN
*GET,elx,ELEM,ei,cent, x
*GET,ely,ELEM,ei,cent, y
q1=1*exp((-3)*(elx-0.18)**2)/(3.25e-3**2))*exp((-3)*(ABS(ely-i))**2/(3.25e-3**2)
qm=q0*q1
SFE,ei,6,HFLUX,,qm
*ENDIF
*ENDDO
SOLVE
SFDELE,ALL,HFLUX
SFDELE,ALL,CONV
*ENDDO


全部回答 (0)

默认 最新