!----------Abkühlen_Block_3-D----------
!-----TEIL1-----Geometrie-Konstanten-Variablen-Vorgabe des Wärmeeintrages-----
keyw,pr_sgui,1		!Schlüsselwort, genannt pr_sgui, ist 1 (true) (0 wäre false)
fini			!(finish) Verlässt den aktuellen Prozessor
/cle			!(/clear) reinigt Datenbank und liest für Neustart start81.ans
/FILNAME,D:/Ansys/Projekte_Fuchs/Abkühlen_Block1,0	!Speicherort und Name

!-----Konstanten

!-----Werte des Blocks
BH=20e-3		!y Werte in m eingegeben Blockhöhe
BB=30e-3		!x Blockbreite
BT=20e-3		!z Blocktiefe


!-----Umgebungsrechteck (Luftraumvolumen)
umx= BB*3
umy= BH*3
umz= BT*3

!-----Temperaturen
Blocktemp=500		!Ausgangstemperatur des Blocks
alpha=10		!Wärmeübergangskoeffizient

/prep7			!Start Preprozessor

!-----Elementtypen
et,1,solid90,1      	       	!Tetraederellement Temperatur
et,2,solid90,1			!Tetraederellement Temperatur


!---------Materialeigenschaften-------------
!-----Material 1 = Luft
mp,murx,1,1			!relative Permeabilität (Luft)
mp,rsvx,1,10e8			!Widerstand der Luft ist hoch (idealer Isolator)
mp,kxx,1,0.026			!Wärmeleitwert Luft [Bohr93, S.667]
mp,c,1,0.3			!Wärmekap der Luft (Mittelwert, später genauer zu spezifizieren)
mp,dens,1,1			!Dichte der Luft, p=const (isobar), Mittelwert, später genauer spez.


!-----Material 2 = Block (Aluminium)
mp,murx,2,3000
mp,rsvx,2,3.77			!elektrische Leitfähigkeit Aluminium
mp,kxx,2,235			!Wärmeleitwert Aluminium
mp,c,2,897			!Wärmekapazität Aluminium
mp,dens,2,2700			!Dichte von Aluminium


!-----Aufbau der Geometrie aus den oben aufgeführten Bausteinen
/prep7
/view,,1,2,3			!Blickwinkel für die Darstellung

!-----Bau des Alublocks
block,-BB/2,BB/2,-BH/2,BH/2,-BT/2,BT/2			!Quaderform (Geometrie wird um Ursprungspunkt angelegt)


!-----Bau des Umgebungsvolumens
bloc,-umx/2,umx/2,-umy/2,umy/2,-umz/2,umz/2		!Erstellt die Umgebung

!Nun, da alle Volumina erstellt wurden, werden vom Programm aus alle fortlaufenden Nummerierungen für Volumen, Flächen und Linien erneuert
vovlap,all
numcmp,area			!Flächenbezeichnungen erneuern
numcmp,line			!Linienbezeichnung erneuern
numcmp,volu			!Volumenbezeichnung erneuern
save				!Zwischenspeichern

!-----Vermaschung der Geometrie
!-----Vermaschung des Blocks
esize,0.01 		!Größe der Elemente
mshape,1,3D
type,1  $mat,2		!wähle mat 2 (Aluminium)
vmesh,1			!automatische Vermaschung des Volumens 1 (Tetraeder)


!---Vermaschung der Luft
esize,0.1		!Größe der Elemente
mshape,1,3D
type,1  $mat,1		!wähle mat 1 (Luft)
vmesh,2			!automatische Vermaschung des Volumens 2 (Tetraeder)


save			!Zwischenspeichern


!-----Startbedingungen---Wärmeeintrag (Vorgabe der Temperatur)

!-----Block-----
vsel,s,volu,,1			!Blockvolumen
nslv,s,1			!alle Knoten wählen
ic,all,temp,Blocktemp 		!Ausgangstemperatur 

!-----Umgebung-----
vsel,s,volu,,2			!Umgebungsvolumen
nslv,s,2			!Knoten wählen
ic,all,temp,20			!Ausgangstemperatur 20°C 		
allsel


save				!Zwischenspeichern




/POST1 
/type,,5			!Darstellung als Schnitt
/cplane,1,2			!mit Schnittebene „Workingplane“
esel,s,mat,,1			
/contour,,all,20,30,500
plns,temp