!Prüfung der Wirkung von ekill
!Schätzing, 20.12.2007
!
finish  $/clear
*abbr,franziskah,/input,franziskah,txt
lang=80e-3   !Länge
hoch=6e-3    !Höhe

/prep7
et,1,plane55
!-----------------------
mp,kxx,1,52           !Wärmeleitfähigkeit
mp,c,1,420            !Wärmekakpazität
mp,dens,1,7800        !Dichte
------Geometrie------------
rectng,0,lang,0,hoch

!----Vernetzung-------
amesh,all
eplot

!-------Lasten-thermisch---------
nsel,s,loc,x,0
d,all,temp,50

!-------------
/solu
allsel
antype,trans
time,60
outres,all,all
nsubst,6
nropt,full,,on
!----Test von ekill------
nsel,s,loc,x,lang*4/8,lang*5/8
esln,s,1
ekill,all
allsel
solve
!------------------
/post1
plnsol,temp