0

NSolveを使用して部分的に取得されたパラメトリック方程式をプロットしようとしています。これが私の試みたコードです：

VolumeDiff[v_] = 1.7 - v
SolveR[ v_] = 
 Re[NSolve[16 v^2 - 16 v*(r^3) + 3 (r^2) + 1 == 0, r, Reals]]
EnergyPos[r_] = r/2 (r + Sqrt[r^2 - 1])
EnergyNet[r_] = EnergyPos[SolveR[r]] + EnergyPos[SolveR[VolumeDiff[r]]]
ParametricPlot[{Re[EnergyNet[x]], 1.7 - 2. x}, {x, .1, 1.6}]

基本的に、私は2つの変数を持つ立方体を持っています。一方を他方に与えて解き、その元の与えられた変数に基づいて2つのパラメトリック方程式をプロットしようとします。これは、一緒に付着した2つの気泡のエネルギー対体積差のグラフであると想定されています。しかし、私の軸は空白です。私はNSolveを使って三次方程式の実根を分離しましたが、MathematicaにはNSolveを使ったグラフ作成に問題があると思います。私はインターネット全体を見ましたが、これに対する答えは見つかりませんでした。助けてくれてありがとう！デビッド

4

1 に答える 1

3

いくつかのエラーが修正されました。SetDelayed ( := ) あなたはどのようにそしてSolve[]働くかについて読むべきです。

VolumeDiff[v_] := 1.7 - v
SolveR[v_] := NSolve[16 v^2 - 16 v*(r^3) + 3 (r^2) + 1 == 0, r, Reals][[1]]
EnergyPos[r_] := r/2 (r + Sqrt[r^2 - 1])
EnergyNet[r_] := EnergyPos[r /. SolveR[r]]+EnergyPos[r /. SolveR[VolumeDiff[r]]]
ParametricPlot[{EnergyNet[x], 1.7 - 2. x}, {x, .1, 2}]

ここに画像の説明を入力してください

于 2012-06-13T22:36:24.007 に答える