/PREP7
!Element
ET,1,SOLID185
ET,2,CONTA173,,1
ET,3,TARGE170

!Materialeigenschaften
El=20		 	
PRXY=0.499
PRYZ=0.0
PRXZ=0.499
MP,Ex,1,El			
MP,Ey,1,El/5			
MP,Ez,1,El/5			
MP,prxy,1,PRXY			
MP,pryz,1,pryz			
MP,prxz,1,prxz			
MP,Gxy,1,El/(2*(1+PRXY))	
MP,Gxz,1,El/(2*(1+prxz))	
MP,Gyz,1,El/(2*(1+pryz))	


rad=15				

!Reals
R,2,rad

!Geometrie
blc4,0,0,100,100,1.8		
esize,10
VMES,ALL
local,11,0,50,50,1.8		
*GET,NMAX,NODE,,NUM,max
Pilot1=Nmax+1
n,pilot1,,,rad

!Target
TYPE,3
REAL,2
TSHAP,SPHE
E,Pilot1,
nsel,s,loc,z,0
TYPE,2
ESURF

ALLS

/SOLU
NLGEOm,ON
SOLCON,ON
NEQIT,50
EQSLV,FRONT
NSUB,50,200
OUTRES,ALL,-5
CSYS


!Vorspannkraft
NSEL,S,loc,x
NSEL,U,loc,y
NSEL,U,loc,y,100
CP,1,UX,all	
f,ALL,fx,-25			
D,ALL,uy,0	
D,ALL,uz,0

NSEL,S,loc,x,100
NSEL,U,loc,y
NSEL,U,loc,y,100
CP,2,UX,all	
f,ALL,fx,25			
D,ALL,uy,0
D,ALL,uz,0

NSEL,S,loc,y
NSEL,U,loc,x
NSEL,U,loc,x,100
CP,3,Uy,all	
f,ALL,fy,-25			
D,ALL,ux,0			
D,ALL,uz,0

NSEL,S,loc,y,100
NSEL,U,loc,x
NSEL,U,loc,x,100
CP,4,Uy,all		
f,ALL,fy,25			
D,ALL,ux,0			
D,ALL,uz,0


!Kugeleindruck
ALLS
D,Pilot1,ALL
D,Pilot1,UZ,-20			
ALLS
SOLVE

/POST1
/EDGE,,1
/VIEW,,3,1,1
ESEL,U,TYPE,,2,3
EPLO
SET,LAST
/DSCA,,1
/GRA,FULL
PLNS,S,EQV