% Filtros para AC, al recuperar f^{k}_{2i-1} extendiendo de la derecha para
% OJO: se usa 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-1) es (p(1/2)-p(0))/0.5
%   capiamincsresquerraucoef(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 (r-1 para f)
%   Salidas:
%           filtros buscados
%
% Autor: José Jaime Noguera.  +INFO: www.uv.es/anims/noguera

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

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

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

format rational
sol

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