clear;
%
% This program is to show the triple correlation uniqueness
%

a1=[1 1 1 0;1 0 1 0;1 1 1 0;0 0 0 0];
a2=[0 1 1 1;0 1 0 1;0 1 1 1;0 0 0 0];
a3=[0 0 0 0;0 1 1 1;0 1 0 1;0 1 1 1];

t1=TriCorr2(a1);
t2=TriCorr2(a2);
t3=TriCorr2(a3);

if t1==t2 & t2==t3
  allTriCorr2Equal=1
else
  allTriCorr2Equal=0
end;
figure;
subplot(1,3,1);AutoImage(a1);
subplot(1,3,2);AutoImage(a2);
subplot(1,3,3);AutoImage(a3);
