WOLFRAM

Wolfram 语言与系统参考资料中心

边值问题的解

求满足狄利克雷边界条件的参数方程的解.

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]