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


rad=100e-3   !Radius

/prep7

et,1,13,2,,0 

mp,c,1,466
mp,dens,1,7870
mp,kxx,1,1e-9
mp,kyy,1,1e9

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




type,1  $mat,1 
esize,rad/30
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
ic,all,temp,1000

allsel
!----Lösung----
/solu
antype,trans
time,1
solve

/post1

plns,temp