!-----------------------------------!
! Geometrie de la patte de fixation !
!-----------------------------------!

/CLEAR,NOSTART

/FILNAME,tp2_td13,0 


epaisseur = 5
rayon = 5

/PREP7  

! plaque principale

K,1,0,0,0,  
K,2,20,0,0, 
K,3,30,10,0,
K,4,30,80,0,
K,5,20,10,0,

LSTR,       1,       2  
LARC,2,3,5,10,
LSTR,       3,       4

K,6,0,epaisseur,0,  
K,7,20,epaisseur,0, 
K,8,30-epaisseur,10,0,
K,9,30-epaisseur,80,0,

LSTR,       6,       7  
LARC,7,8,5,10-epaisseur,
LSTR,       8,       9

LSTR,       1,       6 
LSTR,       4,       9 
 
AL,1,2,3,8,6,5,4,7
VEXT,1, , ,0,0,90,,,,

! percages

WPLANE,1,0,-5,0,0,-5,1,1,-5,0
CSYS,WP

K,100,10,10,0,
K,101,10,0,0,
K,102,10,-10,0,
K,103,-10,-10,0,
K,104,-10,10,0,
K,105,0,10,0,

CYL4,10,10,5
VEXT,11, , ,0,0,20,,,,
VSBV,1,2,,,

LSTR,101,102
LSTR,102,103
LSTR,103,104
LSTR,104,105
LARC,105,101,100,10,
AL,25,26,27,28,29 
FLST,2,1,5,ORDE,1      
VEXT,3, , ,0,0,20,,,,
VSBV,3,1,,,

K,200,80,10,0,
K,201,80,0,0,
K,202,80,-10,0,
K,203,100,-10,0,
K,204,100,10,0,
K,205,90,10,0,

CYL4,80,10,5
VEXT,1, , ,0,0,20,,,,
VSBV,2,1,,,

LSTR,201,202
LSTR,202,203
LSTR,203,204
LSTR,204,205
LARC,205,201,200,10,
AL,1,4,7,17,24 
FLST,2,1,5,ORDE,1   
VEXT,1, , ,0,0,20,,,,
VSBV,3,1  

! pate de fixation

WPLANE,1,35,65,45,35,65,46,35,66,45
CSYS,WP

K,300,0,0,0
K,301,15+rayon,-35+rayon,0
K,302,35,-45,0
K,303,-15-rayon,-35+rayon,0
K,304,-35,-45,0

K,305,45,-45,0
K,306,35,-35,0
K,307,15+rayon,-35,0
K,308,15,-35+rayon,0
K,309,15,0,0

K,310,-45,-45,0
K,311,-35,-35,0
K,312,-15-rayon,-35,0
K,313,-15,-35+rayon,0
K,314,-15,0,0

K,315,50,-45,0
K,316,50,20,0
K,317,-50,-45,0
K,318,-50,20,0

K,319,0,15,0

CYL4,0,0,5
VEXT,1, , ,0,0,20,,,,
VSBV,2,1,,,

LSTR,305,315
LSTR,315,316
LSTR,316,318
LSTR,318,317
LSTR,317,310
LSTR,306,307
LSTR,308,309
LSTR,311,312
LSTR,313,314
LARC,305,306,302,10,
LARC,307,308,301,rayon,
LARC,309,319,300,15,
LARC,319,314,300,15,
LARC,312,313,303,rayon,
LARC,310,311,304,10,

FLST,2,15,4 
FITEM,2,15  
FITEM,2,81  
FITEM,2,24  
FITEM,2,80  
FITEM,2,25  
FITEM,2,79  
FITEM,2,28  
FITEM,2,17  
FITEM,2,27  
FITEM,2,16  
FITEM,2,26  
FITEM,2,1   
FITEM,2,4   
FITEM,2,7   
FITEM,2,9   
AL,P51X

VEXT,1, , ,0,0,20,,,,
VSBV,3,1,,,


! Element de plaque
ET,1,SHELL181

! Acier
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,2e5
MPDATA,PRXY,1,,0.3

! Epaisseur
sect,1,shell,,plaque5mm 
secdata, 5,1,0.0,3  
secoffset,TOP   
seccontrol,,,, , , ,

! selection des surfaces du bas
ASEL,S, , ,4
ASEL,A, , ,30
ASEL,A, , ,54
  
CM,surfbas,AREA 

! attributs du maillage
AATT,       1, ,   1,       0,   1
AESIZE,ALL,2,  
AMESH,ALL   

! calcul statique
/SOL

ANTYPE,0

! deplacements imposes

FLST,2,8,4,ORDE,8   
FITEM,2,34  
FITEM,2,36  
FITEM,2,39  
FITEM,2,41  
FITEM,2,44  
FITEM,2,47  
FITEM,2,51  
FITEM,2,62   
DL,P51X, ,ALL,0

! forces imposees

FLST,2,4,3,ORDE,4
FITEM,2,46  
FITEM,2,48  
FITEM,2,50  
FITEM,2,52  
FK,P51X,FZ,6000/4/2 

 
FK,46,FY,6000/4*0.866
FK,48,FY,6000/4*0.866
FK,50,FY,6000/4*0.866
FK,52,FY,6000/4*0.866

! resolution
SOLVE