Dr. Arne Jachens

Set up the Raspberry Pi

no warranty for any of the provided information

This script utilizes Gnuplot to visualize the logfile data.

As 'default' a list of all existing logfiles is generated, to choose from. The intention of 'mode' is to provide specific diagrams depending on whether you want to analyze the solar or oven behaviour...
The respecting curves are plotted and as result the html image tag to the figure is returned. log file of solar heating control

<?php 
/* published under GPL www.gnu.org/licenses/gpl.html */
  /*
  $file="2013-08-24T00-00-01.log";
  $mode="solar";
  HV_showLog($file,$mode);
  */

function checkDataStructure($file){
  $delimiter = "\t";
  $date = substr($file,strpos($file,"_")+1);
  $path =substr($date,0,7)."/";
  $date = substr($date,0,10);
  $file = $path.$file;
  $cmd = "head -1 ".$file;
  exec($cmd,$output);
  $varNames = explode($delimiter,$output[0]);

  for($k=0;$k<count($varNames);$k++){
    $ColNo[$varNames[$k]]=$k+1;
  } #k
  
  $cmd = "tail -1 ".$file;
  exec($cmd,$output);
  $values = explode($delimiter,$output[1]);
  $time = $values[0];

  /*
  echo "<p>".$time." ".$path."</p>";
  print_r($ColNo);
  */
  return array($date,$time,$ColNo,$path);
}


function HV_showLog($timeStamp){
    $delimiter="\t";
    if(isset($_GET['mode'])){
        $mode=$_GET['mode'];
        $file=$_GET['file'];
    }else{
        $mode="default";
    }
    switch($mode){
    case "solar":
        list($date,$time,$ColNo,$path) = checkDataStructure($file);
        $fileS = $path.$file;
        $fileA = str_replace("sensors","actuators",$fileS);
        $fileW = $path."weather_".$date.".log";
        $plot = "set grid\n";
        $plot.= "set term svg size 1200,400 \n";
        $plot.= "set output 'log.svg'\n";
        $plot.= "set key outside top right Left reverse\n";
        $plot.= "set xlabel 'time'\n";
        $plot.= "set ylabel 'Temperature [C]'\n";
        $plot.= "set y2label 'Power [kW]'\n";
        $plot.= "set y2range [0:7]\n";
        $plot.= "set xdata time\n";
        #$plot.= "set timefmt '%Y-%m-%dT%H:%M'\n";
        $plot.= "set timefmt '%H:%M'\n";
        $plot.= "set format x '%H:%M'\n";
        $plot.= "set y2tics\n";
        $plot.= "plot '".$fileW."' u 1:4              w lp lc rgb 'black' title 'T_{aussen}', \\\n";
        #    $plot.= "plot '".$fileW."' u 1:(2.5*$".$ColNo['sun']."*69.7/1000*($".$ColNo['flow']."-$".$ColNo['ret'].")) axis x1y2 w l lc rgb '#c0c0c0' title 'P_solar',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['flow']." w l lc rgb '#008000' title 'T_{Vorlauf}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['ret']."  w l lc rgb '#00ff00' title 'T_{Ruecklauf}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['TLow']." w l lc rgb 'orange' lw 3 title 'T_{Speicher unten}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['THot']." w l lc rgb 'red' lw 3 title 'T_{Seicher oben}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['coll']." w l lc rgb '#800080' lw 3 title 'T_{Kollektor}',\\\n";
        $plot.= " '".$fileA."' u 1:(100*$2)           w p lc rgb 'blue' ps 0.5 title 'A_{solar}'\n";
        #$plot.= "pause -1";
        $fd = fopen("log.gp","w");
        fputs($fd,$plot);
        fclose($fd);
        exec("gnuplot log.gp");
        #sleep(1);
        $result ="<p align='center'><img src='log.svg' alt='logfile'></p>";
        $result.="<p align='center'><a href='?what2do=showLog'>show Logfile</a></p>\n";
        return $result;
        break;
    case "heating":
        list($date,$time,$ColNo,$path) = checkDataStructure($file);
        $fileS = $path.$file;
        $fileA = str_replace("sensors","actuators",$fileS);
        $fileW = $path."weather_".$date.".log";
        $plot = "set grid\n";
        $plot.= "set term svg size 1200,400 \n";
        $plot.= "set output 'log.svg'\n";
        $plot.= "set key outside top right Left reverse\n";
        $plot.= "set xlabel 'time'\n";
        $plot.= "set ylabel 'Temperature [C]'\n";
        $plot.= "set y2label 'Sonnenschein'\n";
        # $plot.= "set y2label 'Power [kW]'\n";
        $plot.= "set y2range [0:1]\n";
        $plot.= "set y2tics 0,0.5,1\n";
        $plot.= "set xdata time\n";
        $plot.= "set timefmt '%H:%M'\n";
        $plot.= "set format x '%H:%M'\n";
        # $plot.= "set y2tics\n";
        $plot.="plot '".$fileW."' u 1:4 w lp lc rgb 'black' title 'T_{aussen}', \\\n";
        $plot.=" '".$fileW."' u 1:10  axis x1y2 w lp lc rgb 'yellow' title 'Sonnenschein', \\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['TLow']." w l lc rgb 'orange' lw 3 title 'T_{Speicher unten}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['THot']." w l lc rgb 'red' lw 3 title 'T_{Seicher oben}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['fire']." w l lc rgb '#008000' lw 3 title 'T_{Ofen}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['haus']." w l lc rgb '#ff00ff' lw 3 title 'T_{Haus}',\\\n";
        $plot.= " '".$fileA."' u 1:($4*10) w p lc rgb '#008080' pt 1 title 'A_{pump}',\\\n";
        $plot.= " '".$fileA."' u 1:($3*15) w p lc rgb 'blue' title 'A_{oven}'\n";
        #$plot.= "pause -1";
        $fd = fopen("log.gp","w");
        fputs($fd,$plot);
        fclose($fd);
        exec("gnuplot log.gp");
        #sleep(1);
        $result ="<p align='center'><img src='log.svg' alt='logfile'></p>";
        $result.="<p align='center'><a href='?what2do=showLog'>show Logfile</a></p>\n";
        return $result;
        break;
    case "ventilation":
        list($date,$time,$ColNo,$path) = checkDataStructure($file);
        $fileS = $path.$file;
        $fileA = str_replace("sensors","actuators",$fileS);
        $fileW = $path."weather_".$date.".log";
        $plot = "set grid\n";
        $plot.= "set term svg size 1200,400 \n";
        $plot.= "set output 'log.svg'\n";
        $plot.= "set key outside top right Left reverse\n";
        $plot.= "set xlabel 'time'\n";
        $plot.= "set ylabel 'Temperature [C]'\n";
        # $plot.= "set y2label 'ventilation level'\n";
        $plot.= "set y2range [0:4]\n";
        #$plot.= "set key top left Left reverse\n";
        #   $plot.= "set boxwidth 1.0\n";
        $plot.= "set datafile missing '-999.000000'\n";
        $plot.= "set y2tics ('off' 0, 'min' 0.27, 'normal' 0.6, 'max' 1) textcolor rgb '#008080'\n";
        $plot.= "set xdata time\n";
        $plot.= "set timefmt '%H:%M'\n";
        $plot.= "set format x '%H:%M'\n";
        $plot.= "plot '".$fileA."' u 1:($5) axis x1y2  w steps lw 2 lc rgb '#008080' title 'ventilation',\\\n";
        $plot.=" '".$fileW."' u 1:4 w lp lc rgb 'black' lw 3 title 'T_{aussen}', \\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['erde']." w l lc rgb '#0000ff' lw 3 title 'T_{Erde}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['zulu']."  w l lc rgb '#00ff00' lw 3 title 'T_{Zuluft}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['ablu']." w l lc rgb 'red' lw 3 title 'T_{Abluft}',\\\n";
        $plot.= " '".$fileS."' u 1:".$ColNo['folu']." w l lc rgb 'cyan' lw 3 title 'T_{Fortluft}',\\\n";
        $plot.= " '".$fileS."' u 1:($".$ColNo['posBp'].">1200?1:0) axis x1y2 w l lc rgb 'yellow' lw 3 title 'Bypass'\n";
        $fd = fopen("log.gp","w");
        fputs($fd,$plot);
        fclose($fd);
        exec("gnuplot log.gp");
        #sleep(1);
        $result ="<p align='center'><img src='log.svg' alt='logfile'></p>";
        $result.="<p align='center'><a href='?what2do=showLog'>show Logfile</a></p>\n";
        return $result;
        break;
  case "H2O":
    include_once("HV_composeH2Oplot.php");
    $file = $_GET['file'];
    $month = substr($file,strpos($file,"_")+6,2);
    $msg = HV_composeH2Oplot($month);
    HV_H2Oplot($month);
    $result ="<p align='center'><img src='H2O.svg' alt='H2O level'></p>";
    $result.="<p align='center'><a href='?what2do=showLog'>show Logfile</a></p>\n";
    return $result;
    break;
  default:
    include_once("readFilenames.php");
  $year  = date('Y');
  $month = date('m');
  if(isset($_GET['month'])){$month=$_GET['month'];}
  $path = "./".$year."-".$month."/";
    $files = readFilenames($path,".txt");
    sort($files);
    $list ="<ul>\n";
    for($f=0;$f<count($files);$f++){
    if(strpos($files[$f],"ensor")>0)
      $list.="<li>".$files[$f]." <a href='?what2do=showLog&mode=solar&file=".$files[$f]."'>solar</a>   
                            <a href='?what2do=showLog&mode=heating&file=".$files[$f]."'>heating</a>  
                            <a href='?what2do=showLog&mode=ventilation&file=".$files[$f]."'>ventilation</a>
                            <a href='?what2do=showLog&mode=H2O&file=".$files[$f]."'>H2O</a></li>\n";
    } #f
    $list.="</ul>\n";
    return $list;
  } #switch

}
?>

python

1HvcControl.py
2HvcHCSR04ultrasonic.py
3HvcMain.py
4HvcMotorDriver.py
5HvcOneWire.py
6HvcOperationMode.py
7HvcRaw2phys.py
8HvcReadSPI.py
9HvcSendI2C.py
10HvcSetGPIO.py
11HvcTables.py
12HvcWeather.py
13makeDoc.py

php

1HV_Admin_Login.php
2HV_colorMap.php
3HV_composeH2Oplot.php
4HV_config.php
5HV_H2Olevel.php
6HV_readOperationState.php
7HV_restart.php
8HV_serviceLog.php
9HV_setParameters.php
10HV_showHouse.php
11HV_showLog.php
12HV_showWeatherForecast.php
13HV_TempCal.php
14index.php
15readFilenames.php
16readNamedData.php

Der gesamte Sourcecode darf gemäß GNU General Public License weiterverbreitet werden.