题目
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*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 看不出错误来.
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 看不出错误来.
提问时间:2021-01-24
答案
NDSolve里的语法错了,是{t,0,10}而不是{t,10};另外对于常微分方程,所需的边界条件数目,为它的最高阶导数的阶数,并且边界的导数阶数要小于方程的阶数.也就是说你这里的条件多了一个,把那个y'[0]==1去掉,并且,你这里的边界给的不合理,所以在计算开始不久就耗尽了全部的积分步长.试了一下也没找到合理的边界条件,你自己试试吧.
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1上周日我们看了一部电影《阿凡达》英语翻译
- 2铜的密度是8.9乘以10的3次方千克每立方米,某单位需要横截面积是5平方毫米的铜钱2000米
- 36061-T6中T6 是什么意思
- 4一辆自行车轮胎的外直径是0.71米.如果平均每分钟转120圈,通过一座长1050米的桥约需要几分钟?(得数保留整数)
- 5y=sinπx,y=|sinx|,y=sin(2x+π/3),y=cos4π四个函数中,最小正周期为π的函数的个数是?
- 6求出100以内最小的自然数n,使得从1开始的连续n个自然数的立方之和大于88888.
- 7Is that _____yuor father?
- 8已知函数y=(k-3)x2+2x+1的图象与x轴有交点,则k的取值范围是( ) A.k<4 B.k≤4 C.k<4且k≠3 D.k≤4且k≠3
- 9一辆汽车在平直的公路上以10米每秒的速度做匀速运动 遇紧急情况刹车后做匀速直线运动经过5秒停止
- 10过抛物线y2=4x焦点的弦长为16/3,则此弦所在直线的倾斜角为?
热门考点
- 1英语翻译
- 2拿什么回报父母 作文
- 3英语翻译
- 4淘气和爸爸周日去爬山,上山时每分钟行 30 米,到达山顶后沿原路返回,下山时每分 钟行 50 米.他们上山和下山的平均速度是多少?
- 5计算题a,b,c
- 6将 15mL2molL 的Na2CO3 溶液逐滴加入到 40ml0.5mol L MCLn 盐溶液中, 恰好将溶液中M 离子完全沉淀为碳酸盐,则 MCLn 中 n 值是 B.3 C.2 D.1
- 7客车从甲城到乙城要10小时,货车从乙城到甲城需要15小时,两车从两城相向开出,相遇时客车距乙城还有192千米,求两城相距多少千米?
- 8已知代数式m²+m-1=0,那么代数值m三次方+2m²+2009=
- 9在一个长18cm,宽13cm的长方形中 最多能剪出多少个半径是3cm的圆?
- 10谁知道twice cooked