C***
FINISH
/CLEAR

*abbr,zich,/input,zich3,txt

C***Parameter

/PREP7                          ! öffnet den Preprozessor
ET,1,MESH200,6
ET,2,SOLID45                    ! Elementtyp ebene Spannung mit Dicke
MP,EX,1,200000                  ! E-Modul
MP,PRXY,1,0.3                  ! Querkontraktionszahl

C***Parameter
t=-5     !Tiefe
d=3.5    !Durchmesser Haken
!radbo=5  !Radius Bohrung
!eck=10   !Ecke
!lang=100 !Länge Platte
!brei=40  !Breite Platte
!aha=30   !Ansatz des Hakens

mw=2     !Maschenweite, Elementgröße

/pnum,line,1
/pnum,area,1

C***  Geometrie
K,1,0,10,0  !Keypoints für 8-Eck
K,2,10,20,0 
K,3,90,20,0 
K,4,100,10,0
K,5,100,-10,0  
K,6,90,-20,0
K,7,10,-20,0
K,8,0,-10,0 
L,1,2 !Keypoints zu 8-Eck verbinden
L,2,3
L,3,4
L,4,5
L,5,6
L,6,7
L,7,8
L,8,1
AL,ALL !Area erzeugen
CYL4,10,10,5 !4 Bohrungen
CYL4,10,-10,5 
CYL4,90,10,5
CYL4,90,-10,5
CYL4,30,0,d

!/eof

!----Rechtecke für spätere Vernetzung---
rectng,10, 90,-20,20
rectng, 0,100,  0,10
rectng, 0,100,-10, 0
rectng,20, 30,-20,20
rectng,40, 80,-20,20

aovlap,all

!------Bohrungen-----------------------
asel,s,loc,x,6,14
adele,all
asel,s,loc,x,86,94
adele,all
asel,all
!-----Vernetzungseinstellung-------------
type,1
mshape,0,2d
mshkey,1
esize,mw
!-------------
asel,s,loc,x,40,80
asel,all
!-----um-Haken-----
lccat,92,94
lccat,82,103
lccat,90,96
lccat,79,107

!---um-Bohrung-ol-----
lccat,81,98
lccat,103,104
lccat,100,102

!---um-Bohrung-ul-----
lccat,104,107
lccat,102,108
lccat,77,109

!---um-Bohrung-ur-----
lccat,84,119
lccat,97,113
lccat,115,116

!---um-Bohrung-or-----
lccat,114,115
lccat,93,113
lccat,86,110

amesh,all 


/nerr,0,0,,0,0    !Fehlermeldungen abschalten
ldele,all
aplot


!----Extrusion der Platte-----
type,2
teiler=abs(t/mw)
esize,,teiler
vext,all,,,0,0,t, !Fläche extrudieren mit Tiefe t

!Haken 
K,200,30,0,0
K,210,30,0,13
K,230,36,0,24
K,240,30,0,30
K,250,25,0,30
K,260,30,0,24
NUMSTR,LINE,500
L,200,210            !L500
L,250,240            !L501
larc,240,230,260,6   !L502
l2tan,502,-500       !L503


!----------Vernetzung-Haken-----
asel,s,loc,z,0
asel,r,loc,x,26,34

esize,,8

vdrag,all,,,,,,500,503,502,501

eplot