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

Графы в Maple

Компоненты связности орграфа

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

>	n:=6:G:=void(n):

>	addedge([[1,5],[5,3],[3,1],[2,4],[4,6],[6,2],[2,3]],G):

>	m:=nops(edges(G)):

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

>	A:=adjacency(G):# Матрица смежности

>	M:=convert(evalm(add(A^k,k=1..m)),Matrix):

>	for i to n do

>	for j to n do

>	M[i,j]:=M[i,j]*M[j,i];

>

od:

>

od:

>	###################################################

>

E:={}:

>	for i to n do

>	for j from i+1 to n do

>	if M[i,j]<>0 then E:=E union {{i,j}};end;

>

od:

>

od:

>	G1:=void(n): addedge(E,G1):#Новый неограф

>	Компоненты=components(G1);

>	ЧислоКомпонент=nops(components(G1));