% 
% Written by:
% -- 
% John L. Weatherwax                2005-08-14
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

close all; drawnow; 
clc; 
clear; addpath( '../../Code/eda_data' ); addpath( '../../Code/eda_toolbox' ); 

load posse; 

x = croix;    % <- a cross
x = struct2;  % <- a L shape
x = boite;    % <- a donut 
x = groupe;   % <- four clusters  
x = curve;    % <- a curve
x = spiral;   % <- a sprial

pseudotour(x,5000); 

% specify some tours of interest (to save):
%torustour(x,1); 
%saveas( gcf, '../../WriteUp/Graphics/Chapter4/prob_4_2_posse_croix_k_1', 'epsc' ); 
%saveas( gcf, '../../WriteUp/Graphics/Chapter4/prob_4_2_posse_struct2_k_1', 'epsc' ); 
%saveas( gcf, '../../WriteUp/Graphics/Chapter4/prob_4_2_posse_boite_k_1', 'epsc' ); 
%saveas( gcf, '../../WriteUp/Graphics/Chapter4/prob_4_2_posse_groupe_k_1', 'epsc' ); 
%saveas( gcf, '../../WriteUp/Graphics/Chapter4/prob_4_2_posse_curve_k_1', 'epsc' ); 
%saveas( gcf, '../../WriteUp/Graphics/Chapter4/prob_4_2_posse_spiral_k_1', 'epsc' );