home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / PROGRAM / SNPD9404.ZIP / WINDCHIL.C < prev    next >
Text File  |  1994-04-03  |  477b  |  19 lines
  1. .I 0 7
  2. /*
  3. **  Wind Chill for exposed human skin, expressed as a function of wind
  4. **  speed in Miles per Hour and temperature in degrees Fahrenheit.
  5. **
  6. **  Public domain from numerous published references.
  7. */
  8.  
  9. .I 4 8
  10.       if (4 > wind_speed)
  11.             return (double)temp;
  12.       else
  13.       {
  14.             return (((10.45 + (6.686112 * sqrt((double) wind_speed))
  15.                   - (.447041 * wind_speed)) / 22.034 * (temp - 91.4)) + 91.4);
  16.       }
  17. }
  18. .D 5 3
  19.