Procedures | Cast3M

   1 : * EPAIFUT   PROCEDUR  CHAT      02/01/04    21:15:10     4282           
   2 : *----------------------------------------------------------------
   3 : *
   4 : * La procedure EPAIFUT permet de determiner le rayon de rm de
   5 : * sechage intervenant dans les formulations BPEL 91 et Eurocode 2
   6 : * (EC2). Ce rayon est un champ par element qui est deduit du
   7 : * maillage du coffrage de beton par le calcul de la somme des
   8 : * epaisseurs des elements rencontres en allant de l'intrados vers
   9 : * l'extrados du mur
  10 : *
  11 : *
  12 : DEBP EPAIFUT MAYAV*MAILLAGE MAYAS1*MAILLAGE MAYAS2*MAILLAGE       ;
  13 : *
  14 : PPMAYAV = MAYAV CHAN POI1                                         ;
  15 : *
  16 : I = 0                                                             ;
  17 : REPETER BCL1 (NBNO MAYAV)                                         ;
  18 :   I     = I+1                                                     ;
  19 :   PCOUR = (ELEM I PPMAYAV) POIN INIT                              ;
  20 :   PS1   = MAYAS1 POIN PROC PCOUR                                  ;
  21 :   PS2   = MAYAS2 POIN PROC PCOUR                                  ;
  22 :   VPS1  = PCOUR MOIN PS1                                          ;
  23 :   VPS2  = PCOUR MOIN PS2                                          ;
  24 :   DS1   = NORM VPS1                                               ;
  25 :   DS2   = NORM VPS2                                               ;
  26 :   DS1S2 = DS1 + DS2                                               ;
  27 :   PPCOUR = PCOUR MANU POI1                                        ;
  28 :   CHPLOCAL = MANU CHPO PPCOUR 1 'EPAI' DS1S2 NATURE DIFFUS        ;
  29 :   SI (I EGA 1)                                                    ;
  30 :     CHPEPAI = CHPLOCAL                                            ;
  31 :   SINON                                                           ;
  32 :     CHPEPAI = CHPEPAI + CHPLOCAL                                  ;
  33 :   FINSI                                                           ;
  34 : FIN BCL1                                                          ;
  35 : *
  36 : FINP CHPEPAI                                                      ;
  37 : 
  38 :