%call: nug8
%A,B .. given by Nugent 


n=8
A=[
  0  1  2  3  1  2  3  4
  1  0  1  2  2  1  2  3
  2  1  0  1  3  2  1  2
  3  2  1  0  4  3  2  1
  1  2  3  4  0  1  2  3
  2  1  2  3  1  0  1  2
  3  2  1  2  2  1  0  1
  4  3  2  1  3  2  1  0];
B=[
  0  5  2  4  1  0  0  6
  5  0  3  0  2  2  2  0
  2  3  0  0  0  0  0  5
  4  0  0  0  5  2  2 10
  1  2  0  5  0 10  0  0
  0  2  0  2 10  0  5  1
  0  2  0  2  0  5  0 10
  6  0  5 10  0  1 10  0 ];
C=zeros(8,8);
