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

 Хроматический полином

>    restart: with(networks): with(combinat):

>    n:=4:

>    new(G):addvertex({$1..n},G):

>    addedge([{1,3},{1,4},{2,3},{3,4}],G):draw(G);

[Maple Plot]

>    p:=chrompoly(G,x); # Хроматический полином

p := x*(-1+x)^2*(-2+x)

>    eval(p,x=3);# Число раскрасок в 4 цвета

12

Хроматическая редукция по пустым графам

>    add(coeff(p,x,i)*O[i],i=1..n);

-2*O[1]+5*O[2]-4*O[3]+O[4]

>    for j to n do

>    a[j]:=add(K[i]*stirling2(j,i),i=1..j); od;

a[1] := K[1]

a[2] := K[1]+K[2]

a[3] := K[1]+3*K[2]+K[3]

a[4] := K[1]+7*K[2]+6*K[3]+K[4]

Хроматическая редукция по полным графам

>    add(coeff(p,x,i)*a[i],i=1..n);

2*K[3]+K[4]