標題: Re: [其他] 一題Mathmatica請教
時間: Mon Jun 7 20:17:37 2010
※ 引述《twtf ( )》之銘言:
: 問題在b
: (a) 解 (1+y^2)y'=y cos x
: (b) 使用指令 ContourPlot 在 [0,10]*[0,10]內畫出不同解的圖形。
: =======
: 我自己打的
: (*a*)
: DSolve[y'[x] + y[x]^2*y'[x] == y[x]*Cos[x], y[x], x]
: 系統會說他用到inverse finction會喪失一些值什麼的之後給我一個解
: (*b*)
: ContourPlot[y'[x] + y[x]^2*y'[x] == y[x]*Cos[x], {x, 0, 10}, {y, 0, 10}]
: 他只畫了一個10*10的方格
: 裡面什麼都沒有
: 這真的是答案嗎?
: 問到自刪
: 先謝謝各位大大了<(_ _)>
test=y[x]/.DSolve[{y'[x]+y[x]^2*y'[x]==y[x]*Cos[x],y[0]==a},y,x]//Quiet
Plot[Evaluate@{test/.a->#&/@Range[0,10]},{x,0,10}]
--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.146
沒有留言:
張貼留言