Ну к примеру я знаю функции для построения трех зависимостей и мне нужно в mathematica построить на одном графике что-то похожее на это
http://s2.itrash.ru/idb/49dba8116ee3459ac111929940326db5/o11111.jpgНу раз у вас более двух осей, то я вижу один выход - рисовать оси самостоятельно. Последовательность действий, для построения двух графиков приблизительно следующая: масштабируете функции, так чтобы они все помещались на одном графике, изображаете их просто при помощи Plot, раскраска и все остальное прочее при помощи опций Plot. При построении отключаете ось y
Axes -> {True, False}.
Затем отдельно для каждой функции программируете ее ось, примерно как-нибудь вот так:
Код:
s = -0.5;
y0 = -1;
y1 = 1;
ticks= Table[{{s - 0.05, y0 + 0.1*i}, {s + 0.05, y0 + 0.1*i}}, {i, 0,
20}];
labels = Table[{ToString[ticks[[i, 1, 2]]], {ticks[[i, 1, 1]] - 0.18,
ticks[[i, 1, 2]]}}, {i, Length[ticks]}];
g = Plot[Abs[Sin[x]], {x, 0, 10}, Axes -> {True, False},
PlotRange -> {{-1, 10}, Automatic}];
gaxe = Graphics[Line[{{-0.5, -1}, {-0.5, 1}}]];
gticks = Graphics[Line[#] & /@ ticks];
glabels = Graphics[Text[Sequence @@ #] & /@ labels ];
Show[g,gaxe,gticks, glabels ]
И аналогично остальные оси где вам угодно и с какими угодно подписями. Все остальные красоты регулируются опциями Graphics и Plot.
