定积分定义动画演示

402

Clear[f, x, a, b];
( e1 q" O/ T, Y% e' q& [5 Mf[x_]： = x^2; a = 0; b = 1.5; m = 0;
. u2 G+ S8 T- J" _8 _! V; qg1 = Plot[f[x], {x, a, b}, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
/ N% v- t/ u1 Z2 ]( B9 ~# aFor[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;
7 j  }! t" X% S; O8 ~7 @  tt1 = Append[tt1,
    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
" U1 J+ e' Y1 n4 |$ g) H$ L8 t  tt2 = Append[tt2,
. d) A$ L% a, Q  J" ^" M6 V    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
9 d5 [1 B0 A8 R3 _; c* N Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
  PlotLabel -> m'' intervals'']]

/ U% K2 q/ b6 k定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
9 e# K% E# e, S# r- E& b
f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
& N1 |. ]4 w2 [( t: Bg = Plot[f[x], {x, a, b}, PlotStyle -> Red,
  DisplayFunction -> Identity]
For[n = 0, n < 100, n = n + 4; t1 = {}; t2 = {};
" @( R* L7 c, o9 P  q: d$ j  O For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
8 T/ T! O7 ~# Z8 _6 `9 d! L  t1 = Append[t1,
/ H; W' U1 g- c2 v, i) M5 A# A    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
9 J/ m  ~( O6 j1 p- g  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, DisplayFunction -> $DisplayFunction,
  PlotLabel -> n "intervals"]]
7 c  \+ ^  r; o% S, X
0 v* G7 w. S. ?( w8 I' J, x& Z3 r

' h$ v4 [/ ^4 A

变动的永恒

太高端，不懂，帮顶

402

已经解决。谢谢小木虫的大虾。
+ ^$ M3 K9 p7 Z2 u" y4 K  q! vf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
1 @: r% U! n# _2 Kg = Plot[f[x], {x, a, b}, PlotStyle -> Red];
$ S2 c' {2 c; v7 F5 O' Z$ f: @' rAnimate[t1 = {}; t2 = {};
For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
' E8 }, }3 o* T+ C' ~' T  t1 = Append[t1,
$ Q# D  p: }5 ~0 K! D; F    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
  P% h' m$ K5 Y( Y! ~ Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
AnimationRunning -> False]
0 t9 D7 Z" m: @3 v# P8 y3 i

宏心

牛。牛牛。

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看
. v+ }0 [% k  A% T  o

meiya

好牛，厉害