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

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


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

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

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



狮子确实是花了同样的时间，跑了两倍的路程。
没办法，都是为了活命。阿弥陀佛。。。。。。



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

pacelife 发表于 2017-7-13 22:00
解析解为：




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

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

pacelife 发表于 2017-7-14 09:39
我的解法：

能详细点吗？

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

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

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

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

pacelife 发表于 2017-7-13 22:00
解析解为：




能把动图的代码发一下么，应该是mathematic吧{:3_64:}

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

求mathematic的代码{:3_64:}

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

我是乌鸦啊啊啊 发表于 2017-7-17 17:54
恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

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

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

学习了。

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

太好了，非常感谢楼主的分享!
页: 1 2 [3] 4
查看完整版本: 一个有意思的题目，微积分的力量