Программа  19                        Кирсанов М.Н, 

Графы в Maple

Код Прюфера

>	restart;with(networks):new(G):n:=16:

>	addvertex($ 1..n,G):# Вершины

>	addedge(Path(1,2,3,4,8,12,11),G):# Ветви

>	addedge(Path(2,6,5,9,13),G):

>	addedge(Path(6,10,14,15,16),G):

>	addedge({3,7},G):

>	r:=seq([seq(1+j+4*i,i=0..3)],j=0..3):

>	draw(Linear(r),G);

>	T:=[0$(n-2)]:

>	for i to (n-2) do

>	mindegree(G,sm[i]):

>

z:=sm[i]:

>	z1:=departures(z,G):

>	T[i]:=z1[1]:

>	delete(z,G):

>

end do:

>	"Код Прюфера:", T;