home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_02 / 8n02038a < prev    next >
Text File  |  1990-03-01  |  916b  |  40 lines
  1. *****Listing 4*****
  2.  
  3. Example 4.  An Example of Output Generated by a Hydraulic Analysis
  4. Program using MEL.  (From the input data given in Example 1.)
  5.  
  6.  
  7. program, 
  8.     name = 'HAPN - Hydraulic Analysis of Piping Networks', 
  9.     problem_title = 'Example Problem Illustrating MEL'; 
  10. message, 
  11.     text = 'Date: Thu Jul 13 09:02:11 1989'; 
  12. message, 
  13.     text = 'Input filename: input'; 
  14. equations, 
  15.     node = 0, 
  16.     loop = 0, 
  17.     iterations = 7; 
  18. branch, 
  19.     number = 100, 
  20.     type = 'independent_branch', 
  21.     flow_rate = 436238 (lbm/h), 
  22.     flow_change = -6.20476e-007 (%), 
  23.     flow_dp = 2.17 (psi), 
  24.     elevation_dp = 0 (psi); 
  25. component, 
  26.     branch_number = 100, 
  27.     component_number = 0, 
  28.     type = 'pipe', 
  29.     resistance = 4.95228 (Pa*s2/kg2), 
  30.     change_resistance = -1.24095e-008 (%), 
  31.     pressure_drop = 2.17 (psi); 
  32. node, 
  33.     number = 1, 
  34.     pressure = 8.67 (psi); 
  35. node, 
  36.     number = 2, 
  37.     pressure = 6.5 (psi); 
  38. next; 
  39.  
  40.