查看: 5269|回复: 6

定积分定义动画演示

字体大小: 正常放大

402

25 主题	7 听众	1万积分

升级 0%

TA的每日心情

	开心 2025-8-5 06:10

签到天数: 3996 天

[LV.Master]伴坛终老

超级版主

网络挑战赛参赛者

群组: LINGO

电梯直达

1^#

发表于 2014-11-20 15:01 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

Clear[f, x, a, b];
f[x_]： = x^2; a = 0; b = 1.5; m = 0;
g1 = Plot[f[x], {x, a, b}, PlotStyle -> {RGBColor[1, 0, 0]},
DisplayFunction -> Identity];
For[j = 3, j <= 50, j += 2, m = j; tt1 = {}; tt2 = {};
For[i = 0, i < m, i++, x1 = a + i*(b - a)/m; x2 = x1 + (b - a)/m;
  tt1 = Append[tt1,
Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
  tt2 = Append[tt2,
Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
  PlotLabel -> m'' intervals'']]

定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？

f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red,
  DisplayFunction -> Identity]
For[n = 0, n < 100, n = n + 4; t1 = {}; t2 = {};
For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
  t1 = Append[t1,
Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, DisplayFunction -> $DisplayFunction,
  PlotLabel -> n "intervals"]]

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

变动的永恒

0 主题	12 听众	534 积分

升级 78%

TA的每日心情

	奋斗 2015-4-18 18:22

签到天数: 163 天

[LV.7]常住居民III

自我介绍: 数学水平停留在高中水平了。

2^#

发表于 2014-11-20 21:20 |只看该作者 |招呼Ta 关注Ta

太高端，不懂，帮顶

我也说一句

发表

使用道具举报

402

25 主题	7 听众	1万积分

升级 0%

TA的每日心情

	开心 2025-8-5 06:10

签到天数: 3996 天

[LV.Master]伴坛终老

超级版主

网络挑战赛参赛者

群组: LINGO

3^#

发表于 2014-12-1 19:54 |只看该作者 |招呼Ta 关注Ta

已经解决。谢谢小木虫的大虾。
f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red];
Animate[t1 = {}; t2 = {};
For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
t1 = Append[t1,
Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
AnimationRunning -> False]