
Пусть X — конечное множество, а $f:X \rightarrow X$ — функция. Как нарисовать граф с вершиной V=X и ребрами (x,f(x)) с x в V?
решение1
Решение Non (La)TeX
Исходя из вашего вопроса, я предполагаю, что было бы неплохо использовать другое программное обеспечение для создания графика, чтобы было легче изменять параметры.
Например, используяМатематика(код ниже) выходной график (щелкните правой кнопкой мыши, чтобы увидеть в исходном размере)
Код
f[x_] := Mod[x^11, 100];
NV = 90;
V = Table[i, {i, 1, NV}]
FV = Table[f[V[[i]]], {i, 1, NV}]
EV = Table[DirectedEdge[V[[i]], FV[[i]]], {i, 1, NV}]
Graph[EV, VertexLabels -> "Name"]