function res = psikdelta2(k,t,sp,vep1,vep2)

l = length(sp);
s = 0;
n = 0;

for m = 1:l
    s = s +vep1(m)*vep2(k,m)*exp(-i*t*sp(m));
end

for mm = 1:l
    n = n+ abs(vep1(mm))^2;
end


res = s/(sqrt(n));
end


