! *******************************************
! * Testcase Plastizität der Matrix
! * Extended Drucker Prager Modell
! * Koeffizienten aus Matching
! *******************************************

/TITLE,TESTCASE,SINGLE INCLUSION DEBONDING
/CWD,'C:\ANSYS WORKING DIRECTORY'
/FILNAM,EDP_ohne_Verfestigung,1
/COM,SYMMETRIC MODELL
/UNITS,MPA

FINI
/CLEAR
/PREP7

dicke=2

l_rve_x=25
l_rve_y=25


RECT,0,l_rve_x,0,l_rve_y
LESIZE,ALL,,,10
ET,1,PLANE42
ET,2,SOLID185
R,1
AMESH,ALL

MP,EX,1,3000
MP,PRXY,1,0.38

TB,EDP,1,,,PYFUN
TBDATA,,65,2.2,45

TB,EDP,1,,,PFPOT                      
TBDATA,,65,2.2,45

TB,PLAST,1,,6,MISO

TBPT,DEFI,0.01,25.27
TBPT,DEFI,0.02,48.09
TBPT,DEFI,0.03,64.5
TBPT,DEFI,0.04,74.67
TBPT,DEFI,0.05,79.66
TBPT,DEFI,0.06,81.02  		

! EXTRUDIEREN und 2D Fläche löschen

TYPE,2

EXTOPT,ACLEAR,1
EXTOPT,ESIZE,1
VEXT,1,,,,,dicke


NSEL,S,LOC,X
D,ALL,UX
NSEL,S,LOC,Y
D,ALL,UY
NSEL,S,LOC,X,l_rve_y
D,ALL,UX,-4

ALLSEL,ALL
/SOLU

SOLVE


!AUTOTS,ON
!NLGEOM,ON
!TIME,1
!NSUBST,100,100,100
!NEQIT,100
!OUTRES,ALL,ALL
SOLVE                      ! LÖSEN
FINISH