定积分定义动画演示

402

Clear[f, x, a, b];
  t: c/ B& M+ a; {) }& o+ H7 Hf[x_]： = x^2; a = 0; b = 1.5; m = 0;
$ J- V+ q0 F; y8 i" _+ e* \g1 = Plot[f[x], {x, a, b}, PlotStyle -> {RGBColor[1, 0, 0]},
   DisplayFunction -> Identity];
' \" I* i( j# H5 ?' {- U& OFor[j = 3, j <= 50, j += 2, m = j; tt1 = {}; tt2 = {};
3 a5 c$ }; k! E For[i = 0, i < m, i++, x1 = a + i*(b - a)/m; x2 = x1 + (b - a)/m;
  tt1 = Append[tt1,
9 {. J0 _/ T/ g5 k2 ]    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x2]}]}]];
  tt2 = Append[tt2,
" C5 ~! B1 N! z. @4 k( ]/ x    Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
* N  K3 c% k+ i- l2 x/ r Show[tt1, tt2, g1, DisplayFunction -> $DisplayFunction,
* ^" e- C4 H7 ~) j" B  PlotLabel -> m'' intervals'']]
+ ?: N2 P6 I! D$ d
9 e* p( o' O8 s7 {定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？
* a' e7 n' u3 ?; x" G# @
- w( D0 Y" p. j  |+ mf[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 = {};
) v* l6 \2 e: H For[i = 0, i < n, i++, x1 = a + (b - a) i/n; x2 = x1 + (b - a)/n;
% D+ j4 h$ i& L/ _! d  t1 = Append[t1,
    Graphics[{Blue, Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]];
( D. t( ?7 w3 _5 w1 _8 ?  ]4 x. @  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
* j- ~& H* w' |) y: K+ s Show[t1, t2, g, DisplayFunction -> $DisplayFunction,
+ ?) n1 p; W- [5 o. \  PlotLabel -> n "intervals"]]

* Z- A5 B2 u6 ~7 L7 A

变动的永恒

太高端，不懂，帮顶
7 E9 `! N0 D; x# ?

402

已经解决。谢谢小木虫的大虾。
f[x_] := x^2 + 1; a = 0; b = 2; m = 0;
g = Plot[f[x], {x, a, b}, PlotStyle -> Red];
# Q4 ~( s2 Z- N- n! yAnimate[t1 = {}; t2 = {};
$ u4 }% D7 r7 U' z 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]}]}]];
5 M! @2 j  d: `+ q5 S  t2 = Append[t2, Graphics[{Green, Rectangle[{x1, f[x1]}, {x2, 0}]}]]];
Show[t1, t2, g, PlotLabel -> n "intervals"], {n, 4, 100, 4},
AnimationRunning -> False]

宏心

牛。牛牛。

z43742516

收藏起来慢慢看
9 I2 F- f7 x% Y6 I1 q/ p: P4 t

z43742516

收藏起来慢慢看
7 A+ w' _0 m3 M% `: f

meiya

好牛，厉害
& k4 e& E6 u/ \1 c3 J