door MMSoft » zo 21 jan 2024, 13:31
Ik heb nu dit:
//------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
// Input
Buiten_Temp := 1.9; // Buiten Temperatuur (in graden Celsius)
RH := 66; // Relatieve luchtvochtigheid op de buitenlocatie (in procenten)
Windkracht := 5; // Windkracht (0-12 Beaufort)
//---
// Conversie van Beaufort naar windsnelheid in meters per seconde
case Windkracht of
0: Windsnelh := 0.1; // 0 - 0,2 m/s
1: Windsnelh := 0.9; // 0,3 - 1,5 m/s
2: Windsnelh := 2.5; // 1,6 - 3,3 m/s
3: Windsnelh := 4.4; // 3,4 - 5,4 m/s
4: Windsnelh := 6.7; // 5,5 - 7,9 m/s
5: Windsnelh := 9.4; // 8,0 - 10,7 m/s
6: Windsnelh := 12.3; // 10,8 - 13,8 m/s
7: Windsnelh := 15.5; // 13,9 - 17,1 m/s
8: Windsnelh := 19.0; // 17,2 - 20,7 m/s
9: Windsnelh := 22.6; // 20,8 - 24,4 m/s
10: Windsnelh := 26.5; // 24,5 - 28,4 m/s
11: Windsnelh := 30.6; // 28,5 - 32,6 m/s
12: Windsnelh := 32.7; // > 32,6 m/s
end;
//Dauwpunt Berekenen (graden Celsius):
Dauwpunt_Buiten := CalculateDewPoint(Buiten_Temp, RH);
// Berekening
DeltaT := Buiten_Temp - Dauwpunt_Buiten; // Temperatuurverschil tussen de buitentemperatuur en het dauwpunt (in graden Celsius)
Kans := (DeltaT * RH) / Windkracht;
// Output
showmessage('Kans op bevriezing: ' + VarToStr(Kans) );
end;
//------------------------------------------------------------------------------
function CalculateDewPoint(temperature, humidity: Double): Double;
var
a, b, c, gamma, dewPoint: Double;
begin
a := 17.27;
b := 237.7;
gamma := (a * temperature) / (b + temperature) + ln(humidity / 100);
dewPoint := (b * gamma) / (a - gamma);
Result := dewPoint;
end;
//------------------------------------------------------------------------------
Ik heb deze formule gemaakt om een begin te hebben.
Ik zou niet weten hoe er bepaald kan wordt hoeveel warmte er naar binnen gepompt wordt.
Het verschil tussen de binnen en buiten temperatuur lijkt mij niet voldoende, mogelijk het opgenomen vermogen van de Airco ? Deze laatste waarde heb ik niet, daarvoor zou er een vermogens meet module in de stroom kring opgenomen moeten worden.
Ik heb nu dit:
//------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
// Input
Buiten_Temp := 1.9; // Buiten Temperatuur (in graden Celsius)
RH := 66; // Relatieve luchtvochtigheid op de buitenlocatie (in procenten)
Windkracht := 5; // Windkracht (0-12 Beaufort)
//---
// Conversie van Beaufort naar windsnelheid in meters per seconde
case Windkracht of
0: Windsnelh := 0.1; // 0 - 0,2 m/s
1: Windsnelh := 0.9; // 0,3 - 1,5 m/s
2: Windsnelh := 2.5; // 1,6 - 3,3 m/s
3: Windsnelh := 4.4; // 3,4 - 5,4 m/s
4: Windsnelh := 6.7; // 5,5 - 7,9 m/s
5: Windsnelh := 9.4; // 8,0 - 10,7 m/s
6: Windsnelh := 12.3; // 10,8 - 13,8 m/s
7: Windsnelh := 15.5; // 13,9 - 17,1 m/s
8: Windsnelh := 19.0; // 17,2 - 20,7 m/s
9: Windsnelh := 22.6; // 20,8 - 24,4 m/s
10: Windsnelh := 26.5; // 24,5 - 28,4 m/s
11: Windsnelh := 30.6; // 28,5 - 32,6 m/s
12: Windsnelh := 32.7; // > 32,6 m/s
end;
//Dauwpunt Berekenen (graden Celsius):
Dauwpunt_Buiten := CalculateDewPoint(Buiten_Temp, RH);
// Berekening
DeltaT := Buiten_Temp - Dauwpunt_Buiten; // Temperatuurverschil tussen de buitentemperatuur en het dauwpunt (in graden Celsius)
Kans := (DeltaT * RH) / Windkracht;
// Output
showmessage('Kans op bevriezing: ' + VarToStr(Kans) );
end;
//------------------------------------------------------------------------------
function CalculateDewPoint(temperature, humidity: Double): Double;
var
a, b, c, gamma, dewPoint: Double;
begin
a := 17.27;
b := 237.7;
gamma := (a * temperature) / (b + temperature) + ln(humidity / 100);
dewPoint := (b * gamma) / (a - gamma);
Result := dewPoint;
end;
//------------------------------------------------------------------------------
Ik heb deze formule gemaakt om een begin te hebben.
Ik zou niet weten hoe er bepaald kan wordt hoeveel warmte er naar binnen gepompt wordt.
Het verschil tussen de binnen en buiten temperatuur lijkt mij niet voldoende, mogelijk het opgenomen vermogen van de Airco ? Deze laatste waarde heb ik niet, daarvoor zou er een vermogens meet module in de stroom kring opgenomen moeten worden.
