> | 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); |
Раскрываем хроматический полином
> | expand(chrompoly(G,x)); |
Хроматический полином
> | chrompoly(G,x); |
Число раскрасок 3 цветами
> | chrompoly(G,3); |
18