Создайте и постройте полный график порядка четырех.

G = digraph([1 1 1 2 2 2 3 3 3 4 4 4],[2 3 4 1 3 4 1 2 4 1 2 3]);
plot(G)

Найдите переходное сокращение и постройте график результата. Поскольку достижимость в полном графике обширна, теоретически существует несколько возможных переходных сокращений, так как любой цикл через четыре узла является кандидатом.

H = transreduction(G);
plot(H)

Два графиков с одной и той же достижимостью также имеют одно и то же переходное сокращение. Поэтому любой цикл четырех узлов производит то же транзитивное сокращение, что и H.

Создайте ориентированный граф, который содержит другой цикл четырех узлов: (1,3,4,2,1).

G1 = digraph([1 3 4 2],[3 4 2 1]);
plot(G1)

Нахождение переходного сокращения G1. Цикл в G1 переупорядочивается так, чтобы переходные сокращения H и H1 имеют тот же цикл, (1,2,3,4,1).

H1 = transreduction(G1);
plot(H1)

Создайте и постройте график направленной ациклики.

s = [1 1 1 1 2 3 3 4];
t = [2 3 4 5 4 4 5 5];
G = digraph(s,t);
plot(G)

Подтвердите, что G не содержит никаких циклов.

tf = isdag(G)

tf = logical
   1

Найдите переходное сокращение графика. Поскольку график не содержит циклов, транзитивное сокращение уникально и является подграфиком G.

H = transreduction(G);
plot(H)