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

Реберный граф

>	restart:with(networks):

Исходный граф

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

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

>	connect(4,5,G):

>	draw(Concentric([2,1,5,4,3]),G):

>	E:=edges(G):

>	m:=nops(E):

Число ребер реберного графа

>	m1:=add(vdegree(i,G)^2,i=1..n)/2-m;

>

E1:={}:

>	for i to m do

>	for j from i+1 to m do

>	if nops(ends(e||i,G) intersect ends(e||j,G))=1

>	then E1:=E1 union {{i,j}};

>

fi;

>

od;

>

od;

>	E1;# Множество ребер

m1 := 10

{{1, 2}, {1, 3}, {2, 3}, {2, 4}, {2, 6}, {3, 5}, {3, 6}, {4, 5}, {4, 6}, {5, 6}}

>	new(G1): addvertex({$1..m},G1):# Реберный граф

>	addedges(E1,G1):

>	m1:=nops(E1);#  Число ребер

>

draw(G1);

m1 := 10