Question

mathematica求解微分方程的数值解，做出图像，该怎么做？求帮助，谢谢

R = 0.008; Y = 47*2*3.14; z = 0.18; m = 0.14; k = 20; g = 10; f = 20; i = 0.143; e = 28; NDSolve[{0.5*m*(R^4 *y[t]^2 *y'[t]^2)/(R*Y^2 + z^2 - R*y[t]^2) + 0.5*i*y'[t]^2 + 0.5*k*(R*Y^2 + z^2 - R*y[t]^2) + 0.5*k*z^2 - k*... R = 0.008; Y = 47*2*3.14; z = 0.18; m = 0.14; k = 20; g = 10; f = 20; i = 0.143; e = 28; NDSolve[{0.5*m*(R^4 *y[t]^2 *y'[t]^2)/(R*Y^2 + z^2 - R*y[t]^2) + 0.5*i*y'[t]^2 + 0.5*k*(R*Y^2 + z^2 - R*y[t]^2) + 0.5*k*z^2 - k*z*Sqrt[R*Y^2 + z^2 - R*y[t]^2] + 0.5*f*(y[t] - Y)^2 - m*g*(Sqrt[R*Y^2 + z^2 - R*y[t]^2] - z) == e, y[0] == 0, y'[0] == 1}, y[t], {t, 10}]; Plot[Evaluate[y[t] /. %], {t, 0, 10}] 代码 我用 mathematica 8 看 错误 谢谢 展开

Answer 1

NDSolve
语
错
{t,0,10}
{t,10}；另外
于
微
程
所需
边界条件数目
高阶导数
阶数
并且边界
导数阶数要
于
程
阶数
说
条件
y'[0]==1
掉
并且
边界给
合理
所
计算
始
久
耗尽
全部
积
步
试
没找
合理
边界条件
自
试试吧