Mathematica怎样画出具有左右标度的图

发布网友发布时间：2023-09-29 21:36

共1个回答

热心网友时间：2024-12-06 14:28

Mathematica毕竟不是科技作图软件，因此

1、建议将数据导出来，使用origin作图

2、其实也不是不可以做出双纵坐标的图，但是比较麻烦。需要从新定义函数，对原函数进行坐标变换。例如：

f[x_] := 2 x + 1;
g[x_] := (-2 x)/10;
gt[x_] := g[x]*10;
Plot[{f[x], gt[x]}, {x, -5, 5}, Frame -> True, Axes -> False,
FrameTicks -> {{Automatic,
Thread@List[Range[-10, 10], Range[-10, 10]/10] // N}, {Automatic,
None}}]

画的是f[x]和g[x]，f[x]使用左边的纵坐标刻度，g[x]使用右边的纵坐标刻度。gt[x]是将g[x]做了坐标变换（将纵坐标扩大10倍）。另外，需要自己定义Ticks的显示函数。如果需要更美观的显示效果，还需要定义更复杂的Ticks显示函数