跪求冷却过程的计算
问题是这样的:在一个面上加了一个热流HFLUX,作用50S后进行冷却,先后采用了两种冷却方式,第一种是采用SFADELE,第二种是采用不加任何载荷进行求解,但实际效果是还采用原来的载荷进行计算。FINISH
/CLEAR
/CONFIG,NRES,1000000
/PREP7
/COM,Structural
/COM,Thermal
ET,1,SOLID5 !
MPTEMP,1,20,200,600,800,1000,1200
MPDATA,KXX,1,1,13.31,16.33,22.38,25.07,27.53,29.76
MPDATA,C,1,1,470,508,592,634,676,719
MP,DENS,1,7890
MP,EX,1,1.80e11
MP,ALPX,1,15e-6
MP,PRXY,1,0.288
!!!!!!!!!!!!!!!!!!!***************建模
BLOCK,-60,60,-60,60,0,10
BLOCK,-30,30,-30,30,0,10
vSBv,1,2, ,DELETE,KEEP
allsel
!!!!!!!!!!!!!!!!!!!***************网格划分SWEEP
FLST,5,2,6,ORDE,2
FITEM,5,2
FITEM,5,-3
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!!!!!!!!!!!!!!!!!!!***************算法设置
/SOLU
ANTYPE,4
NROPT,FULL
OUTRES,ALL,1
!tunif,50
tref,20
kbc,1
LUMPM,0
!!!!!!!!!!!!!!!!!!!***************积分精度设置
TSRES,ERASE
TIMINT,1
TINTP,0.005, , ,-1,0.5,-1,
TIM=0
!!!!!!!!!!!!!!!!!!!***************时间和步长设置
TIME,50
AUTOTS,1
NSUBST,10
!!!!!!!!!!!!!!!!!!!***************加载面位置的选择
ALLSEL,ALL
ASEL,S,LOC,X,-30,30
ASEL,R,LOC,Y,-30,30
ASEL,R,LOC,Z,10
!!!!!!!!!!!!!!!!!!!***************具体加载面位置的选择
FLST,2,1,5,ORDE,1
FITEM,2,8
!!!!!!!!!!!!!!!!!!!***************热流设置加热计算
/GO
!*
/STATUS,SOLU
SFA,P51X,1,HFLUX,1E8
SOLVE
!!!!!!!!!!!!!!!!!!!***************冷却计算
TIME,500
AUTOTS,1
NSUBST,5
/STATUS,SOLU
SFADELE,P51X,1,HFLUX
SOLVE
SAVE
另外一种方式是:
TIME,500
NSUBST,5
SOLVE
SAVE 分两个过程来求解
1、求解加热后的温度分布
2、以第一步的最后温度为初始载荷,进行冷却分析
你不能在同一个/solu里,两个过程都进行的 你好,谢谢指点!我按照你说的又做了一遍,还是不行!
FINISH
/CLEAR
/CONFIG,NRES,1000000
/PREP7
/COM,Structural
/COM,Thermal
ET,1,SOLID5 !
MPTEMP,1,20,200,600,800,1000,1200
MPDATA,KXX,1,1,13.31,16.33,22.38,25.07,27.53,29.76
MPDATA,C,1,1,470,508,592,634,676,719
MP,DENS,1,7890
MP,EX,1,1.80e11
MP,ALPX,1,15e-6
MP,PRXY,1,0.288
!!!!!!!!!!!!!!!!!!!***************建模
BLOCK,-60,60,-60,60,0,10
BLOCK,-30,30,-30,30,0,10
vSBv,1,2, ,DELETE,KEEP
allsel
!!!!!!!!!!!!!!!!!!!***************网格划分SWEEP
FLST,5,2,6,ORDE,2
FITEM,5,2
FITEM,5,-3
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!!!!!!!!!!!!!!!!!!!***************算法设置
/SOLU
ANTYPE,4
NROPT,FULL
OUTRES,ALL,1
!tunif,50
tref,20
kbc,1
LUMPM,0
!!!!!!!!!!!!!!!!!!!***************积分精度设置
TSRES,ERASE
TIMINT,1
TINTP,0.005, , ,-1,0.5,-1,
TIM=0
!!!!!!!!!!!!!!!!!!!***************时间和步长设置
TIME,50
AUTOTS,1
NSUBST,10
!!!!!!!!!!!!!!!!!!!***************加载面位置的选择
ALLSEL,ALL
ASEL,S,LOC,X,-30,30
ASEL,R,LOC,Y,-30,30
ASEL,R,LOC,Z,10
!!!!!!!!!!!!!!!!!!!***************具体加载面位置的选择
FLST,2,1,5,ORDE,1
FITEM,2,8
!!!!!!!!!!!!!!!!!!!***************热流设置加热计算
/GO
!*
/STATUS,SOLU
SFA,P51X,1,HFLUX,1E8
SOLVE
!!!!!!!!!!!!!!!!!!!***************冷却计算
/STATUS,SOLU
ddelet,all,temp
outres,all,LAST
TIME,100
DELTIM,10
AUTOS,1
SOLVE
页:
[1]