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

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

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

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

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

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

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

没办法，都是为了活命。

阿弥陀佛。。。。。。

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

pacelife 发表于 2017-7-13 22:00 - h. m8 Z& F" H# s8 k
解析解为：

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

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

pacelife 发表于 2017-7-14 09:39 % Q0 k. z# Y# ^0 S5 d
我的解法：

能详细点吗？

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

我是乌鸦啊啊啊发表于 2017-7-16 13:21 3 i+ H; e, y& @9 I- y2 p5 R6 X
那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛

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

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

pacelife 发表于 2017-7-13 22:00
% `0 r4 O& O I T' z9 r: {1 a解析解为：

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

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

求mathematic的代码

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

我是乌鸦啊啊啊发表于 2017-7-17 17:54 % V& B9 S! N/ M$ f) A- }& b/ X- t
恩，有看到，那个动图是用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

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

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

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

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评

点评

点评