summaryrefslogtreecommitdiff
path: root/reference/C/CONTRIB/SNIP/windchil.c
diff options
context:
space:
mode:
Diffstat (limited to 'reference/C/CONTRIB/SNIP/windchil.c')
-rwxr-xr-xreference/C/CONTRIB/SNIP/windchil.c19
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);
+ }
+}