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 :
© Cast3M 2003 - All rights reserved.
Disclaimer