Tweet
include('read_maincfg.php');
include_once('loads.php');
include_once('loads_db.php');
include_once('meter.php');
date_default_timezone_set($DTZ);
$max_power = 0;
for ($invt_num = 1; $invt_num <= $NUMINV; $invt_num++) {
$invtnum = $invt_num;
include("read_invtcfg.php");
$max_power = $max_power + $PLANT_POWER;
$systemid = "1231" . $invt_num;
@$shmid = shmop_open($systemid, "a", 0444, 256);
if (!empty($shmid)) {
$livedash[0] = shmop_read($shmid, 0, 256);
shmop_close($shmid);
} else {
$nowUTC = strtotime(date("Ymd H:i:s"));
$livedash[0] = "$nowUTC,0,0,0,0,0,0,0,0,0,0,0,0,0,0";
}
$array = preg_split("/,/", $livedash[0]);
if (!isset($GPTOT)) {
$GPTOT = 0;
}
$array[9] *= $CORRECTFACTOR;
$GPTOT += $array[9];
}
// Produzione
if ($GPTOT > 1000) {
$GPTOT = round($GPTOT, 0);
} else {
$GPTOT = round($GPTOT, 1);
}
// Consumo
$cons = read_meter_kw($METER_URL);
echo "Comsumption = $cons\n";
// Netto
$NET = $GPTOT - $cons;
$NUM_LOADS = count($LOADS_LIM);
$LOADS_FORCE = array();
$LOADS_STATUS = array();
$LOADS_LAST_ON = array();
for ($i = 0; $i < $NUM_LOADS; $i++) {
$LOADS_FORCE[$i] = get_status($i);
$LOADS_STATUS[$i] = read_load($RELAY_URL, $i);
$LOADS_LAST_ON[$i] = get_laston($i);
}
$date = date('Ymd_His');
$now = time();
//$nowUTC = gmdate("Y-m-d H:i:s", $now);
$nowUTC = date("Y-m-d H:i:s", $now);
$power = $NET;
if ($NET < 0) {
// Lower production
for ($pin = $NUM_LOADS - 1; $pin >= 0; $pin--) {
if ($LOADS_LAST_ON[$pin] > 0) {
$lastOn = date("Y-m-d H:i:s", $LOADS_LAST_ON[$pin]);
} else {
$lastOn = 0;
}
echo "$pin: LOADS_FORCE = $LOADS_FORCE[$pin], LOADS_STATUS = $LOADS_STATUS[$pin], LOADS_LAST_ON = $lastOn, now = $nowUTC, LOADS_LIM = $LOADS_LIM[$pin], GPTOT = $GPTOT, cons = $cons, NET = $NET, power = $power\n";
if ($LOADS_FORCE[$pin] == STATUS_FV) {
//if (($power + $LOADS_HIS[$pin]) < 0 && strcmp($LOADS_STATUS[$pin], STATUS_ON) == 0) {
if ((($cons == 0 && ($power + $LOADS_HIS[$pin]) < $LOADS_LIM[$pin]) ||
($cons > 0 && ($power + $LOADS_HIS[$pin]) < 0)) &&
strcmp($LOADS_STATUS[$pin], STATUS_ON) == 0) {
$diff = round(abs($now - $LOADS_LAST_ON[$pin]) / 60, 2);
if ($diff >= $LOADS_MIN[$pin]) {
$power = $power + $LOADS_LIM[$pin];
echo "Turning off $pin\n";
change_load($RELAY_URL, $pin, STATUS_OFF);
save_laston($pin, 0);
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], STATUS_OFF, $LOADS_FORCE[$pin]);
} else {
echo "Waiting at least $LOADS_MIN[$pin] min before turning off $pin. Now $diff\n";
}
} else {
echo "Nothing to do OFF FV\n";
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], $LOADS_STATUS[$pin], $LOADS_FORCE[$pin]);
}
} else {
echo "Nothing to do OFF\n";
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], $LOADS_STATUS[$pin], $LOADS_FORCE[$pin]);
}
}
} else {
// Higher production
for ($pin = 0; $pin < $NUM_LOADS; $pin++) {
if ($LOADS_LAST_ON[$pin] > 0) {
$lastOn = date("Y-m-d H:i:s", $LOADS_LAST_ON[$pin]);
} else {
$lastOn = 0;
}
echo "$pin: LOADS_FORCE = $LOADS_FORCE[$pin], LOADS_STATUS = $LOADS_STATUS[$pin], LOADS_LAST_ON = $lastOn, now = $nowUTC, LOADS_LIM = $LOADS_LIM[$pin], GPTOT = $GPTOT, cons = $cons, NET = $NET, power = $power\n";
if ($LOADS_FORCE[$pin] == STATUS_FV) {
if ($power >= $LOADS_LIM[$pin] && strcmp($LOADS_STATUS[$pin], STATUS_OFF) == 0) {
echo "Turning on $pin\n";
$power = $power - $LOADS_LIM[$pin];
change_load($RELAY_URL, $pin, STATUS_ON);
save_laston($pin, $now);
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], STATUS_ON, $LOADS_FORCE[$pin]);
} else if (($cons == 0 && ($power + $LOADS_HIS[$pin]) < $LOADS_LIM[$pin]) && strcmp($LOADS_STATUS[$pin], STATUS_ON) == 0) {
$diff = round(abs($now - $LOADS_LAST_ON[$pin]) / 60, 2);
if ($diff >= $LOADS_MIN[$pin]) {
$power = $power + $LOADS_LIM[$pin];
echo "Turning off $pin\n";
change_load($RELAY_URL, $pin, STATUS_OFF);
save_laston($pin, 0);
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], STATUS_OFF, $LOADS_FORCE[$pin]);
} else {
echo "Waiting at least $LOADS_MIN[$pin] min before turning off $pin. Now $diff\n";
}
} else {
echo "Nothing to do ON FV\n";
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], $LOADS_STATUS[$pin], $LOADS_FORCE[$pin]);
}
} else {
echo "Nothing to do ON\n";
save_data($pin, $date, $NET, $LOADS_STATUS[$pin], $LOADS_STATUS[$pin], $LOADS_FORCE[$pin]);
}
}
}
Commenta