-- Prog. Precipitao total por pluvimetro e previso numrica
-- Banco "angra" - Vista "Angra"
-- Curso TerraMA2
-- Anlise : An_mun_PCD_24hrs_ETA5_4hrs
-- Operador : Chuva aculumada 24h nos pluviometros e
              Chuva prevista 4h no ETA

local chuvaAcumulada = 0
local pcd=influencia_pcd('PCD')

for i,v in ipairs(pcd) do 
  chuvaAcumulada = chuvaAcumulada + (soma_historico_pcd('PCD', 'pluvio', v, 24))
end


local prev24h = maximo_pn('eta5km', 4)

if prev24h == nil then
   prev24h = 0
end

local chuvaTotal = (chuvaAcumulada / #pcds) + prev24h

if chuvaTotal == nil or chuvaTotal < 30 then
     return 0
   elseif chuvaTotal < 50 then
     return 1
   elseif chuvaTotal < 80 then
     return 2
   elseif chuvaTotal < 110 then
     return 3
   else
     return 4
end