M8 娱乐贴

chyanog

28# wayne 惭愧，竟一直没有注意未知数的个数和方程的个数！

chyanog

测试一下编译为C代码功能，以求水仙花数为例,速度提升还有很明显的：

2. narcissus[n_] := Module[{t = 10^(n - 1)},
3. Select[Range[t, 10 t], Total[IntegerDigits[#]^n] == # &]
4. ];
5. Table[Timing@narcissus[i], {i, 3, 7}] // Column // Timing

复制代码

{63.617, {0.015,{153,370,371,407}} {0.047,{1634,8208,9474}} {0.593,{54748,92727,93084}} {5.569,{548834}} {57.393,{1741725,4210818,9800817,9926315}} }

2. cNarcissus = Compile[{{n, _Integer}},
3. Module[{t = 10^(n - 1)},
4. Select[Range[t, 10 t], Total[IntegerDigits[#]^n] == # &]
5. ], CompilationTarget -> "C"
6. ];
7. Table[Timing@cNarcissus[i], {i, 3, 7}] // Column // Timing

复制代码

{7.052, {0.,{153,370,371,407}} {0.,{1634,8208,9474}} {0.063,{54748,92727,93084}} {0.546,{548834}} {6.443,{1741725,4210818,9800817,9926315}} }

风云剑

http://blog.wolfram.com/2010/11/16/programming-with-natural-language-is-actually-going-to-work/ 在这个博客里，wolfram说，他已经开始着手 让mathematica进行自然语言编程了。 就是输入的是 自然语言(文字 ... wayne 发表于 2010-12-5 15:10

一直梦想这一天的到来。 比如先告诉电脑什么是黎曼猜想，然后对电脑说，你给证明一下吧。

wayne

33# 风云剑 不远啦，我相信顶多五年~~

wayne

我的水贴数快到2222 了，期待ing :

1. text = First[
2. First[ImportString[
3. ExportString[
4. Style["2222", Italic, FontSize -> 24, FontFamily -> "Courier"],
5. "PDF"], "PDF", "TextMode" -> "Outlines"]]];
6. Graphics[{EdgeForm[Opacity[0.5]],
7. Table[{ColorData["TemperatureMap"][t],
8. Translate[text, 4 {-t, t}]}, {t, 0, 1, 1/10}]}, ImageSize -> Medium]

复制代码

wayne

36# mathematica 那是因为的你的代码里多了两个双引号

mathematica

36# mathematica 那是因为的你的代码里多了两个双引号 wayne 发表于 2011-1-23 00:17

我就是直接复制你的代码的(不是点那个复制代码的按钮的),我 还特地截图了一下,然后你可以看一下,你自己试试看是不是 我说的那回事.对了 复制完后,再去掉前面的行号和"." 也许是你的代码上传的时候,然后论坛添加了双引号, 如果是这个问题的话,你就需要联系郭大哥了

wayne

可能是版本问题吧，我用的是M8，你用的是M7

wayne

可以通过网络激活方式 激活Mathematica 8 ，终于又可以使用 w|a 了 http://www.cnblogs.com/dabaopku/ ... 971823.html?login=1

荼靡破晓

完全看不懂 我