数学研发论坛

 找回密码
 欢迎注册
楼主: wayne

[灌水] M8 娱乐贴

[复制链接]
发表于 2010-12-5 20:46:57 | 显示全部楼层
28# wayne
惭愧,竟一直没有注意未知数的个数和方程的个数!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2010-12-5 21:07:16 | 显示全部楼层
测试一下编译为C代码功能,以求水仙花数为例,速度提升还有很明显的:

  1. narcissus[n_] := Module[{t = 10^(n - 1)},
  2.    Select[Range[t, 10 t], Total[IntegerDigits[#]^n] == # &]
  3.    ];
  4. 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. cNarcissus = Compile[{{n, _Integer}},
  2.    Module[{t = 10^(n - 1)},
  3.     Select[Range[t, 10 t], Total[IntegerDigits[#]^n] == # &]
  4.     ], CompilationTarget -> "C"
  5.    ];
  6. 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}}
}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2010-12-6 09:24:38 | 显示全部楼层
http://blog.wolfram.com/2010/11/16/programming-with-natural-language-is-actually-going-to-work/

在这个博客里,wolfram说,他已经开始着手 让mathematica进行自然语言编程了。
就是输入的是 自然语言(文字 ...
wayne 发表于 2010-12-5 15:10

一直梦想这一天的到来。
比如先告诉电脑什么是黎曼猜想,然后对电脑说,你给证明一下吧。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2010-12-7 17:11:48 | 显示全部楼层
33# 风云剑
不远啦,我相信顶多五年~~
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2010-12-24 00:56:12 | 显示全部楼层
我的水贴数快到2222 了,期待ing :
hello00.png
  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]
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-1-23 00:17:53 | 显示全部楼层
36# mathematica
那是因为的你的代码里多了两个双引号
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2011-2-14 13:45:28 | 显示全部楼层
本帖最后由 mathematica 于 2011-2-14 13:46 编辑
36# mathematica
那是因为的你的代码里多了两个双引号
wayne 发表于 2011-1-23 00:17

我就是直接复制你的代码的(不是点那个复制代码的按钮的),我
还特地截图了一下,然后你可以看一下,你自己试试看是不是
我说的那回事.对了 复制完后,再去掉前面的行号和"."

也许是你的代码上传的时候,然后论坛添加了双引号,
如果是这个问题的话,你就需要联系郭大哥了
数学研发论坛04.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-2-14 17:41:25 | 显示全部楼层
可能是版本问题吧,我用的是M8,你用的是M7
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-3-6 18:58:56 | 显示全部楼层
可以通过网络激活方式 激活Mathematica 8 ,终于又可以使用 w|a 了
http://www.cnblogs.com/dabaopku/ ... 971823.html?login=1
Screenshot-1.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2012-4-17 09:28:14 | 显示全部楼层
完全看不懂 我
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2019-10-21 21:09 , Processed in 0.061703 second(s), 17 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表