finish
/clear
/prep7		           
! Nummerierung einschalten für:
/pnum,kp,1	! Keypoints
/pnum,line,1	! Linien
/pnum,area,1	! Flächen
/pnum,volu,1	! Volumen
!

ESEL, none
nsel,none

!**************************
! Material
!**************************

et,1,45
mp,ex,1,2.1e5
mp,nuxy,1,0.3


et,3,conta173
et,4,targe170

mp,mu,3,0.2				! Kontaktreibung


!**************************
! Körper
!**************************

TYPE,1
MAT,1
block,-20,50,-20,50,0,10
esiz,10
vmesh,all
eplot


ESEL, none
nsel,none

TYPE,1
MAT,1
real,2
block,0,30,0,30,10,20
esiz,10
vmesh,all
eplot

ESEL, none
nsel,none

TYPE,1
MAT,1
block,0,30,0,30,20,30			!Stempel
esiz,10
vmesh,all
eplot


ESEL, none
nsel,none

TYPE,1
MAT,1
real,2
block,-20,50,-20,50,30,40		!Druckstück
esiz,10
vmesh,all
eplot


allsel
eplot

/PNUM,MAT,1 


!**************************
! Kontaktbedingungen
!**************************

allsel

asel,s,ext,,1 
asel,r,loc,z,10,10		
type,3
real,2
mat,3
nsla,s,1
esln,s,0
eplot
esurf,all

allsel

asel,s,ext,,2 
asel,r,loc,z,10,10		 
type,4
real,2
mat,3
nsla,s,1
esln,s,0
eplot
esurf,all


allsel

asel,s,ext,,3 
asel,r,loc,z,20,20		
type,3
real,2
mat,3
nsla,s,1
esln,s,0
eplot
esurf,all

allsel

asel,s,ext,,4 
asel,r,loc,z,20,20		 
type,4
real,2
mat,3
nsla,s,1
esln,s,0
eplot
esurf,all


allsel

asel,s,ext,,5 
asel,r,loc,z,30,30		
type,3
real,2
mat,3
nsla,s,1
esln,s,0
eplot
esurf,all

allsel

asel,s,ext,,6 
asel,r,loc,z,30,30		 
type,4
real,2
mat,3
nsla,s,1
esln,s,0
eplot
esurf,all



/PNUM,type,1 
esel,s,type,,3
esel,a,type,,4
eplot


allsel			
nsel,s,loc,z,0,10				
D,all,all


allsel			
nsel,s,loc,z,30,40				
D,all,uz,-10
d,all,uy
d,all,ux

allsel

finish

/solut

solcontrol,on,on
nlgeom,on
nropt,full,,off
nsub,20,1000,20
antype,static
outres,basic,all		
autots,on


solve