1 function U01_test_distmat
   2 %U01_TEST_DISTMAT            Test distmat.
   3 %
   4 %usage
   5 %  U06_test_distmat
   6 %
   7 %author
   8 %  saputra@cs.tu-berlin.de
   9 
  10 % Data
  11 X = [ 0.9, 2, 0.1, -3, 7.5; -2.4, 2.1, 0.3, -8, 4; 3.2, 1.1, -0.6, -0.9, 8; 9.4, -1.2, 2.1, 9.8, 7];
  12 
  13 % Correct distances
  14 correct_dist = [
  15                    0  11.757125499032490   8.698275691193054   7.971198153351853  10.645186705737011
  16   11.757125499032490                   0   4.542025979670306  15.874822833657074  12.194670967270907
  17    8.698275691193054   4.542025979670306                   0  11.742231474468557  12.900387591076479
  18    7.971198153351853  15.874822833657074  11.742231474468557                   0  18.474306482247176
  19   10.645186705737011  12.194670967270907  12.900387591076479  18.474306482247176                   0 ];
  20 
  21 % Run test.
  22 
  23 if exist('distmat.m', 'file') 
  24   fprintf('Testing distmat.m ...\n');
  25   [D1, D2, td] = distmat(X);
  26 
  27   if max(max(abs(D1 - correct_dist))) > 1e-10
  28     fprintf('D1 failed (discrepancy > 1e-10).\n');
  29   else
  30     fprintf('D1 OK.\n'); 
  31   end
  32 
  33   if max(max(abs(D2 - correct_dist))) > 1e-10
  34     fprintf('D2 failed (discrepancy > 1e-10).\n');
  35   else
  36     fprintf('D2 OK.\n'); 
  37   end
  38 end