% Filtros para IAC, al extender desde la derecha en SR si suponemos que nos hallamos en una celda singular.
% Ademas el valor es el de f^{k}_{2i}
%    dretaiaiamcgenucoef(nl,nr,r)
%    Entradas:
%         nl+nr+1   = numero de nodos a la derecha de f^{k-1}_{i} 
%         r         = grado de F (r-1 para f)
%    Salidas:
%         se muestran por pantalla los filtros buscados
%
% Autor: José Jaime Noguera   +INFO: www.uv.es/anims/noguera

function dretaiaiamcgenucoef(nl,nr,r)

r=r-1; %Por concordancia con el PDF
A=matriuiamc(0,nl+nr,r);
C1=(A'*A)^(-1)*A';

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

format rational
%Lo que multiplica a fr(k-1,i+1)
1+ones(1,r)*C1*ones(1,nl+nr)'+2*vector(3:r+2)*C1*ones(1,nl+nr)'
%Lo que multiplica a fr(k-1,i+2:i+nl+nr+1)
-ones(1,r)*C1-2*vector(3:r+2)*C1

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


