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

动静之机

回去翻书，网搜，找到有关资料，复习了一下。
- }3 i6 T& }3 ~7 _( V 抄作业如下：

2 C$ ~* z) k' Q! G4 O
动图， 俺就不会画了。。。
( h7 m8 y6 b0 B

动静之机

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



# V+ N1 u0 t$ R7 V# Z/ ]! m3 W9 D+ v狮子确实是花了同样的时间，跑了两倍的路程。

没办法，都是为了活命。

阿弥陀佛。。。。。。

/ Z- e" K" X' Z1 I, I
* E: O$ ]9 d- a0 `0 B& e

& u" f0 u9 B- f; }4 J: M

我是乌鸦啊啊啊

pacelife 发表于 2017-7-13 22:00
8 V2 b0 J  S0 g/ ^解析解为：

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

zhuzai

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

% |' i2 ~  B7 g7 |" d. }- a# m能详细点吗？

我是乌鸦啊啊啊

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

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

肥啊肥

pacelife 发表于 2017-7-13 22:00
, m& W% y% b! a# z" z9 M解析解为：

能把动图的代码发一下么，应该是mathematic吧
2 X6 B8 V6 e: U! n* _) s: W

段学斌

求mathematic的代码

pacelife

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

, A; d- }4 O$ D3 `+ ]3 t# T& eK = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
# o/ r6 y4 j. Y& J# y    f'[-L] == 0}, {f[x]}, x];
M = K /. {V -> 1, L -> 100};
; Q+ B5 d0 ?- l3 T) A$ p' e9 D/ IManipulate[
Plot[M[[2, 1, 2]], {x, -100, 0},
* d$ z) W! W/ S* s6 r4 u  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,
; u% z: B4 d3 }. _8 B0 z( t6 \5 b7 s    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
, H/ Y$ C3 }& n" I3 k3 p  0}]
Export["1.gif",
, Q7 N, f* E! H" O3 \ Table[Plot[M[[2, 1, 2]], {x, -100, 0},
5 [+ O6 T# [& @  K! e   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,
& S6 u% g6 W% m* m9 g      Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a,
# R4 K' Q7 T$ d: C) X9 {   Join[Range[-100, -1], {-0.0001}]}]]
! u/ T6 E- B3 P5 V
* F8 \5 w9 y$ l

myfunction

学习了。

快乐ipk

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