/PREP7

ET,1,SOLID185
R,1

MP,DENS,1,2100 
MP,EX,1,7.3e6 
MP,NUXY,1,0.31 
!Drucker-Prager 
!TB,DP,1
!TBDATA,,1e3,31.5,0 
!Kohäsion = 1000 N/m² 
!Reibungswinkel = 31.5 gemittelt 
!Dilatanzwinkel ist vernachlässigbar klein.  

/VIEW,1,1,2,3   
/ANG,1  
/REP,FAST

K,1,0,0,0
K,2,1,0,0
K,3,1,1,0
K,4,0,1,0

K,11,0,0,2
K,12,1,0,2
K,13,1,1,2
K,14,0,1,2

V,1,2,3,4,11,12,13,14

MAT,1
R,1
ESIZE,0.5
VMESH,ALL

NSEL,S,LOC,Y,0
D,ALL,ALL,0

NSEL,S,LOC,Y,1
!F,ALL,FY,-1
!D,ALL,UZ,0.2
D,ALL,UZ,0.4
D,ALL,UY,0
D,ALL,UX,0

!NSEL,S,LOC,Y,0
!D,ALL,UY,0

ALLSEL

FINI

/SOLU

ANTYPE,0 
NLGEOM,ON 
AUTOTS,ON 
NSUBST,20
OUTRES,ALL,ALL
!LNSRCH,ON 
!NEQIT,500 

SOLV

/POST1

ALLSEL
PLNSOL,U,SUM

/SHOW,png
PNGR,comp,on
PNGR,ORIENT,HORIZ
PNGR,COLOR,2
PNGR,TMOD,1
/GFILE,800
/rgb,index,100,100,100,0
/rgb,index,0,0,0,15
PLNSOL,S,EQV
PLNSOL,S,Z
PLNSOL,EPPL,INT
PLNSOL,EPPL,1
PLNSOL,EPPL,2
PLNSOL,EPPL,3
PLNSOL,EPPL,EQV
PLNSOL,EPCR,EQV
PLESOL,NL,SEPL,2
PLESOL,NL,EPEQ,2
PLESOL,NL,SRAT,2
PLNSOL,U,SUM,2
PLCRACK,0,0,2
/SHOW,CLOSE