【跟风】易经的默认打开姿势

kuerlulu

看到@鑫晴 发的帖子, 然后内牛满面居然有想要研究算卦的小伙伴...
在下是高一的时候研读了一遍朱熹的<周易释义>【←我们学校图书馆一书架这种书, 显然充数的
然后深感中华文化博大精深啊..

声明: 请不要把"算卦"和"迷信"联系在一起, "算卦"是中华文化的结晶, "迷信"是忽悠人的手段, 有不法分子用算卦忽悠百姓, 简直玷污了这一劳动成果.

关于<易>经的资料请百度, 这里不再赘述.

---

正片
<易>中记载了算卦的方法--<明蓍策><考变占>(记载在<系词>中)靠边站(雾)两个是一起用的, 原文我就不打了你们也看不懂, 就把方法解释一下:
=begin
  首先代表全部的数: 50
  从中拿出一个, 代表你要占卜的对象 (剩49)
  ①剩下的信手而分, 并从右手(代表地)中取出一个, 代表求卦者, 如果是自己在算卦那就代表自己 (剩48)
  ②如果左手的数是4的倍数, 就从48个中扔掉8个 (剩40), 否则扔掉4个 (剩44)
  接下来把代表求卦者的"1"放回去, 重复步骤①(不要问我为什么拿出来又放进去), 进行步骤③
  ③如果左手的数是4的倍数或(4的倍数+1), 就从总数中扔掉8个, 否则扔掉4个
  把代表求卦者的"1"放回去, 重复步骤①, 进行步骤③
  把代表求卦者的"1"放回去, 重复步骤①, 进行步骤③ (没打错, 确实要3遍)
  这时你手中还剩的数只可能是以下4种: 24, 28, 32, 36, 如果不是证明你哪一步做错了
  对应关系:             (书写规范->变卦(这一点我不想多讲只希望读到此贴的人百度一下))
    24 -> 6 -> 老阴 ->  - -  ->  —
    28 -> 7 -> 少阳 ->  —  ->  —
    32 -> 8 -> 少阴 ->  - -  ->  - -
    36 -> 9 -> 老阳 ->  —  ->  - -
  然后我们得到了一根乂, 重复以上步骤共得到6根乂
  按从下而上的顺序写好组成爻
  并写出原卦对应的变卦
  用<考变占>得到被算到的卦中的某条的坐标
  根据坐标找到原卦和变卦中的某条(共两条), 然后研究这条内容即可.
=end

总之就是费尽千辛万苦得到了两句看不懂的文言文.

为了中华文化着想在下不会在脚本中使用rand函数做个随机抽屉忽悠大家, 仅仅当做快速查询<易>经的工具, 脚本正在编写
[fold=脚本]

1. ary = File.read("上经.txt").split("\n\n\n") + File.read("下经.txt").split("\n\n\n")
   
2. index = {
   
3.   0 => 2   ,
   
4.   1 => 24  ,
   
5.   2 => 7   ,
   
6.   3 => 19  ,
   
7.   4 => 15  ,
   
8.   5 => 36  ,
   
9.   6 => 46  ,
   
10.   7 => 11  ,
    
11.   10 => 16 ,
    
12.   11 => 51 ,
    
13.   12 => 40 ,
    
14.   13 => 54 ,
    
15.   14 => 62 ,
    
16.   15 => 55 ,
    
17.   16 => 32 ,
    
18.   17 => 34 ,
    
19.   20 => 8  ,
    
20.   21 => 3  ,
    
21.   22 => 29 ,
    
22.   23 => 60 ,
    
23.   24 => 39 ,
    
24.   25 => 63 ,
    
25.   26 => 48 ,
    
26.   27 => 5  ,
    
27.   30 => 45 ,
    
28.   31 => 17 ,
    
29.   32 => 47 ,
    
30.   33 => 58 ,
    
31.   34 => 31 ,
    
32.   35 => 49 ,
    
33.   36 => 28 ,
    
34.   37 => 43 ,
    
35.   40 => 23 ,
    
36.   41 => 27 ,
    
37.   42 => 4  ,
    
38.   43 => 41 ,
    
39.   44 => 52 ,
    
40.   45 => 22 ,
    
41.   46 => 18 ,
    
42.   47 => 26 ,
    
43.   50 => 35 ,
    
44.   51 => 21 ,
    
45.   52 => 64 ,
    
46.   53 => 38 ,
    
47.   54 => 56 ,
    
48.   55 => 30 ,
    
49.   56 => 50 ,
    
50.   57 => 14 ,
    
51.   60 => 20 ,
    
52.   61 => 42 ,
    
53.   62 => 59 ,
    
54.   63 => 61 ,
    
55.   64 => 53 ,
    
56.   65 => 37 ,
    
57.   66 => 57 ,
    
58.   67 => 9  ,
    
59.   70 => 12 ,
    
60.   71 => 25 ,
    
61.   72 => 6  ,
    
62.   73 => 10 ,
    
63.   74 => 33 ,
    
64.   75 => 13 ,
    
65.   76 => 44 ,
    
66.   77 => 1
    
67. }
    
68. if ary.size == 64
    
69.   puts "易经读取完毕\n接下来的操作过程中请不要随便敲一些不符合说明的字符不然会报错"
    
70. else
    
71.   raise "读取失败"
    
72. end
    
73. 
    
74. puts "请任取6个1..48的随机数, 用","隔开"
    
75. v1 = gets.chop.split(",").map!{|s| s.to_i }
    
76. puts "再任取6个1..44的随机数, 用","隔开"
    
77. v2 = gets.chop.split(",").map!{|s| s.to_i }
    
78. puts "再再任取6个1..40的随机数, 用","隔开"
    
79. v3 = gets.chop.split(",").map!{|s| s.to_i }
    
80. puts "结果如下:"
    
81. y,z = [],[]
    
82. 6.times do |n|
    
83.   y[n] = (48 - (v1[n] % 4 == 0 ? 8 : 4) - ((v2[n] % 4 == 0 or v2[n] % 4 == 1) ? 8 : 4) - ((v3[n] % 4 == 0 or v3[n] % 4 == 1) ? 8 : 4))/4
    
84. end
    
85. y.each do |n|
    
86.   z.push case n
    
87.          when 6 then 7
    
88.          when 9 then 8
    
89.          else
    
90.            n
    
91.          end
    
92. end
    
93. puts "原卦:"
    
94. p y
    
95. puts "变卦:"
    
96. p z
    
97. puts "图解:"
    
98. g = ""
    
99. a,b = "",""
    
100. 6.times do |n|
     
101.   if y[5-n] % 2 == 0
     
102.     g += "- -"
     
103.     a += "0"
     
104.   else
     
105.     g += "—"
     
106.     a += "1"
     
107.   end
     
108.   g += "  "
     
109.   if z[5-n] % 2 == 0
     
110.     g += "- -"
     
111.     b += "0"
     
112.   else
     
113.     g += "—"
     
114.     b += "1"
     
115.   end
     
116.   g += "\n"
     
117. end
     
118. s1 = a[0..2].to_i(2)*10 + a[3..5].to_i(2)
     
119. s2 = b[0..2].to_i(2)*10 + b[3..5].to_i(2)
     
120. e = ary[index[s1]-1]
     
121. f = ary[index[s2]-1]
     
122. puts g,e,f
     
123. loop do
     
124.   eval gets
     
125. end

复制代码

[/fold]
表格做好了
目前就自动翻到1/64的一卦, 未加入<考变占>. 易经.rar (19.17 KB, 下载次数: 61)

2014-7-6 16:32 上传

点击文件名下载附件

鑫晴

这个吗

杨广

以前还有背过那些卦辞和顺序啊，现在想起来真怀念呐。

chd114

杨广 发表于 2014-7-5 23:45
以前还有背过那些卦辞和顺序啊，现在想起来真怀念呐。

背那个做什么···