!Balkenerwärmung Hammelfleisch
!Aufheizung durch Wärmestrom
!Schätzing, 30.10.2008

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

breit=140e-3  !Breite Balken
hoch=180e-3   !Höhe Balken
lang=20e-3    !Länge Balken  (betrachtete Länge)

wsd=20000  !Wärmestromdichte in W/qm
!-------
/prep7
et,1,solid90
mp,kxx,1,2     !willkürliche werte
mp,dens,1,500
mp,c,1,1700

!------Geometrie----
block,0,breit/2,-hoch/2,hoch/2,0,lang  !Symmetrie in x

!------Vernetzung-----
esize,lang
vmesh,1

!------Randbedingungen-----
tunif,20

allsel
!--------Lösung----
/solu
endzeit=240
schritte=6
antype,trans
kbc,1
outres,all,all
*do,i,0,schritte
time,endzeit/schritte*i+1e-12
!------unten-----
nsel,s,loc,y,-hoch/2
sf,all,hflux,wsd
!-----seite---
nsel,s,loc,x,breit/2
sf,all,hflux,wsd
!------------
allsel
solve
*enddo

!------Auswertung------
/post1
plns,temp