renumtick.m

聚类分析工具箱 亚历山大博士写的

% function renumtick(h,xcl,ycl)
%
% copyright (c) 1998-2002 by Alexander Strehl

function renumtick(h,xcl,ycl)

if exist('xcl')&~isempty(xcl),
   xtxt = num2str(perminv(xcl)');
else
   xtxt = [];
end;
if exist('ycl')&~isempty(ycl),
   ytxt = num2str(perminv(ycl)');
else
   ytxt = [];
end;
retick(h,xtxt,ytxt);