/TITLE, Rotationselement mit Druckbeaufschlagung
/PREP7

*SET,E,19000000.0	
*SET,Ny,0.35		
*SET,N,10		
*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        
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
AADD,ALL
ADELE,1,2,1,1

VROTAT,ALL,,,,,,1,2,

VGLUE,ALL

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

asel,s,area,,6,6
asel,a,area,,14
asel,a,area,,22
asel,a,area,,30
NSLA,S,1
D,ALL,,,,,,UX,UY,UZ,,,

ASEL,S,AREA,,8,32,8
NSLA,S,1
SF,ALL,PRES,druck
ASEL,ALL


/Solu				
Solve


/post1	
PLNSOL,S,1,0	

/EOF