! Beton.inp
FINISH  	! Exits normally from a processor
/FILNAME,,1  	! Changes the Jobname for the analysis
PARSAV  	! Writes parameters to a file
/CLEAR,START  	! Clears the database
PARRES  	! Reads parameters from a file
FINISH


/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	

! Temperature domains
mptemp,,,,,,,,
mptemp,1,293,373,473,573,673,773 
mptemp,7,873,973,1073,1173,1273
mptemp,12,1373,1473

! Materialdaten Beton
!Wärmeleitfähigkeit, obere Grenze
mpdata,kxx,1,1,1.95,1.77,1.55,1.36,1.19,1.04
mpdata,kxx,1,7,0.91,0.81,0.72,0.66,0.62,0.60
mpdata,kxx,1,13,0.60

!Rohdichte nach EC
mpdata,dens,1,1,2300,2300,2254,2219.5,2185,2164.9
mpdata,dens,1,7,2144.8,2124.6,2104.5,2084.4,2064.3,2044.1
mpdata,dens,1,13,2024

!Spezifische Wärmekapazität
mpdata,c,1,1,901.1,942.8,988.8,1028,1060.4,1086
mpdata,c,1,7,1104.8,1116.8,1122,1120.4,1112,1096.8
mpdata,c,1,13,1074.8

!Emissionsgrad
mp,emis,1,.70

!Materialdaten Stahl	
!Wärmeleitfähigkeit
mpdata,kxx,2,1,53.3,50.7,47.3,44,40.7,37.4
mpdata,kxx,2,7,34,30.7,27.4,27.3,27.3,27.3
mpdata,kxx,2,13,27.3

!Rohdichte
mp,dens,2,7850		

! Temperature domains
mptemp,,,,,,,,
mptemp,1,293,373,473,573,673,773 
mptemp,7,873,923,973,1008,1053,1073
mptemp,13,1173,1273,1373,1473

!Spezifische Wärmekapazität
mpdata,c,2,1,439.8,487.6,529.8,564.7,605.9,666.5
mpdata,c,2,7,759.9,813.8,1008.2,5000,908.7,803.3
mpdata,c,2,13,650.4,650,650,650

!Emissionsgrad
mp,emis,2,.70		

!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
asel,s,area,,2,4
cm,stahl,area
alls


!Abziehen der Kreise vom Rechteck: 
asba,1,stahl,,keep,keep

adele,1

a,2,3,6,5

asel,s,area,,1
asel,a,area,,5
cm,beton,area
alls

! Alle Flächen kleben 
!( später ist es auch möglich Kontakt zwischen Beton und Stahl zu definieren, Verwendeung Kontaktelemente!! )
aglue,all

! Vernetzen Stirnfläche
type,1
mat,1
smrtsize,3
amesh,2,4

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

! Extrudieren Stirnfläche
type,3
mat,1
esize,0,50
asel,s,area,,stahl
vext,all,,,0,0,Laenge
alls

type,3
mat,2
esize,0,50
asel,s,area,,beton
vext,all,,,0,0,Laenge
allsel

! Löschen Stirnfläche
asel,s,,,beton
asel,a,,,stahl
aclear,all
alls

nummrg,node

! 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

/uis,msgpop,3

!Temperaturfeldberechnung
/solu

antype,trans,new
outres,all,all	

!Statisch
alpha=25
sf,aussen,conv,alpha,293			
alls
d,1,temp,293

tunif,293
tref,293
nropt,full
tintp,,,,1
lnsrch,on
outres,all,all
						
timint,off
time,1e-6
autots,on
solve				

!Transient
sfadele,all
sf,aussen,conv,alpha,500
d,1,temp,500	

timint,on
time,90*60
kbc,0				!ramped, linear interpoliert
nsubst,90			
solve	

/eof