Télécharger la plaquette Cast3M


fr en

Télécharger tension.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TENSION   PROCEDUR  GF238795  17/11/15    19:12:30     9611           
  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 DE TENSION' ;
  89.     IERR = 1                                                           ;
  90.    FINSI                                                               ;
  91.    SI (EGA IERR 1)                                                     ;
  92.     QUITTER BOZONE                                                     ;
  93.    FINSI                                                               ;
  94.   FIN BOZONE                                                           ;
  95.    SI (EGA IERR 1)                                                     ;
  96.     QUITTER BOVERIF                                                    ;
  97.    FINSI                                                               ;
  98.  FIN BOVERIF                                                           ;
  99.   SI (EGA IERR 1)                                                      ;
  100.    QUITTER TENSION                                                     ;
  101.   FINSI                                                                ;
  102. IDETAP  = 0                                                            ;
  103. REPETER BOPREC0 NBETAP                                                 ;
  104.  IDETAP = IDETAP + 1                                                   ;
  105.  NDZONE = (DIME (TABETAP . IDETAP) - 1)                                ;
  106.  IDZON  = 0                                                            ;
  107.  REPETER BOZONE NDZONE                                                 ;
  108.   IDZON = IDZON + 1                                                    ;
  109.   TYCA = TABETAP . IDETAP . IDZON . 'TYPE_CAB'                         ;
  110.   FTENS = TABETAP . IDETAP . IDZON . 'FORCE'                           ;
  111.   TEST8   = EGA (TABETAP . IDETAP . IDZON . 'TYPE_CAB') '2EXT'         ; 
  112.   SI (TEST8)                                                           ;
  113.    PICOUR = TABETAP . IDETAP . IDZON . 'GEOMETRIE1'                    ;
  114.    PFCOUR = TABETAP . IDETAP . IDZON . 'GEOMETRIE2'                    ;
  115.    SINON                                                               ;
  116.    PFCOUR = TABETAP . IDETAP . IDZON . 'GEOMETRIE1'                    ;
  117.   FINSI                                                                ;
  118.   SI (EGA TYCA '1EXT')                                                 ;
  119.   mess 'cas1' ;
  120.    TABETAP . IDETAP . IDZON . PREC = PREC 
  121.                              TABETAP . IDETAP . IDZON . 'MODELE'
  122.                              TABETAP . IDETAP . IDZON . 'MATERIAU' 
  123.                              FTENS 
  124.                              TABETAP . IDETAP . IDZON . 'COEF_PREC'
  125.                              PFCOUR                                    ;   
  126.   FINSI                                                                ;
  127.   SI (EGA TYCA '2EXT')                                                 ;
  128.   mess 'cas2' ;
  129.    TABETAP . IDETAP . IDZON . PREC = PREC 
  130.                               TABETAP . IDETAP . IDZON . 'MODELE'
  131.                               TABETAP . IDETAP . IDZON . 'MATERIAU' 
  132.                               FTENS 
  133.                               TABETAP . IDETAP . IDZON . 'COEF_PREC'  
  134.                               PFCOUR                                   ;  
  135.    TABETAP . IDETAP . IDZON .PREC = PREC 
  136.                               TABETAP . IDETAP . IDZON . 'MODELE'
  137.                               TABETAP . IDETAP . IDZON . 'MATERIAU' 
  138.                               FTENS 
  139.                               TABETAP . IDETAP . IDZON . 'COEF_PREC' 
  140.                               PICOUR
  141.                               TABETAP . IDETAP . IDZON . 'PREC'        ;        
  142.    FINSI                                                               ;
  143.  FIN BOZONE                                                            ;
  144. FIN BOPREC0                                                            ;
  145. FINPROC TABETAP        ;
  146.  
  147.  
  148.  
  149.  

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