ints.m

来自「聚类分析工具箱 亚历山大博士写的」· M 代码 · 共 19 行

% function s = ints(s,tafter)
%
% copyright (c) 1998-2002 by Alexander Strehl

function s = ints(s,tafter)

if ~exist('tafter'),
  tafter = 100000000;
end;

tbefore = sum(sum(s));
if (tbefore~=0),
  s = round(s.*(tafter/tbefore));
end;

p = 1-sum(sum(s>0))/prod(size(s));