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

动静之机

回去翻书，网搜，找到有关资料，复习了一下。
) m( ^1 Z% s1 P4 i 抄作业如下：


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

动静之机

昨晚一犯困，没算时间，如果是考试， 又得丢分。
% c/ ^+ k, l3 I) }4 w
* F( m) S9 W. c3 A

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

没办法，都是为了活命。

阿弥陀佛。。。。。。

( w: r2 F! r+ E5 S4 O  q+ k& N% v6 ?

我是乌鸦啊啊啊

pacelife 发表于 2017-7-13 22:00
0 x/ p  ^/ i/ f4 X! f解析解为：

, b) |  P4 F9 \' v6 Y; ~1 Q) V那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛
8 s- T# `4 P" F& T$ ~: G. K8 h4 Q( P

zhuzai

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

. [: a* A, F/ r, g! c+ O1 ?能详细点吗？

我是乌鸦啊啊啊

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

恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛
6 p/ f3 C2 k% N8 V6 k# ~

肥啊肥

pacelife 发表于 2017-7-13 22:00
; [/ X4 }+ p6 E; @/ ~% e6 B% L解析解为：

7 U- k  E- B  n1 ^1 |2 A$ E) }能把动图的代码发一下么，应该是mathematic吧

段学斌

求mathematic的代码

pacelife

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

K = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
    f'[-L] == 0}, {f[x]}, x];
# G' F4 l5 h- p, F, R" R0 IM = K /. {V -> 1, L -> 100};
Manipulate[
, G& P' a; G  \& C; P2 v Plot[M[[2, 1, 2]], {x, -100, 0},
  Epilog -> {PointSize[0.01], Black,
! r0 k1 m! n7 w: i    Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
2 E- z) _' D+ H6 F' ^* l+ V    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
; ]$ x- K9 P4 s* D  0}]
Export["1.gif",
+ A# b2 ?0 ], R# u  E9 @5 L Table[Plot[M[[2, 1, 2]], {x, -100, 0},
   Epilog -> {PointSize[0.01], Black,
# L% t4 o/ ^+ O     Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
# t* `# O0 L  _        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
      Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
% K% W( V; R# k% _5 ?        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a,
8 W% y# K+ B% Y! m. ?* M( C, A4 }   Join[Range[-100, -1], {-0.0001}]}]]
* W" d5 b; b% @& ]! q% C& J- C* c

myfunction

学习了。

快乐ipk

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