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

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

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

format rational

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

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

