定积分定义动画演示

402

Clear[f, x, a, b];
8 Y; _1 }, Z4 f" H# mf[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 = {};
; m. X/ o6 `4 {9 o For[i = 0, i < m, i++, x1 = a + i*(b - a)/m; x2 = x1 + (b - a)/m;
! [$ [% r" f. I  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'']]

% O7 [$ G4 ~! D; _  U& R8 \定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
$ [; b  l" o9 }! n- A& ~0 k9 n
' n" f+ }8 H3 d$ wf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red,
  DisplayFunction -> Identity]
& K% N! e# S* ]( q8 rFor[n = 0, n < 100, n = n + 4; t1 = {}; t2 = {};
- C5 Q/ D. Z+ Y For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
" H; m0 H+ m  j7 f* [# s  t1 = Append[t1,
! v" x+ x2 X* V! `6 c$ @8 b1 e    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
  x7 v* s& Y! n Show[t1, t2, g, DisplayFunction -> $DisplayFunction,
' _" g- y( k* h/ U9 L- S  PlotLabel -> n "intervals"]]
1 B2 S4 L4 ~( a

, r4 Y; S' Y' \: e% N8 q! l
! |! ?5 K( A& I1 e  A

变动的永恒

太高端，不懂，帮顶

402

已经解决。谢谢小木虫的大虾。
& t( S( e! d6 e" H8 a' ~- \+ m: t  ^5 Cf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red];
- d) D8 a6 d! h$ v1 qAnimate[t1 = {}; t2 = {};
) y" q3 y. J. u; Z' } For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
# E) s7 V, Q0 _" s- ~6 q  t1 = Append[t1,
0 e1 _& R: H& {) g0 b    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
" _7 N1 L4 m, j! W Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
AnimationRunning -> False]
. Z. Q+ x* n0 t) k0 ^  S" M0 x

宏心

牛。牛牛。

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看

meiya

好牛，厉害
( X6 }1 [4 D: M1 B$ ?: p# k