y=mwOpeninf('Test_Sig.txt',8);
X = y(1,:);
myplot(X);


% w='db2';
% [LoD,HiD,LoR,HiR] = wfilters(w);
% 
% [cA, cD1, cD2]=mwave2(X,LoD,HiD);
% 
% LX =length(X)
% MaxX = max(X);
% minX = min(X);
% 
% LA =length(cA)
% MaxA = max(cA);
% minA = min(cA);
% 
% LD1 =length(cD1)
% MaxD1 = max(cD1);
% minD1 = min(cD1);
% 
% LD2 =length(cD2)
% MaxD2 = max(cD2);
% minD2 = min(cD2);

% subplot (411); plot(X); title('Исходный сигнал')
% axis([1 LX minX MaxX]); 
% subplot (412); plot(cA); title('Аппроксимация уровня 3')
% axis([1 LA minA MaxA]); 
% subplot (413); plot(cD1); title('Детали уровня 1')
% axis([1 LD1 minD1 MaxD1]); 
% subplot (414); plot(cD2); title('Детали уровня 2')
% axis([1 LD2 minD2 MaxD2]); 
% 

cDn1=den(cD1,99);
cDn2=den(cD2,90);

cA1n = myidwt(cA,cDn2,LoR,HiR,LD1);
DD=length(cA1n)
Xdn=myidwt(cA1n,cDn1,LoR,HiR,LX);

D = LX-length(Xdn)


subplot (211); plot(X); title('Исходный сигнал')
axis([1 LX minX MaxX]); 
subplot (212); plot(Xdn); title('Удаление коэффициентов')
axis([1 LX minX MaxX]); 





%mwSave('Proba.txt','%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t\n', ans)
