Реферат: Операторы в вейвлетном базисе
a(2*k-1)=a(2*k-1)+2*LO_D(i+1)*LO_D(i+2*k);
end;
end;
% вычисление коэффициентов rl
f=zeros(len-2,1);
f(1)=-1/2;
R=zeros(len-2);
for l=len-2:-1:2;
R(l,l)=-1;
if (2*l<=len-2)
R(l,2*l)=2;
end;
for n=1:2:len-1;
if (abs(2*l-n)<len-2);
if ((2*l-n)<0);
R(l,abs(2*l-n))=-a(n)+R(l,abs(2*l-n));
else
R(l,2*l-n)=a(n)+R(l,2*l-n);
end;
end;
if (abs(2*l+n)<len-2);
if ((2*l+n)<0);
R(l,abs(2*l+n))=-a(n)+R(l,abs(2*l+n));
else
R(l,2*l+n)=a(n)+R(1,2*l+n);
end;
end;
end;
end;