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

!-------
/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
ic,all,temp,20

allsel
!--------Lösung----

/solu
endzeit=2040
schritte=34
antype,trans
kbc,1

outres,all,all
*do,i,0,schritte
sfdele,all,all

time,endzeit/schritte*i+1e-12
 
n=temp(node(0,-hoch/2,0))

wsd=((25*((20+345*(log10(8*(i)+1)))-n))+(0.00000003969*(((20+345*(log10(8*(i)+1)))+273)**4-(n+273)**4)))

nsel,s,loc,y,-hoch/2
sf,all,hflux,wsd

allsel
solve
*enddo

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