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())
A list
extracted from pumpCoef
Sequence of values of the nominal power of the PV generator (Wp))
Sequence of values of the total manometric head (m)
Global irradiation incident on the generator (Wh/m<U+00B2>)
Ambient temperature (
Power losses factor due to temperature
Nominal operational cell temperature (
Average efficiency of the frequency converter
Maximum value of irradiance (parameter of the IEC 61725)
Hours from midday to sunset (parameter of the IEC 61725)
Number of samples per hour
Main title of the plot.
Theme of the lattice plot.
list
with the results of irradiance, power and flow of the system.
list
with the results of total irradiation, electrical energy and flow for every nominal power of the generator.
list
with the arguments used in the call to the function.
trellis
object containing the nomogram.
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
.
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<U+2013>191, 2003, ISSN 1099-159X.
Perpi<U+00F1><U+00E1>n, O, Energ<U+00ED>a Solar Fotovoltaica, 2015. (http://oscarperpinan.github.io/esf/)
Perpi<U+00F1><U+00E1>n, O. (2012), "solaR: Solar Radiation and Photovoltaic Systems with R", Journal of Statistical Software, 50(9), 1-32, http://www.jstatsoft.org/v50/i09/
# NOT RUN {
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())
# }
Run the code above in your browser using DataLab