定积分定义动画演示

402

Clear[f, x, a, b];
f[x_]： = x^2; a = 0; b = 1.5; m = 0;
2 r$ O" R7 \( G& U% N5 O& ?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 = {};
$ ]; M( x* u( r- k  U5 F& I* ^# j For[i = 0, i < m, i++, x1 = a + i*(b - a)/m; x2 = x1 + (b - a)/m;
  tt1 = Append[tt1,
; p. ^6 U" d# X. N) o; P5 F7 c: v    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
% h2 x( E) x7 W6 F3 }4 _  tt2 = Append[tt2,
" W! ~% D; w$ ^4 j/ {7 O0 ~- l    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
/ \& o. ]9 j' O) x Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
7 y$ L2 C# |3 h2 E9 E  PlotLabel -> m'' intervals'']]

, s  W' d1 R9 ?定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
% }; x2 B; r6 f3 f0 d, L
f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
. P6 v/ b3 n0 \6 p; R4 e1 ?6 s; jg = Plot[f[x], {x, a, b}, PlotStyle -> Red,
* c! c, W) |5 w; J2 F  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]}]}]];
* W* L- N9 ?, v2 L  {: Q  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, DisplayFunction -> $DisplayFunction,
  {- a, a! p  x' [$ s, m  PlotLabel -> n "intervals"]]
" u8 \# e) z' T: C4 b

变动的永恒

太高端，不懂，帮顶

402

已经解决。谢谢小木虫的大虾。
3 Q) u2 G% r0 hf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
! b* w6 s1 A. H8 \* w) ~g = Plot[f[x], {x, a, b}, PlotStyle -> Red];
+ \7 \  D; u' b$ E# @& eAnimate[t1 = {}; t2 = {};
1 u0 s) J4 `5 O/ n0 z 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]}]}]];
) h. X7 S- k, d* W0 f1 j' b  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
5 m2 }$ }7 v% h2 { AnimationRunning -> False]
( s5 A, h, d# r" k. X5 ~

宏心

牛。牛牛。

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看
. W" j% Z* P9 Y: X* J

meiya

好牛，厉害