/TITLE, Rotationselement mit Druckbeaufschlagung
/PREP7



*SET,E,19000000.0	
*SET,Ny,0.35		
*SET,N,1		
*SET,druck,120		


*Set,e,2	! Absatzhöhe Standard 2 mm
*Set,a,18	! Länge des Körpers
*Set,b,14	! Rohraußendurchmesser
*Set,c,7.5	! Absatzdurchmesser
*Set,d,9	! Rohrinnendurchmesser


ET,1,Solid95        
KEYOPT,1,1,0        
KEYOPT,1,5,0        
KEYOPT,1,6,0        
KEYOPT,1,9,0       
KEYOPT,1,11,0
MP,EX,1,E	  
MP,NUXY,1,Ny



K,1,0,0,0			
K,2,a,0,0


K,3,(a-e),(b-c),0		
K,4,a,(b-c),0
K,5,0,d,0
K,6,(a-e),d,0
K,7,a,d,0
K,8,0,b,0
K,9,a,b,0


LSTR,1,2,		
LSTR,3,4
LSTR,3,6
LSTR,4,7
LSTR,6,7
LSTR,5,7
LSTR,5,8
LSTR,7,9
LSTR,8,9



A,3,4,7,6
A,5,7,9,8


asel,s,area,,1,2,1,0
VROTAT,all, , , , , ,1,2, ,

VSEL,S,VOLU,,1,8,1

VGLUE,all

!/EOF

MSHAPE,0,3d
MSHKEY,1
ESIZE,,N

VMESH,all

/EOF            
		
asel,s,area,,40,,1,		
asel,a,area,,31,
asel,a,area,,21,
asel,a,area,,11,
NSLA,S,1			

D,ALL,,,,,,UX,UY,,,,     	



ASEL,S,AREA,,36,36,1
asel,a,area,,6,,
asel,a,area,,16,,
asel,a,area,,26,,
NSLA,S,1
SF,ALL,PRES,druck



/Solu				
Solve				

/EOF

/post1	
PLNSOL,S,1,0	


/EOF