Программа  8                        Кирсанов М.Н, 

Графы в Maple

Матрица инцидентности

>	restart: with(networks):

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

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

>	m:=nops(E):      # Ребра

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

>

draw(G);

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

>	incidence(G);    # Матрица инцидентности (1)

>	In:=Matrix(n,m):

>

k:=0:

>	for i to n do

>	for j from i to n do

>	if A[i,j]=1 then k:=k+1: In[i,k]:=1: In[j,k]:=1: end;

>

od;od;

>	In;              # Матрица инцидентности (2)