function PolTrigo=InterpolTrigo2(f,p,XX); 

% PolTrigo=InterpolTrigo2(f,p,XX);  
%
%Evalue la partie réelle du polynôme trigonométrique [balancé par rapport 
%à l'origine, de degré 2^p-1, et interpolant les valeurs de f aux
%points j/2^p, j=0,...,2^p-1] aux entrées (dans [0,1]) du vecteur 
%ligne XX. 

U=InterpolTrigo1(f,p); 
I=[-2^(p-1):2^(p-1)-1]';
M=length(XX);
L=zeros(M,1); 
for j=1:M
    L(j)=sum(U.*exp(2*i*pi*I*XX(j)));
end
PolTrigo=(real(L))'; 
    
