定积分定义动画演示

402

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]},
$ q9 a6 l& j9 t* V" m   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;
* w: l: f8 [' Y: c  tt1 = Append[tt1,
    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
  tt2 = Append[tt2,
6 g+ ~# o; O, D, T6 Y# o    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
" @4 M: {9 c+ J# E7 k- | Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
$ X* \( D) d; {  @, b# w4 r! K8 Z  PlotLabel -> m'' intervals'']]
# I5 p1 D8 Q+ S6 I7 l
" `: Z2 }7 o6 H, x% Q$ {7 V, c% j定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？

# ^. d4 X. H' F. Qf[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 = {};
4 M4 e2 l, Z! K0 M& Y9 W5 `; G( X For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
  t1 = Append[t1,
$ F) k/ f- I4 i3 v5 u* c/ k7 p    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& d6 ]& |1 Q4 {1 V( G( v* L  PlotLabel -> n "intervals"]]
5 h# e) i, R' ]3 Y* W

* \! s6 X' f- r$ {  S

变动的永恒

太高端，不懂，帮顶
, }$ ]( z0 ~0 W. M7 G/ X/ i

402

已经解决。谢谢小木虫的大虾。
1 v6 K6 w. _6 p/ n% @/ \2 }f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
& B0 e, x" \' |# v7 j1 x- mg = Plot[f[x], {x, a, b}, PlotStyle -> Red];
: w" g8 M' l' Z( i; X, oAnimate[t1 = {}; t2 = {};
' x( v' T: P& g5 N For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
! K$ X. Y- n! w# N- I  t1 = Append[t1,
    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
: F  g5 y7 `* E, a, a6 h  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
' Q/ \4 D- W  Q Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
AnimationRunning -> False]
  d2 F, }$ N* X8 Y, \, ^( V4 M

宏心

牛。牛牛。
; ?) l" Q6 F+ n1 J& d$ {

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看

meiya

好牛，厉害