FINISH
/CLEAR,start
*abbr,streiber,/input,streiber,txt

/PREP7
!-------Geometriegenerierung-----------
!*ask,RADIUS,Groesse des Radius in Mikrometer angeben,0.1E-6
radius=10e-6
!K,1,0,0,0
rx=1e-3
rx=0.1e-3
!K,2,rx,0,0
!K,3,rx,RADIUS*2,0
!K,4,0,RADIUS*2,0
!A,1,2,3,4
!rectng,0,rx,0,radius*2
ax=25e-3
ax=25e-5
ay=40e-6
ay2=55e-6


RECTNG,-rx,0,-radius,-ay-radius,0,0 !untere Peelschicht
RECTNG,0,ax-rx,-radius,-ay-radius,0,0 !untere Peelschicht

RECTNG,-rx,0,-ay-radius,-ay2-radius,0,0 !untere Trägerschicht
RECTNG,0,ax-rx,-ay-radius,-ay2-radius,0,0 !untere Trägerschicht

RECTNG,-rx,0,RADIUS,RADIUS+ay,0,0 !obere Peelschicht 
RECTNG,0,ax-rx,RADIUS,RADIUS+ay,0,0 !obere Peelschicht 

RECTNG,-rx,0,RADIUS+ay,RADIUS+ay2,0,0 !obere Trägerschicht
RECTNG,0,ax-rx,RADIUS+ay,RADIUS+ay2,0,0 !obere Trägerschicht

rectng,0,-rx,0,radius
rectng,0,-rx,0,-radius
!CYL4,0,0,RADIUS,-90,RADIUS, 0,0
!CYL4,0,0,RADIUS,  0,RADIUS,90,0
pcirc,0,radius,0,90
pcirc,0,radius,0,-90


faktor=100000 !Addition A-Fläche und CYL4
arscale,all,,,faktor,faktor,faktor,,,1
!AADD,1,6
AGLUE,all 
arscale,all,,,1/faktor,1/faktor,1/faktor,,,1
numcmp,area

!A5,11: untere Trägerschicht
!A1,6: untere Peelschicht
!A7,8: Rechtecke
!A3,4: Rundung 
!A2,9: obere Peelschicht
!A10,12: obere Trägerschicht

!------------------------------------
ET,1,PLANE42
ET,2,PLANE42 !evtl. anderes Element

TYPE,2 !mesh attributes for RISSFLAECHE
!esize,radius/4
amesh,7,8
amesh,3,4


TYPE,2 !mesh attributes for PELLSCHICHT
mshkey,1
amesh,2,9,7
amesh,1,6,5

TYPE,1
MSHKEY,1 !mesh attributes for TRAEGERSCHICHT, unten & oben
amesh,5,11,6
amesh,10,12,2