!Abkühlung Kanüle
!an ruhender Luft
!Schätzing  8.1.2010

finish
/clear
*abbr,kanuele,/input,kanuele,txt

radau=0.5e-3  !Radius außen
radin=0.2 e-3 !Radius innen
lang=45e-3    !Länge
t_umg=20      !Umgebungs-Temperatur
t_anf=120     !Anfangs-Temperatur

/prep7 

et,1,plane55,,,1   !rotationssymmetrisch 
mp,kxx,1,52
mp,c,1,420
mp,dens,1,7800

!---Geometrie------
rectng,radin,radau,0,lang

!---Vernetzung------
esize,(radau-radin)/3
amesh,all

!----Lasten-----
ic,all,temp,t_anf

!---Randbedingung------
!---Konvektion------
nsel,s,loc,x,radau
nsel,a,loc,y,0
nsel,a,loc,y,lang
alpha=10  !Wärmeübergangszahl
sf,all,conv,alpha,t_umg

allsel
!-----Lösung------
/solu
antype,trans    !transiente Rechnung
outres,all,all  !alle Ergebnisse rausgeschrieben
time,1e-12  !ANSYS kennt keine Zeit 0
solve
nsubst,10,10,10  !Zwischenschritte
endzeit=180    !3 Minuten
time,endzeit
solve

/post1 
plnsol,temp
/wait,1

!----Auswertung mit Zeitprozessor---
/post26
nsol,2,node(radau,lang,0),temp,,Aussen
nsol,3,node(radin,lang/2,0),temp,,Mitte
plvar,2,3