!===================================
!Erzeugen des Rahmens
!===================================
fini   $   /cle
/title, Referenzplatte - Neukonstruktion  ST/poly stehend optimiert

!-------------Geometriedaten
!MP fuer st
e1=200000000000        !E-Modul
nu1=0.29	!Querdehnung
D1=2700

l1=0.130
r1=0.06
l2=0.2
r2=0.08
p=4500	
!--------------------PREP7----------------------
/prep7	!Preprocessor starten
!---Materialvereinbarung----
mp, ex,1,E1	!E-Modul für Material 1
mp, nuxy,1,nu1	!Querdehnung für Material 1
mp, dens,1,D1
!---Elementvereinbarung---
rectng, , r1, r1, l1
rectng, , r2, -r2, -l2
cskp,11,0,1,2,4
csys,11
WPCSYS,-1  
pcirc, , r1, 270, 360
WPCSYS,-1,0

cskp,12,0,8,7,4
csys,12
WPCSYS,-1  
pcirc, , r2, 0, 90
WPCSYS,-1,0

aglue, 1,3
aglue, 2,4
allsel

vrotat,5,,,,,, 3, 4, 90, 1
vrotat,1,,,,,, 3, 4, 90, 1
vrotat,2,,,,,, 5, 6, 90, 1
vrotat,3,,,,,, 5, 6, 90, 1

mat,1
et,2,solid92
type,2  
esize,0.01
vmesh,all

FLST,5,2,5,ORDE,2   
FITEM,5,4   
FITEM,5,17  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CMSEL,S,_Y  
CMDELE,_Y   
!*  
!*  
AREFINE,_Y1, , ,3,0,1,1 
CMDELE,_Y1  
!*  

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0.3 
MAT,1   
R,3 
REAL,3  
ET,3,170
ET,4,174
KEYOPT,4,9,0
KEYOPT,4,10,2   
R,3,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
ASEL,S,,,17 
CM,_TARGET,AREA 
TYPE,3  
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,4  
CM,_CONTACT,AREA
TYPE,4  
NSLA,S,1
ESLN,S,0
ESURF   
!* Create Companion Pair - Start
R,4 
REAL,4  
ET,5,170
ET,6,174
KEYOPT,6,9,0
KEYOPT,6,10,2   
R,4,
RMORE,  
RMORE,,0
RMORE,0 
TYPE,5  
ESEL,S,TYPE,,4  
NSLE,S  
ESLN,S,0
ESURF   
TYPE,6  
ESEL,S,TYPE,,3  
NSLE,S  
ESLN,S,0
ESURF   
!* Create Companion Pair - End  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
ESEL,A,TYPE,,5  
ESEL,A,TYPE,,6  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   

nsel,s,loc,x,0,0
dsymm,symm,x
allsel

nsel,s,loc,z,0,0
dsymm,symm,z

asel,s,,,12
asel,a,,,8
nsla,s,1
cp,1,uy,all

asel,s,,,20
asel,a,,,16
nsla,s,1
d,all,all

asel,s,,,12
asel,a,,,8
nsla,s,1
d,all,fy,-4500/(4*9.81)


allsel
/solu
nlgeom,off
deltim,1,1,1
outres,all,all
solve