| 查看: 1343 | 回复: 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"]] |
回复此楼» 猜你喜欢
0805 316求调剂
已经有6人回复
-
085601求调剂总分293英一数二
已经有3人回复
-
考研调剂
已经有3人回复
-
08工学调剂
已经有17人回复
-
340求调剂
已经有4人回复
-
311求调剂
已经有3人回复
-
食品专硕 一志愿双一流 328
已经有4人回复
-
材料调剂
已经有6人回复
-
300分，材料，求调剂，英一数二
已经有5人回复
-
求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分
已经有5人回复
feixiaolin
荣誉版主 (文坛精英)
-
专家经验: +518 - 应助: 942 (博后)
- 贵宾: 1.275
- 金币: 3880
- 散金: 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
