function res = rmscant( t,n,v )

pp = P(n);
som = 0;
l = 2^n;

for k = 1:l
    for kk = 1:l
        som = som +exp(i*(pp(k)-pp(kk))*t)*(abs(v(k)+v(kk)))^(-3);
    end
end;

res = 2^(-2*n)*som;


end