function demoSEDOFSQ(I1, s)
    subplot(3,2,1), imshow(I1),title('Image de base');
    I=binarise(I1, s);
    subplot(3,2,2), imshow(I),title(['Seuillage à ', num2str(s)]);
    subplot(3,2,3), imshow(erosion(I, 1)),title('Erosion');
    subplot(3,2,4), imshow(dilatation(I, 1)),title('Dilatation');
    subplot(3,2,5), imshow(ouverture(I, 1)),title('Ouverture');
    subplot(3,2,6), imshow(fermeture(I, 1)),title('Fermeture');
    figure;
    [s, e]=squelette(I);
    subplot(2,1,1),imshow(s), title(['Squelette après ', num2str(e), ' erosion']);
    subplot(2,1,2),imshow(1-s), title('Squelette inversé');
end