lat=37.2;#Sevilla
G0dm=c(2766, 3491, 4494, 5912, 6989, 7742, 7919, 7027, 5369, 3562, 2814, 2179)
###Two-axis trackers
distancias=list(Leo=c(30,50),Lns=c(20,50))
#Monthly averages
SombraM2x<-optimSombra(lat=lat,G0dm=G0dm, modoSeg='doble',
modoSombra=c('area','prom'), distancias=distancias, res=5)
plot(SombraM2x)
pLeo=xyplot(Yf~ROT,data=SombraM2x$S,groups=factor(Leo),type=c('l','g'))
direct.label(pLeo,method=last.points)
pLns=xyplot(Yf~ROT,data=SombraM2x$S,groups=factor(Lns),type=c('l','g'))
direct.label(pLns,method=last.points)
###Horizontal axis tracker
estruct=list(L=4.83);
distancias=list(Leo=estruct$L*c(2,5));
#Without backtracking
Sombra12Horiz<-optimSombra(lat=lat,G0dm=G0dm, modoSeg='horiz',
BetaLim=60,
distancias=distancias, res=2,
estruct=estruct,
modoSombra='area')
plot(Sombra12Horiz)
xyplot(diff(Yf)~ROT[-1],data=Sombra12Horiz$S,type=c('l','g'))
#with Backtracking
Sombra12HorizBT<-optimSombra(lat=lat,G0dm=G0dm, modoSeg='horiz',
BetaLim=60,
distancias=distancias, res=1,
estruct=estruct,
modoSombra='bt')
plot(Sombra12HorizBT)
xyplot(diff(Yf)~ROT[-1],data=Sombra12HorizBT$S,type=c('l','g'))
###Fixed system
estruct=list(L=5);
distancias=list(D=estruct$L*c(1,3));
Sombra12Est<-optimSombra(lat=lat,G0dm=G0dm, modoSeg='est',
modoSombra='area',
distancias=distancias, res=1,
estruct=estruct)
plot(Sombra12Est)
Run the code above in your browser using DataLab