[交流] 【求助】先解常微分方程 然后画图【已完结】 已有3人参与

Originally posted by mshwangg at 2010-06-03 11:05:04:
只需把画图的那句话改成Plot[Abs[%[[1, 1, 2]]], {t, 0, 2.8202 10^-6}]即可

mathematica标榜自己说总给出最精确的结果，真实情况也差不多吧。不过有时候这种所谓的最精确结果恰恰不是我们所希望看到的，比如说 ...

Originally posted by mshwangg at 2010-06-03 11:05:04:
只需把画图的那句话改成Plot[Abs[%[[1, 1, 2]]], {t, 0, 2.8202 10^-6}]即可

mathematica标榜自己说总给出最精确的结果，真实情况也差不多吧。不过有时候这种所谓的最精确结果恰恰不是我们所希望看到的，比如说 ...

Originally posted by mshwangg at 2010-06-03 15:07:42:
没看到你的mathematica算出来的图啊,下面是我算的

曲线的大概趋势和matlab算的一样,不过数值有些不同,可能是计算误差导致的?

Originally posted by mshwangg at 2010-06-03 16:01:30:
和你的程序比比,看有什么不同吧

Originally posted by mshwangg at 2010-06-03 16:37:49:
mathematica输出的解是表的形式，即{{φ[t]->....}}。你要画图的表达式其实的省略号代替的部分，要做的就是把这部分提取出来。
[[]]就是提取表元素的操作，[[1，1，2]]就对应省略号部分
你分别试试[[1]]，[[ ...