C_NmgPVPS | R Documentation |
This function simulate the performance of a water pump fed by a frequency converter with several PV generators of different size during a day. The result is plotted as a nomogram which relates the nominal power of the PV generator, the total water flow and the total manometric head.
NmgPVPS(pump, Pg, H, Gd, Ta = 30,
lambda = 0.0045, TONC = 47, eta = 0.95,
Gmax = 1200, t0 = 6, Nm = 6,
title = '', theme = custom.theme.2())
pump |
A |
Pg |
Sequence of values of the nominal power of the PV generator (Wp)) |
H |
Sequence of values of the total manometric head (m) |
Gd |
Global irradiation incident on the generator (Wh/m²) |
Ta |
Ambient temperature ( |
lambda |
Power losses factor due to temperature |
TONC |
Nominal operational cell temperature ( |
eta |
Average efficiency of the frequency converter |
Gmax |
Maximum value of irradiance (parameter of the IEC 61725) |
t0 |
Hours from midday to sunset (parameter of the IEC 61725) |
Nm |
Number of samples per hour |
title |
Main title of the plot. |
theme |
Theme of the lattice plot. |
This function computes the irradiance profile according to the IEC 61725 "Analytical Expression for Daily Solar Profiles", which is a common reference in the official documents regarding PV pumping systems.
At this version only pumps from the manufacturer Grundfos are included in pumpCoef
.
I |
|
D |
|
param |
|
plot |
|
Oscar Perpiñán Lamigueiro.
Abella, M. A., Lorenzo, E. y Chenlo, F.: PV water pumping systems based on standard frequency converters. Progress in Photovoltaics: Research and Applications, 11(3):179–191, 2003, ISSN 1099-159X.
Perpiñán, O, Energía Solar Fotovoltaica, 2025. (https://blogs.upm.es/oscarperpinan/libros/esf/)
Perpiñán, O. (2012), "solaR: Solar Radiation and Photovoltaic Systems with R", Journal of Statistical Software, 50(9), 1-32, \Sexpr[results=rd]{tools:::Rd_expr_doi("10.18637/jss.v050.i09")}
fPump
, prodPVPS
, pumpCoef
Pg = seq(4000, 8000,by = 100);
H = seq(120, 150,by = 5);
data(pumpCoef)
CoefSP8A44 <- subset(pumpCoef, Qn == 8 & stages == 44)
NmgSP8A44 <- NmgPVPS(pump = CoefSP8A44,Pg = Pg,H = H,Gd = 5000,
title = 'Choice of Pump', theme = custom.theme())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.