library(lattice)
library(latticedl)
lat=37.2;#Sevilla
G0dm=c(2766, 3491, 4494, 5912, 6989, 7742, 7919, 7027, 5369, 3562, 2814, 2179)
###Comparison of different tracker methods
ProdEst<-prodSFCR(lat=lat,G0dm=G0dm)
Prod2x<-prodSFCR(lat=lat,G0dm=G0dm,modoSeg='doble')
ProdHoriz<-prodSFCR(lat=lat,G0dm=G0dm,modoSeg='horiz')
ComparePac<-data.frame(doble=Prod2x$I$Pac,
horiz=ProdHoriz$I$Pac,
est=ProdEst$I$Pac,
w=ProdEst$I$w,
Mes=ProdEst$I$Mes)
xyplot(doble+horiz+est~w|Mes,data=ComparePac,
type='l', auto.key=list(space='right'),ylab='Pac')
CompareEffI<-data.frame(EffI2x=Prod2x$I$EffI,
EffIHoriz=ProdHoriz$I$EffI,
EffIEst=ProdEst$I$EffI,
w=ProdEst$I$w,
Mes=ProdEst$I$Mes)
xyplot(EffI2x+EffIHoriz+EffIEst~w|Mes,data=CompareEffI,
type='l', auto.key=list(space='right'))
###Use of modoRad='mapa' and modoRad='prev'
ProdEst<-prodSFCR(lat=41,modoSeg='est',modoRad='mapa',
MAPA=list(Provincia=28,Estacion=3,
FechaInicio='01/01/2009',FechaFinal='31/12/2009'))
Prod2x<-prodSFCR(lat=41,modoSeg='doble',modoRad='prev',previo=ProdEst)
ProdHoriz<-prodSFCR(lat=41,modoSeg='horiz',modoRad='prev',previo=ProdEst)
###Shadows
#Two-axis trackers
Prod2xSombra<-prodSFCR(lat=lat,G0dm=G0dm,modoSeg='doble',
modoSombra='area', distancias=data.frame(Leo=40,Lns=40,H=0))
#Horizontal N-S tracker
estruct=list(L=4.83);
distancias=data.frame(Leo=estruct$L*4,H=0);
#Without Backtracking
ProdHorizSombra<-prodSFCR(lat=lat,G0dm=G0dm, Nm=6,
modoSeg='horiz',
modoSombra='area', BetaLim=60,
distancias=distancias,
estruct=estruct)
xyplot(Beta~w,data=ProdHorizSombra$I,type='l',
xlab=expression(omega (h)),ylab=expression(beta (degree)))
#With Backtracking
ProdHorizBT<-prodSFCR(lat=lat,G0dm=G0dm, Nm=6,
modoSeg='horiz',
modoSombra='bt', BetaLim=60,
distancias=distancias,
estruct=estruct)
xyplot(Beta~w,data=ProdHorizBT$I,type='l',
xlab=expression(omega (h)),ylab=expression(beta (degree)))
Run the code above in your browser using DataLab