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

动静之机

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

0 }7 C8 t/ c7 G6 z! g# N7 T$ A
. }$ e# u" @5 W6 |4 h+ J" ^( ^动图， 俺就不会画了。。。

/ b2 y; o+ m2 a6 w, p# ]

动静之机

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



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

没办法，都是为了活命。

阿弥陀佛。。。。。。

7 I6 w( R* g' z4 e
5 y% c/ b7 F& g7 ^

* M- T( v: z5 a2 ]

我是乌鸦啊啊啊

pacelife 发表于 2017-7-13 22:00
) S3 T& E" N# p* M. `( F解析解为：

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

zhuzai

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

能详细点吗？

我是乌鸦啊啊啊

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

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

肥啊肥

pacelife 发表于 2017-7-13 22:00
; A. a3 [+ p- e& Y5 k1 j$ T解析解为：

4 _  \. a/ i5 D6 s7 @1 R& l3 K能把动图的代码发一下么，应该是mathematic吧
# _2 l' }9 Q0 _) `& C

段学斌

求mathematic的代码

pacelife

我是乌鸦啊啊啊 发表于 2017-7-17 17:54
$ |% l) t/ E: D0 Y# H恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

K = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
    f'[-L] == 0}, {f[x]}, x];
2 O" j  f  q* T% b' u: Y, n# aM = K /. {V -> 1, L -> 100};
, ~; @6 q, J" y* }3 TManipulate[
Plot[M[[2, 1, 2]], {x, -100, 0},
  Epilog -> {PointSize[0.01], Black,
    Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
5 ~  P/ z8 m5 ~       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
; T& k! p% z' W0 B+ l       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
  0}]
+ }. |& l. X/ H6 u& }4 cExport["1.gif",
Table[Plot[M[[2, 1, 2]], {x, -100, 0},
   Epilog -> {PointSize[0.01], Black,
# Y/ o& K: X5 Q% S     Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
7 D/ U, R; J+ ?) ~2 z  L$ w' T9 p7 z        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}]}]]
# N2 k( o" r: C
4 D/ z3 @7 _. v

myfunction

学习了。

快乐ipk

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