% Beräkning av data från värmepump (ver.2.3, 22.8.2004, Thomas Nilsson)
% Energipulsräkning, temperatur i varm och kall hink samlas med Pasco datainsamlingssytemet
% tillsammans med Science WorksShop-mjukvaran.

m = 10;             % massa vatten (i kg) i den kalla hinken 
c_v = 4200;         % vattnets specifika värmekapacitet (i J/kg/K)

% Beräkna den avgivna värmeeffekten
P_H_pol = m * c_v * polyder(T_H_pol);

% Beräkna den tillförda mekaniska effekten
P_pol = polyder(E_pol);

% Beräkna den praktiska värmefaktorn
V_f = polyval(P_H_pol,t)./polyval(P_pol,t);

figure(1)
plot(t, V_f, '-k')
title('Den praktiska värmefaktorn')
xlabel('tid / s')
grid on