chrompoly.html

> restart;

> with(networks):

Новый граф

> new(G):

Объявляем вершины

> addvertex({1,2,3,4,5},G):

Добавляем ребра

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

Рисуем

> draw(G);

e1, e2, e3, e4, e5, e6

Неограф

Раскрываем хроматический полином

> expand(chrompoly(G,x));

6*x-15*x^2+14*x^3-6*x^4+x^5

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

> chrompoly(G,x);

x*(-2+x)*(3-3*x+x^2)*(-1+x)

Число раскрасок 3 цветами

> chrompoly(G,3);