求助：想自定义一个Integrate函数

level 2

yhan_2012 楼主

想自定义一个函数实现NIntegrate功能
nintegrate[f[x],{x,xmin,xmax,n}]
主函数体
Table[f[i], {i, imin, imax, (imax - imin)/n}]*(imax - imin)/n // Total
一个例子

2018年04月10日 13点04分 1

吧务

level 15

xzcyr

……有什么难点吗？
nintegrate[expr_, {x_, xmin_, xmax_, n_}] :=
Table[N@expr, {x, xmin, xmax, (xmax - xmin)/n}]*(xmax - xmin)/n // Total
nintegrate[x^2, {x, 1, 2, 500}]

2018年05月05日 05点05分 2