function [G]=remdup(F)
F=sort(F);
G=[]
for i=1:1:length(F)-1
    if((F(i+1)-F(i))~=0)
       G=[G F(i)];
    end
end
G=[G F(length(F))];
G=nonzeros(G);