Domoticz

Code: Select all

     -----------------------------------------------------------------------------------------------
    -- Heating Control
    -- Version 0.4.1
    -- Author - Martin Rourke

    -- This library is free software: you can redistribute it and/or modify it under the terms of
    -- the GNU Lesser General Public License as published by the Free Software Foundation, either
    -- version 3 of the License, or (at your option) any later version. This library is distributed
    -- in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
    -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
    -- Public License for more details. You should have received a copy of the GNU Lesser General
    -- Public License along with this library.  If not, see <http://www.gnu.org/licenses/>.
    -----------------------------------------------------------------------------------------------

    -----------------------------------------------------------------------------------------------
    -- Setup
    -----------------------------------------------------------------------------------------------
    -- To use this script you need to have a few devices already setup in Domoticz
    -- 1. A physical switch to operate (On/Off Switch)
    -- 2. A physical temperature sensor (Temperature)
    -- 3. A virtual switch to tun on and off the heating (On/Off Switch)
    -- 4. A virtual switch to set the target temperature (Temperature)
    -- 5. Define a User Variable as 'Debug', Integer and set to 1 or 0 to show/hide entries in the log

    -----------------------------------------------------------------------------------------------
    -- 1. A physical switch to operate (On/Off Switch)
    -----------------------------------------------------------------------------------------------
    local physicalheater = 'Heating House (Boiler)'

    -----------------------------------------------------------------------------------------------
    -- 2. A physical temperature sensor (Temperature)
    -----------------------------------------------------------------------------------------------
    local currenttemperature = 'Lounge temp'
    local currenttemperature1 = 'Lounge temp'
    local currenttemperature2 = 'Bedroom2'
    local currenttemperature3 = 'Bedroom1'

    -----------------------------------------------------------------------------------------------
    -- 3. A virtual switch to tun on and off the heating (On/Off Switch)
    -----------------------------------------------------------------------------------------------
    local virtualheater = 'Heating House'

    -----------------------------------------------------------------------------------------------
    -- 4. A virtual switch to set the target temperature (Temperature)
    -- Assumes you are using a dummy switch "Thermostat Setpoint" to move temperature up and down
    -----------------------------------------------------------------------------------------------
    local targettemperature = 'Thermostat House'

    -----------------------------------------------------------------------------------------------
    -- 5. UserVariable - Set debug to 1 for testing. 0 for live running.
    -----------------------------------------------------------------------------------------------

    -----------------------------------------------------------------------------------------------
    -- OPTIONS
    -----------------------------------------------------------------------------------------------

    -----------------------------------------------------------------------------------------------
    -- After this time the heating will automatically turn off as a temperature was not detected
    -- from the temperature sensor. this helps protect against the heating being left on all the
    -- time if the signal is lost.
    -----------------------------------------------------------------------------------------------
    local lostsignaltime = 3600 -- 60 minutes

    -----------------------------------------------------------------------------------------------
    -- Helps protect against multiple quick changes to the physical switch
    -----------------------------------------------------------------------------------------------
    local heatercommanddelay = 120 -- 2 minutes

    -----------------------------------------------------------------------------------------------
    -- Repeats the On or Off command after a set time for devices that don't have a handshake
    -- Should always be bigger than heatercommanddelay
    -----------------------------------------------------------------------------------------------
    local heaterrepeatdelay = 300 -- 5 minutes

    -----------------------------------------------------------------------------------------------
    -- Defines the temperature range above and below the set point where the heating will left in
    -- the current state to avoid frequent switching 
    -----------------------------------------------------------------------------------------------
    local temprange = 0.5 -- 0.5 degrees

    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -- NOTHING SHOULD NEED TO CHANGE BELOW THIS LINE
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------------------------

    local thermostatchgnagedetected = 0

    commandArray = {}
    function debuglog (s)
       if uservariables["Debug"] == 1 then print("DEBUG - THERMOSTAT " .. physicalheater .. s) end
       return true
    end

    function timedifference (s)
      year = string.sub(s, 1, 4)
      month = string.sub(s, 6, 7)
      day = string.sub(s, 9, 10)
      hour = string.sub(s, 12, 13)
      minutes = string.sub(s, 15, 16)
      seconds = string.sub(s, 18, 19)
      t1 = os.time()
      t2 = os.time{year=year, month=month, day=day, hour=hour, min=minutes, sec=seconds}
      difference = os.difftime (t1, t2)
      return difference
    end

    function round(num, idp)
      local mult = 10^(idp or 0)
      return math.floor(num * mult + 0.5) / mult
    end

    -----------------------------------------------------------------------------------------------
    -- Controls the heating based on the target and current temperatures
    -----------------------------------------------------------------------------------------------

     -- Is the heating scheduled to be on?
     if (otherdevices[virtualheater]=='On') then
     debuglog('Heating - Heating Is Scheduled To Be On: ' .. virtualheater )

       -- what is the target temperature and the top/bottom range?
       target = round(tonumber(otherdevices_svalues[targettemperature]), 1)
       targethigh = (target + tonumber(temprange))
       targetlow = (target - tonumber(temprange))

       -- test to see if we can still see the thermostat. If not force the heating off          
       if ( timedifference(otherdevices_lastupdate[currenttemperature]) > lostsignaltime ) then
          -- this section to handle loss of signal with thermostat and turns off boiler
          debuglog('Heating - WARNING: Last seen temperature sensor: '.. currenttemperature ..' ' .. tostring(otherdevices_lastupdate[currenttemperature]))
          debuglog('Heating - WARNING: Signal Lost with temperature sensor for over '.. lostsignaltime ..' seconds: '.. currenttemperature)
          debuglog('Heating - WARNING: forcing Heating OFF : '.. physicalheater)
             
          if( timedifference(otherdevices_lastupdate[physicalheater]) > heaterrepeatdelay) then -- checks to see if the command needs to be repeated
            if (otherdevices[physicalheater]=='Off') then
                debuglog('Heating - WARNING - Turning Physical Heater On: '.. physicalheater)
             else
                debuglog('Heating - WARNING - Turning Physical Heater On (Repeat Command): '.. physicalheater)
             end
             commandArray[physicalheater] = 'On'
          else
             debuglog('Heating - INFO: Not enough time has passed before issuing repeat command to switch: Only '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heaterrepeatdelay .. ' seconds')
          end
         -- end of section for turning off boiler if no comms with thermostat
       else
          -- this section runs only if we have received temp info from the stat
          debuglog('Heating - Last seen temperature sensor: '.. currenttemperature ..' ' .. tostring(otherdevices_lastupdate[currenttemperature]))
          
          -- What is the current temperature? We sample three stats and take an average and round to one DP
          -- As some temperature devices also return other values as humidity this assumes the first value is the temperature in all cases
          current1 = tonumber(string.gmatch(otherdevices_svalues[currenttemperature1], '([^;]+)')(1))
          current2 = tonumber(string.gmatch(otherdevices_svalues[currenttemperature2], '([^;]+)')(1))
          current3 = tonumber(string.gmatch(otherdevices_svalues[currenttemperature3], '([^;]+)')(1))
	  current = round(((current1 + current2 + current3) / 3), 1)
 
	  debuglog('Heating - Lounge temperature: ' .. tostring(current1))
	  debuglog('Heating - Bedroom2 temperature: ' .. tostring(current2))
	  debuglog('Heating - Bedroom1 temperature: ' .. tostring(current3))
	  debuglog('Heating - Average temperature: ' .. tostring(current))
          debuglog('Heating - Target: ' .. tostring(target) .. ' Current: ' .. tostring(current))
          debuglog('Heating - TargetHigh: ' .. tostring(targethigh) .. ' TargetLow: ' .. tostring(targetlow))

          if( timedifference(otherdevices_lastupdate[physicalheater]) > heatercommanddelay ) then -- checks to see if the heater has been turned off recently
             debuglog('Heating - Enough time has passed since last change to switch: '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heatercommanddelay .. ' seconds')

             if (current < targetlow) then -- test if current temp is below target low threshold - need to turn heater on	     
                debuglog('Heating - Current temp is below TargetLow. Turning Physical Heater On: '.. physicalheater)
                if( timedifference(otherdevices_lastupdate[physicalheater]) > heaterrepeatdelay or devicechanged[remoteup] or devicechanged[remotedown] or devicechanged[virtualheater]) then -- checks to see if the command needs to be repeated
                   if (otherdevices[physicalheater]=='Off') then
                      debuglog('Heating - Current below TargetLow. Turning Physical Heater On: '.. physicalheater)
                   else
                      debuglog('Heating - Current below TargetLow. Turning Physical Heater On (Repeat Command): '.. physicalheater)
                   end
                   commandArray[physicalheater] = 'On'
                else
                   debuglog('Heating - INFO: Not enough time has passed before issuing repeat command to switch: Only '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heaterrepeatdelay .. ' seconds')
                end
             else
		if (current > targethigh) then -- test if current temp is above top threshold - need to turn heater off
                  debuglog('Heating - Current temp is above Targethigh. Turning Physical Heater Off: '.. physicalheater)
                  if( timedifference(otherdevices_lastupdate[physicalheater]) > heaterrepeatdelay or devicechanged[remoteup] or devicechanged[remotedown] or devicechanged[virtualheater]) then -- checks to see if the command needs to be repeated
                     if (otherdevices[physicalheater]=='On') then
                        debuglog('Heating - Current above TargetHigh. Turning Physical Heater Off: '.. physicalheater)
                     else
                        debuglog('Heating - Current above TargetHigh. Turning Physical Heater Off (Repeat Command): '.. physicalheater)
                     end
                     commandArray[physicalheater] = 'Off'
                  else
                     debuglog('Heating - INFO: Not enough time has passed before issuing repeat command to switch: Only '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heaterrepeatdelay .. ' seconds')
                  end
                else
                   debuglog('Heating - Current temp between TargetHigh and Targetlow. Leaving boiler in current state') -- leave boiler either on as house warms up or off as house cools down
                end
              end
 

          else
             debuglog('Heating - INFO: Not enough time has passed before issuing command to switch: Only '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heatercommanddelay .. ' seconds')
          end
       end



     else
        debuglog('Heating - Turning Heating Off As Scheduled To Be Off')   
        if( timedifference(otherdevices_lastupdate[physicalheater]) > heatercommanddelay ) then
           debuglog('Heating - Enough time has passed before issuing command to switch: '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heatercommanddelay .. ' seconds')
              if( timedifference(otherdevices_lastupdate[physicalheater]) > heaterrepeatdelay or devicechanged[remoteup] or devicechanged[remotedown] or devicechanged[virtualheater]) then -- checks to see if the command needs to be repeated
                 if (otherdevices[physicalheater]=='On') then
                    debuglog('Heating - Turning Physical Heater Off: '.. physicalheater)
                 else
                    debuglog('Heating - Turning Physical Heater Off (Repeat Command): '.. physicalheater)
                 end
                 commandArray[physicalheater] = 'Off'
              else
                 debuglog('Heating - INFO: Not enough time has passed before issuing repeat command to switch: Only '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heaterrepeatdelay .. ' seconds')
              end   
        else
           debuglog('Heating - INFO: Not enough time has passed before issuing command to switch: Only '.. timedifference(otherdevices_lastupdate[physicalheater]) .. ' seconds out of ' .. heatercommanddelay .. ' seconds')
        end
     end

Code: Select all

-----------------------------------------------------------------------------------------------
-- 5. UserVariable - Set debug to 1 for testing. 0 for live running.
-----------------------------------------------------------------------------------------------
debug = 1

Code: Select all

function debuglog (s)
       if uservariables["Debug"] == 1 then print("DEBUG - THERMOSTAT " .. physicalheater .. s) end
       return true
end

Code: Select all

2015-12-04 09:41:00.413 Error: EventSystem: /home/pi/domoticz/scripts/lua/script_time_heating-0.1.lua:165: attempt to index global 'devicechanged' (a nil value)

Code: Select all

if( timedifference(otherdevices_lastupdate[physicalheater]) > heaterrepeatdelay or devicechanged[remoteup] or devicechanged[remotedown] or devicechanged[virtualheater]) then -- checks to see if the command needs to be repeated

Code: Select all

devicechanged[remoteup]

Code: Select all

devicechanged[remotedown]

Code: Select all

-- /lua/scripts/heating.lua adapted for dzVents by commodore white

local               doors = {"foo"}            -- list of doors
local             windows = {"bar"}            -- list of windows
local        thermometers = {             -- list of thermometers to average out
                            "envKitchen" }
local          thermostat = "Bedroom"     -- name of the control used to select the temperature
local              boiler = "boiler"      -- name of the switch that controls the boiler
local             heating = "heating"     -- name of the switch used to turn heating on and off

local thermometer_timeout = 60  -- minutes to prevent relying on a broken thermometer
local     max_temperature = 25  -- degrees to detect heating over-run
local     min_temperature = 15  -- degress for target if house is unoccupied 
local       frost_protect = 10  -- degrees for target to protect against a freeze (un-implemented)
local boiler_switch_delay = 10  -- seconds to prevent boiler being switched too frequently (negative to disable)
local           tolerance = 0.5 -- degrees of thermal hysteresis to avoid frequent cycling
local          keep_alive = 15  -- minutes between repeated commands (9999 to efectively disable)
 
local               debug = true

-------------------- break the seal to void the warrenty -------------------------

-- build the on= list

local onlist = {['timer'] = 'every ' .. keep_alive .. ' minutes', thermostat, heating}
          
for _,j in ipairs(thermometers) do onlist[#onlist+1] = j end
for _,j in ipairs(doors       ) do onlist[#onlist+1] = j end
for _,j in ipairs(windows     ) do onlist[#onlist+1] = j end

if false then for i,j in ipairs(onlist) do print(i..' '..j) end end

--

return {
  active = true, on=onlist,
	execute = function(domoticz,_device)
 
local printf = function(s,...) if debug then print('heating: ' .. s:format(...)) end end

local       _thermometer = domoticz.devices[thermometer]
local        _thermostat = domoticz.devices[thermostat]
local            _boiler = domoticz.devices[boiler]
local            _heating = domoticz.devices[heating]

        printf("Heating: %s ...... Boiler: %s ", _heating.state, _boiler.state)

-- re-issue most recent boiler command depending on keep_alive timer

local   demand = ""

        if     _device == nil -- scheduled script execution ?
        then
               demand = _boiler.state
               printf('Resend most recent boiler command: %s', demand)
               _boiler.setState(demand)
               return
        end

-- Calculate temperature by averaging those listed. Ignore any that have not responded recently.

local    count = 0
local    sum = 0

for _,thermometer in ipairs(thermometers)
  do
    _therm = domoticz.devices[thermometer]
    if    _therm ~= nil                               -- check the device exists
    then                                              -- if so
          age     = _therm.lastUpdate.minutesAgo
          temp    = domoticz.devices[thermometer].temperature
          printf("Thermometer %s (updated %sm ago) is %2.1f", thermometer, age, temp)
          if      age < thermometer_timeout      -- if thermometer still responding 
          then
                  count = count + 1                   -- accumulate the temperatures
                  sum = sum + temp                    -- and the number included
                  if      temp > max_temperature then -- if temperature is too high
                          boiler_switch_delay = 0     -- send command immediately
                          demand = "Off"
                          _heating.switchOff()
                          domoticz.notify("Room temperature of " .. t .. "deg is too high","Shutting down")
                  end
          else
                  printf("Thermometer device %s is unresponsive - skipping", thermometer)
          end
    else
          printf("Thermometer device %s not found - skipping", thermometer)
    end
  end

  if      count == 0
  and     _heating.state == "On"
  then
          printf("No viable thermometers found - turning heating Off")
          _boiler.switchOff()
          _heating.switchOff()
          return
  end

local   current = sum/count  -- calculate average across all thermometers

-- set the target temperature depending on house occupancy

local   is_occupied = domoticz.devices["AnyPhone"].state == "On"
local   target

        if    is_occupied
        then
              target = _thermostat.rawData[1]
        else
              print("House is unoccupied")
              target = min_temperature
        end                                                  

        printf('target temp:   %s', target)                 
        printf('Average current temp: %2.1f (average of %1d measurement(s))', current,count)

-- check if any doors or windows are open

local  is_open = false -- assume no doors or windows are open

        for _,door in ipairs(doors) do
local       ptr   = domoticz.devices[door]
            if    ptr == nil then
                  printf("No such door sensor as %s - skipping it", door)
            else
                  if    ptr.state == "Alarm" then
                        printf("Door %s is open", door)
                        is_open = true
                  end
            end
         end

        for _,window in ipairs(windows) do
local       ptr   = domoticz.devices[window]
            if    ptr == nil then
                  printf("No such window sensor as %s - skipping it", window)
            else
                  if    ptr.state == "Alarm" then
                        printf("Window %s is open", window)
                        is_open = true
                  end
            end
         end

         if        is_open
         then
                print("One or more doors or windows open - heating is disabled")
                _boiler.switchOff()
                return
         end

-- if the doors and windows are closed and the house is occupied, then
-- heat the room if it's cold, don't if it's not 

local   is_heatingScheduled = _heating.state == "On"

        if      is_heatingScheduled
        and     not is_open          -- doors/windows closed
        then
                is_toohot   = current > target + tolerance
                is_toocool  = current < target - tolerance
                        
                if      is_toohot
                and     _boiler.state == "On"
                then    demand = "Off"
                        printf('Too hot! Switching boiler Off') end

                if      is_toocool
                and     _boiler.state == "Off"
                then    demand = "On"
                        printf('Too cold! Switching boiler On') end                        
        else
                if      _boiler.state == "On"
                then
                        printf("Switching boiler Off")
                        demand = "Off" -- turn off boiler if heating is off or if doors/windows are open
                end
        end

-- send the boiler the command ensuring there's a reasonable delay since the last one

local   age     = _boiler.lastUpdate.secondsAgo printf("Boiler previously updated %ss ago", age)
local   delay   = boiler_switch_delay - age

        if      demand ~= ""
        then
                if      age >= boiler_switch_delay
                then
                        _boiler.setState(demand)
                else
                        if boiler_switch_delay >= 0 then
                              _boiler.setState(demand).after_sec(delay)
                        end
                end
        end

	end -- execute
 
}