C_fSolI {solaR} | R Documentation |
Instantaneous apparent movement of the Sun from the Earth
Description
Compute the angles which describe the intradaily apparent movement of the Sun from the Earth.
Usage
fSolI(solD, sample = 'hour', BTi, EoT = TRUE, keep.night = TRUE, method = 'michalsky')
Arguments
solD |
A |
sample |
Increment of the intradaily sequence. It is a character
string, containing one of ‘"sec"’, ‘"min"’, ‘"hour"’. This can
optionally be preceded by a (positive or negative) integer and a
space, or followed by ‘"s"’. It is used by It is not considered when |
BTi |
Intradaily time base, a |
EoT |
logical, if |
keep.night |
logical, if |
method |
|
Value
A zoo
object is returned with these components:
w |
numeric, solar hour angle (radians) |
aman |
logical, |
cosThzS |
numeric, cosine of the solar zenith angle |
AzS |
numeric, solar acimuth angle (radians) |
AlS |
numeric, solar elevation angle (radians) |
Bo0 |
numeric, extra-atmospheric irradiance (W/m2) |
rd , rg |
numeric, relation between irradiance and irradiation of diffuse and global values, respectively, following the correlations proposed by Collares-Pereira and Rabl |
The latitude is stored as the attribute lat
of this object.
Author(s)
Oscar Perpiñán Lamigueiro.
References
Cooper, P.I., Solar Energy, 12, 3 (1969). "The Absorption of Solar Radiation in Solar Stills"
Spencer, Search 2 (5), 172, https://www.mail-archive.com/sundial@uni-koeln.de/msg01050.html
Michalsky, J., 1988: The Astronomical Almanac's algorithm for approximate solar position (1950-2050), Solar Energy 40, 227-235
Collares-Pereira, M. y Rabl, A., The average distribution of solar radiation: correlations between diffuse and hemispherical and between daily and hourly insolation values. Solar Energy, 22:155–164, 1979.
Perpiñán, O, Energía Solar Fotovoltaica, 2015. (https://oscarperpinan.github.io/esf/)
Perpiñán, O. (2012), "solaR: Solar Radiation and Photovoltaic Systems with R", Journal of Statistical Software, 50(9), 1-32, doi: 10.18637/jss.v050.i09
See Also
Examples
###Angles for one day
BTd = fBTd(mode = 'serie')
#North hemisphere
lat = 37.2
solD <- fSolD(lat,BTd[100])
solI <- fSolI(solD, sample = 'hour')
print(solI)
#South hemisphere
lat = -37.2;
solDs <- fSolD(lat,BTd[283])
solIs <- fSolI(solDs, sample = 'hour')
print(solIs)
###Angles for the 12 average days
lat = 37.2;
solD <- fSolD(lat,BTd = fBTd(mode = 'prom'))
solI <- fSolI(solD, sample = '10 min', keep.night = FALSE)
library(lattice)
library(latticeExtra)
###Solar elevation angle vs. azimuth.
#This kind of graphics is useful for shadows calculations
mon = month.abb
p <- xyplot(r2d(AlS)~r2d(AzS),
groups = month,
data = solI, type = 'l', col = 'black',
xlab = expression(psi[s]),ylab = expression(gamma[s]))
plab <- p + glayer({
idx <- round(length(x)/2+1)
panel.text(x[idx], y[idx], mon[group.value], pos = 3, offset = 0.2, cex = 0.8)})
print(plab)