定积分定义动画演示

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]},
& r' _" x$ Q2 ~( \! J2 X. m# V   DisplayFunction -> Identity];
+ p, a+ b: y6 M7 ?: v. f, v, WFor[j = 3, j <= 50, j += 2, m = j; tt1 = {}; tt2 = {};
6 [1 P$ o4 Q( q- I  U( A9 P For[i = 0, i < m, i++, x1 = a + i*(b - a)/m; x2 = x1 + (b - a)/m;
3 l% r2 I$ m! f  E/ l  tt1 = Append[tt1,
    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
1 C2 Z$ t2 W, q4 ^; ?/ `  tt2 = Append[tt2,
, p+ E2 n4 i9 a& {1 k3 p/ X    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
% o) H) R# w, }3 g Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
  PlotLabel -> m'' intervals'']]

% K0 L, Z9 ~0 X' Z: E' L3 K定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
9 ^2 s' S! M7 [9 u: N
f[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 = {};
For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
  t1 = Append[t1,
6 |9 d+ L2 h6 j/ g" l    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,
  PlotLabel -> n "intervals"]]
  u$ m/ i) ?' ~0 A

变动的永恒

太高端，不懂，帮顶

402

已经解决。谢谢小木虫的大虾。
f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
' X- A! W* w8 w' p: x7 fg = Plot[f[x], {x, a, b}, PlotStyle -> Red];
" q  k- `' O$ q# D4 Z$ uAnimate[t1 = {}; t2 = {};
5 ]9 Z. }2 ^) u4 v$ s  j: P1 q For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
0 N2 G6 C# a3 t0 h' l3 K& v# q  t1 = Append[t1,
6 Z1 A' F' z4 i$ t. y) ]    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
2 z& C/ v4 B, i' c* y' c  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
- q- f% K& F8 G2 t; o, c# h Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
: X2 n1 @  `; [- f+ W" @# p  W AnimationRunning -> False]
2 S5 Y$ k+ x  g7 n$ T6 u* s

宏心

牛。牛牛。

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看

meiya

好牛，厉害
0 I# f2 `( ]! W, B