WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

境界値の解

ディリクレ(Dirichlet)の境界値条件を満たすパラメトリック方程式の解を求める．

Wolfram Language code: psol = ParametricNDSolveValue[{y''[t] + Sin[y[t]] == 0, y[0] == 0, y'[0] == s}, y, {t, 0, 10}, {s}];
Wolfram Language code: Plot[Evaluate@Table[psol[s][t], {s, 0, 2, 0.05}], {t, 0, 10}, ImageSize -> Medium]
パラメータスイープが の自明でない解の値を決定する：
Wolfram Language code: pfun = ParametricNDSolveValue[{y''[t] + Sin[y[t]] == 0, y[0] == 0, y'[0] == s}, y[10], {t, 0, 10}, {s}]; val = Table[FindRoot[pfun[s], {s, s0}], {s0, {0.9, 1.9, 2}}]
Wolfram Language code: Show[Plot[Evaluate@Table[psol[a][t], {a, 0, 2, .05}], {t, 0, 10}, PlotRange -> All, PlotPoints -> 500, PlotStyle -> Lighter[Gray, 0.5]], Plot[Evaluate[psol[s][t] /. val], {t, 0, 10}, PlotStyle -> Thick], ImageSize -> Medium]