OpenNethome - an open home automation project

Code: Select all

$Started = 0;
$StopTime = $TargetTime - $OffDelay
while (1)
{
 $CurTime = new DateTime();
 $StartTime = CalculateStartTime($TargetTime, $OutdoorTemp);

 // Kolla om det är dags att slå på
 if ($Started == 0 && $CurTime > $StartTime && $CurTime < $StopTime)
 {
  ExecuteOnAction();
  $Started = 1;
  echo "Startade motorvärmaren\n";
 }
 elseif ($Started == 1 && $CurTime > $StopTime)
 {
  ExecuteOffAction();
  $Started = 0;
  echo "Stoppade motorvärmaren\n";
 }
 Sleep(60);
}

function CalculateStartTime($TargetTime, $OutdoorTemp)
{
 $Minutes = Round(Interpolate(-20, 120, 10, 0, 0, 120, $OutdoorTemp));
 echo "Utetemperaturen är " . $OutdoorTemp . " C\n";
 echo "Starta i förväg med " . $Minutes . " minuter\n";

 // Beräkna starttid
 $StartTime = clone $TargetTime;
 $StartTime->sub(new DateInterval('PT'.$Minutes.'M'));
 echo "Starttid " . $StartTime->Format(DateTime::ATOM) . "\n";
 return $StartTime
}

// Linear interpolation between two known points with limit to endpoints
function Interpolate($xmin, $ymin, $xmax, $ymax, $min, $max, $x)
{
 if ($x == $xmin)
  return $ymin;
 else if ($x == $xmax)
  return $ymax;
 else
  return min(max($ymin+($x-$xmin)*($ymax-$ymin)/($xmax-$xmin), $min), $max);
}