sig1(1:200)=0;
for i=1:50
    sig1(i)=0;
end
for i=51:100
    sig1(i)=i-50;
end
for i=101:150
    sig1(i)=150-i;
end
for i=151:200
    sig1(i)=0;
end
 
[a,d]=dyadicWaveletDecomp(sig1,'bior3.1',4);
 plot(a)
 plot(d(1:200))
 plot(d(201:400))
 plot(d(401:600))
 plot(d(601:800))
 subplot(5,1,1)
 plot(a)
 subplot(5,1,2)
 plot(d(1:200))
 subplot(5,1,3)
 plot(d(201:400))
 subplot(5,1,4)
 plot(d(401:600))
 subplot(5,1,5)
 plot(d(601:800))