% README code demo 

u = load('8_16_7_scattering_layer_0.txt') ;

subplot(7,1,1) ; 
hist(log(u(:)),floor(sqrt(prod(size(u)))))
title('Scalogram gabor Layer 0, (a) hist(log(u)), (b) u , (c) log(u), (d) log(u)>4')

subplot(7,1,2:3)
imagesc(u); colorbar          
                      
subplot(7,1,4:5) ; 
imagesc(log(u)); colorbar

subplot(7,1,6:7) ; 
t = log(u) ; t(t<4)=0 ; imagesc(t) ; colorbar

print -dpng -r1000 scalogra_seuil.png

