!Zylinder für Sohil

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

rad=1
hoch=0.2

/prep7
rectng,0,rad,0,hoch
et,1,mesh200,6 !Vernetzungshilfe
lsel,s,loc,x,rad/2
lesize,all,,,10 !10 axial
lsel,s,loc,y,hoch/2
lesize,all,,,2 !2 in der Höhe
amesh,1
et,2,mesh200,10 !Volumenelement
type,2
esize,,32  !32*4 im Umfang
vrotat,1,,,,,,kp(0,0,0),kp(0,hoch,0),
eplot