Создайте и постройте график четвертого порядка.

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)