====== Bob's Hurricane Wind Speed Logger ======

<php>
include "/web/baggerman/wind/libchart/libchart/classes/libchart.php";

// Some constants
// --------------

$PLOT_POINTS  = 3601;

// Get a little data to display
// ----------------------------
$sLog = "";
exec("tail -60 logwind.txt", $sLog);

$AveSpeedAve = 0;
$AveSpeedMax = 0;
#print "<pre>\n";
foreach ($sLog as $sLine)
  {
  $asLineParts = explode(" ", $sLine, 3);
  $asSpeeds    = explode(",", $asLineParts[2]);
#  printf("%s %s %s %s\n", $asLineParts[1], $asSpeeds[0], $asSpeeds[1], $asSpeeds[2]);
  $AveSpeedAve += floatval($asSpeeds[2]);
  $AveSpeedMax = max($AveSpeedMax, floatval($asSpeeds[1]));
  }
#print "</pre>\n";
$AveSpeedAve /= 60.0;

printf("<h2>%s %s - Current Average Speed %4.1f, gusting to %4.1f MPH</h2>", 
    $asLineParts[0], substr($asLineParts[1],0,8), $AveSpeedAve, $AveSpeedMax);

print("<hr>\n");

// Get one hour of data to plot
// ----------------------------

$AVE_POINTS   = 60;
$sLog = "";
exec("tail -3601 logwind.txt", $sLog);

$SpeedXYAve = new XYDataSet();
$SpeedXYMax = new XYDataSet();
$iLabelIdx = 0;
$iAveIdx   = $AVE_POINTS;
$AveSpeedAve = 0;
$AveSpeedMax = 0;
foreach ($sLog as $sLine)
  {
  $asLineParts = explode(" ", $sLine, 3);
  $asSpeeds    = explode(",", $asLineParts[2]);
  $aSpeedTime[] = $asLineParts[0];

  if ($iAveIdx == 0)
    {
    if ($iLabelIdx == 0)
      {
      $sLabel = substr($asLineParts[1], 0, 8);
      $iLabelIdx = 5;
      }
    else
      {
      $sLabel = "";
      $iLabelIdx--;
      }

    $AveSpeedAve /= $AVE_POINTS;
    $SpeedXYAve->addPoint(new Point($sLabel, $AveSpeedAve));
    $SpeedXYMax->addPoint(new Point($sLabel, $AveSpeedMax));
    $AveSpeedAve = 0;
    $AveSpeedMax = 0;
    $iAveIdx     = $AVE_POINTS;
    }
    
  else
    {
    $AveSpeedAve += floatval($asSpeeds[2]);
    $AveSpeedMax = max($AveSpeedMax, floatval($asSpeeds[1]));
    $iAveIdx--;
    }
 }

$SpeedXY = new XYSeriesDataSet();
$SpeedXY->addSerie("Average", $SpeedXYAve);
$SpeedXY->addSerie("Max",     $SpeedXYMax);

$SpeedChart = new LineChart(1200,400);
#$SpeedChart->getPlot()->getPalette()->seti
$SpeedChart->setDataSet($SpeedXY);
$SpeedChart->setTitle("Wind Speed for the past 1 hour (MPH)");
$SpeedChart->render("windplot.png");

print "<img src='windplot.png'><br>\n";
    
// Get 12 hours of data to plot
// ----------------------------

$AVE_POINTS   = 300;
$sLog = "";
exec("tail -43201 logwind.txt", $sLog);

$SpeedXYAve = new XYDataSet();
$SpeedXYMax = new XYDataSet();
$iLabelIdx = 0;
$iAveIdx   = $AVE_POINTS;
$AveSpeedAve = 0;
$AveSpeedMax = 0;
foreach ($sLog as $sLine)
  {
  $asLineParts = explode(" ", $sLine, 3);
  $asSpeeds    = explode(",", $asLineParts[2]);
  $aSpeedTime[] = $asLineParts[0];

  if ($iAveIdx == 0)
    {
    if ($iLabelIdx == 0)
      {
      $sLabel = substr($asLineParts[1], 0, 8);
      $iLabelIdx = 5;
      }
    else
      {
      $sLabel = "";
      $iLabelIdx--;
      }

    $AveSpeedAve /= $AVE_POINTS;
    $SpeedXYAve->addPoint(new Point($sLabel, $AveSpeedAve));
    $SpeedXYMax->addPoint(new Point($sLabel, $AveSpeedMax));
    $AveSpeedAve = 0;
    $AveSpeedMax = 0;
    $iAveIdx     = $AVE_POINTS;
    }
  else
    {
    $AveSpeedAve += floatval($asSpeeds[2]);
    $AveSpeedMax = max($AveSpeedMax, floatval($asSpeeds[1]));
    $iAveIdx--;
    }
 }

$SpeedXY = new XYSeriesDataSet();
$SpeedXY->addSerie("Average", $SpeedXYAve);
$SpeedXY->addSerie("Max",     $SpeedXYMax);

$SpeedChart = new LineChart(1200,400);
#$SpeedChart->getPlot()->getPalette()->seti
$SpeedChart->setDataSet($SpeedXY);
$SpeedChart->setTitle("Wind Speed for the past 12 hours (MPH)");
$SpeedChart->render("windplot_12hr.png");

print "<img src='windplot_12hr.png'><br>\n";
</php>    
            
Here are a few pictures of the setup. Click on the picture for a larger version. My only caveats are that my anamometer is not in an ideal spot and the one attempt at calibrating it showed it was reading about 20% low.