Программа 6 c. 93                 Кирсанов М.Н. Графы в Maple

Ранг-полином графа

>    restart: with(networks):

>    G:=complete(4): G:=delete({e5,e6},G):

>    expand(rankpoly(G,x,y));

4*x^2+6*x+x^3+x*y+3+y

>    draw(G);

>    rank({e1,e2,e3,e4},G);

[Maple Plot]

3

>    rankpoly(G,1,1), # число подграфов

>    rankpoly(G,1,0), # число ациклических подграфов

>    rankpoly(G,0,1), # число подграфов с рангом = rank(G)

>    rankpoly(G,0,0); # число остовов

16, 14, 4, 3