Télécharger tension.procedur

Retour à la liste

Numérotation des lignes :

  1. * TENSION PROCEDUR CHAT 02/01/04 21:15:29 4282
  2. DEBPROC TENSION TABETAP ;
  3. *------------------------------------------------------------------------
  4. * AUTEUR F. PICARD T. CHARRAS DATE 05 - AVRIL - 2001
  5. *
  6. * CETTE PROCEDUR PERMET DE CREE UNE TABLE CONTENANT TOUTES LES
  7. * INFORMATIONS NECESSAIRES POUR LES CABLES A UN CALCUL DE PHASAGE DE MISE
  8. * EN PRECONTRAINTE D'UN EQUIPEMENT DE GENIE CIVIL
  9. *
  10. * ENTREES NECESSAIRES
  11. * -------------------
  12. * TABETAP : OBJET DE TYPE TABLE INDICEE PAR DES ENTIERS CORRESPONDANTS
  13. * AUX DIFFERENTES PHASE DE MISE EN TENSION DES CABLES
  14. *
  15. * TABETAP . IETAP : OBJET DE TYPE TABLE
  16. * -> INDICE 'TPS' : FLOTTANT CONTENANT LA DATE DE MISE EN TENSION
  17. * DU GROUPE DE CABLES CONSIDERE
  18. * -> INDICE IET : TABLE CONTENANT LES INFORMATIONS RELATIVE AU GOUPE
  19. * DE CABLE. CETTE TABLE EST INDICEE PAR LES MOTS
  20. * CLES SUIVANTS:
  21. * ->'GEOMETRIE1' : MAILLAGE CONTENANT LE DESCRIPTION
  22. * DES EXTREMITES TENDUES
  23. * ->'GEOMETRIE2' : MAILLAGE CONTENANT LE DESCRIPTION
  24. * DES EXTREMITES TENDUES (UNIQUEMENT
  25. * SI DEUX EXTREMITES)
  26. * ->'MODELE' : OBJET MODELE ASSOCIE AU GROUPE DE
  27. * CABLES
  28. * ->'MATERIAU' : MATERIAU ASSOCIE AU GROUPE DE CABLES
  29. * ->'FORCE' : FLOTTANT DONNANT LA FORCE EXPRIMEE EN N
  30. * ->'COEF_PREC' : TABLE CONTENANT LES VALEURS POUR PRISE
  31. * EN COMPTE DES PERTES QUASI INSTANTANEES
  32. * ->'TYPE_CAB' : MOT INDIQUANT SI ON TEND UN OU DEUX
  33. * EXTREMITES
  34. *
  35. * EN SORTIE LA TABLE RELATIVE AU GROUPE DE CABLE EST REACTUALISEE ET CONTIENT
  36. * A INDICE 'PREC' LE CHAMP DE FORCE CORRESPONDANT À LA PRISE EN COMPTE DE
  37. * LA TENSION INITIALE ET DES PERTES QUASI INSTANTANEES
  38. *
  39. *----------------------------------------------------------------------------
  40. *
  41. NBETAP = DIME TABETAP ;
  42. IDETAP = 0 ;
  43. REPETER BOVERIF NBETAP ;
  44. IDETAP = IDETAP + 1 ;
  45. IERR = 0 ;
  46. TEST1 = EXISTE (TABETAP . IDETAP ) 'TPS' ;
  47. SI (NON TEST1) ;
  48. MESS 'TPS DE MISE EN PRECONTRAINTE ABSENT' ;
  49. IERR = 1 ;
  50. FINSI ;
  51. NDZONE = (DIME (TABETAP . IDETAP) - 1) ;
  52. IDZON = 0 ;
  53. REPETER BOZONE NDZONE ;
  54. IDZON = IDZON + 1 ;
  55. TEST20 = EXISTE (TABETAP . IDETAP . IDZON) 'GEOMETRIE1' ;
  56. TEST21 = EXISTE (TABETAP . IDETAP . IDZON) 'GEOMETRIE2' ;
  57. TEST3 = EXISTE (TABETAP . IDETAP . IDZON) 'MODELE' ;
  58. TEST4 = EXISTE (TABETAP . IDETAP . IDZON) 'MATERIAU' ;
  59. TEST5 = EXISTE (TABETAP . IDETAP . IDZON) 'FORCE' ;
  60. TEST6 = EXISTE (TABETAP . IDETAP . IDZON) 'COEF_PREC' ;
  61. TEST7 = EXISTE (TABETAP . IDETAP . IDZON) 'TYPE_CAB' ;
  62. TEST8 = EGA (TABETAP . IDETAP . IDZON . 'TYPE_CAB') '2EXT' ;
  63. SI (NON TEST20) ;
  64. MESS 'GEOMETRIE ABSENTE' ;
  65. IERR = 1 ;
  66. FINSI ;
  67. SI (NON TEST3) ;
  68. MESS 'IDETAP =' IDETAP 'MODELE ABSENT' ;
  69. IERR = 1 ;
  70. FINSI ;
  71. SI (NON TEST4) ;
  72. MESS 'MATERIAU ABSENT' ;
  73. IERR = 1 ;
  74. FINSI ;
  75. SI (NON TEST5) ;
  76. MESS 'FORCE ABSENTE' ;
  77. IERR = 1 ;
  78. FINSI ;
  79. SI (NON TEST6) ;
  80. MESS 'COEFFICIENTS DE PERTES QUASI INSTANTANEES ABSENTS' ;
  81. IERR = 1 ;
  82. FINSI ;
  83. SI (NON TEST7) ;
  84. MESS 'TYPE DE TRACTION ASBENT' ;
  85. IERR = 1 ;
  86. FINSI ;
  87. SI (TEST8 ET (NON TEST21)) ;
  88. MESS 'INCOMPATIBILITE ENTRE LE TYPE DE TENSION ET LES ZONES
  89. DE TENSION' ;
  90. IERR = 1 ;
  91. FINSI ;
  92. SI (EGA IERR 1) ;
  93. QUITTER BOZONE ;
  94. FINSI ;
  95. FIN BOZONE ;
  96. SI (EGA IERR 1) ;
  97. QUITTER BOVERIF ;
  98. FINSI ;
  99. FIN BOVERIF ;
  100. SI (EGA IERR 1) ;
  101. QUITTER TENSION ;
  102. FINSI ;
  103. IDETAP = 0 ;
  104. REPETER BOPREC0 NBETAP ;
  105. IDETAP = IDETAP + 1 ;
  106. NDZONE = (DIME (TABETAP . IDETAP) - 1) ;
  107. IDZON = 0 ;
  108. REPETER BOZONE NDZONE ;
  109. IDZON = IDZON + 1 ;
  110. TYCA = TABETAP . IDETAP . IDZON . 'TYPE_CAB' ;
  111. FTENS = TABETAP . IDETAP . IDZON . 'FORCE' ;
  112. TEST8 = EGA (TABETAP . IDETAP . IDZON . 'TYPE_CAB') '2EXT' ;
  113. SI (TEST8) ;
  114. PICOUR = TABETAP . IDETAP . IDZON . 'GEOMETRIE1' ;
  115. PFCOUR = TABETAP . IDETAP . IDZON . 'GEOMETRIE2' ;
  116. SINON ;
  117. PFCOUR = TABETAP . IDETAP . IDZON . 'GEOMETRIE1' ;
  118. FINSI ;
  119. SI (EGA TYCA '1EXT') ;
  120. mess 'cas1' ;
  121. TABETAP . IDETAP . IDZON . PREC = PREC
  122. TABETAP . IDETAP . IDZON . 'MODELE'
  123. TABETAP . IDETAP . IDZON . 'MATERIAU'
  124. FTENS
  125. TABETAP . IDETAP . IDZON . 'COEF_PREC'
  126. PFCOUR ;
  127. FINSI ;
  128. SI (EGA TYCA '2EXT') ;
  129. mess 'cas2' ;
  130. TABETAP . IDETAP . IDZON . PREC = PREC
  131. TABETAP . IDETAP . IDZON . 'MODELE'
  132. TABETAP . IDETAP . IDZON . 'MATERIAU'
  133. FTENS
  134. TABETAP . IDETAP . IDZON . 'COEF_PREC'
  135. PFCOUR ;
  136. TABETAP . IDETAP . IDZON .PREC = PREC
  137. TABETAP . IDETAP . IDZON . 'MODELE'
  138. TABETAP . IDETAP . IDZON . 'MATERIAU'
  139. FTENS
  140. TABETAP . IDETAP . IDZON . 'COEF_PREC'
  141. PICOUR
  142. TABETAP . IDETAP . IDZON . 'PREC' ;
  143. FINSI ;
  144. FIN BOZONE ;
  145. FIN BOPREC0 ;
  146. FINPROC TABETAP ;
  147.  
  148.  
  149.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales