for (j=1;j<=m;j++)

{

s[j]=0.0;

for (i=1;i<=n;i++)

{

if (d[i][j]==0.0) d[i][j]=0.01;

s[j]=s[j]+d[i][j];

}

};

for (j=1;j<=m;j++)

{

h[j]=0.0;

for (i=1;i<=n;i++)

h[j]=h[j]+(d[i][j]/s[j])*log(d[i][j]/s[j]); //Вычисление энтропии

l[j]=w[j]/(h[j]*(-1)); //Вычисление весовых коэффициентов

};

printf ("\nВведите значение параметра важности редковстречающихся свойств: ");

scanf ("%d",&p);

for (i=1;i<=n;i++)

{

for (j=1;j<=m;j++) //Вычисление метрики

z[i]=z[i]+l[j]*power((1-d[i][j]),p);

if (i==1)

{

y=z[i];

e=i;

}

if (y<z[i]) //Выбор максимальной метрики

{

y=z[i]; //Определение лучшего пакета

e=i;

}

};

printf (" \nВ результате вычислений получено,\nчто ближе всего к идеалу находиться пакет ~%s~",nm[e].pname);

//printf ("\nЕго метрика равна: %le",y);

getch();

};

Литература

1. Craig Hunt

“TCP/IP Network Administration”,

O’Reilly & Associates, Inc., March 1993.

2. Елтаренко Е.А. , Симонов С.В.

“Методы решения многокритериальных задач”,

Москва, МИФИ, 1980.

3. Computer World - Москва, №№ 36, 45, 150 /1994.

4. Технологии электронных коммуникаций

том 27 “Межсетевые протоколы и мультисети”,

Москва, СП “Эко-Трендз” 1992.

5. Технологии электронных коммуникаций

том 28 “Unix: Сетевые возможности”,

Москва, СП “Эко-Трендз” 1992.

6. Технологии электронных коммуникаций

том 43 “Международная компьютерная сеть Internet”,

Москва, СП “Эко-Трендз” 1993.

7. Климеко С.В., Уразметов В.

“Internet. Среда обитания иформационного общества”,

Протвино, ИВФЭ, 1994.

8. LAN-WorkPlace for DOS. Administrators Guide.

San Jose, Novell, 1992.

9. PC/TCP Network software for DOS.

North Andover, FTP Software Inc., 1992.

Информация полученная в электронном виде

из публичных архивов сети Internet

1. “What is NFS” Доступ по системе VERONICA, раздел FAQ.

2. RFC №№ 764, 791, 793, 959. Доступ по системе VERONICA.