suppress.m

克隆选择的免疫算法

% Function suppress self-recognizing and non-stimulated Ab from Memory (M)
function [M] = suppress(M,ts);
%！！！！！！！！！！！！
% ？？？？？计算矩阵M自身的欧拉距离，删除距离在区间(0,ts)内的行
%！！！！！！！！！！！！
% M   -> memory matrix
% D1  -> idiotypic affinity matrix 突变亲和力矩阵
D1 = dist(M,M'); % 计算欧拉距离
aux = triu(D1,1); % 取矩阵D1的对角线
[Is,Js] = find(aux>0 & aux<ts);
if ~isempty(Is),
   Is = ver_eq(Is);
   M = extract(M,Is);
   % D1 = extract(D1,Is);
end;