Mathematica + GraphPlot + GraphicsGrid с EdgeLabels

Question

У меня были очень странные проблемы с GraphicsGrid. Индивидуальный PraphPlot: S выглядит хорошо и хорошо, но код GraphicsGrid[{{GraphPlot[{{a -> b, "ab"}, {a -> c, "7"}}]}, {GraphPlot[{{a -> b, "5"}, {a -> c, "2"}}]}}] просто производит 2 больших сгустка мусора. Если я удаляю метки ребер, все работает как положено. Я использую Mathematica 7.0.0.

Answer 1

Лично я ненавижу использовать GraphicsGrid, так как считаю результаты непредсказуемыми. Поскольку вы прокомментировали ответ @High Performance Mark о том, что это должно быть включено в статью (т.е. LaTeX), я бы предложил использовать пакет LevelScheme Марка Каприо. Он потратил много времени на выяснение того, как выкладывать графику в Mathematica, и это позволяет вам делать разумные вещи с отметками, которые Mathematica не делает по умолчанию. Это не самый быстрый пакет в мире, и его нужно немного изучить, но я очень рекомендую его.

Answer 2

Я получил то же, что и вы, хотя я бы назвал их маленькими кусочками мусора. Я возился несколько минут и получил это:

g1 = GraphPlot[{{a -> b, "ab"}, {a -> c, "7"}}];
g2 = GraphPlot[{{a -> b, "5"}, {a -> c, "2"}}];
Grid[{{g1}, {g2}}]

, что немного по-другому, но может быть полезно. Мне нужно вернуться на работу.