!aus dem Forum von Deffensor
!Schätzing, 10.5.2016

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

! Eingabegrößen
L=200         ! Probenlänge  [mm]                
B=25                    ! Probenbreite  [mm]
D2=4                    ! Probendicke  [mm]

! Normbedingt konstant
AK=12.5                ! Abstand der Kerben [mm]          
LK=2                    ! Länge der Kerben [mm]
KF=0.45                ! Faktor der Kerbe [-]              ! zwischen 0.45 ... 0.48 
pi=4*atan(1)            ! Pi

! Resultierende Größen
D1=KF*D2                ! Probendicke - Kerbtiefe [mm]      
LangX=0.5*L+0.5*AK      ! Lange Seite X [mm]
KurzX=0.5*L-0.5*AK-LK  ! Kurze Seite X [mm]


! Kerbwinkel
Alpha=0                ! Kerbwinkel [°]
BM=((Alpha*pi)/(180))  ! Winkel im Bogenmaß

! Elementgrößen
elementgroesse1=2.0    !Elemtgröße Grob -> Außen            
elementgroesse2=1.0    !Elemtgröße Fein -> Kerbe
elementgroesse3=0.25    !Elemtgröße Geometrie 3 -> Kohäsivelemente

eg1=2
eg2=1
eg3=0.25

! Elementanzahl
elementanzahl1=25      ! Elementanzahl 1 -> Grob - Außen
elementanzahl2=50      ! Elementanzahl 2 -> Fein - Kerbe
elementanzahl3=20      ! Elementanzahl 3 -> Kohäsivelemente


/prep7  ! Starten Preprocess


!-----------------------------------------
C*** Zuweisungen für Konvertierung
!-----------------------------------------

! Für Deckschichten - Real Constant = 50

!  TYPE,1 ! Auswahl des 1. Elementtyps
!  SECNUM,1 ! Auswahl der 1. Section
!  MAT,1 ! Auswahl des 1. Materials
  
! Für Kohäsivelemente - Real Constant = 100

!  TYPE,2 ! Auswahl des 2. Elementtyps
!  SECNUM,2 ! Auswahl der 2. Section
!  MAT,2 ! Auswahl des 2. Materials


! Elementzuweisung

et,1,solid186                ! Elementtypauswahl
et,2,solid186   !muss konkretisiert werden
mp,dens,1,1     !muss konkretisiert werden
mp,dens,2,1     !muss konkretisiert werden

!-----------------------------------------
C*** Geometrie 1
!-----------------------------------------
block,0,kurzx,0,b,0,d2  
block,kurzx,langx,0,b,0,d1

!-----------------------------------------
C*** Geometrie 2
!-----------------------------------------
block,langx+lk,l,0,b,0,d2
block,kurzx+lk,langx+lk,0,b,d2-d1,d2
  
!-----------------------------------------
C*** Geometrie 3 (Klebverbindung)
!--------------------------------------------
block,kurzx+lk,langx,0,b,d1,d2-d1

  
!----Volumen verkleben----
vglue,all
numcmp,volu
!V1:Kleber  V2,4:außen 

!-----Vernetzen-----
esize,eg3
type,2
mat,2
vmesh,1

/eof
!-------V2----------
lsel,s,loc,x,kurzx/2
lsel,r,loc,y,0
lesize,all,,,12,1/6
lsel,s,loc,x,kurzx/2
lsel,r,loc,y,b
lesize,all,,,12,6
esize,eg1
type,1
mat,1
vsweep,2

!-------V4----------
lsel,s,loc,x,(langx+lk+l)/2
lsel,r,loc,y,0
lesize,all,,,12,6
lsel,s,loc,x,(langx+lk+l)/2
lsel,r,loc,y,b
lesize,all,,,12,1/6
esize,eg1
type,1
mat,1
vsweep,4

!------V3,5--------------
esize,eg2
mshape,1
mshkey,0
vmesh,3
vmesh,5