Télécharger euro.eso

Retour à la liste

Numérotation des lignes :

euro
  1. C EURO SOURCE CHAT 05/01/12 23:46:42 5004
  2. SUBROUTINE EURO(HO,ROH,FCM,S,T0,T,FLU)
  3. *
  4. * Calcul de la fonction de fluage selon l'eurocode 2
  5. *
  6. *
  7. * entree
  8. * HO rayon moyen de la piece [mm]
  9. * RHO taux d'humidite (0.<roh<1.)
  10. * S nature du ciment
  11. * FCM resistance moyenne en compression [MPa]
  12. * T0 temps de chargement [j]
  13. * T temps actuel [j]
  14. *
  15. * sortie
  16. * FLU J(to,t) [Pa-1]
  17. *
  18. *
  19. IMPLICIT INTEGER(I-N)
  20. IMPLICIT REAL*8(A-H,O-Z)
  21. *
  22. *
  23.  
  24. FCMT0=FCM*EXP(S*(1.-(28./T0)**(1./2.)))
  25. EC28=9975.*FCM**(1./3.)
  26. ECT0=9975.*FCMT0**(1./3.)
  27. PHIRH=1.+(10.-10.*ROH)/HO**(1./3.)
  28. BFCM=16.8/(FCM**(1./2.))
  29. BT0=1./(.1+T0**0.2)
  30. BETAH=1.5*(1.+(1.2*ROH)**18.)*HO+250.
  31. IF (BETAH.GT.1500.) THEN
  32. BETAH=1500.
  33. ENDIF
  34. BETAC=((T-T0)/(BETAH+T-T0))**.3
  35. PHI=PHIRH*BFCM*BT0*BETAC
  36. FLU=(1./ECT0+PHI/EC28)*1.e-6
  37. END
  38.  
  39.  
  40.  
  41.  

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