function res = del( n )

som = 0;
        PP = P(10);
        l = length (PP);
        for j = 1:l
            for jj = 1:l
                som = som + 3^(-2*10)*(2-PP(j)+PP(jj))^(-log(2)/log(3))*sin(2*pi*n*log(2-PP(j)+PP(jj))/log(3));
            end
        end
       
res = 1.5^(2*10)*som;

end

