定积分定义动画演示

402

Clear[f, x, a, b];
f[x_]： = x^2; a = 0; b = 1.5; m = 0;
9 e# b, k) z+ D$ T0 t; g. og1 = Plot[f[x], {x, a, b}, PlotStyle -> {RGBColor[1, 0, 0]},
! j. [( U; v7 x( ~2 [4 w- r2 e0 C   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;
1 y4 q# s) J3 {; I  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}]}]]];
4 j0 G" t$ Q; S Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
  PlotLabel -> m'' intervals'']]
0 P7 q9 [. \  k4 s" D+ l4 R
定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
4 l. F, \# {3 `
f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
3 a7 u2 x! l4 ]8 N) A$ U6 lg = Plot[f[x], {x, a, b}, PlotStyle -> Red,
  DisplayFunction -> Identity]
2 k3 D0 u- [2 z% E0 WFor[n = 0, n < 100, n = n + 4; t1 = {}; t2 = {};
! b9 L5 _$ [# X' K& j, ^& [ For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
  d8 T* H/ R( i4 G5 W; |) W  t1 = Append[t1,
1 ?  N' x2 H! `9 x" n( w0 `: H0 s. S    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
3 M5 i3 ?# S+ ^% g& F* e+ V& f  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, DisplayFunction -> $DisplayFunction,
  PlotLabel -> n "intervals"]]

/ \0 A4 z2 {) [0 M' w* ]; M
6 T2 ~9 G% Z0 y7 r& f

变动的永恒

太高端，不懂，帮顶
8 r8 s7 u& @, C8 i" ]( P( Y

402

已经解决。谢谢小木虫的大虾。
6 q% v# R% Y/ J4 Lf[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red];
, M& I2 O& E& Q, eAnimate[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]}]}]];
. ^8 i: F! p: b: f* i% S  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
; k5 A0 w2 h: r+ u' U Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
' ~, I. m" D4 M1 _% n- ?7 ^1 } AnimationRunning -> False]
. d4 }' _  V, z7 @2 _7 `

宏心

牛。牛牛。

z43742516

收藏起来慢慢看

z43742516

收藏起来慢慢看
  V3 W5 L! J# m# i7 ?

meiya

好牛，厉害