--  PROG  PSE - Queimadas
local soma1 = amostra('Soma1')
local soma2 = amostra('Soma2')
local soma3 = amostra('Soma3')
local soma4 = amostra('Soma4')
local soma5 = amostra('Soma5')
local soma10 = amostra('Soma10')
local soma15 = amostra('Soma15')
local soma30 = amostra('Soma30')
local soma60 = amostra('Soma60')
local soma90 = amostra('Soma90')
local soma120 = amostra('Soma120')

local f1 = math.exp(-0.14 * soma1)
local f2 = math.exp(-0.07 * math.abs(soma2 - soma1))
local f3 = math.exp(-0.04 * math.abs(soma3 - soma2))
local f4 = math.exp(-0.03 * math.abs(soma4 - soma3))
local f5 = math.exp(-0.02 * math.abs(soma5 - soma4))
local f10 = math.exp(-0.01 * math.abs(soma10 - soma5))
local f15 = math.exp(-0.008 * math.abs(soma15 - soma10))
local f30 = math.exp(-0.004 * math.abs(soma30 - soma15))
local f60 = math.exp(-0.002 * math.abs(soma60 - soma30))
local f90 = math.exp(-0.0001 * math.abs(soma90 - soma60))
local f120 = math.exp(-0.0007 * math.abs(soma120 - soma90))

return  105*f1*f2*f3*f4*f5*f10*f15*f30*f60*f120
