/filnam, Pirani_Luft
/title, PIRANI, instationäre Temperatur

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


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

/com Geometrie erstellen

local,11,1,0,0
!lokales Koordinatensystem ("11") im Ursprung (0,0) - Zylinderkoordinaten (1)
 
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
!Keypoin 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 "2" 

al,all
!bildet eine Fläche aus den Umgrenzungslinien

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

esize,,14
!alle Elemente erhalten 14 Segmente.

amesh,1
!Fläche "1" 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

fini
!Ende des Geometrie- und Belastungsteils 


/com Berechnungsteil
/solu