R/fSombra.R

In solaR: Radiation and Photovoltaic Systems

fSombra<-function(angGen, distances, struct, modeTrk='fixed',prom=TRUE){

  stopifnot(modeTrk %in% c('two','horiz','fixed'))
  result=switch(modeTrk, 
    two={fSombra6(angGen, distances, struct, prom)},
    horiz={fSombraHoriz(angGen, distances, struct)},
    fixed= {fSombraEst(angGen, distances, struct)}
    )
}