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

动静之机

回去翻书，网搜，找到有关资料，复习了一下。
! I9 |8 V) L" ]4 L 抄作业如下：

1 w7 B& o' k$ A0 W5 b& b6 E0 L
$ |' X1 B5 E# R9 v动图， 俺就不会画了。。。

动静之机

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


6 o5 `  g9 E( n/ m# H
狮子确实是花了同样的时间，跑了两倍的路程。

3 S* T* M& ]3 I7 y: \/ Z: M

没办法，都是为了活命。

阿弥陀佛。。。。。。

2 b! U! j$ c: Z& X- ?2 m0 d# C

我是乌鸦啊啊啊

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

那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛
, q1 O2 T7 Z$ i' |) U

zhuzai

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

能详细点吗？
) ^* L+ A  a) e# g! K- z% q

我是乌鸦啊啊啊

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

恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛
) y4 i+ v# p1 S, @

肥啊肥

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

能把动图的代码发一下么，应该是mathematic吧
+ J/ x6 l8 i6 q' V

段学斌

求mathematic的代码

pacelife

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

$ a5 N# i9 w; K5 ]$ e! |K = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
  S1 {' c$ ~$ E$ Z    f'[-L] == 0}, {f[x]}, x];
7 ]7 Q3 p) q3 ^% eM = K /. {V -> 1, L -> 100};
Manipulate[
0 ^; S1 g- P1 D3 m. o+ P. V6 k# Q: \ Plot[M[[2, 1, 2]], {x, -100, 0},
5 w# |. @  v! _4 k' I/ v9 E  Epilog -> {PointSize[0.01], Black,
3 e& a" H/ W$ t    Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
- r3 @6 q: P7 y+ d       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
5 j5 C7 ~0 q+ u" M8 Q    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
  0}]
5 U4 S3 M1 N; {: h0 vExport["1.gif",
Table[Plot[M[[2, 1, 2]], {x, -100, 0},
   Epilog -> {PointSize[0.01], Black,
; G& a* |+ d2 S& m. N# U; O) 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,
      Line[{{a, M[[2, 1, 2]] /. x -> a}, {0,
! m- T* e  ]& O. h* j( W        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a,
; V% r3 ^* I( Z! c7 @* }% ]   Join[Range[-100, -1], {-0.0001}]}]]
% @' I, r% a( U! _
. U. d( _! h$ `4 j

myfunction

学习了。

快乐ipk

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