level 1
kidukanai
楼主
sol = NDSolve[{2 y'[x] + x y''[x] == -x y[x]^3, y[0.0001] == 1,
y'[0.0001] == 0}, y[x], {x, 0.0001, 9}]%求得数值解
Plot[y[x] /. sol, {x, 0.001, 9}]%画图(和预想一样)
findroot[sol[x], {6, 7}]%这里想求根,根大概是x=6.9,就是上面图像与x轴交点,但是我写的代码没反应
请问应该怎么写求根的代码
救救孩子吧,新人刚接触mathematic期末报告卡在这里了。
如果方便的话,我还想求这个图像与x轴交点处的导数,麻烦了先谢谢啦
问题的背景(虽然估计没啥用)是n=3的Lane-Emden方程,用这个求白矮星的Chandrasekhar Limit质量。
2021年02月08日 20点02分
1
y'[0.0001] == 0}, y[x], {x, 0.0001, 9}]%求得数值解
Plot[y[x] /. sol, {x, 0.001, 9}]%画图(和预想一样)
findroot[sol[x], {6, 7}]%这里想求根,根大概是x=6.9,就是上面图像与x轴交点,但是我写的代码没反应
请问应该怎么写求根的代码
如果方便的话,我还想求这个图像与x轴交点处的导数,麻烦了先谢谢啦
问题的背景(虽然估计没啥用)是n=3的Lane-Emden方程,用这个求白矮星的Chandrasekhar Limit质量。


