Forum Domoticz en français

Code : Tout sélectionner

-- script_device_conschauf.lua ---------------------------------------
-- G PETREMENT -----------------------------------------------2015----
----------------------------------------------------------------------
-- Pilotage d'un Thermostat setpoint Consigne pour pilotage regul ----
-- en fonction d'une programation journaliere ------------------------
----------------------------------------------------------------------
-- Le programme est basé sur l'action de 2 switchs (virtuels ou non) -
-- Le Switch EcoConfort dispose d'une programation mais peut aussi ---
-- être actionné manuellement. ---------------------------------------
-- Le switch HorsGel est un mode vacance qui stope la programmation --
-- Les temperatures de consignes sont stockées en variable direct ----
-- dans domoticz pour être modifiées par l'interface web. ------------
----------------------------------------------------------------------

----------------------------------------------------------------------
-- VARIABLES UTILISATEUR : mettre les nom des dispositifs ici --------
----------------------------------------------------------------------
local VarConsJour = 'ConsigneJour'       --Variable consigne jour
local VarConsNuit = 'ConsigneNuit'       --Variable consigne nuit
local VarConsVac = 'ConsigneVacance'     --Variable consigne vacances
local VarSomErr = 'SommeErreur'          --Variable Somme des erreurs
local SondeCons = 'Th_salon'               --Consigne thermostat de temperature
local InterEcoConfort = 'EcoConfort'     --Interrupteur programmé Off:eco On:confort
local InterHorsGel = 'HorsGel'           --Interrupteur On:mode hors gel>> plus de programmation, consigne vacance ou manuelle
local domoticz_url = '192.168.0.23:9085'  --Adresse IP:port de Domoticz
local IDXcons = '1'                     --IDx de l'afficheur de consigne
----------------------------------------------------------------------

-- Fonction retourant la differrence de temps en secondes ------------
--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

commandArray = {}
--  Recuperation des variables ---------------------------------------
local ConsJour = uservariables[VarConsJour]
local ConsNuit = uservariables[VarConsNuit]
local ConsVac = uservariables[VarConsVac]
--local Consigne = otherdevices_temperature[SondeCons]
--local Consigne = otherdevices_svalues[SondeCons]
--print('consignes jour= '..ConsJour..'°  Nuit= ' ..ConsNuit..'° Vac= '..ConsVac..'°  et Consigne Thermostat= '..Consigne..'°')

local t1 = os.date("%H:%M")

-- Lorsqu'un interrupteur est manipulé on modifie la temperature de consigne.
-- La variable SommeErreur utilisée pour calculer le gain intégral est aussi remise à 0 >> Gain intégral=0
if (((devicechanged[InterEcoConfort] == 'On') and (otherdevices[InterHorsGel] == 'Off')) or ((devicechanged[InterHorsGel] == 'Off') and (otherdevices[InterEcoConfort] == 'On'))) then
   print("-------------- Temperature modifiée vers Confort à "..t1)
   -- Mise a jour de l'afficheur via JSON -----------------------------
   local url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDXcons..'&nvalue=0&svalue='..ConsJour
   commandArray[1]={['OpenURL']=url }
   commandArray['Variable:'..VarSomErr]='0'

elseif (((devicechanged[InterEcoConfort] == 'Off') and (otherdevices[InterHorsGel] == 'Off')) or ((devicechanged[InterHorsGel] == 'Off') and (otherdevices[InterEcoConfort]=='Off' ))) then
   print("-------------- Temperature modifiée vers Eco à "..t1)
   -- Mise a jour de l'afficheur via JSON -----------------------------
   local url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDXcons..'&nvalue=0&svalue='..ConsNuit
   commandArray[1]={['OpenURL']=url }
   commandArray['Variable:'..VarSomErr]='0'
  
elseif (devicechanged[InterHorsGel] == 'On') then
   print("-------------- Temperature modifiée vers HorsGel à "..t1)
   -- Mise a jour de l'afficheur via JSON -----------------------------
   local url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDXcons..'&nvalue=0&svalue='..ConsVac
   commandArray[1]={['OpenURL']=url }
   commandArray['Variable:'..VarSomErr]='0'
end
return commandArray

Code : Tout sélectionner

-- script_device_thermostatv3.lua ------------------------------------
----------------------------------------------------------------------
-- G PETREMENT 2015 --------------------------------------------------
-- This script is a heating regulation use to maintain temperatur ----
-- at a specific value. ----------------------------------------------
----------------------------------------------------------------------

--------------------------------
--- Variables utilisateur ------
--------------------------------
local VarConsigne =  'Th_salon'           --Température de consigne
local SondeSj = 'SondeSejour'			  --Nom de la sonde de température du séjour												nom
local Varsonde = 'SondeChauff'            --Variable Domoticz :Nom de la sonde simulée de température
local AffTexte = 'AffichageParams'        -- Dispositif affichages des paramètres
local IDerreur = '6'                     --IDX de l'afficheur "TempErreur" d'erreur
local IDSomerreur = '5'                  --IDX de l'afficheur "TempSomErreur" Somme d'erreur
local IDDeltaErreur = '7'                --IDX de l'afficheur "DiffErreur" Différence d'erreur
local IDCmdChauff = '8'                  --IDX de l'afficheur "Cmde_Chauff" Proportionnel Commande Chauffage
local IDAffTexte = '28'                   --IDX de l'afficheur des paramètres
local domoticz_url = '192.168.0.23:9085'  --Adresse IP:port de Domoticz
local VarKp = "Kp"                        --Variable Domoticz : Gain proportinnel
local VarKi = "Ki"                        --Variable Domoticz : Gain intégral
local VarKd = "Kd"                        --Variable Domoticz : Gain dérivé
local VarTempErr = 'TemperatureErreur'    --Variable domoticz pour l'erreur de temperature
local VarSomErr = 'SommeErreur'           --Variable domoticz pour la somme des erreurs
local VarDeltaErr = 'DeltaErreur'         --Variable domoticz pour la différences des erreurs
local VarCmdChauff = 'CmdChauff'          --Variable Domoticz de commande du chauffage : permet de passer la commande à script_time_chauff.lua
local VarCmdImax = 'CmdImax'              --Variable domoticz qui défini le gain intégral maximum
local fichier = '/var/tmp/dom_tmperr.txt' --Chemin d'acces du fichier sur un RAMdisque pour réduire l'usure de la carte SD
local nbr_stk = 22                        --Quantité de valeurs utilisées pour le calcul de la dérivée de l'erreur (ne pas mettre 0!!)

--------------------------------------------------------------
-- Fonction pour arrondir un nombre à la décimale souhaitée --
--------------------------------------------------------------
math.round = function(number, precision)
   precision = precision or 0
   local decimal = string.find(tostring(number), ".", nil, true);
   
   if ( decimal ) then   
      local power = 10 ^ precision;  
      if ( number >= 0 ) then 
         number = math.floor(number * power + 0.5) / power;
      else 
         number = math.ceil(number * power - 0.5) / power;      
      end
      
      -- convert number to string for formatting
      number = tostring(number);         
      -- set cutoff
      local cutoff = number:sub(decimal + 1 + precision);
      -- delete everything after the cutoff
      number = number:gsub(cutoff, "");
   else
      -- number is an integer
      if ( precision > 0 ) then
         number = tostring(number);
         number = number .. ".";
         for i = 1,precision
         do
            number = number .. "0";
         end
      end
   end      
   return number;
end

---------------------------------------------------------
---  Fonction pour calculer la commande de chauffage  ---
---------------------------------------------------------
Chauff = function(Kp,Err,Ki,SomErr, Kd, DifErr)
    --print('Kp'..Kp..'Err'..Err..'Ki'..Ki..'SomErr'..SomErr..'Kd'..Kd..'DifErr'..DifErr)
  local cmd = Kp*Err + Ki*SomErr + Kd*DifErr
   -- La commande de chauffage est un nombre entier compris entre 0 et 100
   if cmd < 0 then 
      cmd = 0
   elseif cmd > 100 then
      cmd = 100
   else
      cmd = math.round(cmd, 0)
   end
   return cmd
end

-----------------------------
---- Programme principal ----
-----------------------------
commandArray = {}
--La sonde Oregon 'Salon' emet toutes les 40 secondes. Ce sera approximativement la fréquence d'exécution de ce script.
--print('Anciennes valeurs: Consigne Temp.: '..otherdevices_svalues[VarConsigne]..'° '..'Temp. de sonde (ou simul.): '..' '..otherdevices_svalues[Varsonde]..'° ')
if ( (devicechanged[SondeSj]) or (devicechanged[VarConsigne]) or (devicechanged[Varsonde])  ) then
  -- Initialisation des variables
  local t = {} --Table buffer avec le fichier texte
  local SomErreur = tonumber(uservariables[VarSomErr]) --Somme des erreurs
  local Kp = tonumber(uservariables[VarKp])
  local Ki = tonumber(uservariables[VarKi])
  local Kd = tonumber(uservariables[VarKd])
  local CmdImax = tonumber(uservariables[VarCmdImax]) --Limitation de l'action intégrale (debug)
  local consigne =  otherdevices_svalues[VarConsigne]  --Température de consigne
    
  ---------------------------------
  ---  Calcul du proportionnel  ---
  ---------------------------------
  --Temperature relevée dans le salon
  --local temperature = devicechanged[sonde..'_Temperature'] 
  local temperature = tonumber(otherdevices_svalues[Varsonde])
  temperature = tonumber(math.round(temperature,2))
  print('Température sonde (ou simulation):'..temperature..'° ,  Consigne thermostat: '..consigne..'°')
  -- Update de la sonde d'erreur
  local TmpErreur = consigne - temperature
  local url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDerreur..'&nvalue=0&svalue='..TmpErreur
  commandArray[1]={['OpenURL']=url }
  
  ------------------------------
  ---  Calcul de la dérivée  ---
  ------------------------------
  --Creation si le ficher n'existe pas
  local f = io.open(fichier, "a+")
  f:close()
  --Lecture du fichier et remplissage de la table t
  f = io.open(fichier, "r")
  for line in f:lines() do
    if line ~= nil then
      table.insert(t,line)
    end
  end
  f:close()
  -- Ajout de la nouvelle ligne a la table
  table.insert(t,tostring(os.time()..";"..math.round(TmpErreur,2)))  
  --Suppression de l'élement le plus vieu
  while #t > nbr_stk do
      table.remove(t,1)
  end
    -- Eriture dans fichier'
  f = io.open(fichier,"w")
  for key,value in pairs(t) do
     f:write(value.."\n")
  end
  f:close()
  -- Calcul Difference entre deux erreurs à (22/2) x TintervalSonde = 55min d'interval + calibration) (sonde Bresser tous les 5min)
  local MoyErr1 = 0
  local MoyErr2 = 0
  for i=1,#t/2 do
    MoyErr1 = MoyErr1 + tostring(string.sub(t[i],string.find(t[i], ";")+1))
    MoyErr2 = MoyErr2 + tostring(string.sub(t[#t+1-i],string.find(t[#t+1-i], ";")+1))
  end
  --Le delta erreur est calculé sur la moyenne de 22 erreurs ce qui permet de 'lisser' la variation
  local DeltaErreur = tonumber(math.round(((MoyErr2 / (#t/2)) - (MoyErr1 / (#t/2)))*8 ,2)) --Delta en d°/heure
  print('--DeltaErreur = ('..MoyErr2..'/'..(#t/2)..') - ('..MoyErr1..'/'..(#t/2)..') * 8= '..DeltaErreur)
  -- Update de la sonde DeltaErreur
  url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDDeltaErreur..'&nvalue=0&svalue='..DeltaErreur
  commandArray[2]={['OpenURL']=url }
  
  -------------------------------
  ---  Calcul de l'intégrale  ---
  -------------------------------
  -- Calcul de la somme des erreurs + Update de la sonde Somme d'erreur
  -- Si la l'erreur est supérieure à +-1° on ne somme pas pour limiter l'impact des changements de consigne
  if ((TmpErreur > -1) and (TmpErreur < 1) and (Ki ~= 0)) then
    SomErreur = tonumber(math.round(TmpErreur + SomErreur,2))
    if (SomErreur > (CmdImax/Ki)) then
        SomErreur = CmdImax/Ki
    elseif (SomErreur < 0) then
      SomErreur = 0
    end
  end
  url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDSomerreur..'&nvalue=0&svalue='..SomErreur
  commandArray[3]={['OpenURL']=url }

  ------------------------------------------
  --- Calcul de la commande de chauffage ---
  ------------------------------------------
  local CmdChauff = Chauff(Kp, TmpErreur, Ki, SomErreur, Kd, DeltaErreur)
  -- Update de la mesure Commande
  url = domoticz_url..'/json.htm?type=command&param=udevice&idx='..IDCmdChauff..'&nvalue=0&svalue='..CmdChauff
  commandArray[4]={['OpenURL']=url }
  print('Nouveaux param.: Commande de chauffage (0>100): '..CmdChauff..'% ; = Kp*Err ='..tostring(Kp*TmpErreur)..'% + Ki*SomErr ='..tostring(Ki*SomErreur)..'% + Kd*DifErr ='..tostring(Kd*DeltaErreur)..'%')
 commandArray['UpdateDevice'] = IDAffTexte .. '|0|Cmde_chauff: '..CmdChauff..'% ; = Kp*Err('..tostring(Kp*TmpErreur)..'%) + Ki*SomErr('..tostring(Ki*SomErreur)..'%) + Kd*DifErr('..tostring(Kd*DeltaErreur)..'%)'
 --Passage des variables à domoticz
  commandArray['Variable:'..VarTempErr]= tostring(TmpErreur)
  commandArray['Variable:'..VarSomErr]= tostring(SomErreur)
  commandArray['Variable:'..VarDeltaErr]= tostring(DeltaErreur)
  commandArray['Variable:'..VarCmdChauff]= tostring(CmdChauff)
  
end
return commandArray

Code : Tout sélectionner

-- script_time_cmdchauffv2.lua ---------------------------------------
-- G PETREMENT -------------------------------------------------------
----------------------------------------------------------------------
-- Permet de commander relais de pilotage de chaudiere à gaz ---------
-- Le cycle fait 900s / 15min  ---------------------------------------
-- La commande est un nombre de 0 à 100 ------------------------------
-- Le cycle minimum de la chaudière est de 3min pour réduire l'usure -
----------------------------------------------------------------------
local InterOnOff = 'Chauffage On/Off'    --Interrupteur général de mise en route du chauffage
local VarCmdChauff = 'CmdChauff'         --Variable de commande de chauffage définie par script_device_thermostat
local CycleMini = 30                     -- 30s Durée de chauffe minimum en secondes (fonction de la chaudière période 10 minutes)
local CycleMaxi = 570                    -- 570s Durée de chauffe limite en secondes si >=570s cycle = 100% (fonction de la chaudièrepériode 10 minutes)
local Tperiode = 600					-- Tperiode = 600s duree maxi du cycle
--local IpTelJacky = '192.168.0.10'
local InterRelais = 'RelayChaud'         --Sortie vers relais chaudière
--------------------------------------------------------------
-- Fonction pour arrondir un nombre à la décimale souhaitée --
--------------------------------------------------------------
math.round = function(number, precision)
   precision = precision or 0
   local decimal = string.find(tostring(number), ".", nil, true);
   
   if ( decimal ) then   
      local power = 10 ^ precision;  
      if ( number >= 0 ) then 
         number = math.floor(number * power + 0.5) / power;
      else 
         number = math.ceil(number * power - 0.5) / power;      
      end
      
      -- convert number to string for formatting
      number = tostring(number);         
      -- set cutoff
      local cutoff = number:sub(decimal + 1 + precision);
      -- delete everything after the cutoff
      number = number:gsub(cutoff, "");
   else
      -- number is an integer
      if ( precision > 0 ) then
         number = tostring(number);
         number = number .. ".";
         for i = 1,precision
         do
            number = number .. "0";
         end
      end
   end      
   return number;
end

commandArray = {}
--  Recuperation des variables
CycleMaxi = Tperiode * 0.975
CycleMini = Tperiode * 0.025
local OnOff = otherdevices[InterOnOff]
local CmdChauff = uservariables[VarCmdChauff]
local Cycle=(CmdChauff * Tperiode/100)  --  Calcul du temps de cycle  = CmdChauff(0<>100)* Tpériode/100 = CmdChauff * 120/100 = CmdChauff * 1.2
Cycle=tonumber(math.round(Cycle, 0))
--  Recuperation des minutes et unités de minutes
time=os.time()
minutes=tonumber(os.date('%M',time))
hours=tonumber(os.date('%H',time))
unites=tonumber(string.sub(os.date('%M',time),2,2))
-- print('il est:'..hours..'h'..minutes..'  '..' > unites = '..unites..' '..' minutes Cycle = '..Cycle..'s')
-- Execution de cette partie du script toutes les 10  minutes
-- Contacte la chaudière et modifie la variable domoticz Cycle
if( (unites%10==0) or (unites==0) ) then --or (unites==2) or (unites==4) or (unites==6) or (unites==8) ) then  période toutes les 10 minutes (ou 2 minutes -- or(unites==5)
    print('-- Lancement du script cycle chauffage à '..hours..'h'..minutes)
    --print('-- et Lancement du ping SmartphoneJacky')
    --if (otherdevices['SmartphoneJacky']=='Off' or (otherdevices['SmartphoneJacky']=='On' and timedifference(otherdevices_lastupdate['SmartphoneJacky']) > 300)) then
	--ping_success_tel=os.execute('ping -c1 '..IpTelJacky)
	--if ping_success_tel  then  -- or ping_success_tel
	--        commandArray['SmartphoneJacky']='On'
	--		print'succès présence SmartphoneJacky !!'
	--   else
	--       commandArray['SmartphoneJacky']='Off'
	--	   print'erreur absence SmartphoneJacky !!'
	--end
	if OnOff == 'On' then
        if Cycle < CycleMini then --Si le cycle est trop court on coupe
            commandArray[InterRelais]='Off'
            print('Cycle < mini:'..Cycle..'s >> Chaudière Off à '..hours..'h'..minutes..' sur la durée du cycle maxi')
          elseif Cycle >= CycleMaxi then --Si le cycle est trop long > Période-30s on allume sans coupure  
                commandArray[InterRelais]='On'
				print('Cycle >= maxi :'..Cycle..'s >> Chaudière On sur la durée du cycle maxi')
        else
            --Enfin on lance pour X seconde
            print('Cycle  Chaudière On lancé à '..hours..'h'..minutes..'pour : '..Cycle..'s et Off ensuite sur la période restante du cycle maxi')
            commandArray[1]={[InterRelais]='On'}
            commandArray[2]={[InterRelais]='Off AFTER '..tostring(Cycle)}
        end
    else
      commandArray[InterRelais]='Off'
      print('Chaudière  est sur Off en permanence bouton On/Off sur Off')    
    end
end
return commandArray