讀心術是什麼？

讀心術是什麼？

最近网上流传一个叫做读心术的flash，号称可以读出你心里想的内容，游戏规则如下：

任意选择一两位数（或者说，?0~99之间任意选择一个数），把这个数的十位与个位相加，再把任意选择的数减去这个和。例如：你选的数是23，然后2+3=5，然后23-5=18。
在图表中找出与最后得出的数所相应的图形，并把这个图形牢记心中，然后点击水晶球。你会发现，水晶球所显示出来的图形就是你刚刚心里记下的那个图形。

这套游戏其实在很早之前就有html版本，现在只是换成了flash版，游戏的全部秘密在于两点，其一是特殊的计算方式；其二便是这张符号查询表。

第一点可以用简单的代数来解释，任意一个两位数可以简写成10*A+B，其中（A和B都是个位数），例如例子中的23便是10*2+3。然后把这个数再减去个位之和，用代数表示就是10*A+B-（A+B），合并一下同类项，结果就是9*A，也就是说，不管你想出什么任意两位数，按照他的方法计算之后，结果就是9*A，也就是说结果只能是9的倍数，9、18、27、36……81。因此FLASH里只要保证这几个数字所表示的符号一致即可。但也有人说，如果这样的话，可每次查询的结果都不同啊。秘密便在于这张查询表中，实际上这张表每次都是不一样的，不知不觉中偷偷有了变化。也有人号称这是吉普赛读心术，但由于这张表要一直变化，除非通过电脑，用传统方式这个游戏是不能玩的。这也就是电脑专用的读心术了。

其实就是运用心理学的知识和规律，研究人的心理活动，而后得出人在某时刻的思维状态和内心想法

一、社交游戏“读心术”　

　“读心术”一款有意思的社交游戏。依托Manyou开放平台，社交游戏“读心术”的应用得到了快速的普及。目前，“读心术”已经成为互联网上最流行的社交游戏之一。

　　“读心术”是来源于下面的数学过程，并不是仙术。在“读心术”设计中，设这个数是10a+b，则有10a+b-a-b=9a，在看所有9的倍数都是一个图，而水晶球里显现出的就是这个图。 　　1、如果你心中想了一个数，是一个个位数为A,十位数为B的（A＋10B）。如25＝5＋2×10。 　　2：按照占心数的要求，你要把A和B相加: 　　（A+B） 如2＋5＝7 　　3、然后用原来的数减去加的结果： 　　A＋10B－（A＋B）＝9B。如25－7＝18＝2×9。 　　4、从上面就可以看到，你无论选个什么数，按照占心术的算法，最后都会是9的倍数的数！ 　　5、你看看网页上右边的那些符号，是不是凡是9的倍数的如9，18，27等等数后面的符号都是一样的？对了 ，那些符号都是一样的。 　　而水晶球里面的图像，在电脑程序设计的时候，就保证它和外面9的倍数的数后面的符号是一样的。 　　6、所以，你一点水球，就出来个和外面9的倍数数字后面的图，你就认为是自己心中想的。 　　7、要注意个问题，就是你点了水晶球一次后，电脑程序会使球里的图变化，同时外面所有九的倍数的数字后面的图也跟着变成和水晶球里面的图一样的图。 　　8、你再点，还是…… 　　注意: 图片是不断变化着的 每次都不同 比如您算出一次 等于54 那么请看 所有的9的倍数都是54相同的图片. 比如 9 18 27 36 45 54 63 72 81 　　============================= 　　下面是VB的程序代码 　　============================= 　　Dim a(13) As Integer 　　Dim inti As Integer 　　Private Sub Form_Load() 　　lbl1.Top = 4800 　　lbl1.Left = 7800 　　a(0) = 7 　　a(1) = 8 　　a(2) = 11 　　a(3) = 12 　　a(4) = 14 　　a(5) = 15 　　a(6) = 17 　　a(7) = 18 　　a(8) = 19 　　a(9) = 20 　　a(10) = 26 　　a(11) = 27 　　a(12) = 36 　　a(13) = 37 　　For i = 1 To 99 　　Load lbl(i) 　　lbl(i).Top = lbl(0).Top + lbl(0).Height + 600 * (i \ 12) 　　lbl(i).Left = lbl(0).Left + lbl(0).Width + 600 * (i Mod 12) 　　lbl(i).Visible = True 　　Next 　　lbl(0).Top = lbl(0).Top + lbl(0).Height 　　lbl(0).Left = lbl(0).Left + lbl(0).Width 　　nsu 　　End Sub 　　Public Sub nsu() 　　Randomize 　　inti = Int((1500232 * Rnd) Mod 14) 　　For i = 0 To 99 　　intj = Int((1500232 * Rnd) Mod 14) 　　Do While (intj = inti) 　　intj = Int((1500232 * Rnd) Mod 14) 　　Loop 　　lbl(i).Caption = (99 - i) & Chr(a(intj)) 　　If (99 - i) Mod 9 = 0 And (99 - i) < 82 Then lbl(i).Caption = (99 - i) & Chr(a(inti)) 　　Next 　　End Sub 　　Private Sub Label2_Click() 　　Label2.Visible = False 　　lbl1.Caption = "尐" 　　For i = 0 To 99 　　lbl(i).Visible = True 　　Next 　　nsu 　　End Sub 　　Private Sub lbl1_Click() 　　If lbl1.Caption = "尐" Then 　　lbl1.Caption = Chr(a(inti)) 　　Label2.Visible = True 　　Label2.Caption = Chr(a(inti)) 　　For i = 0 To 99 　　lbl(i).Visible = False 　　Next 　　Else 　　Label2.Visible = False 　　lbl1.Caption = "尐" 　　For i = 0 To 99 　　lbl(i).Visible = True 　　Next 　　nsu 　　End If 　　End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息