[求助]Mathematica中如何对离散点作积分？

MVH

急，大家帮帮忙

suffer

离散的点通过插值或者拟合就可以得到连续的函数，然后可以对该函数求积分和微分。

[ 本帖最后由 suffer 于 2007-6-29 01:57 编辑 ]

AaronSpark

除了你和还有别的方面法吗？

[ 本帖最后由 suffer 于 2007-6-29 01:57 编辑 ]

suffer

一个例子：

1. f[x_] := NIntegrate[Sin[Cos[x]], {x, 0, a}];
   
2. 
   
3. data = Table[{a, f[x]}, {a, 0, 10}];
   
4. 
   
5. expr = Interpolation[data];
   
6. 
   
7. Plot[expr[a], {a, 0, 10}];
   
8. 
   
9. Plot[Evaluate[D[expr[a], a]], {a, 0, 10}]

复制代码

如果想实现Matlab中的cumsum的功能：

1. Drop[FoldList[Plus, 0, {a1,a2,…,an}], 1]

复制代码