ECG-Kit 1.0

File: <base>/common/LIBRA/greatsort.m (461 bytes) 
function [vec,I]=greatsort(x);

%GREATSORT sorts the vector x in descending order.
%
% Required input arguments: 
%     x : vector to be sorted
%
% Output arguments:
%   vec : sorted vector
%    I  : index => x(I)=vec.
%
% I/O: [vec,I]=greatsort(x);
% 
% This function is part of LIBRA: the Matlab Library for Robust Analysis,
% available at: 
%              http://wis.kuleuven.be/stat/robust.html

vec=-x;
[svec,I]=sort(vec);
vec=-svec;