| 查看: 1405 | 回复: 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"]] |
回复此楼» 猜你喜欢
2026国自然函评费到账
已经有17人回复
-
让我中一个面上吧！
已经有15人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有5人回复
-
跳槽后在研项目怎么办？
已经有10人回复
-
什么时候开奖？
已经有10人回复
-
今天放榜吗？
已经有16人回复
-
93BebMhtakh前后11位开头都是大写
已经有8人回复
-
范进中举一文的中心思想
已经有4人回复
-
只有每年这种时候来逛逛小木虫
已经有26人回复
-
filecode，4个jtjc了
已经有16人回复
★
小木虫: 金币+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
feixiaolin
荣誉版主 (文坛精英)
-
专家经验: +518 - 应助: 942 (博后)
- 贵宾: 1.275
- 金币: 3881
- 散金: 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
40