/filnam, Pirani_LS1
/title, PIRANI_LS1

/prep7
et,1,plane55

/com Materialdaten
mp,kxx,1,25e-6 $mp,dens,1,1.19e-9 $mp,c,1,1005
mp,kxx,2,220e-3 $mp,dens,2,7.8e-9 $mp,c,2,945

/com Geometrie erstellen
local,11,1,0,0

/com Querschnitt "Luftschicht"
k,1,0,0 $k,2,8,90 $k,3,8,180
l,2,3
csys,0
l,1,2 $l,1,3
al,all

/com Querschnitt "Metallroehre"
csys,11
k,4,10,90 $k,5,10,180
l,4,5
csys,0
l,2,4 $l,3,5
a,3,2,4,5

nummrg,all

mshape,0

esize,,16

lsel,s,,,5,6 
lesize,all,,,4

allsel

mat,1 $amesh,1
mat,2 $amesh,2

allsel

tunif,20 

F,18Central,HEAT,0.001

allsel

fini


/com Berechnungsteil
/solu
antype, trans $autots,on $outres,,all

kbc,1 $deltim,.01 $time,.1

SOLVE

SAVE