\  秦汉昌原创，西历2011年2月15日于上海

编 数组空间   ( 数组地址 数组大小 --- 字节数 )
   ♂  2 + 12 *  单元+  
   ∵ ↑↓   写
   。

编 +实数写      ( 数 数组地址 序号 --- )
    ∽  读  ∽  <
    就    mb_ok 字串" 数组超界!"  系统对话框 ♀
    然后  12 * 单元+ + 实数写
    。

编 +实数读      ( 数组地址 序号 --- )
    ∽  读  ∽  <
    就    mb_ok 字串" 数组超界!"  系统对话框 ♀
    然后  12 * + 单元+   实数读
    。

编 数字串检查
  { \ 临时串 -- }  255 个字节空给 临时串
  0=
  就   字串" 字符串“"               临时串  字串传送
       双♂                        临时串  字串+传送
       字串" ”中含有非数字内容!"      临时串  字串+传送
   然后
   。

编 数组初始       ( 数组地址 --- )
   ♂ 读 
   1+  0
   ?循环  0  动态内存分配   ∽  内环数  +实数写
   回环   ♀  
   。

编 +字串写      ( 地址 长度 数组地址 序号 --- )
    双♂ 12 * +  单元+ 读 有纠错释放内存
    双↑↓ ♂   2 单元*+   动态内存分配
    ∵ 2 § ♂ 单元+
    ∵  ∽  ↑↓  写 字节传送  
    ∵ +实数写
    。

编 +字串读      ( 数组地址 序号 --- )
    +实数读
    ♂ 单元+  ↑↓ 读
    。

编 输入数组
  { \ 序号 -- }
  0 写入 序号
  ∵ ♂  0>
  就   环首   双♂ ',' 同字符定位  ♂  0<>
       就继续  双↑↓ ♀ 2 §  ∽  - 
             去前后空格 串>数 数字串检查 ♀     3 §  序号 +实数写 
             ↑↓ 1+ ↑↓ 1-
             1 +写入 序号
       重复
  否则  双♂  mb_ok 字串" 数据为空" 系统对话框 ♀
  然后  双♀  去前后空格 串>数 数字串检查 ♀ 
       ∽   序号 +实数写
       序号 1+   ↑↓   写
   。

编 输入字符数组
  { \ 序号 -- }
  0 写入 序号
  ∵ ♂  0>
  就   环首   双♂ ',' 同字符定位  ♂  0<>
       就继续  双↑↓ ♀ 2 §  ∽  - 
             去前后空格  4 §  序号 +字串写 
             ↑↓ 1+ ↑↓ 1-
             1 +写入 序号
       重复
  否则  双♂  mb_ok 字串" 数据为空" 系统对话框 ♀
  然后  双♀  去前后空格  
       2 §    序号 +字串写
       序号 1+   ↑↓   写
   。

编 显示数组
   ↑↓  ♂  读  0
   ?循环  ∽ 内环数  ↑↓  求余数  0=  就 回车 然后
            ♂  内环数  +实数读 显 空格
   回环  双♀
   。

编 显示数组1
   1 显示数组 
   。

编 显示字符数组
   ↑↓  ♂  读  0
   ?循环  ∽ 内环数  ↑↓  求余数  0=  就 回车 然后
            ♂  内环数  +字串读  印字串 空格
   回环  双♀
   。
编 显示字符数组1
   1 显示字符数组 
   。

((  测试代码

\ 示例一：

建词 数组一
数组一 5 数组空间 字节空出
56.8  数组一 2  +实数写
数组一 2 +实数读 显

编 测试一
   { \ 数组一 -- }
   数组一 155 数组空间 动态内存分配 写入 数组一
   155 数组一 写
   59.8  数组一 150 +实数写
   32.5  数组一 151 +实数写
   31.8  数组一 152 +实数写
   数组一
   。

测试一

建词 数组二
数组二 301 数组空间 字节空出
数组二  数组初始
字串" 中华人民共和国"  数组二 295 +字串写
数组二 295 +字串读 印字串

编 测试二
   { \ 数组二 -- }
   数组二 205 数组空间 个字节空给 数组二
   205 数组二 写
   数组二 数组初始
   字串" 中华人民共和国"  数组二 200 +字串写
   数组二 200 +字串读 印字串 
   。
    测试二

\ 示例二：

建词 行星数组             \  xxName
行星数组 9 数组空间 字节空出
行星数组 数组初始
字串" 地球,水星,金星,火星,木星,土星,天王星,海王星,冥王星"  行星数组 输入字符数组
行星数组 3  显示字符数组

\ 示例三：

建词 IAU1976岁差表
IAU1976岁差表 48 数组空间 字节空出
编 输入IAU1976岁差表数组内容               \ TD - UT1 计算表
  { \ 临时串 序号 -- }  102 12 * 4 + 动态内存分配 写入 临时串
字串"       0.0,      5038.7784,   -1.07259, -0.001147,"  临时串 长串传送   \ //fi
字串" 84381.448,            0.0,   +0.05127, -0.007726,"  临时串 长串+传送  \ //w
字串"       0.0,        +4.1976,   +0.19447, -0.000179,"  临时串 长串+传送  \ //P
字串"       0.0,       -46.8150,   +0.05059, +0.000344,"  临时串 长串+传送  \ //Q
字串" 84381.448,       -46.8150,   -0.00059, +0.001813,"  临时串 长串+传送  \ //E
字串"       0.0,       +10.5526,   -2.38064, -0.001125,"  临时串 长串+传送  \ //x
字串"       0.0,        47.0028,   -0.03301, +0.000057,"  临时串 长串+传送  \ //pi(自导出),根据P=sin(pi)*sin(II)
字串" 629554.886,     -869.8192,   +0.03666, -0.001504,"  临时串 长串+传送  \ //II(自导出),根据Q=sin(pi)*cos(II)
字串"        0.0,     5029.0966,   +1.11113, +0.000006,"  临时串 长串+传送  \ //p
字串"        0.0,     2004.3109,   -0.42665, -0.041833,"  临时串 长串+传送  \ //th
字串"        0.0,     2306.2181,   +0.30188, +0.017998,"  临时串 长串+传送  \ //Z
字串"        0.0,     2306.2181,   +1.09468, +0.018203 "  临时串 长串+传送  \  //z

临时串 计双字  IAU1976岁差表  输入数组
临时串 有纠错释放内存
。

10 位小数
输入IAU1976岁差表数组内容

IAU1976岁差表  3 显示数组