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

Циклы в неографе

>	restart:with(networks): with(LinearAlgebra):

>

n:=5:

>	V:={$1..n}:# Вершины

>	E:={{1,2},{1,3},{1,5},{5,3},{4,3},{4,5}}:

>	G :=graph(V,E):# Граф

>	draw(Concentric([2,1,5,4,3]),G);#Рисунок

>	A:=convert(adjacency(G),Matrix):

>

A3:=A^3;

>	C3:=Trace(A3)/6;# Количество циклов длиной 3

>

A4:=A^4;

>	t4:=Trace(A4);# Циклические маршруты длиной 4

>	for i to n do

>

s:=0:

>	for j in neighbors(i,G) do

>	s:=s+vdegree(j,G)-1:od:

>	t4:=t4-s-vdegree(i,G)^2:

>

od:

>	C4:=t4/4/2;# Количество циклов длиной 4

>	nc:=girth(G,short): seq(ends(short[i],G),i=1..nc);