!aus dem Forum von and001
!Schätzing, 14.1.2016

finish   $/clear

*abbr,and001,/input,and001,txt

rad=30e-3
lang=80e-3

/prep7

et,1,mesh200,10

!----Geometrie-----
cyli,,rad,-rad,rad,  0, 90
cyli,,rad,-rad,rad, 90,180
cyli,,rad,-rad,rad,180,270
cyli,,rad,-rad,rad,270,360

cyli,,rad,+rad,lang,  0, 90
cyli,,rad,+rad,lang, 90,180
cyli,,rad,+rad,lang,180,270
cyli,,rad,+rad,lang,270,360

!-----------------------------
local,11,0,,,,,90
wpcsys,,11

cyli,,rad,-rad,rad,  0, 90
cyli,,rad,-rad,rad, 90,180
cyli,,rad,-rad,rad,180,270
cyli,,rad,-rad,rad,270,360

cyli,,rad,+rad,lang,  0, 90
cyli,,rad,+rad,lang, 90,180
cyli,,rad,+rad,lang,180,270
cyli,,rad,+rad,lang,270,360

!----------------------
vovlap,all

!V 17,19,22,23,    20,26,25,28
vdele,17,19,2
vdele,22,23

vdele,25,26
vdele,20,28,8

!------Vernetzung------
vsweep,all
!mshkey,0
mshape,1
vmesh,all

/triad,off