home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / 924.ZIP / HVAC.OPL < prev    next >
Encoding:
Text File  |  1996-10-22  |  2.7 KB  |  128 lines
  1. PROC HVAC:
  2. GLOBAL HUM,DB,PSW,WB
  3. LOCAL M%
  4. DO
  5. CLS
  6. mINIT
  7. mCARD "Psychro","Humidity",%h,"Enthalpy",%e,"Velpress",%v,"Moisture",-%m,"About",%a,"Exit",%x
  8. m%=menu
  9. IF M%=0
  10.     RETURN
  11. ELSEIF M%=97
  12.     ABOUT:
  13. ELSEIF M%=104
  14.     HUMID:
  15. ELSEIF M%=101
  16.     ENTHALPY:    
  17. ELSEIF M%=118
  18.     VELPRES:
  19. ELSEIF M%=109
  20.     MOISTURE:
  21. ENDIF
  22. UNTIL M%=120
  23. ENDP
  24.  
  25. PROC ABOUT:
  26. CLS
  27. PRINT"Written by Steve Sant, 1996"
  28. Print
  29. Print"Hello to the old crew from Johnson Controls"
  30. Print
  31. Print"This is Freeware so enjoy!"
  32. Print
  33. Print"Email me at eclipse@dial.pipex.com"
  34. Print"or comp-u-clic@dial.pipex.com"
  35. get
  36. endp
  37.  
  38. PROC ENTHALPY:
  39. LOCAL gen%,ENT,X,A%
  40. CLS
  41. dINIT"Enthalpy Calculator"
  42. dfloat DB,"Dry Bulb (c)",0,100
  43. dfloat HUM,"Relative Humidity %",0,100
  44. gen%=dialog
  45. if gen%
  46.     X=16.5+(-4949/(273+DB))
  47.     X=1+X+X**2/2+X**3/6+X**4/24+X**5/120+X**6/720+X**7/5040
  48.     X=HUM*3.8E6*X*6.83E-8
  49.     ENT=2.6*X*(597+0.46*DB)/(760-X)+DB
  50.     CLS
  51.     PRINT "ENTHALPY ";intf(ENT*100)/100;" kJ/kg"
  52.     A%=GET
  53. endif
  54. RETURN
  55. ENDP
  56.  
  57. PROC HUMID: 
  58. LOCAL gen%,H%,PV,PS
  59. CLS
  60. dINIT"Relative Humidity"
  61. dfloat WB,"Wet Bulb (c)",0,100
  62. dfloat DB,"Dry Bulb (c)",0,100
  63. gen%=dialog
  64. PSW=10**(30.59051-8.2*LOG(WB+273.15)+(2.4804E-3)*(WB+273.15)-3142.31/(WB+273.15))
  65. PV=PSW-101.325*(DB-WB)*6.66E-4
  66. PSW=10**(30.59051-8.2*LOG(DB+273.15)+(2.4804E-3)*(DB+273.15)-3142.31/(DB+273.15))
  67. HUM=(INTF(10000*PV/PSW))/100
  68. PRINT"Wet Bulb = ";WB;"(c)"
  69. PRINT"Dry Bulb = ";DB;"(c)"
  70. PRINT"Relative Humidity % = ";HUM
  71. H% = GET
  72. RETURN
  73. ENDP
  74.  
  75. PROC MOISTURE:
  76. LOCAL gen%,gen1%,VOL,TOT,GS,G,V
  77. CLS
  78. PSW=intf(PSW*1000)/1000
  79. dINIT"Moisture Content Calculator"
  80. dfloat PSW,"Saturated Vapour Pressure (kPa)",0,1000
  81. dfloat HUM,"Relative Humidity %",0,100
  82. dfloat DB,"Dry Bulb (c)",0,100
  83. gen%=dialog
  84. if gen%
  85.     CLS
  86.     GS=(0.624*PSW)/(101.325-1.004*PSW)
  87.     G=HUM*GS/100
  88.     V=(0.287+0.461*G)*(DB+273.15)/101.325
  89.     V=V*100 : V=INT(V) : V=V/100
  90.     PRINT"kg water per kg dry air = ";INTF(G*10000)/10000
  91.     PRINT"Specific Volume (M3/kg) = ";V
  92.     get
  93.     dINIT"Humidifier Specification Calculator"
  94.     dfloat VOL,"Volume flow rate (M3/s)",0,100
  95.     gen1%=dialog
  96.     if gen1%
  97.         CLS
  98.         TOT=VOL/V : TOT=TOT*G
  99.         TOT=INTF(TOT*10000)/10000
  100.         PRINT"Required Humidifer Delivery = ";TOT;"kg/s"
  101.         PRINT
  102.         PRINT"Based on 100% duty (dry air input):"
  103.         PRINT"Air flow rate of ";VOL;"M3/sec"
  104.         PRINT"Relative Humidity of ";HUM;"% RH"
  105.         PRINT"Dry Bulb Temperature of ";DB;"c"
  106.         GET
  107.     endif
  108. endif
  109. RETURN
  110. ENDP
  111.  
  112. PROC VELPRES:
  113. LOCAL gen%,VEL,PRES
  114. PRES=101.325
  115. CLS
  116. dINIT"Velocity Probe Calculator"
  117. dfloat PRES,"Barometric pressure (kPa)",0,1000
  118. dfloat DB,"Dry Bulb (c)",0,100
  119. dfloat VEL,"Velocity (M/s)",0,100
  120. gen%=dialog
  121. if gen%
  122.     CLS
  123.     PRINT"Pv = ";FIX$(0.5*1.2*(PRES/101.325)*(293/(273+DB))*VEL**2,2,6);" Pa";
  124.     GET
  125. endif
  126. RETURN
  127. ENDP
  128.