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

动静之机

回去翻书，网搜，找到有关资料，复习了一下。
; p* W$ M+ P4 J, n# z/ A 抄作业如下：
" ~6 Z$ |+ l: Z2 n4 \  _9 L/ e& _

6 w2 ?3 N9 G& X动图， 俺就不会画了。。。

动静之机

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


% S$ z/ w7 I; m4 g, y8 r
狮子确实是花了同样的时间，跑了两倍的路程。

, ?9 l! H: J& B4 n

没办法，都是为了活命。

阿弥陀佛。。。。。。

, N6 t3 f2 o! Z/ i


' k5 V5 n8 x- g" F

我是乌鸦啊啊啊

pacelife 发表于 2017-7-13 22:00
" {  z  }2 j  y解析解为：

那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛
' E. C4 d$ h5 O- T6 K

zhuzai

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

能详细点吗？

我是乌鸦啊啊啊

我是乌鸦啊啊啊 发表于 2017-7-16 13:21
7 E3 D8 k1 U8 B; K* J: g( z( w那最后这个题的答案是多少啊，方便把动图的代码贴出来嘛

恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛
  H# n0 V- c8 K5 i0 `

肥啊肥

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

能把动图的代码发一下么，应该是mathematic吧

段学斌

求mathematic的代码

pacelife

我是乌鸦啊啊啊 发表于 2017-7-17 17:54
* b; c" D3 O& B1 i$ V/ {  M  N% u恩，有看到，那个动图是用Mathematica做出来的吧，想看看代码可以嘛

8 ~# [' i: z; D: d' W- R9 gK = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
    f'[-L] == 0}, {f[x]}, x];
! z, v1 ]& Z" m9 M. \M = K /. {V -> 1, L -> 100};
Manipulate[
( L. W" Y* M: E. D Plot[M[[2, 1, 2]], {x, -100, 0},
, X  T, p/ ~4 c( E$ [  Epilog -> {PointSize[0.01], Black,
0 Y+ z% p8 a4 g  T" x3 p. x    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,
; }9 X, y1 @! ~- K- R) t. `       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100,
  0}]
Export["1.gif",
' t- q( |, M, U4 [9 C Table[Plot[M[[2, 1, 2]], {x, -100, 0},
; i' z) H8 d' e5 X+ r   Epilog -> {PointSize[0.01], Black,
     Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
) G% K( [' N! e! U8 n        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,
  f/ ]9 [& y6 T4 @   Join[Range[-100, -1], {-0.0001}]}]]
- X0 B* F9 H& _* R2 @

myfunction

学习了。

快乐ipk

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