function h = minstrict(A)
h = 1;
[m,m,T] = size(A);
for t=1:T
  for i1=1:m
    for i2=i1+1:m
      p1 = A(:,i1,t);
      p2 = A(:,i2,t);
      h = min(h,sum(abs(p1-p2))/2);
    end
  end
end
return