/filnam, Pirani_Luft
/title, PIRANI

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


/com Materialdaten

mp,kxx,1,25e-6
!Wärmeleitfaehigkeit von Luft (20°C und 1bar)
!"lambda" = 25e-6[W/(mm*K)] (
mp,dens,1,1.19e-9
!Dichte von Luft (20°C und 1bar)
!"rho" = 1.19e-9[kg/mm³] 
mp,c,1,1005
!spezifische Waermekapazitaet von Luft (20°C und 1bar)
!"c" = 1005[J/(kg*K)] 
 
mp,kxx,2,220e-3
!Waermeleitfaehigkeit der Metallroehre (Aluminium)
!"lambda" = 220e-3 [W(/mm*K)] (20°C und 1bar)
mp,dens,2,7.8e-9
!Dichte der Metallroehre (Aluminium)
!"rho" = 2700e-9 [kg/mm³] (20°C und 1bar)            
mp,c,2,945
!spezifische Waermekapazitaet der Metallroehre (Aluminium)
!"c" = 945 [J/(kg*K)] (20°C und 1bar)
!mp,hf,2,4e-6
!Konvektion fuer die Aluminiumschicht
!Wert ist von Ihnen einfach übernommen


/com Geometrie erstellen

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

/com "Luftschicht" 
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 Flaeche aus den Umgrenzungslinien

/com Querschnitt Metallroehre
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 Flaeche der Messroehre

nummrg,all

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

esize,,16
!alle Elemente erhalten 16 Segmente

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

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")


/com Konvektion Roehre nach außen
lsel,s,,,4
!Umfangslinie 4 wird selektiert 
nsll,s,1
!Aktivierung der zugehörigen Knoten

sf,all,conv,4e-6,20
!"sf"-"Last aufgeben" - hier Konvektion
!"4e-6 [W/(m²*K)]" - Waermeuebergangskoeffizient der Metallroehre
!"20" - als Außentemperatur

allsel


F,18Central,HEAT,0.001
!F,knotennrCentral,HEAT,leistungWatt (ca. 1mW!!)
!an Knoten "18"-Ursprung-Wolframdraht,


allsel

tunif,20 
!(20Grad Celsius) als Start fuer alle Knoten 

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