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

     4. Постепенно исключая из рассмотрения менее значимые па-
раметры, провести повторную классификацию образцов.
     Устойчивость классификации будет нарушаться при исключе-
нии существенных параметров. В этом случае следует прекратить
исключение параметров, т.к. оставшаяся их совокупность будет
представлять существенное ядро исходного множества.
     Рассмотренный аппарат анализа легко реализуется в виде про-
граммного продукта, обеспечивающего автоматизацию процесса
исследования решаемой задачи.
     Инженерный вариант алгоритма приведен ниже.
     {Программа автоматической классификации объектов}
     Uses crt;
     var
     x:array[1..20,1..30] of real;
     z,zopt,zopt1:array[1..10,1..30] of real;
     d,dopt:array[1..30] of real;
     dd:array[1..20,1..10] of real;
     ck,nkl:array[1..10] of integer;
     duu,optduu:array[1..20] of integer;
     dz:array[1..10] of real;
     i,j,j1,n,m,m1,nk,ic,cck,ixsr,ii,ira,nkopt,iraopt,za: integer;
     xx,xmax,xsr,du,dzz,ddzz,k,optk:real;

     Procedure vvod_n;
     {Процедура ввода числа объектов}
     begin
     GotoXY(2,2);TextColor(10);
     Write('Введите число исследуемых объектов (не более
     20):n= ');
     ReadLn(n);
     GotoXY(2,2);
     WriteLn(' ');
     GotoXY(42,2);
     WriteLn('Число исследуемых объектов n=',n);
     end;

     Procedure vvod_m;
     {Процедура ввода значений свойств объектов}
     begin
     GotoXY(2,3);TextColor(14);

                                163