0

だから私はこの最後の問題をノックアウトしようとしていて、先生のガイドに従っていますが、私のグラフはまだずれているようです。問題は次のとおりです。

g(y) to y = f(x) = 3x + tan(x)Mathematica でFindRootコマンドを使用して、制限付きの逆関数を定義します‑pi/2 < x < pi/2。x = tan-1(y)開始値として使用します。次に、Plot コマンドを使用して g(y) のグラフを作成します。

これは私がそれを書いた方法です：

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

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

何が問題なのか正確にはわかりませんが、グラフは原点を通る直線として表示されます。これが本来あるべき姿かどうかはわかりませんが（そうではないと思います）、すべての助けをいただければ幸いです。

4

1 に答える 1

1

あなたの方程式を持って、

3 x + Tan[x] == y

y(x) をプロットすることにより、g(y) のプロットの正確性を確認できます。

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

見ての通り、原点を通る直線です。g(y) は定義により y(x) の逆数であるため、y 軸と x 軸を交換するだけで g(y) のプロットを取得できます。

    Plot[3 x + Tan[x], {x, -.4, .4}, 
  PlotRange -> All] /. {x_Real, y_Real} :> {y, x}
于 2013-09-26T05:04:46.750 に答える