!Tonnenwalze
!GuidoMD
!Schätzing, 10.1.2008

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

radau=60e-3
radmi=70e-3
rad1=50e-3
lang=120e-3

!----------------------
/prep7
local,11,0,0,0,0,0,0,90
wpcsys,,11
rectng,-lang/2,lang/2,rad1,radau
adele,1
ldele,3
k,5,0,radmi
bsplin,3,5,4,,,,0,0,0,0,0,0
lplo
al,1,2,3,4
z_teiler=24
wpcsys,,0
csys,0
k,6,0,0,-lang/2
k,7,0,0,+lang/2
et,2,mesh200,11
w_teiler=36
vrot,1,,,,,,6,7,180,w_teiler

csys,1
lsel,s,loc,z,-lang/2
lsel,r,loc,x,(rad1+radau)/2
lesize,all,,,3

csys,1
lsel,s,loc,x,rad1
lsel,r,loc,z,0
lesize,all,,,z_teiler
csys,0
lsel,all
vmesh,all
!/eof

!---------------------------
local,12,0,0,0,-lang/2,90
wpcsys,,12
pcirc,,rad1,0,90   !A182
pcirc,,rad1,90,180 !A183
aglue,182,183      !A182, A184

et,1,mesh200,7
asel,s,,,182,184,2
lsla
csys,1
lsel,r,loc,x,rad1
lesize,all,,,w_teiler
esize,rad1/6
amesh,182,184,2

type,2
esize,,z_teiler
vext,182,184,2,,,lang

aclear,182,184,2

nummrg,node
nummrg,kpoi