24小时热门版块排行榜    

查看: 1407  |  回复: 6

lfc3583

铁杆木虫 (著名写手)

[交流] 定积分的动画演示,运行没有结果,请各位大虾看看错在哪里 已有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"]]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

feixiaolin

荣誉版主 (文坛精英)

优秀版主


小木虫: 金币+0.5, 给个红包,谢谢回帖
检查一下:
图像hold不换显示窗;一幁一幁之间加pause(a)暂停a毫秒,再执行。
2楼2014-11-21 16:21:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chyanog

金虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
原因很简单,这段代码是针对Mathematica5的,新版的按照这种方式已经不能生成动画了,需要进行改写
3楼2014-11-22 14:06:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lfc3583

铁杆木虫 (著名写手)

那如何改写呢?在8的状态下。

[ 发自手机版 http://muchong.com/3g ]
4楼2014-11-23 05:55:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lfc3583

铁杆木虫 (著名写手)

针对Mathematica 8的,如何生成动画和如何进行改写呢?谢谢大虾的帮助哦
5楼2014-11-23 12:30:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lfc3583

铁杆木虫 (著名写手)

针对Mathematica 8的,如何生成动画和如何进行改写呢?谢谢大虾的帮助哦
6楼2014-11-24 19:04:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chyanog

金虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
引用回帖:
5楼: Originally posted by lfc3583 at 2014-11-23 12:30:51
针对Mathematica 8的,如何生成动画和如何进行改写呢?谢谢大虾的帮助哦

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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lfc3583 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 号外号外 +5 GZUZM 2026-08-24 5/250 2026-08-24 18:34 by 40862026
[基金申请] 能否退出参与的面上项目解除限项 +20 koalala 2026-08-24 22/1100 2026-08-24 18:01 by Nano-Firefly
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +5 scalable 2026-08-24 5/250 2026-08-24 17:03 by spiderzhuzhi
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +17 医学老男孩 2026-08-20 21/1050 2026-08-24 14:21 by refreshing11
[基金申请] 我面上完蛋了 +8 且听虎啸 2026-08-20 9/450 2026-08-24 13:52 by zzuzxg
[基金申请] 范进中举一文的中心思想 +6 炎黄贵胄 2026-08-22 7/350 2026-08-24 11:58 by 6543yes
[基金申请] 朋友圈看到的 +7 wangzilk 2026-08-18 9/450 2026-08-24 10:50 by cmrandy
[基金申请] 让我中一个面上吧! +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 17/850 2026-08-24 10:20 by echo8914667
[基金申请] 明天应该可查了!? +4 chengyan1220 2026-08-23 4/200 2026-08-24 08:47 by gloomy6159
[基金申请] 什么时候开奖? +10 CrisMessi 2026-08-18 11/550 2026-08-24 06:50 by 开心的小狮子
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +4 process2012 2026-08-23 5/250 2026-08-23 19:58 by jurkat.1640
[基金申请] 今天放榜吗? +15 布布和一二 2026-08-19 16/800 2026-08-23 09:55 by 张春生
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
信息提示
请填处理意见