// ====================================================================
// This file is part of the Endmember Induction Algorithms Toolbox for SCILAB 
// Copyright (C) Grupo de Inteligencia Computacional, Universidad del 
// País Vasco (UPV/EHU), Spain, released under the terms of the GNU 
// General Public License.
//
// Endmember Induction Algorithms Toolbox is free software: you can redistribute 
// it and/or modify it under the terms of the GNU General Public License 
// as published by the Free Software Foundation, either version 3 of the 
// License, or (at your option) any later version.
//
// Endmember Induction Algorithms Toolbox is distributed in the hope that it will
// be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Endmember Induction Algorithms Toolbox. 
// If not, see <http://www.gnu.org/licenses/>.
// ====================================================================

function [d] = EIA_CHEBYSHEV(x,y)
  //// [d] = EIA_CHEBYSHEV(x,y)
  // 
  // Manuel Grana <manuel.grana[AT]ehu.es>
  // Miguel Angel Veganzones <miguelangel.veganzones[AT]ehu.es>
  // Grupo de Inteligencia Computacional (GIC), Universidad del Pais Vasco /
  // Euskal Herriko Unibertsitatea (UPV/EHU)
  // http://www.ehu.es/computationalintelligence
  // 
  // Copyright (2011) Grupo de Inteligencia Computacional @ Universidad del Pais Vasco, Spain.
  //
  // Chebyshev distance between two vectors.
  // ------------------------------------------------------------------------------
  // Input:   x,y       : two vectors of same dimensionality
  //
  // Output:  d         : Chebyshev distance
  
  //// Parameters
  [lhs,rhs]=argn(0);
  if lhs < 2
    error('Insufficient parameters');
  end
  [x1,x2] = size(x);
  [y1,y2] = size(y);
  if (x1 <> y1) | (x2 <> y2)
    error('Incorrect vector dimensionalities');
  end
  
  //// Calculate distance
  d = max(abs(x-y));
  
endfunction