function Z=myidwt(cA,cD,LoR,HiR,NS) % Обычная функция idwt дает ошибку в длине восстановленного массива
  Len_cA = length(cA);  % длина массива
  Len2cA =  Len_cA*2;  % 2*длина массива
       c2A = zeros(1,Len2cA);
         c2A(colon(2,2,Len2cA)) = cA;
       c2D = zeros(1,Len2cA);
         c2D(colon(2,2,Len2cA)) = cD;

  A = conv(LoR,c2A);
  D = conv(HiR,c2D);
  idwtS = A + D;

   Len_idwtS = length(idwtS);
    Res = ceil((Len_idwtS - NS)/2);
    idwtSN = idwtS(colon(Res+1,1,Res+NS));
    
    Z = idwtSN;
