R/Estocastico2.R

In andremgc/Generg:

#' @export

Geracao_de_Energia_Estocastico2<-function(long,long.st,lat,A,
                                         DadosAmbientais,Pdc0,Beta,gama,
                                         TipoDePainel,pot_inv,n_inv,n_non,perdasTot,Pac0,G.sc=1367,TempRef=25,IrrRef=1000,n_ref=0.9637,
                                         tempo.inicial="01/01/2015 00:00", tempo.final="31/12/2015 23:00", passo=60, Hora_do_passo="Mais_tarde",
                                         AlbedoFixo=0.2,TipoAlbedo="fixo",VVFixo=2,TipoVV="fixo",TaFixo=25,TipoTA="fixo",modo_radiacao="ceu_limpo",
                                         TipoDeClima,TipoModulo_Montagem,DadosMensais){
   
  saida.g<-geometrico(lat, long, long.st, Beta, gama, passo, Hora_do_passo, tempo.inicial, tempo.final)
  
  
  attach(saida.g)
  
  saida.r<-Rad.Extraterrestre(tempos, theta.z, HaSol, G.sc)
  
  attach(saida.r)
  
  saida.c<-CeuLimpo(A,TipoDeClima,theta,theta.z)
  
  attach(saida.c)

  saida.s<-Sintetico(omega.sunset,omega.t,omega.b_delta.t,DadosMensais, G.on, delta, omega.1, omega.2, phi, HaSol, tempos, ModeloComposicao,ModeloSintese)
  
  attach(saida.s) 

  T.Sintetico<-TemperaturaSintetico(tempos,DadosMensais)

  # Possivelmente alterar
  saida.a<-Ambientais(modo_radiacao, G.cnb, G.cd, theta.z, G.o, DadosAmbientais, HaSol, AlbedoFixo, TipoAlbedo, VVFixo, TipoVV, TAFixo, TipoTA, Ibn, Id, T.Sintetico)
  
  attach(saida.a)
  
  saida.pl<-Pl.Inc_DirRef(theta,theta.z,HaSol,ro.g,Beta)
  
  attach(saida.pl)
  
  #hdkr<-HDKR(theta,theta.z,G.nb,G.b,G.d,G, Beta, R.b)
  #liu<-Isotropico(G.d,Beta)
  perez<-Perez(G.d, G.nb, theta, theta.z,G.on, Beta)
  
  G.t<-perez$G.Td+G.T.b+G.T.refl
  
  #write.table(G.t, file="perez_R.csv", append="FALSE",sep=";", dec=",")
  
  
  attach(perez)  
  saida.p<-CaracteristicPainel(TipoDePainel)
  
  attach(saida.p)
  
  saida.e<-RadiacaoEfetiva(eta.Ar,theta,G.c.T.b,G.c.T.d.cs,G.c.T.d.iso,G.c.T.d.hz,G.c.T.refl)
  
  attach(saida.e)
  
  saida.m<-ModelagemTermica(TipoModulo_Montagem)
  
  attach (saida.m)
  
  E<-ConversaoEnergetica(perdasTot,passo,TempRef,TempCoef,Pac0,Pdc0,IrrRef,G.ef.T,TA, a, b, DeltaT, VV ,n_non/n_ref, n_non, Delta.T)
  
  detach(f)
  detach(saida.m)
  detach(saida.e)
  detach(saida.p)
  detach(perez)
  detach(saida.pl)
  detach(saida.a)
  detach(saida.c)
  detach(saida.r)
  detach(saida.g)
  detach(saida.s)
  
  return(E)
  
}