diff options
author | Tobias Klauser <tklauser@distanz.ch> | 2008-01-27 11:37:44 +0100 |
---|---|---|
committer | Tobias Klauser <tklauser@xenon.tklauser.home> | 2008-01-27 11:37:44 +0100 |
commit | 7e0f021a9aec35fd8e6725e87e3313b101d26f5e (patch) | |
tree | b1cacc4b24393f517aeb4610e9e1021f954307a8 /reference/C/CONTRIB/SNIP/windchil.c |
Initial import (2.0.2-6)2.0.2-6
Diffstat (limited to 'reference/C/CONTRIB/SNIP/windchil.c')
-rwxr-xr-x | reference/C/CONTRIB/SNIP/windchil.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/windchil.c b/reference/C/CONTRIB/SNIP/windchil.c new file mode 100755 index 0000000..c868773 --- /dev/null +++ b/reference/C/CONTRIB/SNIP/windchil.c @@ -0,0 +1,19 @@ +/*
+** Wind Chill for exposed human skin, expressed as a function of wind
+** speed in Miles per Hour and temperature in degrees Fahrenheit.
+**
+** Public domain from numerous published references.
+*/
+
+#include <math.h>
+
+double wind_chill(int wind_speed, int temp)
+{
+ if (4 > wind_speed)
+ return (double)temp;
+ else
+ {
+ return (((10.45 + (6.686112 * sqrt((double) wind_speed))
+ - (.447041 * wind_speed)) / 22.034 * (temp - 91.4)) + 91.4);
+ }
+}
|