Программа  13 c. 108                        Кирсанов М.Н, 

Графы в Maple

 Рисование орграфа. Пример

>	restart;#Для версии Maple 13 plots plottools отнесены в программу 12

>	with(networks):

>	G:=void(5):       # Пустой граф

>	E:=[[1,4],[2,1],[2,3],[3,1],[2,5],[3,5],[4,3],[4,5]]:

>	addedge(E,G): r:=[4,1],[3,2],[5]:

>	draw(Linear(r),G);  # Стандартный рисунок

  read "C:\\draw.m";

>	Draw1([r],G);# Рисунок орграфа