討論串[請益] 微方3.3第16題
共 5 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓2(2推 0噓 1→)留言3則,0人參與, 最新作者shinchen (starrydawn星晨)時間18年前 (2007/11/01 22:38), 編輯資訊
0
0
1
內容預覽:
剛剛又找了幾個網站以後用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}]. 其實差別
(還有341個字)

推噓9(9推 0噓 2→)留言11則,0人參與, 最新作者nicky729 (御風)時間18年前 (2007/10/31 01:32), 編輯資訊
0
0
2
內容預覽:
http://www2.ee.ntu.edu.tw/~b95901189/DE/. 如果大家不介意就用我寫的小程式算吧.... 要留意的事項如下:. 1. 沒有檢查下限,所以s,i,r,n是否為負數都沒錯. 2. r的值 = n - s[t] - i[t]. 3. dt 為 每次代值取的間隔. 4.
(還有208個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者icarusming (icarus)時間18年前 (2007/10/30 23:17), 編輯資訊
0
0
1
內容預覽:
試了很久還是試不出來>"<. 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 代入前面再印出
(還有250個字)

推噓3(3推 0噓 2→)留言5則,0人參與, 最新作者thewindjuei (well...)時間18年前 (2007/10/30 02:34), 編輯資訊
0
0
1
內容預覽:
參考下面網站. http://www.math.sjtu.edu.cn/Mathematica%E6%95%99%E7%A8%8B/6.1.1.htm. DSolve[{s'[t] == -0.2×s[t]×i[t], i'[t] == -0.7×i[t] + 0.2×s[t]×i[t],. i[0

推噓4(4推 0噓 0→)留言4則,0人參與, 最新作者shinchen (starrydawn星晨)時間18年前 (2007/10/28 02:34), 編輯資訊
0
0
1
內容預覽:
b小題到底要我們幹麼啊@@. 不可能要手動解啊. 但是我手邊的程式又不吃這種聯立方程式. (應該說我不知道要怎麼說服程式s跟i是互相獨立的= =). 解答卻碰碰碰的就跑出函式圖形了. 怎麼做出來的. 有人知道嗎@@. --. ╭─★─┬─╭─╮╭─╮╭─╮┐★┐┌─╮╭─╮╮★╭╭╮┐. ╰─╮
(還有107個字)
首頁
上一頁
1
下一頁
尾頁