2013-09-26 20 views
0

所以我想淘汰最后这个问题的一条直线,而我跟随我的老师的指导,但我的图似乎依然关闭,但问题是:数学情节

使用findroot命令在Mathematica中定义一个具有限制‑pi/2 < x < pi/2的反函数g(y) to y = f(x) = 3x + tan(x)。使用x = tan-1(y)作为起始值。然后使用绘图命令来绘制g(y)的图形。

这是我写出来:

g[y_] := x /. FindRoot[3 x + Tan[x] == y, {x, ArcTan[y]}] 

Plot[g[y], {y, (-Pi/2), (Pi/2)}] 

我不知道到底是什么问题,但它显示了图作为刚刚被通过原点的直线。我不确定这是应该如何(我认为这不是),但任何和所有的帮助将不胜感激!

+2

这里你真正的问题是根本的Y范围:x在间隔+/- Pi/2上受到限制,y不是。说明y上的绘图范围以表示更加有趣的绘图的+/- 20。 – agentp

回答

1

有你的公式,

3 x + Tan[x] == y 

您可以通过绘制Y(X)来检查G(γ)的情节的正确性:

Plot[3 x + Tan[x], {x, -.4, .4}] 

正如你可以很容易地看到,这是通过原点的直线。 G(γ)为y(x)的定义的倒数,所以你可以通过交换通过Y GET克(y)的情节也和x轴:

Plot[3 x + Tan[x], {x, -.4, .4}, 
    PlotRange -> All] /. {x_Real, y_Real} :> {y, x} 
+0

不错的小技巧交换轴.. – agentp