!Temperaturgang einer Fahrbahn
!Schätzing 21.2.05
!die Fahrbahn besteht aus einer Schicht Beton, einer Schicht Unterbau und einer Schicht gewachsenem Boden
!die Oberfläche der Fahrbahn wird in die x-z-Ebene gelegt
!die Tiefe nach unten hin liegt auf den negativen y-Achse
!das Problem ist an sich eindimensional, 
!wird hier im Vorgriff auf Erweiterungen mit einem Volumenelement modelliert
finish  $/clear
*abbr,fahrbahn,/input,fahrbahn_1.txt
!------Parameter--------
!-----y-koordinate----
bedi=120e-3    !Beton-Dicke
undi=300e-3    !Unterbau-Dicke
bodi=500e-3    !Boden-Dicke  gewachsener Boden
!-----x-koordinate-------
breit=10e-3    !Breite des betrachteten Ausschnitts
!-----z-koordinate-------
tief=10e-3      !Tiefe des betrachteten Ausschnitts
!-----------
tumg=20         !Umgebungstemperatur
tkalt=-12
zeitende=60*60*4 !4 Stunden
!------Modellerstellung-----------------
/prep7  
et,1,solid69    !in Vorgriff auf spätere Modellerweiterung
et,2,LINK33
R,2,0.000025
!hier werden jetzt irgendwelche Werte hingeschrieben,
!die präzisiert werden müssen
!-------Beton----------
mp,dens,1,2200  !Dichte
mp,kxx,1,2.1    !Wärmeleitfähigkeit
mp,c,1,900      !spez. Wärmekapazität
!-------Bewehrung----------
mp,dens,2,7800  !Dichte
mp,kxx,2,52     !Wärmeleitfähigkeit
mp,c,2,420      !spez. Wärmekapazität
!-------Unterbau----------
mp,dens,3,1800  !Dichte
mp,kxx,3,2.1    !Wärmeleitfähigkeit
mp,c,3,900      !spez. Wärmekapazität
!-------Boden----------
mp,dens,4,2000  !Dichte
mp,kxx,4,6      !Wärmeleitfähigkeit
mp,c,4,900      !spez. Wärmekapazität
!----Geometrie------
block,0,breit,-0,        -bedi,          0,tief
block,0,breit,-bedi,     -bedi-undi,     0,tief
block,0,breit,-bedi-undi,-bedi-undi-bodi,0,tief
vglue,all  !Zusammen-Kleben
!V1:Beton  V4:Unterbau  V5:Boden
!/eof
!-------Vernetzung-Beton--------
type,1  
mat,1
esize,breit
vmesh,1
!-------Vernetzung-Bewehrung-----
type,2
real,2
mat,2
nsel,s,loc,y,-bedi+breit
EINTF,0.001,,LOW,0,breit
EINTF,0.001,,LOW,0,,,breit
allsel
!-------Vernetzung-Unterbau--------
type,1  
mat,3
esize,breit
vmesh,4
!-------Vernetzung-Boden--------
type,1  
mat,4
esize,breit
vmesh,5
!------Lasten-------------------------
tunif,tumg
nsel,s,loc,y,0   !Knoten an der Oberfläche
d,all,temp,tkalt
!------Lösung-----
allsel
/solution
antype,trans
kbc,1   !keine Rampe
outresr,all,all
schritte=20
deltime,zeitende/schritte
time,zeitende
solve
!---------------------
/post1
/expand,60,rect,full,breit  
plns,temp

/eof

!----Animation---
/cont,,9,tkalt,,tumg
set,first
*do,i,1,schritte
plns,temp
set,next
*enddo