论坛 › 开心茶馆 › 恒大亚冠决赛海报

wayne 发表于 2013-11-4 21:27:38

恒大亚冠决赛海报

谁能秒杀一下 这里面的公式? :lol

谁又能用Mathematica 的一行代码(one-liner)搞定?

Lwins_G 发表于 2013-11-4 22:51:56

Ramanujan恒等式和Euler恒等式。
$3 = \sqrt{1+2*4} = \sqrt{1+2\sqrt{1+3*5}} = \sqrt{1+2\sqrt{1+3\sqrt{1+4*6}}} = \sqrt{1+2\sqrt{1+3\sqrt{1+4\sqrt{1+5*7}}}} = \cdots $
$\e ^ {i \pi} + 1 = 0$

wayne 发表于 2013-11-4 23:11:28

好吧,我承认 我花了十几分钟,企图用 数列来做的.无果.
后来用Mathematica 一行代码 算出来的.

chyanog 发表于 2013-11-4 23:42:21

本帖最后由 chyanog 于 2013-11-4 23:54 编辑


或者
Block[{i = 5}, Nest &, 1, 5]]

mathematica 发表于 2013-11-5 09:27:59

我用最土的办法a=\
(1+
2Sqrt[1+
3Sqrt[1+
4Sqrt[1+
5Sqrt[1+
6Sqrt[1+
7Sqrt[1+
8Sqrt[1+
9Sqrt[1+
10Sqrt[1+
11Sqrt[1+
12Sqrt[1+
13Sqrt[1+
14Sqrt[1
91]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
);
N

这是我用的土办法,土法炼钢,不论如何得到结果了!
我懒得去想什么好的办法,先弄前几项,然后到vim里面复制代码,再修改代码,得到前91项,
这样的精度足够高,证明
最后结果是3

mathematica 发表于 2013-11-5 09:32:24

mathematica 发表于 2013-11-5 09:27
我用最土的办法
这是我用的土办法,土法炼钢,不论如何得到结果了!
我懒得去想什么好的办法,先弄前几项,然 ...

不管里是否喜欢,这本质上也能弄成一行代码
a=\(1+2Sqrt]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]);

mathematica 发表于 2013-11-5 09:34:30

最笨的办法就是最好的办法!

wayne 发表于 2013-11-5 10:12:04

chyanog 发表于 2013-11-4 23:42
或者
Block[{i = 5}, Nest &, 1, 5]]
Fold比较正统，Nest有点耍小聪明。
:),我用的也是Fold，大同小异。
n=9;Fold&,1,Reverse@Range] - 1.

wayne 发表于 2013-11-5 11:04:14

chyanog 发表于 2013-11-4 23:42
或者
Block[{i = 5}, Nest &, 1, 5]]

1##很有亮点
去掉Defer后，代码就是：
n=9;Fold&,1,Range]

mathematica 发表于 2013-11-5 12:33:48

wayne 发表于 2013-11-5 11:04
1##很有亮点
去掉Defer后，代码就是：

n = 10; Fold &, 1, Range]

这个是我自己瞎写的代码,根据wayne代码来的,不过似乎结果也是正确的,
谁能解释一下呢?

n = 10; Fold &, 1, Range]
n = 10; Fold &, 1, Range]
这两个代码,为什么第一个是正确的,第二个却是错误的???????

查看完整版本: 恒大亚冠决赛海报