!----
! PYLONE SURFACE
!----

/CLEAR,NOSTART

!KEYW,PR_SET,1  

!--
! GEOMETRIE
!---
/PREP7  


! PYLONE
H=5

K,1,0,0,0,  
K,2,0,0,H, 

LSTR,1,2

CYL4,0,0,0.1, ,0.2  

LSEL,S,,,6,9,1
ADRAG,ALL,,,,,,1

LSEL,S,,,ALL

AGEN,2,1,,,0,0,H,,1

! PARTITIONS HORIZONTALES

BLC4,-1,-1,2,2  
AGEN,,7,,,,,2.2,,,1

ASBA,2,7, ,DELETE,KEEP
ASBA,3,7, ,DELETE,KEEP
ASBA,4,7, ,DELETE,KEEP
ASBA,5,7, ,DELETE,KEEP

AGEN,,7,,,,,2.5,,,1
ASBA,9,7, ,DELETE,KEEP
ASBA,10,7, ,DELETE,KEEP
ASBA,11,7, ,DELETE,KEEP
ASBA,12,7, ,DELETE,DELETE

NUMCMP,AREA 

! PARTITIONS VERTICALES

K,100,-0.3,0,-0.1,
K,101,0.3,0,-0.1,
K,102,0.3,0,H+0.1,
K,103,-0.3,0,H+0.1,
A,100,101,102,103

ASBA,1,15, ,DELETE,KEEP
ASBA,6,15, ,DELETE,DELETE

NUMCMP,AREA 

K,100,0,-0.3,-0.1,
K,101,0,0.3,-0.1,
K,102,0,0.3,H+0.1,
K,103,0,-0.3,H+0.1,
A,100,101,102,103

ASBA,1,17, ,DELETE,KEEP
ASBA,16,17, ,DELETE,KEEP
ASBA,14,17, ,DELETE,KEEP
ASBA,15,17, ,DELETE,DELETE

NUMCMP,AREA 

K,100,-0.3*0.5,-0.3*sqrt(3)/2,-0.1,
K,101,0.3*0.5,0.3*sqrt(3)/2,-0.1,
K,102,0.3*0.5,0.3*sqrt(3)/2,H+0.1,
K,103,-0.3*0.5,-0.3*sqrt(3)/2,H+0.1,
A,100,101,102,103

ASBA,1,21, ,DELETE,KEEP
ASBA,2,21, ,DELETE,KEEP
ASBA,4,21, ,DELETE,KEEP
ASBA,7,21, ,DELETE,KEEP
ASBA,9,21, ,DELETE,KEEP
ASBA,11,21, ,DELETE,KEEP
ASBA,13,21, ,DELETE,KEEP
ASBA,14,21, ,DELETE,KEEP
ASBA,15,21, ,DELETE,KEEP
ASBA,16,21, ,DELETE,DELETE

AGLUE,ALL

!---
! MODELE EF
!---

! Type de modele
ET,1,SHELL181

! materiau
MPTEMP,,,,,,,,  
MPTEMP,1,0  

MPDATA,EX,1,,2e11   
MPDATA,PRXY,1,,0.3  
MPDATA,DENS,1,,7800 

! epaisseur
sect,1,shell,,ep1cm 
secdata, 0.01,1,0.0,3   
secoffset,TOP   
seccontrol,,,, , , ,

! orientation des surfaces
ASEL,S,,,13,14,1
ASEL,A,,,19,20,1
ASEL,A,,,30,31,1
AREVERSE,ALL,0  
ASEL,A,,,ALL

! attribuer la modelisation
AATT,       1, ,   1,       0,   1 

! taille des mailles 
AESIZE,ALL,0.05,

! maillage mapped "automatique"
MSHKEY,1

! mailler
AMESH,ALL