fini
/cle
/title, MPC
/filename, contact

/prep7
cyl4,0,0,10,,20


mp,ex, 1, 210000	!E-Modul für Material1
mp,nuxy, 1, 0.3	!ny für Material 1



et,1,42			!Plane Stress
ET,3,MPC184 
KEYOPT,3,1,1		!rigid beam



mshkey, 0			!free meshing
ESIZE,2
type,1				!Plane42
amesh,all


n,10000,			
!Randbedingungen
csys,1
nsel,s,loc,x,20
d,all,all


nsel,s,loc,x,10

type,3
*get,nanz,node,,count   	!Anzahl der Knoten

narb=0   	        	!Arbeits-Knoten
*do,i,1,nanz		 	!Schleife mit Nanz durchläufen  

narb=ndnext(narb)        	
e,10000,narb
*enddo


alls

F,10000,MZ,2
gplot

/solu
nlgeom,on
nsub,1,1,1

solve