| 查看: 1407 | 回复: 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"]] |
回复此楼» 猜你喜欢
filecode，4个jtjc了
已经有17人回复
-
号外号外
已经有5人回复
-
能否退出参与的面上项目解除限项
已经有22人回复
-
人气不行了
已经有9人回复
-
没有任何消息-是不是就凉了
已经有6人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有5人回复
-
2026国自然函评费到账
已经有19人回复
-
建议基金发布提前给出明确的时间点
已经有16人回复
-
今日不放榜？网传国自然预计 8 月 27 日可查结果
已经有21人回复
-
估计是周四
已经有4人回复
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
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
20