!****************************************************
!**                                                **
!**      Auteur: Ambroise BROU                     ** 
!**      Cree en Aout 2005                         **
!**      Mis a jour en Octobre 2006                **
!**                                                **
!****************************************************
/TITLE, Pylone electrique
/UNITS,SI			! unites en systeme international
/PREP7  			! entree en mode pre-traitement
!*  

PI=4*ATAN(1)			! valeur de pi
THETA=15*PI/180			! direction de la force en degre
F=1800				! module de la force appliquee au pylone
E=210E9				! module d'Young en GPa
SIGMA=0.27			! Coefficient de Poisson du materiau
A=27.90E-4			! Section du materiau en m2
ET,1,LINK1		  	! element fini de type LINK1  
R,1,A				! constantes reelles du materiau 1: 
MP,EX,1,E			! module d'elasticite 
MP,PRXY,1,SIGMA 		! coefficient de Poisson 


! Geometrie du Pylone: numero et coordonnees des noeuds 
N,1,-2,0,0   
N,2,2,0,0
N,3,-2,5,0   
N,4,2,5,0
N,5,-1.5,8,0   
N,6,1.5,8,0
N,7,-1.5,11,0
N,8,1.5,11,0
N,9,-4.5,12.5,0
N,10,4.5,12.5,0
N,11,-7.5,14,0
N,12,7.5,14,0
N,13,-4.5,14,0
N,14,4.5,14,0
N,15,-1.5,14,0
N,16,1.5,14,0

SAVE				! sauvegarde de la base de donnees

! Creation des elements constitutifs du pylone 
EN,1,1,3
EN,2,2,4
EN,3,3,4
EN,4,1,4
EN,5,2,3

EN,6,4,6
EN,7,3,5
EN,8,5,6
EN,9,3,6
EN,10,4,5

EN,11,5,7
EN,12,6,8
EN,13,7,8
EN,14,5,8
EN,15,6,7

EN,16,8,10
EN,17,7,9
EN,18,10,12
EN,19,9,11
EN,20,12,14
EN,21,11,13
EN,22,14,16
EN,23,13,15
EN,24,10,14
EN,25,9,13
EN,26,10,16
EN,27,9,15
EN,28,8,16
EN,29,7,15
EN,30,8,15
EN,31,7,16
EN,32,15,16

! Conditions aux limites en deplacement
D,1,ALL,0
D,2,ALL,0
! Forces appliquees au pylone
F,11,FX,F*SIN(THETA)		! application de la composante de F suivant x sur le noeud 11
F,11,FY,-F*COS(THETA)		! application de la composante de F suivant y sur le noeud 11
F,12,FX,F*SIN(THETA)		! application de la composante de F suivant x sur le noeud 12
F,12,FY,-F*COS(THETA)		! application de la composante de F suivant y sur le noeud 12
FINISH				! fin du mode pre-traitement
/SOLU				! mode solution
ANTYPE, STATIC			! analyse statique
SOLVE				! demarrage de la resolution
SAVE				! sauvegarde de la base de donnees
/POST1				! entree en mode post-traitement
SET,1,LAST			! lecture des resultats
/PBC,F,,1			! affichage des forces 
PLNSOL,U,SUM,1,1,0		! affichage solution nodale pour le deplacement