Changeset 9

Timestamp:

02/18/09 17:36:59 (3 years ago)

Author:

apribyl

Message:

fix the windchill calculation (thanks to Magnus Nyberg), add printing of altitude

Files:

• weatherstats/weatherstats (modified) (4 diffs)

weatherstats/weatherstats

@@ -9 +9 @@
 # WeatherStats
 #
-# version:      0.5
+# version:      0.6
 #
 # author:       Adam Pribyl, covex@lowlevel.cz
@@ -193 +193 @@
                                 if ($atribute eq "direction") {
                                         $scale = ${$hasharray{$atribute}}[2];
-                                        $arguments = $arguments."DEF:".$atribute."=".$rrdbp.$wname."_".$atribute.".rrd:".$atribute.":MAX ";
+                                        if ($gtime = "24h") {
+                                                $arguments = $arguments."DEF:".$atribute."=".$rrdbp.$wname."_".$atribute.".rrd:".$atribute.":AVERAGE ";
+                                        } else {
+                                                $arguments = $arguments."DEF:".$atribute."=".$rrdbp.$wname."_".$atribute.".rrd:".$atribute.":MAX ";
+                                        }
                                         $arguments = $arguments."CDEF:North=".$atribute.",0,GE,-4,* ";
                                         $arguments = $arguments."CDEF:NNE=".$atribute.",1,GE,-4,* ";
@@ -291 +295 @@
         $date = `date`;
         print INDEX "<p>Generated: ".$date."</p>\n";
+        print INDEX "<p>Station altitude: <span class=\"wvalue\">".$altitude."</span><span class=\"wscale\">mnm</span></p>\n";
 }
 
@@ -480 +485 @@
 $value = ${$wind{'speed'}}[1];
 $tout = ${$temperature{'outdoor'}}[1];
-# windchill calculation is only valid for wind speed > 4.5km/h ~ 1.25m/s
-if ($value > 1.25) { 
-        $ws = $value**0.16;
+# windchill calculation is only valid for wind speed > 4.5km/h ~ 1.25m/s and $tout < 10C
+if ($value > 1.25 and $tout < 10) {
+        #Convert  $value=m/s  $ws=km/h
+        $ws=$value*3.6;
+        $ws = $ws**0.16;
         #Wind chill
         $twc = 13.12+(0.6215*$tout)-(11.37*($ws))+((0.3965*$tout)*($ws));