Télécharger roliq0.eso

Retour à la liste

Numérotation des lignes :

  1. C ROLIQ0 SOURCE CHAT 05/01/13 03:03:53 5004
  2. FUNCTION ROLIQ0(P,HLIQ)
  3. C
  4. C--------------------------------------------------------------------
  5. C Densité de l'eau liquide en fonction de la pression et de
  6. C l'enthalpie liquide spécifique.
  7. C--------------------------------------------------------------------
  8. C
  9. C E/ P : Pression de l'enceinte (en Pa)
  10. C E/ HLIQ : Enthalpie liquide spécifique (en J/kg)
  11. C /S ROLIQ0 : Densité de l'eau liquide (en kg/m3)
  12. C
  13. C--------------------------------------------------------------------
  14. C
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8 (A-H,O-Z)
  17. C
  18. R4 = P * 0.50507D-30 - 0.58821D-22
  19. R3 = -P * 0.83829D-24 + 0.17239D-15
  20. R2 = P * 0.85471D-18 - 0.29179D-9
  21. R1 = P * 0.48157D-6 + 0.99916D3
  22. ROLIQ0 = ((R4*HLIQ+R3)*HLIQ+R2)*(HLIQ*HLIQ)+R1
  23. C
  24. END
  25.  
  26.  
  27.  

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