2018年6月15日 星期五


# 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
寄給 <姓名略去>


讚!