close all
clear all
 disp('Ashton Data in Andrews 72')
  lw = 2; 
  set(0, 'DefaultAxesFontSize', 16);
  fs = 16;
  msize = 10;

% 
%A.  West African &-8.09 &0.49 &0.18 &0.75 &-0.06 &-0.04 &0.04 &0.03 \\
%B.  British &-9.37 &-0.68 &-0.44 &-0.37 &0.37 &0.02 &-0.01 &0.05 \\
%C.  Au. Aboriginal&-8.87 &1.44 &0.36 &-0.34 &-0.29 &-0.02& -0.01 &-0.05 \\
%D.  Gorilla: Male& 6.28 &2.89& 0.43& -0.03& 0.10& -0.14& 0.07& 0.08 \\
%E.  ~~~~~~~~Female& 4.82& 1.52 &0.71 &-0.06 &0.25 &0.15 &-0.07& -0.10 \\
%F.  Orang-outang: Male &5.11 &1.61 &-0.72 &0.04& -0.17 &0.13 &0.03 &0.05 \\
%G.  ~~~~~~~~Female &3.60 &0.28& -1.05& 0.01&-0.03 &-0.11 &-0.11 &-0.08 \\
%H.  Chimpanzee: Male &3.46 &-3.37 &0.33& -0.32& -0.19 &-0.04 &0.09 &0.09 \\
%I.    ~~~~~~~~Female &3.05 &-4.21 &0.17 &0.28 &0.04 &0.02 &-0.06 &-0.06 \\
%J. Pithecanthropus  &-6.73 &3.63& 1.14& 2.11& -1.90 &0.24 &1.23& -0.55 \\
%K.   ~~~~~~~~~~    pekinensis & -5.90 & 3.95 &0.89 &1.58 &-1.56& 1.10 &1.53& 0.58 \\
%L. Paranthropus robustus  &  -7.56 & 6.34 &1.66 &0.10 &-2.23 &-1.01& 0.68 &-0.23\\
%M. Paranthropus crassidens  &  -7.79 &4.33 &1.42& 0.01 &-1.80& -0.25& 0.04& -0.87\\
%N. Meganthropus paleojavanicus & -8.23 &5.03 &1.13 &-0.02 & -1.41 &-0.13 &-0.28 & -0.13\\
%O. Proconsul africanus    &  1.86 &-4.28 &-2.14 &-1.73& 2.06& 1.80& 2.61 &2.48\\




andrews72=[-8.09  0.49  0.18 0.75 -0.06 -0.04 0.04 0.03; ...  %A.  West African
                        -9.37  -0.68  -0.44  -0.37  0.37  0.02  -0.01  0.05; ... %B.  British 
                        -8.87 1.44 0.36 -0.34 -0.29 -0.02 -0.01 -0.05; ... %C.  Au. Aboriginal
                         6.28  2.89  0.43  -0.03  0.10  -0.14  0.07  0.08; ... %D.  Gorilla: Male
                         4.82  1.52 0.71 -0.06  0.25  0.15  -0.07  -0.10; ... %E.  ~~~~~~~~Female
                         5.11  1.61  -0.72  0.04  -0.17  0.13 0.03  0.05; ...%F.  Orang-outang: Male
                         3.60  0.28  -1.05  0.01 -0.03  -0.11  -0.11  -0.08; ...%G.  ~~~~~~~~Female
                         3.46  -3.37  0.33  -0.32  -0.19  -0.04  0.09 0.09; ...%H.  Chimpanzee: Male
                         3.05 -4.21 0.17 0.28 0.04 0.02 -0.06  -0.06; ...%I.    ~~~~~~~~Female
                        -6.73 3.63 1.14 2.11 -1.90 0.24 1.23 -0.55 ;... %J. Pithecanthropus pekinensis
                        -5.90 3.95 0.89 1.58 -1.56 1.10 1.53 0.58; ... %K.  =//=
                        -7.56 6.34 1.66 0.10 -2.23 -1.01 0.68 -0.23; ...%L. Paranthropus robustus
                        -7.79 4.33 1.42 0.01 -1.80 -0.25 0.04 -0.87; ...%M. Paranthropus crassidens
                        -8.23 5.03 1.13 -0.02 -1.41 -0.13 -0.28 -0.13;... %N. Meganthropus paleojavanicus
                        1.86 -4.28 -2.14 -1.73 2.06 1.80 2.61 2.48]; %O. Proconsul africanus
                     N=2^8;

 
            NN= 1000;
            xx = linspace(0 , 1,  NN);
            
            W1 = [1/sqrt(2) * ones(size(2 * pi *xx));
                    sin(2 * pi * xx); cos(2 * pi *xx);
                    sin(2 * 2 * pi*xx); cos(2 *2 * pi * xx);
                    sin(3 * 2 * pi * xx); cos(3 * 2 * pi *  xx);
                    sin(4 * 2 * pi * xx)];
                       figure(2)
            for i = 1:3
            h(1)=plot(xx, andrews72(i,:) * W1, 'b-','LineWidth',lw)
            str{1} ='humans'; 
            hold on
            end
            for i=4:7
                h(2) = plot(xx,andrews72(i,:)* W1,'r-','LineWidth',lw) 
                str{2} ='gor/orang';          
            end
              for i=8:9
                h(3) = plot(xx,andrews72(i,:)* W1,'m-','LineWidth',lw) 
                str{3} ='chimps';          
            end
                for i=10:14
                h(4) =  plot(xx,andrews72(i,:)* W1,'Color',[0 0.6 0],'LineWidth',lw)
                   str{4} ='fossils';       
                end
                for i=15:15
                h(5) =  plot(xx,andrews72(i,:)* W1,'c-','LineWidth',lw)
                   str{5} ='fossils-pc';       
                end
                
       
                   legend(h,str,'Location','NorthWest')
                  
                 
         %  print -depsc 'C:\Springer\Descriptive\Descriptiveeps\Ashton.eps'
         %  print -djpeg90 'C:\Brani\WorkBME\SINAPE2010\AWP\AshtonAndr.jpg'
                   
