Temperatur steuerung ????????

[Reinhard Kern]

Zitat:

Zitat von himitsu

nja, aber zumindestens ist für die Auswertung der aktuelle Zustand von HeatIsOn unwichtig :angel2:

Hi,

in der Praxis ist es so, dass bei eingeschalteter Heizung die Temperatur nur steigen kann und bei abgeschalteter nur fallen (ausser Überschwinger, aber da spielt das keine Rolle). Man spart sich also die Differenzierung des Temperaturverlaufs.

Alle 3 Algorithmen (RK,himitsu,guiness) sind verschieden, sie stellen aber alle einen 2Punkt-Regler dar, der Unterschied dürfte bloss in der erreichten mittleren Temperatur liegen wegen der unterschiedlichen Offsets.

Gruss Reinhard

[himitsu]

mir ist hier sogar grad ein Fehler aufgefallen :shock:

Zitat:

Delphi-Quellcode:

if HeatIsOn then
  if ActualTemp > RefTemp + THysteresis then HeatIsOn := false
else
  if ActualTemp < RefTemp then HeatIsOn := true;

das ELSE gehört ja nicht zum ersten IF, sondern zum Zweiten,

also so

Delphi-Quellcode:

if HeatIsOn then
  if ActualTemp > RefTemp + THysteresis then HeatIsOn := false
  else
    if ActualTemp < RefTemp then HeatIsOn := true;

und so kann die Heizung nur ausgeschaltet werden, denn wenn die Heizung schon aus ist, wird hier nix mehr gemacht :nerd:

wobei es bestimmt so gedacht war

Delphi-Quellcode:

if HeatIsOn then
begin
  if ActualTemp > RefTemp + THysteresis then HeatIsOn := false;
end
else
  if ActualTemp < RefTemp then HeatIsOn := true;

aber das if HeatIsOn then ist hierbei eh "unwichtig", da die so abgekapselten Einzelvergleiche im jeweils anderen Zustand von HeatIsOn eh keine Veränderung hervorufen.

[melssner]

Ich habs jetzt soweit gemacht allerdings ohne der vorherigen abfrage IsOn

Delphi-Quellcode:

if (Thermometer = 'OFF') and (StrToInt(AktTemp) > StrToInt(Temperatur)+0.1) then
 begin
  IsOn:= false;
 end;
if (Thermometer = 'OFF') and (StrToInt(AktTemp)+1.9 < StrToInt(Temperatur)) then
 begin
  IsOn:= true;
 end;
if (Thermometer = 'false') then
 begin
  IsOn:= true;
 end;

so funktioniert es auch im Timer über Zeitrutinen wenn das Thermometer deaktiviert ist.

Danke nochmal
Lg Mario

[himitsu]

Delphi-Quellcode:

(StrToInt(AktTemp) > StrToInt(Temperatur)+0.1) then
...
(StrToInt(AktTemp)+1.9 < StrToInt(Temperatur)) then

0.1 und 1.9 ? :gruebel:

StrToInt erzeugt doch nur Integer, da haben die Fließkommazahlen dann nicht die Auswirkung, welche geplant ist

[Klaus01]

Zitat:

Zitat von himitsu

Delphi-Quellcode:

(StrToInt(AktTemp) > StrToInt(Temperatur)+0.1) then
...
(StrToInt(AktTemp)+1.9 < StrToInt(Temperatur)) then

0.1 und 1.9 ? :gruebel:

StrToInt erzeugt doch nur Integer, da haben die Fließkommazahlen dann nicht die Auswirkung, welche geplant ist

.. man achte auf die Klammern

Schönen Abend noch
Klaus

[himitsu]

Die Klammern sind vollkommen uninteressant ... Was ich meinte ist, daß das Ergebnis der in seiner Funktion diesem entspricht:
(wenn ich jetzt richtig gerundet hab)

Delphi-Quellcode:

StrToInt(AktTemp) > StrToInt(Temperatur) then
...
StrToInt(AktTemp)+1 < StrToInt(Temperatur) then

Da die Vergleichswerte eh nur ganzzahlig sind, interessiert im Vergleich auch nur der gerundete ganzahlige Wert.

Die Gleitkommaarithmetik ist hier allso vollkommen sinnlos enthalten.

[melssner]

habs selbst gemerkt und geändert

[jfheins]

Ach übrigens, deine ?-Taste klemmt :mrgreen:

[Reinhard Kern]

Zitat:

Zitat von himitsu

...
das ELSE gehört ja nicht zum ersten IF, sondern zum Zweiten,
...

hatte ich auch mit begin-end geschrieben, aber dann wollte zur Veröffentlichung ich alles überflüssige streichen...

Nicht nur Anfänger machen Anfängerfehler.

Gruss Reinhard

[hathor]

Statt "Temperatur steuerung ????????" bitte: Terrarium-Temperatursteuerung