Mathematica имеет возможность построения графиков и рисования.
Итак, если вы построили график в Mathematica, вы можете построить его, используя настройки по вашему выбору.
В Mathematica вы можете использовать TreeGraph как способ построения графа, и TreePlot как способ построить это. Например, следующий код генерирует дерево с узлами, помеченными координатами, и имеет формат, аналогичный тому, который вы хотите:
TreePlot[{1 -> 4, 1 -> 1, 1 -> 5, 2 -> 4, 3 -> 6, 3 -> 9, 4 -> 8,
4 -> 10, 6 -> 7, 8 -> 9},
EdgeRenderingFunction -> ({If[First[#2] === Last[#2], Red, Black],
Arrow[#1, .1],
Text[#2, LineScaledCoordinate[#1, .5], Background -> White]} &),
VertexLabeling -> True]
Также обратите внимание, что есть графические пакеты, такие как TikZ в Tex, которые имеют очень мощные возможности рисования графиков. TikZ в основном используется в Unix-средах, и не будет хранить структуры данных или выполнять вычисления, такие как Mathematica. Это чисто графическая возможность рисования.
График, который вы использовали в качестве иллюстрации, имеет шрифт, обычно используемый в TeX, поэтому он, вероятно, был создан с использованием TikZ или другого пакета TeX. Если вы хотите, чтобы уравнение Mathematica выглядело так, вы можете использовать функцию TraditionalForm или явно указать шрифт Computer Modern.