function res = cumulfibo(k,t,sp,n)

l = length(sp);
s = 0;
spp = sp/sp(l);

for m = 1:l
    s = s +spp(m)^k*exp(-i*t*spp(m));
end

res = 3^(-n)*s;




end

