fini
/clear
/FILNAME,TEST
*abbr,mgebhardt2,/input,mgebhardt_2,txt

/PREP7

!Materialkennwerte
MP,EX,1,1000
MP,PRXY,1,0.3
MP,DENS,1,7.8e-9
TB,BISO,1,1
TBDATA,1,10,10


!Geometrie
BLOCK,0,1,0,1,0,1
ESIZE,0.5
ET,1,SOLID45
! leerer Elementtyp als Alternative zum löschen
ET,2,MESH200,10
! vernetzen
TYPE,1
VMESH,ALL
MODMSH,DETACH 
!Detach ist notwendig, wenn einzelne Elemente gelöscht werden sollen

!/eof


/SOLU
! RB aufbringen
NSEL,S,LOC,X,0
D,ALL,UX,0
NSEL,S,LOC,Y,0
D,ALL,UY,0
NSEL,S,LOC,Z,0
D,ALL,UZ,0
ALLS
!solver Einstellungen
SOLCONTROL,ON
OUTRES,ALL,ALL
CUTCONTROL,PLSLIMIT,100
ANTYPE,TRANS,NEW
NROPT,FULL,,OFF
NLGEOM,ON
PRED,OFF
LNSRCH,ON
ESTIF,1E-6
KBC,0
NSUBST,20,100,1
TUNIF,20

! Zeit eingeben und lösen
!TIME,1
!SOLVE
!/post1
!plns,eppl,eqv

/PREP7
! erstes Element auswählen
n1=NODE(1,1,1)
NSEL,S,,,n1
ESLN,S
! löschen
EDELE,ALL
ALLS


!/SOLU
!NSEL,S,LOC,X,1
!D,ALL,UX,0.1
!ALLS
!TIME,2
! lösen
!SOLVE
!/post1
!plns,eppl,eqv
!/wait,1

/PREP7
! zweites Element löschen
ALLS
n2=NODE(0,0,1)
nsel,s,,,n2
ESLN,S
EDELE,ALL
ALLS


/SOLU
! RB aufbringen
NSEL,S,LOC,X,1
D,ALL,UX,0.2
ALLS
TIME,3
! lösen
solve

fini
/POST1
! plastische Dehnungen darstellen
plnsol,eppl,eqv