home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR8 / DOSPEL37.ZIP / DO-98.ZIP / VALVE.CDO < prev   
Text File  |  1991-12-31  |  453b  |  26 lines
  1. "deg UK
  2. "V 2.5 example calculation gas flow through valve, Si units. Based on ISA
  3. "Calculation suitable for normal and critical flow. P in Bara., t in Kelv
  4.  
  5. CV:=41.7
  6. P1:=6.2
  7. P2:=0.1
  8. t:=293
  9. ratio_cpcv:=1.2 
  10. MW:=40
  11. Xt:=0.8
  12. Z:=1
  13.  
  14. Fk:=ratio_cpcv/1.4
  15. sto((P1-P2)/P1)
  16. x:=min(Fk*Xt)
  17. rho:=12.03*MW*P1/(t*Z)
  18. y:=1-(x/(3*Fk*Xt))
  19. q:=27.3*CV*Y*sqrt(x*P1*rho)
  20.  
  21. "Critical flow if y equals 0.667
  22. y
  23.  
  24. "Max flow in Kg/hr when valve fully opened
  25. q
  26.