24小时热门版块排行榜    

查看: 1032  |  回复: 4

672418539

新虫 (初入文坛)

[求助] 求一个微分方程组的数值解,总出错,请大神们帮忙看看,很急!!!很急!!!

请大家帮忙看一下,拜托了,真的很急,想求出y1,y2,y3,y4,而且画出图来,可是老出错,我都弄了好久了。
NDSolve[{y[1]''[
     t] == [Subscript[Log, 2] (y[1][t] + y[2][t] + y[3][t] + y[4][t])/
        y[1][t] - 2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t]]*400^-2,y[2]''[
     t] == [Subscript[Log, 2] (y[1][t] + y[2][t] + y[3][t] + y[4][t])/
        y[2][t] - 2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t]]*400^-2,y[3]''[
     t] == [Subscript[Log, 2] (y[1][t] + y[2][t] + y[3][t] + y[4][t])/
        y[3][t] - 2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t]]*400^-2,y[4]''[
     t] == [Subscript[Log, 2] (y[1][t] + y[2][t] + y[3][t] + y[4][t])/
        y[4][t] - 2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t]]*400^-2,Derivative[1][y[1]][0] == 0,
   Derivative[1][y[2]][0] == 0, Derivative[1][y[3]][0] == 0,
   Derivative[1][y[4]][0] == 0, y[1][0] == 300000000,
   y[2][0] == 270000000, y[3][0] == 310000000,
   y[4][0] == 290000000}, {y[1][t], y[2][t], y[3][t], y[4][t]}, t],出错为Syntax::sntxf: "{" cannot be followed by "RowBox[{RowBox[{\(<< 14 >>\), ",", RowBox[{\(<< 1 >>\), "==", RowBox[{"", \(<< 9 >>\), ""}]}], ",", \(\(\(y[4]\)[0]\) == 290000000\)}], "}"}]".
Syntax::tsntxi: "<<15>>,y[4][0]==290000000" is incomplete; more input is needed.
Syntax::sntxi: "Incomplete expression; more input is needed \!\(\"\"\)."
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

emailwzh

铁虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
DSolve[{y[1]''[t] ==
   Log[2, ((y[1][t] + y[2][t] + y[3][t] + y[4][t])/y[1][t] -
       2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t])]*400^-2,
  y[2]''[t] ==
   Log[2, ((y[1][t] + y[2][t] + y[3][t] + y[4][t])/y[2][t] -
       2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t])]*400^-2,
  y[3]''[t] ==
   Log[2, ((y[1][t] + y[2][t] + y[3][t] + y[4][t])/y[3][t] -
       2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t])]*400^-2,
  y[4]''[t] ==
   Log[2, ((y[1][t] + y[2][t] + y[3][t] + y[4][t])/y[4][t] -
       2*10^-9*(y[1][t] + y[2][t] + y[3][t] + y[4][t]) -
       1*y[1]'[t])]*400^-2, Derivative[1][y[1]][0] == 0,
  Derivative[1][y[2]][0] == 0, Derivative[1][y[3]][0] == 0,
  Derivative[1][y[4]][0] == 0, y[1][0] == 300000000,
  y[2][0] == 270000000, y[3][0] == 310000000,
  y[4][0] == 290000000}, {y[1][t], y[2][t], y[3][t], y[4][t]}, t] 改成这样试试
2楼2016-03-23 16:16:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

emailwzh

铁虫 (小有名气)

【答案】应助回帖

NDSolve用法不正确!
3楼2016-03-23 16:24:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

672418539

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by emailwzh at 2016-03-23 16:16:09
DSolve[{y'' ==
   Log*400^-2,
  y'' ==
   Log*400^-2,
  y'' ==
   Log*400^-2,
  y'' ==
   Log*400^-2, Derivative == 0,
  Derivative == 0, Derivative == 0,
  Derivative == 0, y == 30 ...

亲,不对哦,没只是改了个形式而已,没有结果,也没有提醒错误
4楼2016-03-23 17:06:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

672418539

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by emailwzh at 2016-03-23 16:24:29
NDSolve用法不正确!

哪里有错?看不出来啊,求指教。
5楼2016-03-23 17:08:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 672418539 的主题更新
信息提示
请填处理意见