本帖最后由 潘一路昆工 于 2019-4-27 15:52 编辑
激光增材制造的的ansys,DO循环加载热源,为什么结果显示一直加载在最后一个单元上面左右,没有循环加载热源的结果?
FINISH
/CLEAR
/PREP7
L1=100e-3
W1=40e-3
H1=20e-3
Grav=-9.8
h_Convection=10
T_TIME=0.1
L=1
A1=10E-3
T0 =25
T1=1300
ET,1,226
KEYOPT,1,1,11
KEYOPT,1,9,1
/PREP7
MPTEMP,1,20,200,400,600,700,800,
MPTEMP,7,900,1000,
mpdata,ex,1,1,197E9,187E9,173e9,157e9,152e9,145e9,
mpdata,ex,1,7,138e9,131e9,
mpdata,PRXY,1,1,0.3,0.3,0.3,0.3,0.3,0.3
mpdata,PRXY,1,7,0.3,0.3,
mpdata,alpx,1,1,11.8e-6,13.0e-6,14.1e-6,14.8e-6,15.4e-6,17.0e-6,
mpdata,alpx,1,7,18.4e-6,18.7e-6
MP,DENS,1,8240
MPDATA,KXX,1,1,13.4,15.7,18.3,21.2,22.8,23.6
MPDATA,KXX,1,7,27.6,30.4
MPDATA,C,1,1,481.4,481.4,493.9,539.0,573.4,615.3,
MPDATA,C,1,7,657.2,707.4
tb,bkin,1,5,
tbtemp,20,1
tbdata,1,1030E6,75.76E9
tbtemp,400,2
tbdata,1,916E6,66.54E9
tbtemp,800,4
tbdata,1,736E6,55.77E9,
tbtemp,1000,5
tbdata,1,612E6,50.38E9
BLC4,,,L1,W1,H1
ALLSEL,ALL,LINE
LESIZE,ALL,10e-3 , , ,
ALLSEL,ALL,VOLU
VATT,1,1,1,
VSWEEP,ALL
ESEL,S,MAT,,1
CM,BBB,ELEM
ALLSEL,ALL
/SOLU
ANTYPE,4
TIMINT,ON
TRNOPT,FULL
TINTP,,,,1.0
NROPT,FULL
AUTOTS,ON
NLGEOM,on
NSUBST,10,300,1
KBC,1
TUNIF,T0
ACEL,0,0,Grav,
ASEL,S,LOC,Z,0,
NSLA,S,,,ALL
D,ALL,UX,,,,,UY,UZ
ALLSEL,ALL
ESEL,S,,,BBB
NSLE,S,,BBB
D,ALL,UX,,,,,UY,UZ
EKILL,BBB
ALLSEL,ALL
*DO,s,1,2,1
*DO,k,1,10,1
*DO,q,1,4,1
ESEL,S,CENT,Z,A1*(s-1),A1*s
ESEL,R,CENT,X,A1*(k-1),A1*k
ESEL,R,CENT,Y,A1*(q-1),A1*q
eplot
CM,JIHUO,ELEM
ESEL,S,,,JIHUO
EALIVE,JIHUO
NSLE,ALL
CM,DOF1_T,NODE
DDELE,DOF1_T,UX
DDELE,DOF1_T,UY
DDELE,DOF1_T,UZ
D,DOF1_T, ,T1, , , ,TEMP,
allsel,all
nsel,r,ext
SF,ALL,conv,h_Convection,T0
ALLSel
TIME,L*T_TIME
L=L+1
solve
DDELE,DOF1_T,TEMP
outres,all,all
eplot,JIHUO
*ENDDO
*ENDDO
*ENDDO
应该是DO循环出错了,但是我为什么总是找不出来,谢谢!
第一步和最后一步显示的都是最后一步的单元加热 |
另外,请问,这幅图的效果通过什么fluent软件可以实现?粉末加热融化-流动-凝固的过程
|