FINISH
/CLEAR 
/PREP7  
/UNITS,MKS  !Einheiten in (m,kg,sek,°C)

! ************* Elementtyp des Blocks **********************************   
ET,1,SOLID185
KEYOPT,1,2,3
ET,2,CONTA174
KEYOPT,2,12,3
KEYOPT,2,5,3


!************** Matrerialeigenschaften *********************************
MP,C,1,460    	!Wärmekapazität 460 J/(kg°C)   
MP,DENS,1,7800  !Dichte 7800 kg/m³
MP,EX,1,200e9  	!E-Modul 200kN/mm²  
MP,PRXY,1,0.3  
!***********************************************************************

! ************* Parameter **********************************************   

! Maße immer in Meter!!  

A=0.48		!Gesamtlänge 
B=0.150   	!Breite   
C=0.075   	!Tiefe   
D=0.320  	!Abstand Löcher außen  
E=0.080  	!Loch außen bis Rand
F=0.045  	!Radius Löcher außen   
G=0.0375  	!Radius Loch Mitte   
H=0.035   	!Phase Rand  

!***********************************************************************


!************************ Geometrie **************************************
CYL4,E,(B/2),F  	! Löcher außen
CYL4,(A-E),(B/2),F  
CYL4,(A/2),(B/2),G 	! Loch Mitte 
ALLS
RECTNG,0,A,0,B

K, 100, 0,B,0   
K, 101, 0,(B-H),0   
K, 102, H,B,0 
A,100,101,102

K, 103, (A-H),B,0   
K, 104, A,(B-H),0   
K, 105, A,B,0 
A,103,104,105

K, 106, (A-H),0,0   
K, 107, A,0,0   
K, 108, A,H,0 
A,106,107,108

K, 109, 0,H,0   
K, 110, 0,0,0   
K, 111, H,0,0 
A,109,110,111

ASEL,ALL
VEXT,ALL,,,0,0,C			!Extrusion	
VSBV,       4,       5  
VSBV,       9,       8  
VSBV,       4,       6  
VSBV,       5,       7  
ALLS

VSBV,       4,       1  
VSBV,       5,       3  
VSBV,       1,       2  
VSEL,ALL 
VSWEEP,ALL
  
!************************ Hilfsbolzen **************************************

WPOF,0,0,-(C/2)			!Verschiebung des Koordinatensystems
CYL4,E,(B/2),F,,,,(2*C)  
CYL4,(A-E),(B/2),F,,,,(2*C) 
CSYS				!Arbeitsebene wieder normal
WPCS
ALLS
VSEL,S,VOLU,,1,2
VSWEEP,ALL

! *********************** Oberflächenelemente **********************************

ASEL,S,,,10,13		!Innenflächen Bohrung links Körper
NSLA,S,1
TYPE,2
ESURF
ALLS

ASEL,S,,,15,18		!Innenflächen Bohrung rechts Körper
NSLA,S,1
TYPE,2
ESURF
ALLS 

ASEL,S,,,7,8		!Flächen der Bolzen
ASEL,A,,,19
ASEL,A,,,26
NSLA,S,1
TYPE,2
ESURF
ALLS 

! *********************** Lagerung ******************************************

ASEL,S,AREA,,7,8
NSLA,S,1
D, ALL, ALL,0
ALLS

! *********************** Kräfte ******************************************
ASEL,S,,,19
ASEL,A,,,26
NSLA,S,1
*GET,NN,NODE,,COUNT
F, ALL, FX, F1/NN

! *********************** Lösung ******************************************

/SOLUTION
ANTYPE,STATIC
AUTOTS,on
ASEL,ALL
NSEL,ALL
SOLVE