数学建模社区-数学中国

标题: mathematica解微分方程再积分的问题 [打印本页]

作者: Kevin_Van    时间: 2014-4-19 17:59
标题: mathematica解微分方程再积分的问题
解出几个InterpolatingFunction 后面又用了数值积分,结果想画出图像就非常慢了,一张图画几十分钟,要是定义域大一点还会崩溃。。。想问一下有没有办法加快速度?(我试过改WorkingPrecision可是好像更慢了。。。)或者就算这么慢,能不能把数据一段一段慢慢算出来,然后最后整合到一起呢?
  F+ b' w2 T) t; Q8 ?6 {
9 G$ W- @4 ?2 |. v, t! m
7 s( _; I1 A0 B
; C$ c. g: p+ M$ D, F7 r
, F+ y8 n9 R' I: o! Y+ `0 H- q方程比较长就不截了,最后的效果是想画出(x,y,z)的三维曲线图,想要t能从0到15左右,但是电脑最多算到t=2就会崩溃。。。
" a# n3 p. _8 G- Z& J9 v& a" k2 d




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5