% SEPT. 11, 2010
% SWISS.DAT PLOT
clear all;
% s=tdfread('swiss1.dat',';'); 
s=tdfread('swiss.dat',';'); 
bnote=s.Bnote;
length=s.Length;
left=s.Left;
right=s.Right;
bottom=s.Bottom;
top=s.Top;
diagonal=s.Diagonal;
%
data=[length,left,right,bottom,top,diagonal];
data_1=data(1:50,:);
data_2=data(51:100,:);
data_3=data(101:150,:);
data_4=data(151:200,:);
% andrewsplot(data);
figure(1);
glyphplot(data_1);
figure(2);
glyphplot(data_2);
figure(3);
glyphplot(data_3);
figure(4);
glyphplot(data_4);
%
figure(21);
glyphplot(data_1,'Glyph','face');
figure(22);
glyphplot(data_2,'Glyph','face');
figure(23);
glyphplot(data_3,'Glyph','face');
figure(24);
glyphplot(data_4,'Glyph','face');
%
 figure(51);
 andrewsplot(data(96:105,1:6),'Standardize','on');
 hold on; grid;
 print -deps swiss3_96_105.ps
 figure(52);
 andrewsplot(data(96:105,6:-1:1),'Standardize','on');
 hold on;grid;
 print -deps swiss4_96_105.ps

