M8 娱乐贴

chyanog

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

chyanog

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

1. 
   
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}}
}

1. 
   
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

荼靡破晓

完全看不懂 我