!Wasserspalt aus Buch
!bearbeitet Schätzing 20.12.2010

finish  $/clear
*abbr,wasserspalt,/input, wasserspalt,txt



/prep7
et,1,plane55
mp,kxx,1,0.6
mptemp,1,-10,-1,0,10
mpdata,enth,1,1,0,38e6,374e6,416e6


mpplot,enth,1

!/eof

abm=0.01
rectng,0,abm,0,0.001
lesize,1,,,50
lesize,2,,,1
eshape,2
amesh,1

tunif,2
nsel,s,loc,x,0
d,all,temp,-5

!------------------------
allsel
/solu
antype,trans
time,8000
autots,on
deltime,.1,.01,50
outres,all,all
kbc,1
solve

!----------------------
/post1
set,last
set,prev
plns,temp

/eof

!---------------------------
/post26
nsol,2,node(abm/50*10,0,0),temp
nsol,3,node(abm/50*20,0,0),temp
nsol,4,node(abm/50*30,0,0),temp
nsol,5,node(abm/50*40,0,0),temp
nsol,6,node(abm/50*50,0,0),temp


plvar,2,3,4,5,6