mathematica解微分方程再积分的问题
解出几个InterpolatingFunction 后面又用了数值积分，结果想画出图像就非常慢了，一张图画几十分钟，要是定义域大一点还会崩溃。。。想问一下有没有办法加快速度？（我试过改WorkingPrecision可是好像更慢了。。。）或者就算这么慢，能不能把数据一段一段慢慢算出来，然后最后整合到一起呢？http://imgsrc.baidu.com/forum/w%3D580/sign=ee17eb9d5b82b2b7a79f39cc01accb0a/d04427a4462309f7df01de8b700e0cf3d6cad6cf.jpg
http://imgsrc.baidu.com/forum/w%3D580/sign=1677c0b1347adab43dd01b4bbbd5b36b/ced486cb39dbb6fdbc0896bf0b24ab18962b37e2.jpg
http://imgsrc.baidu.com/forum/w%3D580/sign=05cc97eaaf4bd11304cdb73a6aaea488/ba1192cad1c8a786044e39976509c93d71cf50d5.jpg
http://imgsrc.baidu.com/forum/w%3D580/sign=c1d5cafd96eef01f4d1418cdd0ff99e0/aa24c15c103853438ea8f4b89113b07ecb8088d6.jpg
方程比较长就不截了，最后的效果是想画出（x,y,z）的三维曲线图，想要t能从0到15左右，但是电脑最多算到t=2就会崩溃。。。
{:3_60:}
页:
[1]