# Field Farming System
Ching-Tang Tseng
Hamilton, New Zealand
16 June 2018
ilikeforth@gmail.com
http://forthfornight.blogspot.com
Before 361 BC, the agricultural policy in whole China were
dominated by a so called # field
farming system. According to the Chinese historical record, a former prime
minister Shang Yang (商鞅390 - 338 BC) of
The Chin Dynasty (秦朝221-207 BC)
scrapped such a system. Over those olden societies, land belongs to emperor,
without private farm. Farming land in one unit was partitioned into nine square
parts, the same as a # (pronouncing: sharp) mark. Surround the center of #,
eight family farmers cultivated eight farms. They should cultivate the central
farm conjointly as well. After annual harvest session, central farm production
belongs to the emperor. Extra tax of
those eight family farmers will be calculated out based on the production of
central farm. Tax of the higher harvest family pays more. For example, tax rate
will be 10% of the over amount. Tax of the lower harvest family pays nothing.
In spite of # field farming system had been scrapped, before
361 BC were the peaceful era especially applauded by Confucius (孔子551~479 BC). Peaceful level
described by Chinese is: people were lived in the days of spring and autumn (春秋時期). No war, no robber king, no
killer emperor in that period of time.
# field farming system had ever been operated in a period of
peaceful days, in memory of it, this article described a FORTH code able to
apply to # field farming system. Regardless the answer of whether this system
was nice or not? Obviously, history told us, annual tax rate to be set to
“Between 10% to 15%” was a make sense range. It was a worth yearning value.
Politician’s behavior makes tax rate higher.
The following FORTH code will be written in Chinese on
purpose. This is another kind of application to use FORTH. I don’t like any
FORTH system that is disabled in using Chinese. Coding ABC FORTH in any kind of
language is possible. Chinese display function was supported by operating system.
I did nothing. Code feature shows that I am able to use only 11 BASIC style
instructions to solve all kinds of mathematical problem. Their corresponding
Chinese names are listing as following:
1. LET 計算
2. FOR 就從
3. TO 做到
4. STEP 間隔
5. NEXT 配合
6. GOTO 跳到
7. IF 假如
8. THEN 前往
9. RUN 執行
10. PRINT 印出
11. END 結束
You are welcome to trace back to all posted articles in this
blog. All BASIC style codes inside adopted these 11 instructions only. That
means only one instruction to be used in each line. Executing speed of one BASIC
instruction is the same as one FORTH word.
11 special Chinese names were consolidated down after deeply
thinking. On the meaning aspect, they are fully matched. On the grammar aspect,
they are fully accordant to Chinese language. On the future development aspect,
two syllables pronunciation let these instructions apt to distinct in speech
identification.
Code and its execution outcomes:
\ 井田制度下的稅收
\ 日期：2018-06-14
\ 作者：曾慶潭於紐西蘭
\ 使用系統: Ubuntu 16.04,
Lina64
3 3 浮點矩陣 井田
3 3 浮點矩陣 稅額
2 個浮點變數 稅率 稅量
2 個整數變數 列號 行號
: 輸入收成
{{ 井田 ( 1 1 ) =
8230.0 e 0 }} {{ 井田 ( 1 2 ) = 7930.0 e 0 }}
{{ 井田 ( 1 3 ) = 6300.0 e 0 }}
{{ 井田 ( 2 1 ) =
6970.0 e 0 }} {{ 井田 ( 2 2 ) = 7560.0 e 0 }}
{{ 井田 ( 2 3 ) = 7900.0 e 0 }}
{{ 井田 ( 3 1 ) =
8050.0 e 0 }} {{ 井田 ( 3 2 ) = 7800.0 e 0 }}
{{ 井田 ( 3 3 ) = 8010.0 e 0 }}
;
: 稅額歸零
中文程式
10 就從 列號 = 1 做到
3
20 就從 行號 = 1 做到
3
30 計算 { 稅額 ( 列號 行號
) = 0.0 e 0 }
40 配合 行號
50 配合 列號
60 執行 輸入收成
70 計算 { 稅率 = 0.1 e 0 }
80 結束
;
: 稅收
中文程式
10 執行 稅額歸零
20 就從 列號
= 1 做到 3
30 就從 行號
= 1 做到 3
40 假如 { 井田
( 列號 行號 ) <= 井田 ( 2 2 ) } 前往 70
50 計算 { 稅額
( 列號 行號 ) = ( 井田
( 列號 行號
) - 井田 ( 2 2 ) ) * 稅率 }
60 跳到 80
70 計算 { 稅額
( 列號 行號 ) = 0.0 e 0 }
80 計算 { 稅量
= 稅額 ( 列號 行號 ) }
90 印出 " 井田(
" ; 列號 ; 行號
; " )的稅額為: "
100 執行 稅量
f. ." 斤稻穀 " cr
110 配合 行號
120 配合 列號
130 結束 ;
: main 稅收 ;
\S
ching@center:~$ cd lina64
ching@center:~/lina64$ ./f
AMDX86 ciforth 5.2.1
fload field
Loading OK above \S
OK
main
井田( 1 1 )的稅額為: 67.0斤稻穀
井田( 1 2 )的稅額為: 37.0斤稻穀
井田( 1 3 )的稅額為: 0.0斤稻穀
井田( 2 1 )的稅額為: 0.0斤稻穀
井田( 2 2 )的稅額為: 0.0斤稻穀
井田( 2 3 )的稅額為: 34.0斤稻穀
井田( 3 1 )的稅額為: 49.0斤稻穀
井田( 3 2 )的稅額為: 24.0斤稻穀
井田( 3 3 )的稅額為: 45.0斤稻穀
OK
My personal testing
remarks: Chinese coding ability approved.
這是一篇硬遭無禮媒體臉書刪文的訊息，本人不客氣回應臉書，本人不刪就是不刪。
臉書不准貼文，那麼，我就在我的個人網頁上專貼此文永久紀念，給臉書永久的難看。
此份文件係好友來信，發件自美國，此姓名地址欄故意略去。 2017年6月21日 上午4:01
收件者: Ching-Tang Tseng <ilikeforth@gmail.com>
【轉載】
『巴拿馬總統
記者會...』
記者：總統先生請問為何要與中華民國斷交？
總統：從107年前還是清朝年代時，我們就與中國建立了良好的邦誼，直到現在也並未改變。
記者：未改變？那這次斷交怎麼解釋？
總統：當年我們建交的是中國，就是民主革命成功的中華民國，並不是台灣國。
但是去年中華民國總統來訪時，我們發現他們的這個總統簽字時，署名為「台灣總統」。並不是我們所原先建交的中國(中華民國)，所以才跟他們台灣斷交，跟中國政府建交。
Ching-Tang Tseng <ilikeforth@gmail.com>
2017年6月21日 上午7:46
寄給 <姓名略去>
讚！
反擊不良媒體，個人永久自衛貼文
這是一篇硬遭無禮媒體臉書刪文的訊息，本人不客氣回應臉書，本人不刪就是不刪。
臉書不准貼文，那麼，我就在我的個人網頁上專貼此文永久紀念，給臉書永久的難看。
美國朋友來信標題為：咎由自取！
此份文件係好友來信，發件自美國，此姓名地址欄故意略去。 2017年6月21日 上午4:01
收件者: Ching-Tang Tseng <ilikeforth@gmail.com>
【轉載】
『巴拿馬總統
記者會...』
記者：總統先生請問為何要與中華民國斷交？
總統：從107年前還是清朝年代時，我們就與中國建立了良好的邦誼，直到現在也並未改變。
記者：未改變？那這次斷交怎麼解釋？
總統：當年我們建交的是中國，就是民主革命成功的中華民國，並不是台灣國。
但是去年中華民國總統來訪時，我們發現他們的這個總統簽字時，署名為「台灣總統」。並不是我們所原先建交的中國(中華民國)，所以才跟他們台灣斷交，跟中國政府建交。
Ching-Tang Tseng <ilikeforth@gmail.com>
2017年6月21日 上午7:46
寄給 <姓名略去>
讚！
沒有留言:
張貼留言