/prep7
				
Hoehe=0.3			
Breite=0.2
Laenge=2

n,1,0,-0.4,0

et,1,plane55 	 
et,2,surf152
keyopt,2,1,1
keyopt,2,4,1
keyopt,2,5,1
keyopt,2,6,0
keyopt,2,9,1		
keyopt,2,8,2		
				
r,2,1,5.67e-8   	!Defines the element real constants, here: Form factor, Stefan-Boltzmann constant

et,3,solid70	


! Materialdaten Beton
mptemp,,,,,,,,
mptemp,1,293
mptemp,2,373
mptemp,3,473
mptemp,4,573
mptemp,5,673
mptemp,6,773
mptemp,7,873
mptemp,8,973
mptemp,9,1073
mptemp,10,1173
mptemp,11,1273
mptemp,12,1373
mptemp,13,1473
mpdata,kxx,1,,1.95     !Wärmeleitfähigkeit, obere Grenze
mpdata,kxx,1,,1.77
mpdata,kxx,1,,1.55
mpdata,kxx,1,,1.36
mpdata,kxx,1,,1.19
mpdata,kxx,1,,1.04
mpdata,kxx,1,,0.91
mpdata,kxx,1,,0.81
mpdata,kxx,1,,0.72
mpdata,kxx,1,,0.66
mpdata,kxx,1,,0.62
mpdata,kxx,1,,0.60
mpdata,kxx,1,,0.60
mptemp,,,,,,,
mptemp,1,293
mptemp,2,373
mptemp,3,473
mptemp,4,573
mptemp,5,673
mptemp,6,773
mptemp,7,873
mptemp,8,973
mptemp,9,1073
mptemp,10,1173
mptemp,11,1273
mptemp,12,1373
mptemp,13,1473
mpdata,dens,1,,2300.0  !Rohdichte nach EC
mpdata,dens,1,,2300.0
mpdata,dens,1,,2254.0
mpdata,dens,1,,2219.5
mpdata,dens,1,,2185.0
mpdata,dens,1,,2164.9
mpdata,dens,1,,2144.8
mpdata,dens,1,,2124.6
mpdata,dens,1,,2104.5
mpdata,dens,1,,2084.4
mpdata,dens,1,,2064.3
mpdata,dens,1,,2044.1
mpdata,dens,1,,2024.0
mptemp,,,,,,,
mptemp,1,293
mptemp,2,373
mptemp,3,473
mptemp,4,573
mptemp,5,673
mptemp,6,773
mptemp,7,873
mptemp,8,973
mptemp,9,1073
mptemp,10,1173
mptemp,11,1273
mptemp,12,1373
mptemp,13,1473
mpdata,c,1,,901.1	!Spezifische Wärmekapazität
mpdata,c,1,,942.8
mpdata,c,1,,988.8
mpdata,c,1,,1028
mpdata,c,1,,1060.4
mpdata,c,1,,1086
mpdata,c,1,,1104.8
mpdata,c,1,,1116.8
mpdata,c,1,,1122
mpdata,c,1,,1120.4
mpdata,c,1,,1112
mpdata,c,1,,1096.8
mpdata,c,1,,1074.8
mp,emis,1,.70		!Emissionsgrad


!Materialdaten Stahl	
mptemp,,,,,,,,
mptemp,1,293
mptemp,2,373
mptemp,3,473
mptemp,4,573
mptemp,5,673
mptemp,6,773
mptemp,7,873
mptemp,8,973
mptemp,9,1073
mptemp,10,1173
mptemp,11,1273
mptemp,12,1373
mptemp,13,1473
mpdata,kxx,2,,53.3	!Wärmeleitfähigkeit
mpdata,kxx,2,,50.7
mpdata,kxx,2,,47.3
mpdata,kxx,2,,44
mpdata,kxx,2,,40.7
mpdata,kxx,2,,37.4
mpdata,kxx,2,,34
mpdata,kxx,2,,30.7
mpdata,kxx,2,,27.4
mpdata,kxx,2,,27.3
mpdata,kxx,2,,27.3
mpdata,kxx,2,,27.3
mpdata,kxx,2,,27.3
mp,dens,2,7850		!Rohdichte
mptemp,,,,,,,
mptemp,1,293
mptemp,2,373
mptemp,3,473
mptemp,4,573
mptemp,5,673
mptemp,6,773
mptemp,7,873
mptemp,8,923
mptemp,9,973
mptemp,10,1008
mptemp,11,1053
mptemp,12,1073
mptemp,13,1173
mptemp,14,1273
mptemp,15,1373
mptemp,16,1473
mpdata,c,2,,439.8	!Spezifische Wärmekapazität
mpdata,c,2,,487.6
mpdata,c,2,,529.8
mpdata,c,2,,564.7
mpdata,c,2,,605.9
mpdata,c,2,,666.5
mpdata,c,2,,759.9
mpdata,c,2,,813.8
mpdata,c,2,,1008.2
mpdata,c,2,,5000
mpdata,c,2,,908.7
mpdata,c,2,,803.3
mpdata,c,2,,650.4
mpdata,c,2,,650
mpdata,c,2,,650
mpdata,c,2,,650
mp,emis,2,.70		!Emissionsgrad

!Keypoints		
k,1			
k,2,,Hoehe/3		
k,3,Breite,Hoehe/3,
k,4,Breite,,
k,5,,Hoehe
k,6,Breite,Hoehe

a,1,2,3,4


!Bewehrung im Abstand von 5cm vom Rand, Durchmesser 12mm
			
cyl4,0.05,0.05,0.006
cyl4,0.10,0.05,0.006
cyl4,0.15,0.05,0.006

!Abziehen der Kreise vom Rechteck: 

asba,1,all,,keep,keep 	

type,1
mat,1
a,2,5,6,3  

adele,1

type,1
mat,1
smrtsize,4
amesh,6

type,1
mat,2
smrtsize,7
amesh,2,4


type,1
mat,1
smrtsize,1
amesh,5


type,3
mat,1
esize,0,20
asel,s,area,,5,6
vext,all,,,0,0,Laenge

type,3
mat,2
esize,0,20
asel,s,area,,2,4
vext,all,,,0,0,Laenge

alls


aclear,2,6,


! Aussenrand (dreiseitig feuerbeansprucht)
type,2
mat,1
real,2
nsel,s,loc,y
nsel,a,loc,x
nsel,a,loc,x,Breite
cm,aussen,node 	                 	
esurf,1       
alls


!Temperaturfeldberechnung


/solu

antype,trans
outres,all,all	

!Stationär

tunif,293
alpha=25
sf,aussen,conv,alpha,293			
alls
d,1,temp,293							
timint,off
time,1e-6			
solve				

!Transient

sfadele,all

timint,on
time,90*60
sf,aussen,conv,alpha,%ETK%
d,1,temp,%ETK%	
kbc,0				!ramped, linear interpoliert
nsubst,90			
solve