ТЕМА ЗАКРЫТА
Спасибо всем кто ответил.
на другом форуме хороший человек прислал такой ответ:
Пакет Maple имеет мощный пакет расширения GraphTheory . Команда IsGraphicSequence по списку L степеней его вершин проверяет, существует ли такой граф. Команда SequenceGraph конструрирует такой граф, а команда DrawGraph его рисует:
Code
1 with(GraphTheory):
2 L := [6$13];
3 IsGraphicSequence(L);
4 G := SequenceGraph(L);
5 DrawGraph(G, size=[500,500]);
| Вложения: |
|
Граф 13_6.png [ 51.4 KIB | Просмотров: 9274 ] |