| 查看: 1290 | 回复: 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"]] |
回复此楼» 猜你喜欢
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
假如你的研究生提出不合理要求
已经有5人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
feixiaolin
荣誉版主 (文坛精英)
-
专家经验: +518 - 应助: 942 (博后)
- 贵宾: 1.275
- 金币: 3430
- 散金: 58785
- 红花: 532
- 沙发: 11
- 帖子: 24215
- 在线: 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