Här kommer ett exempel på uträkning av effekt och energi!

För mera exakt beräkning så bör man ta hänsyn till densiteten, om intresse finnes så kan jag visa exempel på uträkning av denna!

// vid start så beräkna effekt (Kw) och accumulerad effekt (energi) (kWh)

Flode : REAL;             // flödet m3/h
Rhos_Densitet : REAL;     // temperatur och saltkoncentrationsberoende densitet
TIn : REAL;               // temperatur in °C
TUt : REAL;               // temperatur ut °C
QkW : REAL ;              // effekt (kW)
QkWh : REAL;              // accumulerad effekt (energi) (kWh)
Cp : REAL;                // värmekapaciteten för vatten
           
Cp := -0.00020595*(TUt ** 3.0) + 0.046848*(TUt ** 2.0) - 2.7507*TUt + 4220.7; // värmekapaciteten för vatten

_tmp1 := (Flode*1000.0)/60.0;
   
QkW := (_tmp1*Rhos_Densitet)/(60000.0)*Cp*(TUt-TIn)/1000.0;      // effekt (kW)
       
QkWh := QkWh + (QkW / (3600000.0 / (INT_TO_REAL(DB140.Scantime))));