lat=37.2;
G0dm=c(2.766,3.491,4.494,5.912,6.989,7.742,7.919,7.027,5.369,3.562,2.814,2.179)*1000;
SolD<-fSolD(lat,BTd=fBTd(Modo='DiasProm'))
SolI<-fSolI(SolD,Nm=6)
CompD<-fCompD(SolD,G0d=G0dm, corr = 'Page')
CompD$Ta=25
CompI<-fCompI(CompD,SolI)
AngGen<-fTheta(SolI,beta=35);
###Two-axis tracker
#Symmetric grid
distancias=data.frame(Leo=40,Lns=30,H=0)
estruct=list(W=23.11, L=9.8, Nfilas=2, Ncol=8)
FactorSombra<-fSombra6(AngGen,distancias, estruct,prom=FALSE)
xyplot(FS~w,groups=Mes, data=FactorSombra,
type='l',auto.key=list(space='right'))
#Symmetric grid defined with a five rows data.frame
distancias=data.frame(Leo=c(-40,0,40,-40,40),Lns=c(30,30,30,0,0),H=0)
FactorSombra2<-fSombra6(AngGen,distancias, estruct,prom=FALSE)
#of course, with the same result
identical(FactorSombra,FactorSombra2)
Run the code above in your browser using DataLab