/filnam, Pirani_Luft
/title, PIRANI
!Nur Wärmeleitfähigkeit und ggf. Dichte wird benötigt!

/prep7
et,1,plane55
!Elementtyp "plane55" - Temperaturelement zu "ebener Platte"

!mode,1,1 ("axisymmetrie"-weiß nicht genau wie!?)

/com Materialdaten

mp,kxx,1,25e-3
!Wärmeleitfähigkeit von Luft (20°C und 1bar)
mp,dens,1,1.19e-9
!Dichte von Luft (20°C und 1bar)
mp,c,1,1005
!spezifische Wärmekapazität von Luft (20°C und 1bar)
 
mp,kxx,2,40
!Wärmeleitfähigkeit der Metallröhre (Stahl)
mp,dens,2,7.8e-9
!Dichte der Metallröhre (Stahl)
mp,c,2,500e6
!spezifische Wärmekapazität der Metallröhre (Stahl)


/com Geometrie erstellen

local,11,1,0,0
!lokales Koordinatensystem ("11") im Ursprung (0,0) - Zylinderkoordinaten (1)

/com "Luftvolumen" 
k,1,0,0
!Keypoint Nr."1" im Ursprung des KO-Systems
k,2,8,90
!Keypoint Nr."2" mit "x"=8 und Winkel 90° 
k,3,8,180
!Keypoint Nr."3" mit "x"=8 und Winkel 180°
l,2,3
!Linie von Keypoint "2" nach "3" (Kreisbogen)
csys,0
!Wechsel in das karthesische Koordinatensystem
l,1,2
!Linie von Keypoint "1" nach "2" 
l,1,3
!Linie von Keypoint "1" nach "3" 
al,all
!bildet eine Fläche aus den Umgrenzungslinien

/com Querschnitt Metallröhre
csys,11
k,4,10,90
!Keypoint Nr."4" mit "x"=10 und Winkel 90°
k,5,10,180
!Keypoint Nr."5" mit "x"=10 und Winkel 180°
l,4,5
!Linie von Keypoint "4" nach "5" (Kreisbogen)
csys,0
!Wechsel in das karthesische Koordinatensystem
l,2,4
!Linie von Keypoint "2" nach "4" 
l,3,5
!Linie von Keypoint "3" nach "5" 
a,3,2,4,5
!bildet die Fläche der Messröhre

nummrg,all

mshape,0
!Rechteckelemente ("0") für Vernetzung

esize,,16
!alle Elemente erhalten 16 Segmente

!lsel,s,,,1,3    !überflüssig
!lesize,all,,,16 !überflüssig

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

!lsel,s,,,4      !überflüssig
!lesize,all,,,16 !überflüssig

allsel


mat,1
!Materialwerte Werkstoff "1" - "Luft"
amesh,1
!Fläche "1" wird vernetzt

mat,2
!Materialwerte Werkstoff "2" - "Stahl"
amesh,2
!Fläche "2" wird vernetzt


csys,11
!Wechsel ins lokale Koordinantensystem ("11")

nsel,x,0
!Selektion der Knoten mit "x-Wert"="0" - 
!ein Knoten im Ursprung als Wolframdraht
d,all,temp,110
!Knotenbelastung "d", "all"-alle selektierten Knoten, mit "temp" = "110°C"

nsel,x,8
!Selektion der Knoten mit "x-Wert"="8" - 
!die Knoten bei "8mm" als Innenradius der Messröhre
d,all,temp,20
!Knotenbelastung "d", "all"-alle selektierten Knoten, mit "temp" = "20°C"

allsel
!alle Knoten sind aktiv


/com Konvektion Röhre nach außen
!lsel,s,,,4
!nsll,s,1

lsel,s,,,1
!Linie 1 wird selektiert - gehört sowohl zum Rohr als auch zur Luft
lsel,a,,,4,6
!Linien 4 bis 6 werden selektiert
nsll,s,1
!Aktivierung der zugehörigen Knoten

sf,all,conv,1,20
!"sf"-"Last aufgeben" - hier Konvektion
!"5" - Wärmeleitwert der Metallröhre
!"20" - als Außentemperatur

allsel

fini
!Ende des Geometrie- und Belastungsteils 


/com Berechnungsteil
/solu
antype, trans
!transzendente, zeitabhängige Rechnung
autots,on
!automatische Steuerung der Zeitschritte
outres,,all
!Ausgabe aller Resultate

kbc,1
!schlagartige Belastung
deltim,1
!"Ergebnisse in "sekundenweise"
time,10
!Gesamtzeit 10s
!solcontrol,on