46805 (607950), страница 3
Текст из файла (страница 3)
n=15;
A(1:n,1:n)=0;
A(1:n,1:n)=0;
A(1,7)=1;
A(1,13)=1;
A(3,13)=1;
A(3,14)=1;
A(4,15)=1;
A(5,1)=1;
A(6,9)=1;
A(7,3)=1;
A(8,12)=1;
A(9,8)=1;
A(10,11)=1;
A(11,2)=1;
A(12,10)=1;
A(13,4)=1;
A(14,7)=1;
A(15,13)=1;
d=A
p=0;
for i=1:n;
c=d(i,:);
if sum(c)==0;
p=p+1;
if p>1
z=0;
break
end
else
if ~(sum(c)==1)
z=0;
break
end
j=i;
if d(i,j)==1
z=1;
break
end
end
if p==0
z=1;
else
p=0;
for j=1:n
c=d(:,j);
if sum(c)==0
p=p+1;
if p>1
z=0;
else
if j==n
if p==0
z=0;
break
else
z=1;
end
end
end
else
if ~(sum(c)==1)
if j==n
if p==0
z=0;
end
end
end
end
end
end
end
z
toc
Додаток 2
Текст програми виявлення паралельної топології
tic
n=5;
A(1:n,1:n)=0;
A(1,1)=1;
A
c=0;
for i=1:n
for j=1:n
c=c+A(i,j);
end
end
end
if c>0
input(' topologia ne paralelna')
toc
break
end
input('topologia paralelna')
toc
Додаток 3
Текст програми виявлення топології «дерево»
tic
n=7
A (1:n,1:n)=0;
A(1,4)=1;
A(2,4)=1;
A(4,3)=1;
A(5,3)=1
A(6,5)=1;
A(7,5)=1;
d=A
p=0;
z=0;
for i=1:n;
c=d(i,:);
if sum (c)==0;
p=p+1;
if p>1
z=0;
break
end
else
if~(sum(c)==1)
z=0;
break
end
j=i;
if d(i,j)==1
z=0;
break
end
end
if p==0
z=0;
else
p=0
for j=1:n
c=d(:j);
if sum (c)==0
p=p+1;
end
if j==n
if p>1
z=1
else
z=0
end
end
end
end
end
top
if z==1
disp (‘topologia derevo’)
else
disp (‘topologia ne derevo’)
end
Список викоhистаної літератури
-
Дунець Р.Б. Аналіз та синтез топологій комп’ютерних видавничо-поліграфічних систем: монографія. – Львів: НВФ “Українські технології”, 2003.
-
Цилькер Б.Я., Орлов С.А. Организация ЭВМ и систем. – Спб Питер, 2004.
-
Берж К. Теория графов и ее применение. – М.: Иностранная литература, 1962.- 320 с.
-
Оре О. Теория графов. – М.: Наука, 1980.-336 с.
-
Дунець Р., Басюк Т. Структура програми перетворення графів в ярусно- паралельну форму//Комп’ютерні технології друкарства. – 2002. - №7. – С.97-102.
-
Капитонова Ю.В., Летичевский А.А. Математическая теория вычислительных систем. – М.: Наука, 1988. – 295 с.
-
Шатихин Л.Г. Структурные матрицы и их применение для исследования систем. – М.: Машиностроение, 1991. – 253 с.















