![[Maple Plot]](images/p11.gif)
Программа 1 c. 92 Кирсанов М.Н.
Графы в Maple
| > | restart:with(networks): with(LinearAlgebra): |
| > | n:=5: |
| > | E:={{1,2},{2,4},{2,5},{3,4},{3,5},{5,4}}:#Ребра |
| > | V:={$1..n}: # Вершины |
| > | G:=graph(V,E):# Граф |
| > | draw(Concentric([2,1,5,4,3]),G);#Рисунок |
| > | P:=allpairs(G): |
| > | for i to n do W[i]:=max(seq(P[i,u],u=1..n)):od: |
| > | RG:=min(seq(W[i],i=1..n));# Радиус |
| > | DG:=max(seq(W[i],i=1..n));# Диаметр |
| > | Центр; |
| > | for j to n do if W[j]=RG then print(j): end:od: |
RG := 2
DG := 3
Центр
2
4
5
| > | k:=0:# Счетчик числа вершин нечетной степени |
| > | for i to n do |
| > | if type(vdegree(i,G),odd) then k:=k+1;end;od; |
| > | if k=0 or k=2 then print("Граф содержит эйлерову цепь");end; |
| > |