!aus dem Forum von AtlasHalo
!Schätzing, 3.11.2017
!Wärmestromeintrag

finish  $/clear
*abbr,AtlasHalo,/input,atlashalo,txt

radi=1e-3   !m
rada=4e-3   !m
Zeitende=1e-4
Zeitende=10e-6
lang=10e-3  !m
WSD=1e14    !kg/m3  Wärmestromdichte
WSD=1e13

/prep7
et,1,solid226,10
et,2,mesh200,7	!Hilfselement für Vernetzung

!---Stahl---
mp,dens,1,7800	!
mp,kxx,1,400	!
mp,c,1,52	!

!----Geometrie------
pcirc,0,radi,0,90
pcirc,radi,rada,0,90
aglue,all
numcmp,area
!A1: innen  A2:außen

!---Flächenvernetzung-----
type,2    !Vernetzungshilfe
esize,radi/8
mshape,0
mshkey,1
amesh,1
amesh,2

!----Extrusion-------
type,1     !
mat,1      !Stahl
esize,,1
vext,all,,,0,0,lang
aclear,all    !Hilfselemente löschen

!-----Randbedingung-thermisch----
allsel
ic,all,temp,20

!----Lasten-thermisch------
nsel,all
vsel,s,,,1
eslv
bfe,all,hgen,,WSD


!------Lösung------
allsel   
/solu
antype,trans
kbc,1
outres,all,all
time,1e-12     !Für Zeitpunkt nahe Null
solve
time,zeitende
autots,on
nsubst,20,200,10
solve

!----Lösung---
/post1
/plopts,minm,0
/plopts,info,1
/edge,1,1
plns,temp

!----Zeitverlauf----
/post26
allsel
nsol,2,node(radi,0,0),temp,,Kante
nsol,3,node(radi-1e-4,0,0),temp,,Kante-
nsol,4,node(radi+1e-4,0,0),temp,,Kante+

plvar,2,3,4