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

动静之机

回去翻书，网搜，找到有关资料，复习了一下。
. R$ B- \2 K, m# i! c5 b* T 抄作业如下：
3 t) `  ^# g4 e2 `4 Q$ z# K$ U

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

9 ?# S6 |, Z/ L' A

动静之机

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



* c! }4 d5 @6 ~7 Y/ s% e狮子确实是花了同样的时间，跑了两倍的路程。

没办法，都是为了活命。

阿弥陀佛。。。。。。

! S! r" m: e& v

我是乌鸦啊啊啊

pacelife 发表于 2017-7-13 22:00
& C9 b( [* J6 V* v解析解为：

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

zhuzai

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

能详细点吗？
% @% E' s3 ]  h

我是乌鸦啊啊啊

我是乌鸦啊啊啊 发表于 2017-7-16 13:21
5 n9 S/ h9 {; J8 b/ k1 l9 Q. _那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛

% [$ {% a$ H( `* ^/ Q& w$ Q& k恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛
5 d4 V- z- E* @3 E

肥啊肥

pacelife 发表于 2017-7-13 22:00
% X! w& I- v& `, Z解析解为：

能把动图的代码发一下么，应该是mathematic吧
  i$ z7 \! o- I7 Z8 o

段学斌

求mathematic的代码

pacelife

我是乌鸦啊啊啊 发表于 2017-7-17 17:54
2 E: ~: m; S$ q0 k恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

7 U& P- z- F& M4 p# sK = 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};
) `/ c8 y; I* C' o7 |Manipulate[
Plot[M[[2, 1, 2]], {x, -100, 0},
  Epilog -> {PointSize[0.01], Black,
- n5 E7 {1 t/ T4 H( [0 V& h    Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
, F9 e# {9 i: h: q" J8 K6 }% |    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
& y! ^& }* Z* C+ s3 N) ]  0}]
! U0 m; q2 C7 o% M3 L6 _% \; ]& NExport["1.gif",
# j9 q2 H* ]* l Table[Plot[M[[2, 1, 2]], {x, -100, 0},
* r/ k1 ]: \- ^5 N+ [/ @# p   Epilog -> {PointSize[0.01], Black,
' e4 M0 z7 a; H2 j1 ~# |     Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
. l4 [8 c4 [4 r) j$ l+ W6 C- E0 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,
' Z6 h! \2 \7 a7 X0 b        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a,
   Join[Range[-100, -1], {-0.0001}]}]]

myfunction

学习了。

快乐ipk

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