定积分定义动画演示

402

Clear[f, x, a, b];
% N5 x! x! a8 f. g0 xf[x_]： = x^2; a = 0; b = 1.5; m = 0;
5 D0 S0 x% {! u# B: p: |g1 = Plot[f[x], {x, a, b}, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
  I: `/ J' D4 _* _5 C* [' eFor[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;
" I( m8 b" [1 z% N! v( q" 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}]}]]];
! F: S$ M2 w7 l- e5 z Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
  PlotLabel -> m'' intervals'']]

3 S* s0 t& A- w; e% ^0 i3 l定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
. b6 y  {" S: k3 n9 c! _3 F% r& Q
: x4 Y4 t) X9 x) I6 Hf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
* `% \. o- h# S5 D/ U9 _g = Plot[f[x], {x, a, b}, PlotStyle -> Red,
+ i% _2 n* L! E2 m% T+ E- \  DisplayFunction -> Identity]
3 T; E5 n1 R2 U0 }- WFor[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;
/ I! L5 x4 S  U3 b  r$ V  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,
% u* }) f5 Y- B1 e! g( H  PlotLabel -> n "intervals"]]

2 a2 I$ R" n  T1 N

变动的永恒

太高端，不懂，帮顶
  F2 L* Y2 B+ k6 T7 j

402

已经解决。谢谢小木虫的大虾。
' W) z1 k3 ]$ N) Wf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
) T" F! f8 n  l, k8 z; Zg = Plot[f[x], {x, a, b}, PlotStyle -> Red];
; ]+ \( M7 Y, SAnimate[t1 = {}; t2 = {};
For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
) W  i% g) J% k4 _" |4 t; u  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},
0 `+ K6 [* J8 o) X( h AnimationRunning -> False]
6 B1 i8 ^; C8 M0 ~/ B8 o. n

宏心

牛。牛牛。

z43742516

收藏起来慢慢看
5 s7 {8 c9 `. w

z43742516

收藏起来慢慢看
! Z* `" S/ R7 g# X* E# ]  C8 @* _7 Z

meiya

好牛，厉害