% Filtros para la funcion G en AP.
%     capiacoefimincvpfunciong(nl,nr,r,x)
%     ENTRADAS:
%           nl+nr =numero de nodos a la iquierda y derecha de x^{k}_{2i-1}
%           r= grado del polinomio AP
%           x= punto donde sustituimos. si x=0 en x^{k-1}_{i-1}, x=0.5 en x^{k}_{2i-1}, si x=1 en x^{k-1}_{i}
%     SALIDAS:
%           muestra en pantalla los filtros buscados
%
% Autor: José Jaime Noguera   +INFO: www.uv.es/anims/noguera

function capiacoefimincvpfunciong(nl,nr,r,x)

A=capiamatriumincuad(0,nl+nr,r);
CR=(A'*A)^(-1)*A';
A=capiamatriumincuad(nl+nr,0,r);
CL=(A'*A)^(-1)*A';

for i=1:r+1
    if(x==0 && i==1)
        vector(i)=1;
    else    
    vector(i)=x^(i-1);
    end
end    

betesesquerra=-vector(1:r+1)*CL;
betesdreta=vector(1:r+1)*CR;

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

  