No BSD License
function deplace(de , vers) % DEPLACE global pieux deb fin hauteurs z largeur nbdisk; title(['dplacer le disque du pieu ', num2str(de), ' au pieu ', num2str(vers)]); drawnow; hauteurs(vers) = hauteurs(vers)+1; n = nbdisk+1; pieux(n-hauteurs(vers), deb(vers):fin(vers)) = pieux(n-hauteurs(de), deb(de):fin(de)); pieux(n-hauteurs(de), deb(de):fin(de)) = z; image(pieux); axis image; set(gca,'XTick',[],'YTick',[]); drawnow; hauteurs(de) = hauteurs(de)-1;
Contact us at files@mathworks.com