定积分定义动画演示

402

Clear[f, x, a, b];
f[x_]： = x^2; a = 0; b = 1.5; m = 0;
$ G8 t( `# y. i0 ?; I% G, t" jg1 = Plot[f[x], {x, a, b}, PlotStyle -> {RGBColor[1, 0, 0]},
* p9 f& j2 v3 _  Q* A6 }* r0 A   DisplayFunction -> Identity];
For[j = 3, j <= 50, j += 2, m = j; tt1 = {}; tt2 = {};
' r+ b# L, l6 L; ]) m4 {  z* ~  r For[i = 0, i < m, i++, x1 = a + i*(b - a)/m; x2 = x1 + (b - a)/m;
  tt1 = Append[tt1,
    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
  tt2 = Append[tt2,
7 o& e" C/ j" r1 h2 B    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
  PlotLabel -> m'' intervals'']]
2 o5 d" o. I, N& i
" u1 E  a, J2 O) l' v9 T7 ^6 s定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
. V+ O3 K7 I1 G: |# \
+ a, b/ z8 y: ff[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red,
  DisplayFunction -> Identity]
6 L% Q" \$ c! ~8 |" OFor[n = 0, n < 100, n = n + 4; t1 = {}; t2 = {};
. [3 L. }3 S: D' ?5 } For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
  t1 = Append[t1,
5 K" ?8 B) ]0 F, r! i# C    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,
# D2 z0 U9 D/ e) x# e1 Z2 m3 P  PlotLabel -> n "intervals"]]


" d: i6 z. N+ P
+ a# S. S9 e/ L- u7 h

变动的永恒

太高端，不懂，帮顶
* U7 a. l8 B) G; V9 @/ h" f3 _

402

已经解决。谢谢小木虫的大虾。
2 ^* I& L9 f: ^1 w6 T# uf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
5 z' v/ _6 I3 |# [# c* Eg = Plot[f[x], {x, a, b}, PlotStyle -> Red];
Animate[t1 = {}; t2 = {};
For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
  t1 = Append[t1,
    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
. M; Z8 p& s: v  I* V Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
AnimationRunning -> False]

宏心

牛。牛牛。

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看

meiya

好牛，厉害
6 }2 W* o4 b, F& J# H! s. w