Re: [問題] deqn 問題再哪裡呢??
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/09/22 18:53)推噓4(4推 0噓 6→)留言10則, 2人參與討論串2/2 (看更多)
※ 引述《ntust661 (TOEFL_5!)》之銘言：
: http://ppt.cc/ipoL
: 我都刪除變數了
: 他一直說我的方程式有錯@@
: why??
: 各位大大救救小弟阿QQ
{Pa,Qa,Maa}={1,1,1};
sys={\[Theta]'[s]==4Pi^2*(Maa-Pa-Qa*X[s]),
X'[s]==Cos[\[Theta][s]],
y'[s]==Sin[\[Theta][s]],
M'[s]==Fx[s]*Sin[\[Theta][s]]-Fy[s]*Cos[\[Theta][s]],
Fx'[s]==0,
Fy'[s]==0};
BC={\[Theta][0]==0,X[0]==0,y[0]==0,Fx[0]==-Pa,
Fy[0]==Qa,M[0]==Maa};
ans=NDSolve[
Flatten@{sys,BC},{\[Theta][s],X[s],y[s],M[s],Fx[s],
Fy[s]},{s,0,1}][[1]]
GraphicsGrid@Partition[Plot[ans[[#,2]],{s,0,1}]&/@Range[6],3]
"=" 是 Set 不是 Equal
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.126
推
09/22 19:04, , 1F
09/22 19:04, 1F
→
09/22 19:06, , 2F
09/22 19:06, 2F
推
09/22 19:17, , 3F
09/22 19:17, 3F
→
09/22 19:18, , 4F
09/22 19:18, 4F
→
09/22 19:18, , 5F
09/22 19:18, 5F
→
09/22 19:20, , 6F
09/22 19:20, 6F
推
09/22 20:01, , 7F
09/22 20:01, 7F
→
09/22 20:01, , 8F
09/22 20:01, 8F
推
09/22 20:04, , 9F
09/22 20:04, 9F
→
09/22 20:04, , 10F
09/22 20:04, 10F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
-4
30