!aus dem forum von thaison
!Schätzing, 1.2.2013

finish  $/clear

*abbr,thaison,/input,thaison,txt

/prep7
et,1,plane55
et,2,surf19,1,,,1,1
keyopt,2,9,1
r,2,1.0,5.67e-8

mp,kxx,1,1.7
mp,dens,1,900
mp,c,1,1500
mp,emis,1,0.40

breite=150e-3
hoehe=250e-3

rect,0,breite/2,0,hoehe/2
esize,10e-3
mshkey,1
mshape,0,2d
mshape,0,3d
amesh,all

type,2
real,2
lsel,s,,,2,3
nsll,s,1
n,490,breite/1.8,hoehe/1.8
esurf,490
alls

/solu
antype,trans
outres,all,all
autots,on
tunif,273
nsel,s,loc,x,breite/2
nsel,a,loc,y,hoehe/2
cm,aussen,node
alpha=250
sf,all,conv,alpha,273
alls
d,490,temp,1273
time,1e-6
outres,all,all
nsubst,12,100,10
time,1000
solve

/post1
nsel,u,,,490
/cont,,9,273,,573
plns,temp

/eof

andata,.5,,2,,,1,,0