add example 劉徽割圓術

Author: cuixiping

examples/README.md

@@ -25,15 +25,16 @@
 | [nested_fun.wy][22]              | 函数                    |
 | [obj.wy][23]                     | 对象                    |
 | [pi_leibniz.wy][24]              | 萊布尼茲圓周率估算      |
-| [quicksort.wy][25]               | 快速排序                |
-| [quicksort_inplace.wy][26]       | 快速排序2               |
-| [quine.wy][27]                   | [自產生程式][2]         |
-| [quine2.wy][28]                  | 自產生程式2             |
-| [selectionsort.wy][29]           | 選擇排序                |
-| [sieve.wy][30]                   | 埃氏篩                  |
-| [sqrt_newton.wy][31]             | 牛頓求根法              |
-| [turing.wy][32]                  | 圖靈機                  |
-| [draw_heart.wy][33]               | 畫心                    |
+| [pi_liuhui.wy][25]              | 劉徽割圓術求圓周率      |
+| [quicksort.wy][26]               | 快速排序                |
+| [quicksort_inplace.wy][27]       | 快速排序2               |
+| [quine.wy][28]                   | [自產生程式][2]         |
+| [quine2.wy][29]                  | 自產生程式2             |
+| [selectionsort.wy][30]           | 選擇排序                |
+| [sieve.wy][31]                   | 埃氏篩                  |
+| [sqrt_newton.wy][32]             | 牛頓求根法              |
+| [turing.wy][33]                  | 圖靈機                  |
+| [draw_heart.wy][34]               | 畫心                    |
 
 [1]: https://en.wikipedia.org/wiki/Fizz_buzz "Fizz buzz"
 [2]: https://zh.wikipedia.org/wiki/自產生程式 "自產生程式"
@@ -59,12 +60,13 @@
 [22]: nested_fun.wy
 [23]: obj.wy
 [24]: pi_leobniz.wy
-[25]: quicksort.wy
-[26]: quicksort_inplace.wy
-[27]: quine.wy
-[28]: quine2.wy
-[29]: selectionsort.wy
-[30]: sieve.wy
-[31]: sqrt_newton.wy
-[32]: turing.wy
-[33]: draw_heart.wy
+[25]: pi_liuhui.wy
+[26]: quicksort.wy
+[27]: quicksort_inplace.wy
+[28]: quine.wy
+[29]: quine2.wy
+[30]: selectionsort.wy
+[31]: sieve.wy
+[32]: sqrt_newton.wy
+[33]: turing.wy
+[34]: draw_heart.wy

examples/pi_liuhui.wy

@@ -0,0 +1,31 @@
+注曰「「割圓術始載於劉徽所著九章算術注」」
+
+吾嘗觀「「算經」」之書。方悟「冪」「平方根」之義。
+
+吾有一數。曰一。名之曰「半徑」。
+乘「半徑」以「半徑」。名之曰「半徑平方」。
+
+吾有一術。名之曰「求小弦」。欲行是術。必先得二數。曰「裏觚之面」。曰「輪數」。乃行是術曰。
+	若「輪數」小於一者。乃得「裏觚之面」也。
+	除「裏觚之面」以二。名之曰「半面」。
+	乘「半面」以「半面」。名之曰「半面平方」。
+	減「半徑平方」以「半面平方」。取一以施「平方根」。名之曰「股」。
+	減「半徑」以「股」。名之曰「小句」。
+	乘「小句」以「小句」。加其以「半面平方」。取一以施「平方根」。名之曰「小弦」。
+	夫「小弦」。減「輪數」以一。取二以施「求小弦」。乃得矣。
+是謂「求小弦」之術也。
+
+注曰「「輪數始於一」」
+吾有一術。名之曰「割圓術求圓率」。欲行是術。必先得一數曰「輪數」。乃行是術曰。
+	減「輪數」以一。昔之「輪數」者。今其是矣。
+	施「冪」於二於「輪數」。乘其以六。名之曰「觚數」。
+	施「求小弦」於「半徑」於「輪數」。名之曰「小弦」。
+	乘「小弦」以「觚數」。名之曰「觚周」。
+	除「觚周」以二。乘其以「半徑」。名之曰「觚冪」。
+	除「觚冪」以「半徑平方」。名之曰「圓率」。
+	夫「「割圓」」。夫「觚數」。夫「「觚。所得圓率者。」」。書之。
+	夫「圓率」。夫「「也。」」。書之。
+	乃得「圓率」。
+是謂「割圓術求圓率」之術也。
+
+施「割圓術求圓率」於十。

tools/examples_alias.js

@@ -21,6 +21,7 @@ module.exports = {
   nested_fun: "嵌套調用示例",
   obj: "对象示例",
   pi_leibniz: "萊布尼茲圓周率估算",
+  pi_liuhui: "劉徽割圓術求圓周率",
   quicksort: "快速排序",
   quicksort_inplace: "快速排序二",
   quine: "自產生程式",