Question

mathematica解微分方程如何查看解的数值

LaneEmdenSolution[n_] := Module[{x, y, eps = $MachineEpsilon}, NDSolve[{x y[x]^n + 2 y'[x] + x y''[x] == 0, y[eps] == 1, y'[eps] == 0}, y, {x, eps, 10}][[1, 1, 2]]];soln = LaneEmdenSolution[#][x] & /@ Range[0, 5];
Plot[soln, {x, 0, 10}, Method -> Evaluated, PlotStyle -> {Black, Red, Yellow, Green, Blue, Purple}, PlotRange -> {-0.5, 1}, AxesLabel -> {\[Xi], \[Theta][\[Xi]]}]

结果soln中的数值如何查看？
如何求每条线与x轴交点的x值？

Answer 1

……你从别人那里拿了代码就要读懂啊，不懂的地方多按按F1。要拿来算东西方法很多，就你这个最简单的大概是：

soln/.x->1

这算的就是x==1时的几个函数的值了。想要求交点的位置，可以FindRoot，不过鉴于你这里是有多个交点，建议用RootSearch：

library.wolfram.com/infocenter/Demos/4482/