/solu
ANTYPE,STATIC
solcontrol,on
nlgeom,on
nsubst,20,20,20
OUTRES,ERASE
OUTRES,ALL,ALL  
RESCONTROL,DEFINE,ALL,ALL,1
autots,on
pstres,on

cmsel,s,KNOTEN !Wird in einem vorherigen Makro definiert
d,all,uz,6
allsel

save,Shear,db,
solve

antype,static,rest
solcontrol,on
nlgeom,on 

NSUBST,20		
NEQIT,1000	
AUTOTS,ON		
LNSRCH,ON
NSUBST,20,20,20  
OUTRES,ERASE
OUTRES,ALL,ALL  
RESCONTROL,DEFINE,ALL,ALL,1	
MPCHG,2,all,												

cmsel,s,KNOTEN !Wird in einem vorherigen Makro definiert
*get,ANZAHL,node,0,count
f,all,fz,2000/ANZAHL
allsel
solve

save
finish