***************************************************************************

*DO,i,1,10

/solu

!Verschiebung in Z Richtung


PARSAV,Scalar,Displ,txt

antype,static,rest,last,last
autots,on
kbc,0              !Last linear steigern in jedem SubStep 
time,i*t+3         !Zeit fuer Lastschritt
nsubst,20,30,10    !Vorgabe SubstepAnzahl (5 aktuell, 10 maximal, 2 minimal)
neqit,25           !maximale Anzahl gleicher Iterationsschritte 
alls

alls
esel,s,mat,,3
nsle,s,1
ddele,all,all
alls

PARRES,New,Displ,txt

uz1=(i+1)*(-2/11)
alls
esel,s,mat,,3
nsle,s,1
nsel,r,loc,z,-32,-40
nplot
d,all,uz,uz1
alls

nrop,unsymm
solve    

/post1
set,last,last
esel,s,mat,,1
esel,a,mat,,2
esel,r,type,,1
etable,crack,epto,eqv     !totale von Mises Dehnung
alls
finish

/prep7
esel,s,etab,crack,0.0085
emodif,all,mat,10
alls
finish


*ENDDO