mathematica解微分方程再积分的问题

Kevin_Van

解出几个InterpolatingFunction 后面又用了数值积分，结果想画出图像就非常慢了，一张图画几十分钟，要是定义域大一点还会崩溃。。。想问一下有没有办法加快速度？（我试过改WorkingPrecision可是好像更慢了。。。）或者就算这么慢，能不能把数据一段一段慢慢算出来，然后最后整合到一起呢？
/ j1 b( v) p2 G; t0 [; H! I3 N# z
$ E/ Q: E7 D; ~: W* E( n3 _
4 F) }1 k% _! y8 G+ C1 A

方程比较长就不截了，最后的效果是想画出（x,y,z）的三维曲线图，想要t能从0到15左右，但是电脑最多算到t=2就会崩溃。。。
' @% V* |5 m' s( P* q5 ~