查看: 5066|回复: 6

定积分定义动画演示

字体大小: 正常放大

402

25 主题	7 听众	1万积分

升级 0%

TA的每日心情

	开心 2025-6-2 06:00

签到天数: 3933 天

[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 微信

使用道具举报

meiya

3 主题	6 听众	141 积分

升级 20.5%

TA的每日心情

	开心 2020-3-4 15:56

签到天数: 71 天

[LV.6]常住居民II

自我介绍: 本人酷爱数学，也从事数学工作，希望在论坛上能与大家交流数学知识。

群组: 2018国赛冲刺

7^#

发表于 2017-3-20 00:45 |只看该作者 |招呼Ta 关注Ta

好牛，厉害

我也说一句

发表

使用道具举报

z43742516

0 主题	11 听众	20 积分

升级 15.79%

TA的每日心情

	慵懒 2015-10-25 09:53

签到天数: 1 天

[LV.1]初来乍到

自我介绍: 学生

6^#

发表于 2015-10-25 09:54 |只看该作者 |招呼Ta 关注Ta

收藏起来慢慢看

我也说一句

发表

使用道具举报

z43742516

0 主题	11 听众	20 积分

升级 15.79%

TA的每日心情

	慵懒 2015-10-25 09:53

签到天数: 1 天

[LV.1]初来乍到

自我介绍: 学生

5^#

发表于 2015-10-25 09:54 |只看该作者 |招呼Ta 关注Ta

收藏起来慢慢看

我也说一句

发表

使用道具举报

宏心

51 主题	19 听众	7298 积分

升级 45.96%

TA的每日心情

	开心 2025-6-2 07:21

签到天数: 3368 天

[LV.Master]伴坛终老

超级版主

自我介绍: 数据分析，统计学的教学，数学建模的辅导

4^#

发表于 2014-12-8 09:31 |只看该作者 |招呼Ta 关注Ta

牛。牛牛。

我也说一句

发表

使用道具举报

402

25 主题	7 听众	1万积分

升级 0%

TA的每日心情

	开心 2025-6-2 06:00

签到天数: 3933 天

[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]