Télécharger bmug.eso

Retour à la liste

Numérotation des lignes :

  1. C BMUG SOURCE CHAT 05/01/12 21:41:35 5004
  2. FUNCTION BMUG(T,PHI,T0)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C operateur FUITE
  7. C>>> calcule la viscosite du melange air vapeur
  8. C T : temperature du fluide en ›K
  9. C PHI : rapport pression partielle vapeur/pression totale
  10. C T0 : temperature de reference
  11. C
  12. BMUG=(1.72+4.4E-3*(T-T0))*(1-PHI)+(.845+4.07E-3*(T-T0-10))*PHI
  13. BMUG=BMUG*1E-5
  14. RETURN
  15. END
  16.  
  17.  
  18.  

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