最初の問題は解析的に解けないふりをして、mathematica で一般的な ODE をどのように扱うかを示します。
定義
p1[n0_, a_, b_, uplim_: 10] :=(n /. First@NDSolve[
{n'[t] == b*n[t]^2 - a*n[t], n[0] == n0},n, {t, 0, uplim}]
これは ODE の解をa = p1[.1, 2., 3.]
返しa[.3]
ますn(.3)
。次に、次のようなことができます
Show[Table[ans = p1[n0, 1, 1];
Plot[ans[t], {t, 0, 10}, PlotRange \[Rule] Full],
{n0, 0, 1, .05}], PlotRange \[Rule] {{0, 5}, {0, 1}}]
これは、初期値が異なるいくつかの解をプロットします。

または、解に対する洞察を得るためにa
、b
との値をインタラクティブに操作できn0
ます。
Manipulate[
ans = p1[n0, a, b];
Plot[ans[t], {t, 0, 10},PlotRange -> {0, 1}],
{{n0, .1}, 0, 1},
{{a, 1}, 0, 2},
{{b, 1}, 0, 2}]
のようなものを与える

コントロールをアクティブにします (つまり、コントロールを移動するとプロットが変化します。ライブで試してみて、私が何を意味するかを確認してください。初期条件が発散する解を与えるパラメーターを設定できることに注意してください)。
もちろん、これは任意にもっと複雑にすることができます。また、この特定のケースでは、この ODE は解析的に統合するのに十分簡単ですが、この数値的アプローチは一般的な ODE (および多くの偏微分方程式) にも適用できます。