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

 z[ic,j]:=0;
 end;
end;
for ic:=1 to nk do begin
 for i:=1 to n do begin
 if duu[i]=ic then begin
 for j:=1 to m do begin
 z[ic,j]:=z[ic,j]+x[i,j]/nkl[ic];
 end;end;
 end;
end;
end;

Procedure priv;
{Определение максимальных значений и приведение призна-
ков к безразмерному виду, определение дисперсий признаков}
begin
for j:=1 to m do begin
 d[j]:=0;xsr:=0;
 for i:=1 to n do begin
 if i=1 then xmax:=x[i,j];
 if x[i,j]>xmax then xmax:=x[i,j];
 end;
 for i:=1 to n do begin
 x[i,j]:=x[i,j]/xmax;
 xsr:=xsr+x[i,j];
 end;
 xsr:=xsr/n;
 for i:=1 to n do begin
 d[j]:=d[j]+(x[i,j]-xsr)*(x[i,j]-xsr);
 end;
end;
end;

Procedure class;
{Назначение числа классов}
begin
Randomize;
 nk:=(Random(n) div 2);

                                166