/CLEAR,NOSTART

!------------------------------------!
!- Modelisation du pylone en poutre -!
!------------------------------------!

!- menu pre process
/PREP7  

!-
!- Geometrie
!-

!- parametres du pylone
L1=1.08
L2=0.8
H1=15
H2=25
R1=0.05
EP1=0.01
Pa=100 ! poids antenne

!- creation des points
K,1,L1,0,0,  
K,2,-0.5*L1,sqrt(3)/2*L1,0,   
K,3,-0.5*L1,-sqrt(3)/2*L1,0, 
K,4,L2,0,H1,  
K,5,-0.5*L2,sqrt(3)/2*L2,H1,   
K,6,-0.5*L2,-sqrt(3)/2*L2,H1,  
K,7,L2,0,H2,  
K,8,-0.5*L2,sqrt(3)/2*L2,H2,   
K,9,-0.5*L2,-sqrt(3)/2*L2,H2,

!- creation des lignes
*DO,i,1,3,1
LSTR,       i,       i+3  
LSTR,       i+3,       i+6 
*ENDDO

!- decoupage ligne montants
*DO,i,1,5,2
LDIV,i, , ,3,0
*ENDDO
*DO,i,2,6,2
LDIV,i, , ,2,0
*ENDDO

!- decoupage lignes transverses
*DO,i,1,15,1
LDIV,i,0.44, ,,0
*ENDDO

LSEL,S,,,16,20,2
LSEL,A,,,22,26,2
LSEL,A,,,23,27,2
LSEL,A,,,17,21,2
LSEL,A,,,28,30,1
LDIV,ALL,0.9, ,2,0 
LSEL,S,,,ALL

LSTR,      23,      19  
LSTR,      19,      21  
LSTR,      21,      23  
LSTR,      38,      34  
LSTR,      34,      36  
LSTR,      36,      38  
LSTR,      29,      25  
LSTR,      25,      27  
LSTR,      27,      29  
LSTR,      44,      40  
LSTR,      40,      42  
LSTR,      42,      44  
LSTR,      30,      26  
LSTR,      26,      28  
LSTR,      28,      30  
LSTR,      45,      41  
LSTR,      41,      43  
LSTR,      43,      45  
LSTR,      24,      20  
LSTR,      20,      22  
LSTR,      22,      24  
LSTR,      39,      35  
LSTR,      35,      37  
LSTR,      37,      39  
LSTR,      33,      31  
LSTR,      32,      31  
LSTR,      33,      32  
LSTR,      48,      46  
LSTR,      46,      47  
LSTR,      47,      48  

!- creation des lignes transverses diagonales
LSTR,       1,      21  
LSTR,      21,      34  
LSTR,      34,      27  
LSTR,      27,      40   
LSTR,      40,      28  
LSTR,      28,      41  
LSTR,      41,      22  
LSTR,      22,      35   
LSTR,      35,      32  
LSTR,      32,      46   
LSTR,       3,      19  
LSTR,      19,      38   
LSTR,      38,      25   
LSTR,      25,      44   
LSTR,      44,      26   
LSTR,      26,      45  
LSTR,      45,      20  
LSTR,      20,      39   
LSTR,      39,      31  
LSTR,      31,      48  
LSTR,       2,      23  
LSTR,      23,      36  
LSTR,      36,      29   
LSTR,      29,      42  
LSTR,      42,      30  
LSTR,      30,      43  
LSTR,      43,      24   
LSTR,      24,      37   
LSTR,      37,      33   
LSTR,      33,      47

!- Antennes
L3=1.5
K,101,L3,0,24.72,  
K,102,-0.5*L3,sqrt(3)/2*L3,24.72,   
K,103,-0.5*L3,-sqrt(3)/2*L3,24.72, 
K,104,L3,0,22,  
K,105,-0.5*L3,sqrt(3)/2*L3,22,   
K,106,-0.5*L3,-sqrt(3)/2*L3,22,
K,107,L3,0,19.72,  
K,108,-0.5*L3,sqrt(3)/2*L3,19.72,   
K,109,-0.5*L3,-sqrt(3)/2*L3,19.72,

LSTR,101,104
LSTR,104,107
LSTR,102,105
LSTR,105,108
LSTR,103,106
LSTR,106,109
LSTR,46,101
LSTR,31,104
LSTR,35,107
LSTR,47,102
LSTR,32,105
LSTR,37,108
LSTR,48,103
LSTR,33,106
LSTR,39,109

!- options affichage
GPLOT
/PNUM,KP,0  
/PNUM,LINE,0