!Durchdringung zweier Zylinder
!Hüllfläche vernetzen
!Schätzing, 5.4.2011

finish  $/clear
*abbr,zweizy,/input,zweizy,inp

rad1=100e-3     !Radius groß
rad2=60e-3      !Radius klein
lang1=140e-3    !lang
lang2=140e-3    !lang


/prep7

!---2D-Modell------------------
et,1,mesh200,6

!-----Geometrie-------
abst=10e-3
cylind,,rad1,-lang1,lang1,0,180
cylind,,rad1,-lang1,lang1,0, 45

cylind,,rad1,-rad2-abst,0,0,180
cylind,,rad1,0,rad2+abst,0,180

local,11,0,0,0,0,,,90
wpcsys,,11
cylind,,rad2,lang2/2,lang2,  0, 90
cylind,,rad2,lang2/2,lang2, 90,180

btol,1e-6
vovlap,all
vdele,all
numcmp,area
aplot

!-------------------------
!A6,22,26,33
!A31,19,43,45
!A12,40

asel,s,,,6
asel,a,,,22
asel,a,,,26
asel,a,,,33

asel,a,,,31
asel,a,,,19

asel,a,,,43
asel,a,,,45

asel,a,,,12
asel,a,,,40

asel,inve
adele,all

asel,all

numcmp,area
!A1,4,5,7,: großer Radius
!A3,6
!A2,8:kleiner Radius
!A9,10: Problemfläche

!-----Vernetzung------
esize,5e-3
!amesh,all  !ohne Vernetzungssteuerung
!aclear,all

mshape,0
mshkey,1
amesh,1       !großer Radius
amesh,3,7

amesh,2,8,6   !kleiner Radius
!---------
!A10
!L85,89
lccat,85,89
amesh,10
!A9
!L59,71
lccat,59,71
amesh,9