機(jī)械社區(qū)

 找回密碼
 注冊(cè)會(huì)員

QQ登錄

只需一步,快速開始

搜索
樓主: pacelife
打印 上一主題 下一主題

一個(gè)有意思的題目,微積分的力量

[復(fù)制鏈接]
21#
發(fā)表于 2017-7-16 00:47:03 | 只看該作者
回去翻書,網(wǎng)搜,找到有關(guān)資料,復(fù)習(xí)了一下。9 F& {- w! j# f& e
抄作業(yè)如下:
; s3 X$ v( o& y! B  r
" ~+ T: w6 `0 j: V7 j5 w% g  ]
+ w: y0 Z6 T' h0 A2 V動(dòng)圖, 俺就不會(huì)畫了。。。
6 s: D8 D7 \2 x3 ~% q' o' ]0 V4 ]  Z1 a' V3 s* E' [

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號(hào)?注冊(cè)會(huì)員

x

點(diǎn)評(píng)

基本上就是這樣了  發(fā)表于 2017-7-16 08:59
22#
發(fā)表于 2017-7-16 10:50:45 | 只看該作者
昨晚一犯困,沒算時(shí)間,如果是考試, 又得丟分。
% I8 w2 t$ H+ h/ J

' t$ t5 y2 p: V" p: M, @6 o6 D2 W( b6 A

: j4 ?4 p4 `) p: d獅子確實(shí)是花了同樣的時(shí)間,跑了兩倍的路程。
8 ?7 d( |8 S5 W, i; J' y: B
沒辦法,都是為了活命。
阿彌陀佛。。。。。。

* \0 y3 t" ^2 G8 n- ]' m: V: z$ k8 ], M9 F0 j2 X% t
0 \9 `" [4 b, J
! t" a7 ]1 [0 |2 [& P! B

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號(hào)?注冊(cè)會(huì)員

x
23#
發(fā)表于 2017-7-16 13:21:29 | 只看該作者
pacelife 發(fā)表于 2017-7-13 22:00
2 }! v# |4 Z/ Q& H5 A  P解析解為:

9 Z' a' e+ Y! x2 [' t  E那最后這個(gè)題的答案是多少啊,方便把動(dòng)圖的代碼貼出來嘛
# |3 Q+ U! x! w% C5 j9 k( E

點(diǎn)評(píng)

動(dòng)圖前面樓層已經(jīng)貼出  發(fā)表于 2017-7-16 14:46
24#
發(fā)表于 2017-7-16 14:23:38 | 只看該作者
pacelife 發(fā)表于 2017-7-14 09:39
/ z' C( y0 l" v  K9 H4 g& f我的解法:
9 T* U1 m. q$ _' ]7 P) n" |
能詳細(xì)點(diǎn)嗎?% g" ?2 ^0 v+ n; ]: R

點(diǎn)評(píng)

解法基本和@動(dòng)靜之機(jī)一樣,只是坐標(biāo)系選擇不同而已  發(fā)表于 2017-7-16 14:50
25#
發(fā)表于 2017-7-17 17:54:38 | 只看該作者
我是烏鴉啊啊啊 發(fā)表于 2017-7-16 13:21! P( e- M7 r2 v
那最后這個(gè)題的答案是多少啊,方便把動(dòng)圖的代碼貼出來嘛
$ U/ V( P- z& S+ B
恩,有看到,那個(gè)動(dòng)圖是用Mathematica做出來的吧,想看看代碼可以嘛4 X' U3 f& H  l  H$ g! z7 w

點(diǎn)評(píng)

晚上回去發(fā)吧,最近回去都沒時(shí)間打開電腦  發(fā)表于 2017-7-18 08:01
26#
發(fā)表于 2017-7-17 19:48:42 | 只看該作者
pacelife 發(fā)表于 2017-7-13 22:00# D1 F! d: @6 |( G# L2 H
解析解為:

9 I6 l- Z4 r) M' H) c能把動(dòng)圖的代碼發(fā)一下么,應(yīng)該是mathematic吧
! M( G+ }! C' l' j% s
27#
發(fā)表于 2017-7-18 20:21:22 | 只看該作者
求mathematic的代碼
28#
 樓主| 發(fā)表于 2017-7-19 22:05:01 | 只看該作者
我是烏鴉啊啊啊 發(fā)表于 2017-7-17 17:54
1 H. S' L  v# X4 ^, \恩,有看到,那個(gè)動(dòng)圖是用Mathematica做出來的吧,想看看代碼可以嘛
6 B5 \% }7 |2 k, `0 W
K = DSolve[{-V/(x*f''[x])*Sqrt[1 + f'[x]^2] == 2*V, f[-L] == 0,
1 ~8 X+ S* \3 f% b    f'[-L] == 0}, {f[x]}, x];% Q" |. g2 k5 {3 O
M = K /. {V -> 1, L -> 100};3 i  E9 D8 C' M# l
Manipulate[" y8 K" \+ x4 y- E" s" S
Plot[M[[2, 1, 2]], {x, -100, 0},
4 L. x8 r* K$ w3 Y! Y2 A6 ]; H0 \; [  Epilog -> {PointSize[0.01], Black, * d# Y+ ?; W3 K0 L/ g6 g4 Q+ s
    Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
! ]4 U0 z" T) r5 v       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,
( E! v+ s" r+ i& Q/ d    Line[{{a, M[[2, 1, 2]] /. x -> a}, {0, ; q0 \1 X  `+ t: x3 [
       M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, -100, 7 f# {" I) d! M, J' H
  0}]8 A& }& f- \( A, s& W1 b% D% s9 S
Export["1.gif", 8 H% E$ X7 [* K
Table[Plot[M[[2, 1, 2]], {x, -100, 0},
0 E) d6 b$ q% j- P5 G5 i   Epilog -> {PointSize[0.01], Black, 6 P" D+ l4 [- Y  w( w$ @8 b/ E8 s7 R
     Point[{{a, M[[2, 1, 2]] /. x -> a}, {0,
. z6 L( i" g& a. R2 e: e        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}], Red, Dashed,+ ?1 G- e1 [, S- c! b  l/ f
      Line[{{a, M[[2, 1, 2]] /. x -> a}, {0, + p9 h9 G( ^& t) u( \; Z* S: E+ B% ]' C6 U
        M[[2, 1, 2]] - x*D[M[[2, 1, 2]], x] /. x -> a}}]}], {a, % _! h: H' D1 V; b1 G! U
   Join[Range[-100, -1], {-0.0001}]}]]
; x' y0 x  I$ `/ D- f0 B& _2 {
1 H. ~; s( i+ E% J  d% e1 N; N% T
29#
發(fā)表于 2017-7-21 18:03:54 | 只看該作者
學(xué)習(xí)了。
回復(fù)

使用道具 舉報(bào)

30#
發(fā)表于 2017-8-7 22:33:04 | 只看該作者
太好了,非常感謝樓主的分享!

本版積分規(guī)則

小黑屋|手機(jī)版|Archiver|機(jī)械社區(qū) ( 京ICP備10217105號(hào)-1,京ICP證050210號(hào),浙公網(wǎng)安備33038202004372號(hào) )

GMT+8, 2024-9-21 03:28 , Processed in 0.057657 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表