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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 运行这段代码到出图片,你的电脑用了多久?
341/4返回列表1234下一页
查看: 2409  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分 +3 @taotao 2026-03-19 3/150 2026-03-19 14:07 by peike
[考研] 招收调剂硕士 +3 lidianxing 2026-03-19 9/450 2026-03-19 13:59 by lidianxing
[考研] 一志愿西安交通大学材料工程专业 282分求调剂 +5 枫桥ZL 2026-03-18 6/300 2026-03-19 13:24 by 枫桥ZL
[考研] 287求调剂 +3 晨昏线与星海 2026-03-19 4/200 2026-03-19 12:32 by peike
[考研] 0703化学调剂，求各位老师收留 +10 秋有木北 2026-03-14 10/500 2026-03-19 05:52 by anny19840123
[考研] 08工科 320总分 求调剂 +5 梨花珞晚风 2026-03-17 5/250 2026-03-18 14:49 by haxia
[考研] 298-一志愿中国农业大学-求调剂 +7 手机用户 2026-03-17 7/350 2026-03-18 14:34 by vgtyfty
[考研] 材料专硕306英一数二 +10 z1z2z3879 2026-03-16 13/650 2026-03-18 14:20 by 007_lilei
[考研] 288求调剂，一志愿华南理工大学071005 +4 ioodiiij 2026-03-17 4/200 2026-03-18 12:36 by Linda Hu
[考研] 308求调剂 +4 是Lupa啊 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[考研] 材料与化工专硕调剂 +5 heming3743 2026-03-16 5/250 2026-03-17 14:03 by 勇敢太监王公公
[考研] 东南大学364求调剂 +5 JasonYuiui 2026-03-15 5/250 2026-03-16 21:28 by 木瓜膏
[考研] 一志愿华中师范071000，325求调剂 +6 RuitingC 2026-03-12 6/300 2026-03-16 14:50 by 可淡不可忘
[考研] 080500，材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
[考研] 26调剂/材料科学与工程/总分295/求收留 +9 2026调剂侠 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[硕博家园] 085600 260分求调剂 +3 天空还下雨么 2026-03-13 5/250 2026-03-13 18:46 by 天空还下雨么
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
[考研] 308求调剂 +3 是Lupa啊 2026-03-12 3/150 2026-03-13 14:30 by 求调剂zz
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生，2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
[考研] 333求调剂 +3 152697 2026-03-12 4/200 2026-03-13 07:08 by Iveryant
信息提示
关闭
请填处理意见
关闭