!
!Solution
!-------------------------------------------------------------------------------
/SOLU 																			!Solution starten  
!
NSEL,S,LOC,X,0,(l_g-l_k)/2														
D,ALL, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,											!Einspannung links - Verschiebung in y-Richtung zugelassen
D,ALL, ,-0.2, , , ,UY, , , , ,													!Krafteinleitung weggesteuert
ALLSEL
!
NSEL,S,LOC,X,(l_g-l_k)/2+l_k,l_g												
D,ALL, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,											!Einspannung rechts - Verschiebung in y-Richtung zugelassen
D,ALL, ,0.2, , , ,UY, , , , ,													!Krafteinleitung weggesteuert
ALLSEL
!
NSUBST,10,20,5  
OUTRES,ERASE
OUTRES,ALL,ALL  
RESCONTRL,DEFINE,ALL,ALL,1														!fuer Restart wichtig - letzter Substep wird rausgeschrieben
!
SAVE, Shear,db,
!
TIME,1
solve
!
NSEL,S,LOC,X,0,(l_g-l_k)/2														
D,ALL, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,											!Einspannung links - Verschiebung in y-Richtung zugelassen
D,ALL, ,-0.2, , , ,UY, , , , ,													!Krafteinleitung weggesteuert
ALLSEL
!
NSEL,S,LOC,X,(l_g-l_k)/2+l_k,l_g												
D,ALL, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,											!Einspannung rechts - Verschiebung in y-Richtung zugelassen
D,ALL, ,0.2, , , ,UY, , , , ,													!Krafteinleitung weggesteuert
ALLSEL
!
NSUBST,10,20,5  
OUTRES,ERASE
OUTRES,ALL,ALL  
RESCONTRL,DEFINE,ALL,ALL,1	
MPCHG,2,all,																	!alle Elemente degradieren mit Hilfe eines neu definierten Materials
!
TIME,2
solve
!
FINISH