?????????????? ?????? ? ????????? ?????????? ??????? ?????

инициализация переменных
PTR=0; V= KP; I = KP+1;
for K=1:JKV
M=ta (K); N=he(K); NEXT(I)=NEXT(M); ADJ(I) =N; NEXT(M)= I;
I= I + 1 ; NEXT(I) =NEXT(N); ADJ(I) =M; NEXT(N)=I; I= I + 1 ;
end;
LIST(KP+1) =0; I=1; N=1; LIST(1)=V; VECTOR(V)=0; VISIT(V)=1;
//поиск узлов ветвей, относящихся к дереву
while 1==1,
M=LIST(N); PTR=M;
while 1==1,
NNN=NEXT(PTR); PTR=NNN;
if PTR==0 then break, end;
J=ADJ(PTR);
if VISIT(J)= = 0 then
I= I + 1 ; LIST(I) =J; VISIT(J)= I; VECTOR(J)=M;
end;
end;
N=N+1;
if LIST(N)= =0 then break, end;
end;
//формирование массива с номерами ветвей дерева и хорд
vet=size(VECTOR);yvet=vet(1);
for m=1:JKV
derevo(1,m) =m;
end;
for k1=1:yvet(1)
if VECTOR(k1)< > 0 then, k2=VECTOR(k1); end;
for m=1:JKV
if ((ta(m) = = k1&he(m) = = k 2 ) | ( t a ( m) = = k 2 &he(m) = = k 1 )) then
derevo(1,m) =0;break; end;
end;
end;
derevo
В результате формируется массив, в котором ненулевые элементы соответствуют
ветвям хорд, номера нулевых элементов соответствуют ветвям
дерева.
derevo =
1. 2. 0. 0. 0. 6.
В данном случае 1, 2 и 6-я ветви – это ветви дерева, 3, 4 и 5-я ветви –
ветви хорд.
Приведенный алгоритм поиска ветвей дерева может быть использован
в тех языках программирования, где нет соответствующих встроенных
функций или библиотек.
65