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

 end;
dzz:=dzz+dz[ic]/nk;
end;
{Определение среднего расстояния между всеми центрами
классов}
for ic:=1 to nk-1 do begin
for j:=1 to m do begin
ddzz:=ddzz+(z[ic,j]-z[ic+1,j])*(z[ic,j]-z[ic+1,j]);
end;end;
ddzz:=ddzz/nk/(nk-1)*2;
Delay(300);
{Расчет интегрального критерия качества классификации}
k:=(ddzz-dzz)/(ddzz+dzz);
end;
begin
clrscr;
{Ввод значений признаков объектов,
i-номер объекта,j-номер признака,
n-число объектов,m-число признаков}
vvod_n;
vvod_m;
izob_mat;
priv;
for ira:=1 to 10 do
begin
class;
{Изображение результатов классификации}
for ii:=1 to 3 do begin
raz_lok;
for i:=1 to n do begin
 TextColor(duu[i]);
 WriteLn('*');
end;
end;
ch_kr;
{Фиксация лучшего результата}
if ira=1 then optim_class;
if (ira>1) and (k>optk) then optim_class;
for ic:=1 to nk do begin
                       168