p22.html Программа из книги Кирсанов М.Н. Графы в Maple

Программа 22.  c. 120    Кирсанов М.Н. Графы в Maple ,   М.: Физматлит 2007.

Код Гапта

> restart:with(networks):new(G):

> v:=$5..12:A:=`корень`:

> addvertex(A,B,C,D,v,G):

> connect(A,{B,C,D},G): connect(D,{5,6},G):

> connect(C,{7,8,9},G): connect(B,{10,11,12},G):

> draw(Linear([A],[D,C,B],[v]),G);

[Maple Plot]

> T := shortpathtree(G,A): z:=A:
ss:={A}: # Корень

> kod:=``: # "Пустой" код Гапта
for k while (z<>0) do a:=ss: ss:={}:
for i in a do
z:=nops(daughter(i,T)):#Число сыновей вершины i
if z<>0 then kod:=z,kod; fi:
ss:=ss union daughter(i,T)
od;
od:
kod; # Ответ. Код Гапта