!Welle2
!Beispiel zur Vernetzung mit Quadern
!Schätzing, 13.9.2018


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

rad1=4e-3
lang1=48e-3
rad2=6e-3
lang2=36e-3
rad3=12e-3
lang3=12e-3

/prep7
cylind,0,rad1,-lang1/2,lang1/2,  0, 90
cylind,0,rad2,-lang2/2,lang2/2,  0, 90
cylind,0,rad3,-lang3/2,lang3/2,  0, 90

vovlap,all

!----Spiegelung-----
vsym,x,all
vsym,y,all

!----Vernetzung-----
et,1,solid185
esize,2e-3
esize,1e-3
vmesh,all