/prep7
!GEOMETRIEERSTELLUNG
rect,5e-2,,,-5e-2
et,1,55
lesize,1,,,50
lesize,2,,,50,.2
lesize,3,,,50,.2
lesize,4,,,50,5
!amap,1,1,2,3,4
mshkey,1
amesh,all
et,2,70
mp,kxx,2,32
mp,dens,2,7.85e-9
mp,c,2,500e6
type,2
mat,2
esize,0,9
!vext,1,,,0,0,2e-2
vrotat,1,,,,,,4,1,360
aclear,all
!lokales Koordinatensystem ("11") im Ursprung (0,0,0) - Zylinderkoordinaten (1)
!local,11,1,,,,3
!csys,11
k,2000
k,2001,1
k,2002,1,,1
cskp,12,1,2000,2001,2002
csys,12
nrotate,all
/solu
!ERSTELLEN EINES STEPS
antype,trans
tunif,293
nsel,s,loc,x,5e-2
nsel,a,loc,y,-5e-2
d,all,temp,293
nsel,all
nsel,s,loc,x,0,1e-2
nsel,r,loc,z,0
esln
outres,all,all
time,3e-7
nsub,20
kbc,0
bfe,all,hgen,,1e12
nsel,all
esel,all
outres,all,all
SOLVE
/POST1
PLNS,TEMP