应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 运行这段代码到出图片,你的电脑用了多久?
341/4返回列表1234下一页
查看: 2456  |  回复: 33
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

cooooldog

铁杆木虫 (著名写手)

ส็็็

[交流] 运行这段代码到出图片,你的电脑用了多久? 已有14人参与

测试一下Mathematica的效率:
CODE:
ClearAll["Global`*"];
t0 = AbsoluteTime[];
list = {{0, 0}};
last = {{0}, {0}};
GetNextPoint[pt_] := Module[{r,
   t1 = {{0.83, 0.03}, {-0.03, 0.86}}, p1 = {0, 1.5},
   t2 = {{0.2, -0.25}, {0.21, 0.23}}, p2 = {0, 1.5},
   t3 = {{-0.15, 0.27}, {0.25, 0.26}}, p3 = {0, 0.45},
   t4 = {{0, 0}, {0, 0.17}}, p4 = {0, 0}},
  r = Random[];
  If[r <= 0.85, t1.pt + p1,
   If[r <= 0.91, t2.pt + p2, If[r <= 0.99, t3.pt + p3, t4.pt + p4]]]]
For[i = 0, i < 100000, i++, last = GetNextPoint[last];
list = Append[list, First[Transpose[last]]];]
h = ListPlot[list, PlotStyle -> {PointSize[0.002], Red},
   Axes -> False];
range = First /@ Differences /@ (PlotRange /. Options[h]);
Show[h, AspectRatio -> Last@range/First@range]
Print[AbsoluteTime[] - t0]
回复此楼

» 收录本帖的淘帖专辑推荐

Funny 杂趣

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
ส็็็็็็็็็็็็็็็็็็็็
1楼 2014-09-15 21:03:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖置顶 ( 共有1个 )

chyanog

金虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
jjdg: 程序强帖+1, 强帖 2014-10-18 00:23:51
说实话，代码写得有点糟，不符合Mathematica style，而且速度太慢。
同样的算法一样的效果其实只需不到半秒甚至不到0.1s
CODE:
Clear["`*"];
t0 = AbsoluteTime[];
ifs[prob_, A_, init_, maxIter_] :=
  FoldList[#2.{#[[1]], #[[2]], 1} &, init,
   RandomChoice[prob -> A, maxIter]];

init = {0., 0.};
prob = N@{85, 6, 8, 1};
A = N@{{{0.83, 0.03, 0}, {-0.03, 0.86, 1.5}}, {{0.2, -0.25, 0}, {0.21,
       0.23, 1.5}}, {{-0.15, 0.27, 0}, {0.25, 0.26, 0.45}}, {{0, 0,  0}, {0, 0.17, 0}}};
iter = 10^5;
pts = ifs[prob, A, init, iter];
Graphics[{PointSize[0.002], Green, Point[pts]}]
AbsoluteTime[] - t0
赞一下(4人) 回复此楼
28楼2014-10-06 23:21:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

mshwangg

至尊木虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
运行这段代码到出图片,你的电脑用了多久?
牛人啊，树叶挺漂亮
还可以画别的吗？分享下
赞一下(2人) 回复此楼
2楼2014-09-15 23:08:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chyanog

金虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
29楼: Originally posted by Mr__Right at 2014-10-11 15:30:09
你mathematica怎么学的? 这么厉害...

自学的啊，还不算厉害
赞一下(2人) 回复此楼
30楼2014-10-15 14:16:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chyanog

金虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
32楼: Originally posted by Mr__Right at 2014-10-16 20:20:46
当然...

晕，我多打了个算字！
要推荐的书我也不知道说哪个比较好，主要是我还没有认真系统地看过某一本。大概说下吧，一般国外的书比国内的好些（其实我英语很糟，凑合着看的），国内的几乎都是作为一个高级计算器来讲的，对于编程方面讲的很浅。我觉得在 mathematica.stackexchange.com可以学到不少东西，有什么不懂的地方都可以去提问，上面牛人很多
先推荐两本
MathProgrammingIntro(Mathematica programming an advanced introduction)
mathematica cookbook
赞一下(1人) 回复此楼
33楼2014-10-16 21:04:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

walk1997

金虫 (著名写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
21.0682050
mshwangg 的机器是AMD的cpu？
赞一下 回复此楼
3楼2014-09-17 08:43:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzs510

铜虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
ClearAll["Global`*"];
t0 = AbsoluteTime[];
list = {{0, 0}};
last = {{0}, {0}};
GetNextPoint[pt_] := Module[{r,
   t1 = {{0.83, 0.03}, {-0.03, 0.86}}, p1 = {0, 1.5},
   t2 = {{0.2, -0.25}, {0.21, 0.23}}, p2 = {0, 1.5},
   t3 = {{-0.15, 0.27}, {0.25, 0.26}}, p3 = {0, 0.45},
   t4 = {{0, 0}, {0, 0.17}}, p4 = {0, 0}},
  r = Random[];
  If[r <= 0.85, t1.pt + p1,
   If[r <= 0.91, t2.pt + p2, If[r <= 0.99, t3.pt + p3, t4.pt + p4]]]]
For[i = 0, i < 100000, i++, last = GetNextPoint[last];
list = Append[list, First[Transpose[last]]];]
h = ListPlot[list, PlotStyle -> {PointSize[0.002], Red},
   Axes -> False];
range = First /@ Differences /@ (PlotRange /. Options[h]);
Show[h, AspectRatio -> Last@range/First@range]
Print[AbsoluteTime[] - t0]
赞一下 回复此楼
4楼2014-09-17 10:31:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

易炀

金虫 (职业作家)
matlab行不

[ 发自小木虫客户端 ]
回复此楼
援雅琴以变调兮，奏愁思之不可长
5楼2014-09-17 10:56:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็
引用回帖:
3楼: Originally posted by walk1997 at 2014-09-17 08:43:56
21.0682050
mshwangg 的机器是AMD的cpu？

你的应该是台式机, i7-4770K?
赞一下 回复此楼
ส็็็็็็็็็็็็็็็็็็็็
6楼2014-09-17 10:58:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็
引用回帖:
5楼: Originally posted by 易炀 at 2014-09-17 10:56:59
matlab行不

改写代码也行;
回复此楼
ส็็็็็็็็็็็็็็็็็็็็
7楼2014-09-17 10:58:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็
引用回帖:
3楼: Originally posted by walk1997 at 2014-09-17 08:43:56
21.0682050
mshwangg 的机器是AMD的cpu？

你是台式机? Intel i7-4770K?
而且是非windows 操作系统;
苹果或Linux
赞一下 回复此楼
ส็็็็็็็็็็็็็็็็็็็็
8楼2014-09-17 11:00:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

易炀

金虫 (职业作家)
引用回帖:
7楼: Originally posted by cooooldog at 2014-09-17 10:58:57
改写代码也行;

最头疼代码了

[ 发自小木虫客户端 ]
回复此楼
援雅琴以变调兮，奏愁思之不可长
9楼2014-09-17 11:07:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

slimz

木虫 (初入文坛)
馬克

[ 发自小木虫客户端 ]
回复此楼
10楼2014-09-17 11:40:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 cooooldog 的主题更新
341/4返回列表1234下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 268求调剂 +3 你好tg 2026-04-05 5/250 2026-04-11 16:45 by Delta2012
[考研] 283求调剂 086004考英二数二 +17 那个噜子 2026-04-10 18/900 2026-04-11 16:27 by 明月此时有
[考研] 085410 273分调剂 +4 X1999 2026-04-09 4/200 2026-04-11 13:05 by pies112
[考研] 一志愿211，0703化学305分求调剂 +21 严西西戏 2026-04-06 27/1350 2026-04-11 10:56 by 1028907439
[考研] 296求调剂 +7 汪！？！ 2026-04-09 7/350 2026-04-11 10:41 by zhq0425
[考研] 化学工程调剂289 +43 yang婷 2026-04-07 49/2450 2026-04-11 10:37 by 紫曦紫棋
[考研] 342电子信息专硕求调剂 +9 你让我怎么荔枝 2026-04-10 10/500 2026-04-11 08:33 by zhq0425
[考研] 070300化学学硕311分求调剂 +17 梁富贵险中求 2026-04-04 19/950 2026-04-11 00:29 by wangjihu
[考研] 326求调剂 +5 Shansyn 2026-04-10 5/250 2026-04-10 22:23 by 猪会飞
[考研] 362求调剂 +10 我要考大 2026-04-06 14/700 2026-04-10 17:00 by luoyongfeng
[考研] 材料调剂 +11 一样YWY 2026-04-05 11/550 2026-04-10 09:32 by 钟洲2011
[考研] 一志愿中国科学院上海有机所，有机化学356分找调剂 +11 Nadiums 2026-04-09 11/550 2026-04-09 18:04 by lijunpoly
[考研] 求调剂材料科学与工程一志愿985初试365分 +5 材化李可 2026-04-08 5/250 2026-04-09 17:00 by Lilly_Li
[考研] 086000生物与医药调剂 +7 awwwwwooooo 2026-04-09 7/350 2026-04-09 13:31 by 北极159263
[考研] 0860004 求调剂 309分 +6 Yin DY 2026-04-09 6/300 2026-04-09 10:19 by 啊李999
[考研] 085404，334分，求调剂 +5 sunjie8888 2026-04-08 8/400 2026-04-09 07:26 by sunjie8888
[考研] 331求调剂 +5 张元一 2026-04-07 6/300 2026-04-07 22:13 by hemengdong
[考研] 307求调剂 +3 Youth@@ 2026-04-07 3/150 2026-04-07 09:25 by 小黑不怕难
[考研] 求调剂到0856材料工程 +3 程9915 2026-04-05 3/150 2026-04-05 18:15 by 蓝云思雨
[考研] 考研调剂 +11 小sun要好运 2026-04-04 11/550 2026-04-05 08:02 by qlm5820
信息提示
关闭
请填处理意见
关闭