意识对物质的作用

意识是什么？也许是大脑的活动吧，要这样说，意识也是物质。

前一段时间听一个师兄说了一个故事：比如某个装置正在产生随机数，0和1，在这个过程中如果你一直在想要出现某个数，例如0，那么0就会出现多一些，还说有人做过实验。

今天小小实验了一下。使用Mathetica程序产生随机数。注意这里应该是伪随机数，不是真正的随机数，但是产生随机数的种子好像一直不同，就是不同的时候执行程序都会得到不同的一系列数，我这里就假设种子的产生会对意识有反应吧。
x = Table[ Clear[a]; a = Random[]; If[a ≤ 1/2, a = 0, a = 1], {i, 1, 10000000} ];
Count[x,0]
Count[x,1]

发现程序结果和我所想的有时一样，有时不一样，比例差不多。我试了10次，对5次，错5次。
看来我的大脑对电脑影响不大啊。也许是运行太快了，还来不及产生影响？

如果能加上一个时间延迟的语句就好了，这样运行起来可以时间长一点，可惜不知道Math有没有这个函数。如果有知道的，请告诉我一下。

还有就是有谁知道默认的Random函数的种子是怎么产生的？