% Filtros para AC, para recosntruir f^{k}_{2i} al extender de la derecha para SR.
% OJO: usamos la definicion de matriz general, es decir en este caso a la izquierda tomo -1 y a la derecha tomo nl+nr+1.
% con lo qual, para reconstruir fr(k,2i) es (p(1)-p(0.5))/0.5
%   capiamincsrdretaucoef(nl,nr,r)
%   Entradas:
%           nl       = numero de nodos a la izquierda de f^{k-1}_{i} 
%           nl       = numero de nodos a la derecha de f^{k-1}_{i}         
%           r        = grado para f (grau+1 para F)
%   Salidas:
%           Filtros para recuperar fr(k,2i)
%
% Autor: José Jaime Noguera.  +INFO: www.uv.es/anims/noguera 


function capiamincsrdretaucoef(nl,nr,r)
r=r-1; %Por coherencia con el PDF
A=capiamincmcmatriu(-1,nl+nr+1,r);
C=(A'*A)^(-1)*A';

for l=2:r+2
    vector(l)=1-(1/2)^(l-1);
end

sol=2*vector(2:r+2)*C;

format rational
sol

format
sprintf('Comienza en f^{k-1}_{i+1} y acaba en f^{k-1}_(i+(%d))',nl+nr+1)
