作业帮用mathematica求解如下二阶微分方程的数值解 输出最终的数值解并画图用mathematica求解如下二阶微分方程的数值解和画图的程序代码A*y (x) = y'' (x)/{{1 + [y' (x)]^2}^(3/2)} + y' (x)/{{1 + [y' (x)]^2}^(1/2)}其
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 05:07:27
![用mathematica求解如下二阶微分方程的数值解 输出最终的数值解并画图用mathematica求解如下二阶微分方程的数值解和画图的程序代码A*y (x) = y'' (x)/{{1 + [y' (x)]^2}^(3/2)} + y' (x)/{{1 + [y' (x)]^2}^(1/2)}其](/uploads/image/z/9846283-67-3.jpg?t=%E7%94%A8mathematica%E6%B1%82%E8%A7%A3%E5%A6%82%E4%B8%8B%E4%BA%8C%E9%98%B6%E5%BE%AE%E5%88%86%E6%96%B9%E7%A8%8B%E7%9A%84%E6%95%B0%E5%80%BC%E8%A7%A3+%E8%BE%93%E5%87%BA%E6%9C%80%E7%BB%88%E7%9A%84%E6%95%B0%E5%80%BC%E8%A7%A3%E5%B9%B6%E7%94%BB%E5%9B%BE%E7%94%A8mathematica%E6%B1%82%E8%A7%A3%E5%A6%82%E4%B8%8B%E4%BA%8C%E9%98%B6%E5%BE%AE%E5%88%86%E6%96%B9%E7%A8%8B%E7%9A%84%E6%95%B0%E5%80%BC%E8%A7%A3%E5%92%8C%E7%94%BB%E5%9B%BE%E7%9A%84%E7%A8%8B%E5%BA%8F%E4%BB%A3%E7%A0%81A%2Ay+%28x%29+%3D+y%27%27+%28x%29%2F%7B%7B1+%2B+%5By%27+%28x%29%5D%5E2%7D%5E%283%2F2%29%7D+%2B+y%27+%28x%29%2F%7B%7B1+%2B+%5By%27+%28x%29%5D%5E2%7D%5E%281%2F2%29%7D%E5%85%B6)
用mathematica求解如下二阶微分方程的数值解 输出最终的数值解并画图用mathematica求解如下二阶微分方程的数值解和画图的程序代码A*y (x) = y'' (x)/{{1 + [y' (x)]^2}^(3/2)} + y' (x)/{{1 + [y' (x)]^2}^(1/2)}其
用mathematica求解如下二阶微分方程的数值解 输出最终的数值解并画图
用mathematica求解如下二阶微分方程的数值解和画图的程序代码
A*y (x) =
y'' (x)/{{1 + [y' (x)]^2}^(3/2)} +
y' (x)/{{1 + [y' (x)]^2}^(1/2)}
其中A＝134708.边界条件 :1) y' (0) = 0; 2) y' (0.005) = cot58 (58 是角度)
x={0,0.005},步长是0.0001
用mathematica求解如下二阶微分方程的数值解 输出最终的数值解并画图用mathematica求解如下二阶微分方程的数值解和画图的程序代码A*y (x) = y'' (x)/{{1 + [y' (x)]^2}^(3/2)} + y' (x)/{{1 + [y' (x)]^2}^(1/2)}其
In[1]:=s = NDSolve[{134708*y[x] ==
y''[x]/(1 + (y'[x])^2)^1.5 + y'[x]/(1 + (y'[x])^2)^0.5,
y'[0] == 0,y'[0.005] == Cot[58*\[Pi]/180]},y,{x,0,0.005}]
Plot[Evaluate[y[x] /.s],{x,0,0.005},PlotRange -> All]
esol = Block[{\[Epsilon] = $MachineEpsilon},
NDSolve[{134708*y[x] ==
y''[x]/(1 + (y'[x])^2)^1.5 + y'[x]/(x*(1 + (y'[x])^2)^0.5),
y'[\[Epsilon]] == 0,y'[0.005] == Cot[58*\[Pi]/180]},
y,{x,\[Epsilon],0.005}]]
Plot[Evaluate[y[x] /.esol],{x,0.00001,0.005},PlotRange -> All]