我在一个模型上施加一个随机热源,理论上温度场应该是左右对称的(圆形分布),但是由于靠近边界,导致不对称了,需要怎样设置边界条件呀?
我只加了载荷,其他的面都没有设置。
命令流如下:
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,1
/GO
/COM, Thermal
/PREP7
ET,1,SOLID70
ET,2,SURF152
KEYOPT,2,4,1
KEYOPT,2,8,1
/units,si
TOFFST,273
MP,KXX,1,15
MP,DENS,1,7930
MP,C,1,510
MPTEMP,1,0,1400,1445,2849 !突变太大不容易收敛
MPDATA,ENTH,1,,0,5.75906e9,7.92e9,1.3675e10
*set,rj,200e-6
*set,u,20
*set,id,0.5
*set,td,30
*set,t_sub1,1 !脉宽间子步长度、微秒
*set,tran_r,1 !脉宽步长
*set,F,0.4 !极间能量分配系数
*set,t_off,970e-6 !脉冲间隙
*set,t_sub2,10 !脉冲间隙子步长度
*set,t_fre,1 !脉冲周期次数
cylind,rj,,0,-2*rj,-90,90
wprota,,90
vsbw,all
wprota,,-90
/pnum,line,1
lplot
mshape,0,3d !指定划分单元的形状
mshkey,1 !指定映射网格划分
lsel,s,loc,z,0
lesize,all,,,30
lsel,s,length,,2*rj
lesize,all,,,40
vmesh,all
asel,s,,,8
asel,a,,,12
nsla,s,1
/VIEW,1,1,2,3
eplot
! /ANG,1
! /REP,FAST
TYPE, 2
MAT, 1
REAL,
ESYS, 0
SECNUM,
esurf,all
alls
FINISH
/SOLU
ANTYPE,4
ALLSEL,ALL
nsel,s,,,all
IC,all,TEMP,25, !环境温度25度
TIME,1e-7 !设置时间
AUTOTS,1
KBC,1
TIMINT,0
DELTIM,0.1e-6, , ,1
OUTRES,ALL,ALL,
ALLSEL,ALL
SOLVE
*do,m,1,t_fre,1 !每步计算循环注意
*set,rand_z,rand(-2*rj,0) !设置随机数
*do,n,tran_r,td,tran_r
esel,s,type,,2
*get,nemax_2,elem,,num,max !获取单元最大序号
*get,nemin_2,elem,,num,min !获取单元最小序号
*do,i,nemin_2,nemax_2,1 !每一个单元循环 i为运算时单元号
*if,esel(i),eq,1,then !如果单元被选择则执行 获取中心点坐标
*SET,xsy,centrx(i)
*SET,ysy,centry(i)
*SET,zsy,centrz(i)
*SET,rr,abs(sqrt((xsy/1)*(xsy/1)+(zsy-rand_z)*(zsy-rand_z)))
*set,rt,14.823*n**0.2648*id**0.3733*1e-6
*if,ysy,gt,0,then
*if,rr,le,rt,then
*SET,qr,4.55*F*u*id/3.1415926/rt/rt*exp(-4.5*rr*rr/rt/rt)
sfe,i,1,hflux,,qr !在i单元表面施加面载荷
*endif
*endif
*endif
*enddo
alls
TIME,(m-1)*(t_off+td*1e-6)+n*1e-6 !设置时间
AUTOTS,1
DELTIM,T_sub1*1e-6, , ,1
KBC,1
TSRES,ERASE
TIMINT,1
TINTP,0.005, , ,1,0.5,0.2,
!*IF,N,LT,td,THEN
!OUTRES,all,NONE,
!*ELSEIF,N,EQ,td
OUTRES,BASIC,ALL
!*ENDIF
ALLSEL,ALL
LNSRCH,1
ALLSEL,ALL
SOLVE !脉冲结束t=td
*ENDDO
esel,s,type,,2
sfedele,all,all,hflux
!sfa,3,1,conv,10,25
TIME,m*(t_off+td*1e-6)
AUTOTS,1
DELTIM,t_sub2*1e-6, , ,1
KBC,1
TSRES,ERASE
TIMINT,1
TINTP,0.005, , ,1,0.5,0.2,
OUTRES,BASIC,all,
ALLSEL,ALL
LNSRCH,1
ALLSEL,ALL
SOLVE
*enddo
QQ图片20180522130254.jpg |