test_distance.m

   1 #!/usr/bin/octave --silent
   2
   3 echo on
   4
   5
   6 plist = struct('id', {'4001' '4002' '1' '2'},...
   7                'x',  {0 1000 100 500},...
   8                'y',  {0 1000 100 500},...
   9                'type', {2 2 2 2});
  10 plist.id
  11 plist(2)
  12 distance(plist, 4001, 1)
  13 distance(plist, 4001, [1 2; 3 4])
  14 distance(plist, [4001 4002], [1 2])
  15 distance(plist, '4001', '1')
  16 distance(plist, '4001', {'1' '2'; '3' '4'})
  17 distance(plist, {'4001' '4002'}, {'1' '2'})
  18 distance(plist, {'4001' '4002'}, [1 2])
  19 distance(plist, [4001 4002], {'1' '2'})