!Vernetzung einer Fläche aus
!Kreisbögen
!mit Vierecken
!Beispiel für die mehrfache Nutzung 
!des Makro:  vierecknetz
!das Makro muss verfügbar sein


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

/prep7

!---Generierung Testfläche----
pi=4*atan(1)
rad1=100e-3  !Radius1 äußerer Radius
teiler=32    !Randteiler
teiler=128

dick1=pi*rad1/2/teiler*0.9  !Schichtdicke
dick2=2*dick1
dick3=dick2
rad2=rad1-dick1
rad3=rad2-dick2
rad4=rad3-dick3
dick4=2*dick3
dick5=dick4
rad5=rad4-dick4
rad6=rad5-dick5

!---------------------
pcirc,rad2,rad1,0,90
pcirc,rad3,rad2,0,90
pcirc,rad4,rad3,0,90
pcirc,rad5,rad4,0,90
pcirc,rad6,rad5,0,90

aglue,all
numcmp,area
!A1:Schicht1 A2:Schicht2  A3:Schicht3
!A4:Schicht4 A5:Schicht5
!/eof

!----Vernetzung------
lsel,all
lesize,all,,,1
lesize,1,,,teiler
lesize,3,,,teiler
lesize,7,,,teiler/2
lesize,11,,,teiler/2
lesize,15,,,teiler/4
lesize,19,,,teiler/4

et,1,mesh200,6
amesh,1,5,2

!---Vernetzung der Flächen 2 und 4
vierecknetz,2
vierecknetz,4


allsel

!/color,outl,blac
eplot