如何在Mathematica中交换绘图的坐标轴？附代码实例

你当前用Plot[u, {r, 0, 1}]绘图时，r是X轴、u是Y轴。要交换两者的轴位，有几种适合新手的简单方法：

方法1：用ParametricPlot绘制参数曲线 #

直接把u设为X坐标、r设为Y坐标，先给t指定一个具体值（比如t=π/2，此时Sin[t]=1），再执行命令：

t = π/2;
ParametricPlot[{(1/4) Sin[t] (1 - r^2), r}, {r, 0, 1}]

生成的图中X轴就是u的值，Y轴就是r的值。

方法2：推导反函数后直接Plot #

从u = (1/4) Sin[t] (1 - r^2)反解出r关于u的表达式：r = Sqrt[1 - (4u)/Sin[t]]（因为r∈[0,1]，取正根）。再以u为自变量绘图，同时确定u的取值范围（r从0到1时，u从0到(1/4)Sin[t]）：

t = π/2;
uMax = (1/4) Sin[t] (1 - 0^2);
Plot[Sqrt[1 - (4u)/Sin[t]], {u, 0, uMax}]

方法3：用ListPlot转换离散数据 #

先生成r和u的数值点，交换坐标后连线绘图，不需要推导反函数：

t = π/2;
data = Table[{(1/4) Sin[t] (1 - r^2), r}, {r, 0, 1, 0.01}];
ListPlot[data, Joined -> True]

内容的提问来源于stack exchange，提问作者Jagadeesh Korukonda