编 地球坐标    ( t n1 n2 n3 --- ) 
  \ 返回地球坐标,t为世纪数  e_coord
  { \ 直角坐标 -- } 
  直角坐标 3 数组空间 动态内存分配 写入  直角坐标
  3 直角坐标  写
  \  在汉编中以反斜杠和双括号作为 注释标记
  \   代码                           数摞模拟演示(非必要)                          解释(非必要) 
  3 √                             \ n1 n2 n3 t           注： 移出数摞第三层 (零基计数，即数摞上的第4个数)
  3 √                             \ n2 n3 t n1           注： 移出数摞第三层 (零基计数，即数摞上的第4个数)
  ∽                               \ n2 n3 t n1 t         注： 复制数摞第一层 (零基计数，即数摞上的第2个数)
  ∵                               \ n2 n3 t t n1         注： 将数摞顶层移至第二层(零基计数，即数摞上的第3个数)，次摞层变为顶层
  0 0                              \ n2 n3 t t n1 0 0     注： 在数摞上放入两个数：  0 0
  双↑↓                             \ n2 n3 t 0 0 t n1     注： 将摞顶的两双层交换位置
  行星坐标值                     \ n2 n3 t <地球坐标值一>  注： 以“ 0 0 t n1 ”为参数通过用户自定义词“星体坐标值”计算一个值<地球坐标值一>
  直角坐标  0  +实数写        \ n2 n3 t                注：已将<地球坐标值一>写入数组“直角坐标”
  ♂                                 \ n2 n3 t t               注： 复制数摞顶层，即第0层(零基计数，即数摞上的第1个数)
  3 √                              \ n3 t t  n2              注： 将第三层移至数摞顶层(零基计数，即数摞上的第0个数)，原摞顶变为第一层
  0 1                              \ n3 t t n2 0 1          注： 在数摞上放入两个数：  0 1
  双↑↓                             \ n3 t 0 1 t n2          注： 将摞顶的两双层交换位置
  行星坐标值                     \ n3 t <地球坐标值二>     注： 以“ 0 1 t n2 ”为参数通过用户自定义词“星体坐标值”计算一个值<地球坐标值二>
  直角坐标  1  +实数写         \ n3 t                    注：已将<地球坐标值二>写入数组“直角坐标”
  ↑↓                                  \ t n3                    注： 将数摞第零层与第一层交换位置
  0 2                                \ t n3 0 2               注： 在数摞上放入两个数：  0 2
  双↑↓                               \  0 2 t n3              注： 将摞顶的两双层交换位置
  行星坐标值                       \ <地球坐标值三>          注： 以“ 0 1 t n3 ”为参数通过用户自定义词“星体坐标值”计算一个值<地球坐标值三>
  直角坐标  2  +实数写          \ 数摞上的数已用完         注：已将<地球坐标值三>写入数组“直角坐标”                             
  直角坐标                          \ 数组<直角坐标>的地址(返回值：可以有多个)
  。