!--Radiales Netz
!Forum   pHidias
!Schätzing, 9.4.2012

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

rad=100e-3    !Radius
hoch=100e-3   !Höhe
teiler=10



/prep7
et,1,mesh200,6   !Vernetzungshilfe
!et,1,mesh200,7

et,2,mesh200,10
!et,2,mesh200,11

!------Geometrie------
rectng,0,rad,0,hoch

!------Vernetzung-----
type,1
esize,,teiler
amesh,1

!---Volumen durch Rotation----
type,2
u_teiler=9     !Umfangsteiler für 90°
esize,,u_teiler
vrotat,1,,,,,,kp(0,0,0),kp(0,hoch,0)
eplot