| 查看: 1462 | 回复: 6 | |||
[交流]
定积分的动画演示，运行没有结果，请各位大虾看看错在哪里 已有2人参与
|
|
定积分的动画演示，运行没有结果，请各位大虾看看错在哪里？ 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, 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"]] |
回复此楼» 猜你喜欢
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有7人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
feixiaolin
荣誉版主 (文坛精英)
-
专家经验: +518 - 应助: 942 (博后)
- 贵宾: 1.275
- 金币: 3906
- 散金: 58785
- 红花: 532
- 沙发: 11
- 帖子: 24220
- 在线: 2601.8小时
- 虫号: 2139575
- 注册: 2012-11-21
- 专业: 光学信息获取与处理
- 管辖: 数学
2楼2014-11-21 16:21:58
3楼2014-11-22 14:06:56
4楼2014-11-23 05:55:36
5楼2014-11-23 12:30:51
6楼2014-11-24 19:04:07
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
小木虫: 金币+0.5, 给个红包，谢谢回帖
|
f[x_]:=x^2+1;a=0;b=2;m=0; g=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}]}]]]; Show[t1,t2,g,PlotLabel->n "intervals"],{n,4,100,4},AnimationRunning->False] |
7楼2014-11-25 14:14:03
