Re: [請益] 微方3.3第16題
※ 引述《icarusming (icarus)》之銘言：
: 試了很久還是試不出來>"<
: NDSolve[{s'[x]==-0.2i[x]s[x],i'[x]==-0.7i[x]+0.2s[x]i[x],i[0]==8,s[0]==2}
: ,{i[x],s[x]},x]
: 答案還是無法算出來，會變成把後面兩個initial condition 代入前面再印出來>"<
: 請問該如何改呢?
剛剛又找了幾個網站以後用mathematica作圖出來了
NDSolve[{s'[x] == -0.2i[x]s[x], i'[x] == -0.7i[x] + 0.2s[x]i[x],
i[0] == 8, s[0] == 2}, {i[x], s[x]}, {x, 0, 10}]
其實差別只在x要給定範圍而已orz
出來結果以後還要作圖指令
Plot[Evaluate[ {i[x] /. %, s[x] /. % } ], {x, 0, 10}, PlotRange -> {0, 10}]
↑別問我這啥 我也不清楚
PlotRange是設定y的顯示範圍用的 沒設定的話顯示不完全
另外 這兩個指令是要接在一起執行的(前頭的標號差1) 沒這樣的話會顯示錯誤
弄了好久總算研究出來了...
--
◤ ▁▁ ◤▇◥ ▂◥ ▂◥ █▂◥ ◤▇◥ ꨠ ꈠ ▉█
▁▁ ▃ ▆ ▆ ◣▇◢ ▍ ▉ █▃ ▉▉█
▆ ◣◥ ◣◥ █▆◢ ▆ ◥ ▅▅ ◤▉█ ◢
ptt2個版starrydawn 網誌 http://www.wretch.cc/blog/starrydawn
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.243.5
推
11/02 00:10, , 1F
11/02 00:10, 1F
推
11/02 13:15, , 2F
11/02 13:15, 2F
→
11/02 13:17, , 3F
11/02 13:17, 3F
討論串 (同標題文章)