!aus dem Forum von Spider
!bearbeitet Schätzing, 17.3.2015

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

rad=100e-3   !Radius

/prep7

et,1,13,2,,0 

mp,c,1,466
mp,dens,1,7870
mp,kxx,1,1000
mp,kyy,1,10.0

pcirc,rad,,  0, 90 
pcirc,rad,, 90,180 
pcirc,rad,,180,270 
pcirc,rad,,270,360 
aglu,all

type,1  $mat,1 
esize,rad/10
amesh,all

!----Elementkoordinaten-zylindrisch---
local,11,1,0,0,0
emodif,all,esys,11

!----Lasten----
tunif,20
nsel,s,loc,y,0
nsel,r,loc,x,rad/2
ic,all,temp,1000

allsel
!----Lösung----
/solu
antype,trans
outres,all,all
deltim,0.2
time,1
solve

/post1

plns,temp

antime