Моделирование технических систем. Дьячков Ю.А - 165 стр.

{Разнесение объектов по классам}
begin
 for ic:=1 to nk do begin
 nkl[ic]:=0;end;
 for i:=1 to n do begin
 for ic:=1 to nk do begin
 if ic=1 then begin du:=dd[i,ic];duu[i]:=ic;
 end;
 if dd[i,ic]<=du then begin du:=dd[i,ic];duu[i]:=ic;
 nkl[ic]:=nkl[ic]+1;end;
 end;
 end;
for ic:=1 to nk do begin
 nkl[ic]:=0;end;
for ic:=1 to nk do begin
 for i:=1 to n do begin
 if duu[i]=ic then nkl[ic]:=nkl[ic]+1;
 end;
end;
end;

Procedure raz_lok;
begin
{Определение мер близости объектов к центрам классов}
for ic:=1 to nk do begin
 for i:=1 to n do begin
 dd[i,ic]:=0;
 end;end;
 for ic:=1 to nk do begin
 for i:=1 to n do begin
 for j:=1 to m do begin
 dd[i,ic]:=dd[i,ic]+((x[i,j]-z[ic,j])*(x[i,j]-z[ic,j]));
 end;
 end;
 end;
 razn;
{Локализация центров классов}
for ic:=1 to nk do begin
 for j:=1 to m do begin

                            165