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

I = [ 0, 0, 2, 2; 1, 1, 0, 0; 3, 2, 3, 3; 3, 2, 2, 2 ];

% duplicate the results in the book:
d=1;
phi=0;
[A,R] = co_occurrence(I, d,phi);
R
R*A 

% duplicate the results in the book:
d=1;
phi=45;
[A,R] = co_occurrence(I, d,phi);
R
R*A 


d=1;
phi=90;
[A,R] = co_occurrence(I, d,phi);
R
R*A 


d=1;
phi=135;
[A,R] = co_occurrence(I, d,phi);
R
R*A