!Abkühlung durch Strahlung


finish  $/clear
*abbr,strahlung,/input,strahlung,txt

ax=20e-3   !Amessung in x
ay=30e-3   !Amessung in y
az=40e-3   !Amessung in z

/prep7

et,1,solid70
!et,1,solid226,10
et,2,surf152,,,,1,1
keyopt,2,9,1
r,2,1,5.67e-8   
mp,kxx,1,52
mp,c,1,420            
mp,dens,1,7800
mp,emis,2,1
!mp,emis,2,0.7
block,,ax,,ay,,az
esize,,8
vmesh,1                

type,2
real,2
mat,2
an=az*2            !Abmessung für Knoten Nr 1000
*get,n_max,node,,num,max
n,n_max+1,an,an,an    !ein Knoten außerhalb

nsel,s,ext
esln,s,0

esurf,n_max+1             

allsel
!---------Lösung------
/solu
solcontrol,0
antype,trans

!------Anfangsbedingung-----
ic,all,temp,1273
!------Randbedingung------
d,n_max+1,temp,293

autots,on               
kbc,1                   
deltim,.1           
outres,,all
time,20              
solve

!-----Auswertung------
/post26
n_mitte=node(ax/2,ay/2,az/2)
n_ecke=node(0,0,0)
nsol,2,n_mitte,temp,,Mitte 
nsol,3,n_ecke,temp,,Ecke    
plvar,2,3                 

/eof

!--------Auswertung--------
/post1
nsel,s,loc,x,0,ax/2
nsel,r,loc,y,0,ay/2
nsel,r,loc,z,0,az/2
esln,s,1
plns,temp