一个有意思的题目，微积分的力量

动静之机 · 发表于 2017-7-16 00:47:03

回去翻书，网搜，找到有关资料，复习了一下。
抄作业如下：

动图，俺就不会画了。。。

动静之机 · 发表于 2017-7-16 10:50:45

昨晚一犯困，没算时间，如果是考试，又得丢分。

狮子确实是花了同样的时间，跑了两倍的路程。

没办法，都是为了活命。

阿弥陀佛。。。。。。

我是乌鸦啊啊啊 · 发表于 2017-7-16 13:21:29

pacelife 发表于 2017-7-13 22:007 k& X5 d7 J( `/ c: w- a: J
解析解为：

那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛

zhuzai · 发表于 2017-7-16 14:23:38

pacelife 发表于 2017-7-14 09:39
2 u9 g% i: [9 g# ^我的解法：

能详细点吗？

我是乌鸦啊啊啊 · 发表于 2017-7-17 17:54:38

我是乌鸦啊啊啊发表于 2017-7-16 13:21
& A" p% G* u& L那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛

恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

肥啊肥 · 发表于 2017-7-17 19:48:42

pacelife 发表于 2017-7-13 22:00
. z5 ?( u, s; ^% C8 A, K解析解为：

能把动图的代码发一下么，应该是mathematic吧

段学斌 · 发表于 2017-7-18 20:21:22

求mathematic的代码

pacelife · 发表于 2017-7-19 22:05:01

我是乌鸦啊啊啊发表于 2017-7-17 17:54
# f& I5 A* x/ t2 M" N恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

K = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
f'[-L] == 0}, {f[x]}, x];
M = K /. {V -> 1, L -> 100};
Manipulate[
Plot[M[[2, 1, 2]], {x, -100, 0},
  Epilog -> {PointSize[0.01], Black,
Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
   M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
   M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
  0}]
Export["1.gif",
Table[Plot[M[[2, 1, 2]], {x, -100, 0},
Epilog -> {PointSize[0.01], Black,
   Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
      M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
   Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
      M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a,
Join[Range[-100, -1], {-0.0001}]}]]

myfunction · 发表于 2017-7-21 18:03:54

学习了。

快乐ipk · 发表于 2017-8-7 22:33:04

太好了，非常感谢楼主的分享!

		自动登录	找回密码
密码			注册会员

一个有意思的题目，微积分的力量

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评

点评

点评