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]
高分悬赏!用mathematica求解二阶微分方程数值解,回答满意另有加分.谢谢!