绘制xy轴反向的图像

  • A+
所属分类:Mathematica绘图
摘要这里讲一下如何绘制xy轴反向的图像,我们正常的时候绘图都是横轴是x轴,纵轴是y轴,但是有的时候我们总是需要将x和y轴的位置互换,下面就来说明一下如何来实现x和y轴的互换,画出标准的,可以用于论文写作的图像。

 

这里讲一下如何绘制xy轴反向的图像,我们正常的时候绘图都是横轴是x轴,纵轴是y轴,但是有的时候我们总是需要将x和y轴的位置互换,下面就来说明一下如何来实现x和y轴的互换,画出标准的,可以用于论文写作的图像。

关于这里座标轴的绘制可以看之前的一篇文章: 绘制标准座标轴|mathematica绘图

 

原理及代码实现

其实原理是很简单的,就是把使用绘制参数图,绘制如{f[x],x}的参数图即可,我们可以看一下下面的mathematica代码。

比如在这里,我们要绘制2x+3+Sin(x)的图像,我们把正常的和反响的都画出,来进行对比,代码如下:

f[x_] := 2 x + 3 + Sin[x];
Plot[f[x], {x, -3, 3},
PlotStyle -> Directive[AbsoluteThickness[1.975`]],
AxesStyle -> Arrowheads[{0.`, 0.03`}],
AxesOrigin -> {0, 0},
AxesLabel -> {Style[Row[{"\n", x}], 14, FontFamily -> "Times"],
Style[Row[{y, "\t"}], 14, FontFamily -> "Times"]}
]

ParametricPlot[{f[x], x}, {x, -3, 3},
PlotStyle -> Directive[AbsoluteThickness[1.975`]],
AxesStyle -> Arrowheads[{0.`, 0.03`}],
AxesOrigin -> {0, 0},
AxesLabel -> {Style[Row[{"\n", y}], 14, FontFamily -> "Times"],
Style[Row[{x, "\t"}], 14, FontFamily -> "Times"]}]

绘制xy轴反向的图像

可以看到通过上面的代码我们就实现了x和y轴交换后的画图。

 

 

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: