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

动静之机

回去翻书，网搜，找到有关资料，复习了一下。
* y6 s% P+ |% Z+ ^" o6 j 抄作业如下：
9 _" g4 I2 A' S' a: m: n2 |+ C, k

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

4 j3 C  o9 `( ]5 [) ?% T

动静之机

昨晚一犯困，没算时间，如果是考试， 又得丢分。
" C# H6 N( \, A


% _5 z5 ^! ]) s狮子确实是花了同样的时间，跑了两倍的路程。

没办法，都是为了活命。

阿弥陀佛。。。。。。

9 M+ |7 e) ~# \6 H; [

我是乌鸦啊啊啊

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

6 B- a4 A% n5 q- V$ e那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛

zhuzai

pacelife 发表于 2017-7-14 09:39
) V  R7 U2 P4 g我的解法：

能详细点吗？
/ A  f4 s# c# n3 z& {, Y  t

我是乌鸦啊啊啊

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

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

肥啊肥

pacelife 发表于 2017-7-13 22:00
+ P" R7 a+ w; k$ ~6 P解析解为：

5 r6 A; E2 }4 l# e/ ~' ]能把动图的代码发一下么，应该是mathematic吧
3 I4 a. g# m( D/ R  K/ I  C

段学斌

求mathematic的代码

pacelife

我是乌鸦啊啊啊 发表于 2017-7-17 17:54
3 Z: f1 N. D5 z$ Z) Y. g恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

K = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
) E6 o2 K8 A: ~& |5 E$ y3 c  [    f'[-L] == 0}, {f[x]}, x];
M = K /. {V -> 1, L -> 100};
Manipulate[
Plot[M[[2, 1, 2]], {x, -100, 0},
  ?; d7 M2 ?  `3 n  Epilog -> {PointSize[0.01], Black,
9 Z" H% v: e4 u    Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
- O4 _. j/ j  n( V/ r' c       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
" L2 {& w1 u1 K1 F$ I    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
* m) W5 J) Y0 l7 R9 q8 }) T  x  @       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
) D* C5 k3 F/ {. G( p9 y, a  0}]
- a4 j+ B' e7 G; l9 \Export["1.gif",
# Y+ u3 a) k) K, W/ T5 k Table[Plot[M[[2, 1, 2]], {x, -100, 0},
   Epilog -> {PointSize[0.01], Black,
     Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
/ v+ S- x$ i% e, q        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}]}]]
1 x& c8 f6 l) Q2 x+ C0 Y4 C
' b7 A* t; z" }5 [# t7 U" N

myfunction

学习了。

快乐ipk

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