/CLEAR,NOSTART
KEYW,PR_STRUC,1 

!--------------------------------------!
!- Modelisation volumique de la bride -!
!--------------------------------------!
!- Geometrie de la bride

! Parametres
RText = 0.1 ! rayon externe du tube
ET = 0.003 ! epaisseur du tube
HT = 0.3 ! hauteur de tube etudiee
RBext = 0.2 ! rayon externe de la bride
EB = 0.01 ! epaisseur de la bride
RP = 0.025 ! rayon du percage

/PREP7

! creation de la bride, un quart avec percage
CYL4,0,0,RText-ET,0,RBext,90
ctrou = (RText+RBext)/2*0.707
CYL4,ctrou,ctrou,,0,RP,360
ASBA,1,2  
VOFFST,3,EB, ,

! partition bas du tube
K,20,0,0,0
CIRCLE,20,RText
ADRAG,25, , , , , ,20
!VSBA,1,11,SEPO,DELETE,DELETE
VSBA,1,11,,DELETE,DELETE

! extrusion du tube
VOFFST,12,HT, , 

! partitions pour le maillage
CIRCLE,20,(RText+RBext)/2
ADRAG,9, , , , , ,46
!VSBA,3,6,SEPO,DELETE,DELETE
VSBA,3,6,,DELETE,DELETE

K,100,RBext,RBext,0
K,101,0,0,1
LSTR,20,100
LSTR,20,101
ADRAG,9, , , , , ,13
!VSBA,ALL,6,SEPO,DELETE,DELETE
VSBA,ALL,6,,DELETE,DELETE

K,102,1.1*RBext*0.383,1.1*RBext*0.924
LSTR,20,102
ADRAG,2, , , , , ,13
!VSBA,ALL,1,SEPO,DELETE,DELETE
VSBA,ALL,1,,DELETE,DELETE

K,120,1.1*RBext*0.924,1.1*RBext*0.383
LSTR,20,120
ADRAG,2, , , , , ,13
!VSBA,ALL,1,SEPO,DELETE,DELETE
VSBA,ALL,1,,DELETE,DELETE