| 查看: 721 | 回复: 4 | ||
pizi7880木虫 (正式写手)
|
[求助]
数值找根，总感觉对，但总是错。
|
|
在求根的时候遇到一个困难： 给定一个2阶倒数微分方程： z''[t]=z[t]+1/t。在t0时刻初始条件知道，z[t0]=t0，z'[t0]=t0^2。那么我们可以很容易通过NDSOLVE命令得到任意一个时刻 tfin，z[tfin]的值的大小。 而我要做的是，我想找到一个合适t0，使得上面计算得到的z'[tfin]是一个我给定的值 2，即要求，z'[tfin]=2. 下面是我的程序，但是程序总是报错，赐教！  无标题.jpg [ Last edited by pizi7880 on 2013-7-6 at 23:53 ] |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- EPL（EUROPHYS LETT）IF 降的好厉害，感觉是不是数据出错了？
已经有5人回复
- 哪位大神来指导下数字信号处理怎么学，感激不尽
已经有30人回复
- 淀粉酶的吸光度
已经有38人回复
- 硕士该怎么读啊，我快纠结死了
已经有87人回复
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4677.7
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
2楼2013-07-07 11:05:19
mshwangg
至尊木虫 (正式写手)
- 程序强帖: 5
- 应助: 206 (大学生)
- 金币: 10702.8
- 散金: 100
- 红花: 19
- 帖子: 597
- 在线: 195.4小时
- 虫号: 576702
- 注册: 2008-06-21
- 专业: 物理学I
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
pizi7880: 金币+8 2013-07-07 16:40:23
xzhdty: 金币+1, 感谢参与 2013-07-07 21:52:40
感谢参与，应助指数 +1
pizi7880: 金币+8 2013-07-07 16:40:23
xzhdty: 金币+1, 感谢参与 2013-07-07 21:52:40
|
NDSolve求解出来的是z[t]，直接替换z'[t]是不可以的。需要替换出来z[t]，自己再做微分。 其实这是一个打靶的问题 tfirst = 5; tfin = 10; eq[t0_] := {z''[t] == z[t] + 1/t, z[t0] == t0, z'[t0] == t0^2}; f[t0_] := NDSolve[eq[t0], z[t], {t, t0, tfin}] y[t0_?NumericQ] := First[D[z[t] /. f[t0], t] /. t -> tfin] r = FindRoot[y[t0] - 2 == 0, {t0, tfirst, tfin}] Plot[Evaluate[z[t] /. f[t0 /. r]], {t, t0 /. r, tfin}] Plot[Evaluate[D[z[t] /. f[t0 /. r], t]], {t, t0 /. r, tfin}] 计算出来{t0 -> 9.90643}，有一定误差 |
3楼2013-07-07 12:55:13
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4677.7
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
4楼2013-07-07 13:14:55
mshwangg
至尊木虫 (正式写手)
- 程序强帖: 5
- 应助: 206 (大学生)
- 金币: 10702.8
- 散金: 100
- 红花: 19
- 帖子: 597
- 在线: 195.4小时
- 虫号: 576702
- 注册: 2008-06-21
- 专业: 物理学I
【答案】应助回帖
|
你说的有道理。 FindRoot 100个循环已经不够用了。所以存在误差的。 show一下解析解吧，验证一下 {{z[t] -> 1/2 E^(-t - t0) (E^(2 t) t0 + E^(2 t0) t0 + E^(2 t) t0^2 - E^(2 t0) t0^2 + E^(2 t + t0) ExpIntegralEi[-t] - E^t0 ExpIntegralEi[t] - E^(2 t + t0) ExpIntegralEi[-t0] + E^t0 ExpIntegralEi[t0])}} tfin=1.46时，z'[t0]关于t0作图  可看到有两个t0是满足要求的，walk的结果是合理的。 而tfin=10的时候，z'[t0]与2那条直线无交点，所以z'[t0]=2无解 |
5楼2013-07-07 16:49:36
20