您说的这些，都汉编可以做的，也是必要做的，而且有些汉编公司在做

 

但是，相关资料没有公布

 

相对来说，有关这方面，易语言要做得好些

 

汉编实现与其它数据库的数据交换和通过汉编来 访问sQL等数据库，是通过ODBC数据库接口做的，但是，还有待完善

汉编把表达式“倒”着写

 

    其实汉编并没有规定表达式必须倒着写

 

但是，有一点，汉编数摞数据处理，是按机器执行顺序执行的

 

所以，加减乘除运算，与其它函数一样，必须先提供参数，即运算数，才能执行运算指令

 

汉编也是很灵活的，我们也可以定义，用数学上的习惯表达

 

比如，数学坐标，与窗口坐标不一致，我们只需编一个通用的模板与词汇，就可以转换成数学坐标系

 

上面的阴阳鱼程序，就是以数学坐标为基础进行编写的(只需提供两个窗口坐标参数，其它的都自己构建数学坐标来做)

 

有一点确实没有兼顾，那就是，所有的天文学论著，都是按习惯的数学表达来做的，而汉编用后缀表达法，必然使程序员增加了表达式转换的工夫。

 

但是，这个表达式转换，是可以编写通用指令来转换的

 

我记得，有一个汉编爱好者，就编写过一个“去括号”的词，将数学表达式的括号去掉，转换成汉编的后缀表示法

 

 

 

下面是一个汉编公司的经理写：

 

 

在开发项目的过程中，我们的团队一直在不断的争论一个问题，那就是对于设备监控软件到底是采用B/S还是C/S的架构更合理，更可靠，并能妥善解决所有客户都关心的核心问题：“如何降低开发成本，如何降低运营成本”。
　　在2006年，我们与某客户的“远程消防主机集中监控”项目上，内部人员和甲方经理都就项目架构问题产生过很大分歧，虽然最后我们使用汉语编程进行了C/S架构的项目开发，但是对于不断追求完美的我们来说，这个项目始终有一个问题在困扰我们，就是如何通过IE浏览器随时随地的了解和观察监控设备的状态，以求更好的满足客户需求，提高我们和客户的共同竞争力。
　　如今，我们通过悉心的研究和钻研，终于完成了汉语编程调用ODBC的开发，并通过1个多月的内部测试和客户应用测试，准确率和稳定率均达到100%，这对我们来说，绝对是一个里程碑式的事件！
　　放眼将来，我们将采用C/S/B的模式来进行我们后续所有的开发工作，这里要解释下我们的C/S/B模式，这里的第一个C是汉语编程所开发的客户端，也是数据采集端，他所具有的优势就是自主知识产权，开发简单，并获得国家相关部门的检测，性能稳定，最重要的是开发成本与同类型开发语言相比能降低80%以上；第二个S是指所有支持ODBC存取的数据库服务器，如Sql Sever、Access等，以前我们一直采用汉语编程自己的数据库，相对主流数据库而言，汉语编程数据库在操作界面和功能上，与数据库巨头相比的确存在较大差距，所以应用有很大局限；第三个B就是浏览器了，最主流的就是我们每天上网用的Internet Explorer了。通过我们所阐述的C/S/B这样的架构将能解决很多我们曾经很努力却无力解决的问题，以后客户的设备状态可以用极其低廉成本的汉语编程单片机和各类传感器、IO等来进行采集，而汉语编程语言只要进行读取和分类数据的功能模块开发，封装成Dll文件，甚至做成嵌入系统，所有获得的数据可以通过ODBC保存在Sql sever或者Access数据库中，最终通过现在任何的主流的上位开发工具进行应用和界面开发，如ASP、Asp.net等，这将是完美的开发过程！
　　如今，我们已经可以解决上面所提到的如何通过IE浏览器随时随地的了解和观察监控设备的状态，用这样的架构，已经再简单不过了，不是么？甚至搭建设备的远程控制系统，如智能家居的应用都可以变的前所未有的轻松；3G的到来，将带领手机、上网本和各类移动设备的普及，最终将为企业的生产管理和人们的生活状态都带来翻天覆地的变化，想到这里都让我们感到非常激动，这是我们多年来所希望了解并进入的领域，如今我们已经迈出了第一步！
　　近期我们的开发重心将放在走刀式机床的生产数据监控上，所有的开发过程我们也会全部用Blog的形式记录下来，我们将为客户打造一套完整的Internet应用集成平台，如果您有兴趣了解，请持续关注我们的官方Blog，http://blog.sina.com.cn/haiyinet，也可以通过Ferrari#hi-e.com.cn的电子邮件与我们联系哦（发信请将#改为@）
　　最后，补充两句废话，网上有很多很多的朋友参与过汉语编程的讨论，也有部分关注人群和反面声音，不过我们不希望在这里讨论汉语编程的价值，我们只关注更多技术与应用，我们相信一点，一切技术都是建立在应用上才能富有生命力，希望能能和我们一起关注应用，并打造汉语编程发展的良性循环，使它获得更多的支持，谢谢！

\ ① 定义访问模板对象

  ODBC访问模板 连接SQL数据库

编 项属性表
   回车 显" 总项数"
   总项数: 连接SQL数据库 ♂ 显 1+ 1
   循环 内环数
       ♂ 回车 显" 项名:"   数据项名:   连接SQL数据库 印字串
       ♂ 回车 显" 类型:"   数据类型:   连接SQL数据库 显  
       ♂ 回车 显" 宽度:"   数据项宽度: 连接SQL数据库 显  
       ♂ 回车 显" 小数位:" 数据小数位: 连接SQL数据库 显
          回车 显" 为空否:" 数据为空否: 连接SQL数据库 显

   回环
   。
编 显示一条记录
   可读标志 0=
   就
     总项数: 连接SQL数据库  1+ 1
     ?循环 回车 内环数 取数据: 连接SQL数据库 印字串
     回环
   否则 MB_OK 字串" 已到数据库尾部"  系统对话框 ♀
   然后
   。
\ ②初始化访问对象

  初始化: 连接SQL数据库

\ ③设置 DSN(数据源名)

字串" db4" 置DSN名: 连接SQL数据库
\ 若有用户名及密码，可如下设定:
\ 字串" USER" 置用户名: 连接SQL数据库
\ 字串" PASS" 置密码: 连接SQL数据库
\ 如无可不设定，也可明确表示:
  用户名为空: 连接SQL数据库
  密码为空: 连接SQL数据库

\ ④ 连接数据源

连接数据源: 连接SQL数据库

\ ⑤ 执行ODBC(SQL指令)

 字串" SELECT * FROM 成绩单" ODBC执行: 连接SQL数据库
\ ⑥ 项属性及记录
 项属性表 回车

 定位下一行: 连接SQL数据库    显示一条记录
 定位下一行: 连接SQL数据库    显示一条记录
 定位下一行: 连接SQL数据库    显示一条记录
 定位下一行: 连接SQL数据库    显示一条记录
 定位下一行: 连接SQL数据库    显示一条记录
 定位下一行: 连接SQL数据库    显示一条记录
 定位下一行: 连接SQL数据库    显示一条记录

\ ⑦数据修改
 字串" UPDATE 成绩单 SET 语文=100 WHERE 姓名='流星'"  ODBC执行: 连接SQL数据库
 提交更改: 连接SQL数据库
  \ 撤消更改: 连接SQL数据库
  \ 查看结果
  字串" SELECT * FROM 成绩单 WHERE 姓名='流星'" ODBC执行: 连接SQL数据库
  定位下一行: 连接SQL数据库   显示一条记录

安全退出ODBC: 连接SQL数据库

求解杜芬方程：

 

振动是现实生活中广泛存在的物理现象。如建筑物和机器的机械振动,无线电技术和光学中的电磁振动, 控制系统和跟踪系统中的自激振动,声波振动, 同步加速器中的束流振动及其结构振动, 火箭发动机燃烧时所引起的振动, 化学反应中的复杂振动等等. 这样一些表面上看起来极不相同的现象, 都可以通过如下的振动方程来描述:(杜芬方程，G.Duffing)：

0      给 参数组标志               50.0  给 比例因子
 0.2    给 a       1.0    给 b
 0.005  给 dt      0.00   给 t
 0.0    给 x       0.0    给 y
 0.0    给 x1      0.0    给 x2      0.0  给 x3      0.0 给 x4
 0.0    给 y1      0.0    给 y2      0.0  给 y3      0.0 给 y4
编 x方程  ( y  --- dx )   dt *     。
编 y方程  { lx ly -- dy }
  t  fcos b *  lx 3 f**+n -  a ly * -   dt *   。
扩展对象  duffing测试窗口 继承自 窗口对象模板
按钮控制 参数组1
按钮控制 参数组2 
按钮控制 参数组3 
按钮控制 参数组4 
属性 窗口背景:   常备黑色画刷句柄    属性。
属性 窗口标题:   编字串" duffing 方程曲线图"     属性。
属性 开始尺寸:   640 480                       属性。
对象事件 初始时:
         本身的 启动: 参数组1
         本身的 启动: 参数组2
         本身的 启动: 参数组3
         本身的 启动: 参数组4
         0 0 100 25  定位: 参数组1
         0 25 100 25 定位: 参数组2
         0 50 100 25 定位: 参数组3
         0 75 100 25 定位: 参数组4
         字串" a=0.3 b=2.0"  置控制对象标题: 参数组1
         字串" a=0.2 b=5.0"  置控制对象标题: 参数组2
         字串" a=0.2 b=16.5" 置控制对象标题: 参数组3
         字串" a=0.2 b=23.5" 置控制对象标题: 参数组4
         对象事件。
编 赋参数及初始  ( 迭代次数 --- )
   0.05 ♂ 写入 x  写入 y
   0.0 ♂ 写入 x1  ♂ 写入 x2 ♂ 写入 x3 ♂ 写入 x4
   ♂ 写入 y1  ♂ 写入 y2 ♂ 写入 y3 ♂ 写入 y4
   写入 t
   。

编 求解值  (  --- )
   //  龙格-库塔积分法(Runge-Kutta Solution)
   y                              x方程  写入 x1
   y y1 2.0 / +                   x方程  写入 x2
   y y2 2.0 / +                   x方程  写入 x3
   y y3  +                        x方程  写入 x4
   x y                            y方程  写入 y1
   x x1 2.0 /  + y y1 2.0 / +     y方程  写入 y2
   x x2 2.0 /  + y y2 2.0  / +    y方程  写入 y3
   x x3 + y y3 +                  y方程  写入 y4
   x1 x2 2.0 * x3 2.0 * x4  + + + 6.0 /  +写入 x
   y1 y2 2.0 * y3 2.0 * y4  + + + 6.0 /  +写入 y
   。

编 计算作图   ( 迭代次数 --- )
   100 0  客户区宽度 客户区高度
黑色 区域填充: 设备描述表
   浅红色 置文本颜色: 设备描述表
   参数组标志
   如和 0 对应就  110 5 字串" 当前视图:  a=0.3 b=2.0"
文本输出: 设备描述表
   而和 1 对应就  110 5 字串" 当前视图:  a=0.2 b=5.0"
文本输出: 设备描述表
   而和 2 对应就  110 5 字串" 当前视图: a=0.2 b=16.5"
文本输出: 设备描述表
   而和 3 对应就  110 5 字串" 当前视图: a=0.2 b=23.5"
文本输出: 设备描述表
而后               浅绿色 画线颜色: 设备描述表
   赋参数及初始
   求解值     x 比例因子 * 实>数  400 +
   y 比例因子 * 实>数 -1 * 230 + 坐标定位: 设备描述表
   1
   ?循环   求解值  x 比例因子 * 实>数        400 +
       y 比例因子 * 实>数 -1  *  230 +
       画线到: 设备描述表
      dt +写入 t
   回环
   。
wm_close 触发时:   关闭: 自源模板   退出       触发。
对象事件 绘制时:  40000  计算作图          对象事件。
wm_command 触发时:
           \ wm_command 触发: 自源模板
           \ 若使用菜单或工具栏，请加上上一行
           ∽  取低字
          如和 读标识: 参数组1 对应就  0.3  写入  a
                                       2.0  写入  b
  70.0  写入  比例因子
                                         0  写入  参数组标志
                                     15000        计算作图
           而和 读标识: 参数组2  对应就 0.2  写入  a
                                        5.0  写入  b
40.0  写入  比例因子
                                        1    写入  参数组标志
                                      40000        计算作图            
           而和 读标识: 参数组3  对应就 0.2  写入  a
                                       16.5  写入  b
30.0  写入  比例因子
                                        2    写入  参数组标志
                                      40000         计算作图
           而和 读标识: 参数组4  对应就 0.2  写入  a
                                       23.5  写入  b
20.0  写入  比例因子
                                        3    写入  参数组标志
                                      40000        计算作图
           而后 0
      触发。
对象。
 启动: duffing测试窗口
  \  无名编 启动: duffing测试窗口 。
 \  无名词代码域 创建应用程序 duffing

洛伦兹方程应用：

 

其中，a,b,r为常量，典型的取值为：
a=10.0
b=8/3
r=28.0
根据这个方程组我们可以精确地绘制出一条洛伦兹方程曲线，曲线上点的出现位置根据时间的不同，其空间位置也会发生相当大的改变。也就是说，洛伦兹曲线是一条时间-空间相关的曲线。

 

0    给 视图标志   
10.0 给 a  8.0 3.0 / 给 b
28.0 给 r  0.0000001 给 dt 0.0 给 t

0.0 给 x   0.0 给 y   0.0 给 z
0.0 给 x1  0.0 给 y1  0.0 给 z1  
0.0 给 x2  0.0 给 y2  0.0 给 z2
0.0 给 x3  0.0 给 y3  0.0 给 z3
0.0 给 x4  0.0 给 y4  0.0 给 z4

300 为 x原心   
300 为 z原心
70710678 为 2开方/2

编  模拟三维坐标  ( x y z --- x显 z显 )
    ↑↓  2开方/2 100000000 */ ♂
    ∵  -  z原心 +
    ∵  -  x原心 +
    ↑↓ 。
编 x方程  ( x y --- dx )                  ↑↓ - a *     。
编 y方程  { lx ly lz -- dy }   r lx * ly - lx lz * -     。
编 z方程  ( x y z --- dz )    -1.0 * b *  ∵  *  +       。

图形按钮控制 xyz "xyz.bmp"
图形按钮控制 xz  "xz.bmp"
图形按钮控制 xy  "xy.bmp"
图形按钮控制 yz  "yz.bmp"
扩展对象 测试窗口 继承自 窗口对象模板
属性 窗口背景: 常备黑色画刷句柄          属性。
属性 窗口标题: 编字串" lorenz方程曲线图" 属性。
属性 开始尺寸: 640 480                   属性。
对象事件 初始时:
         本身的 启动: xyz
         本身的 启动: xz
         本身的 启动: xy
         本身的 启动: yz
         0   0 100 100 定位: xyz
         0 100 100 100 定位: xz
         0 200 100 100 定位: xy        
         0 300 100 100 定位: yz
对象事件。
编  赋参数及初始 ( 迭代次数 --- )
    0.1 ♂ 写入 x  ♂ 写入 y     写入 z
    0.0 ♂ 写入 x1 ♂ 写入 x2 ♂ 写入 x3 ♂ 写入 x4
        ♂ 写入 y1 ♂ 写入 y2 ♂ 写入 y3 ♂ 写入 y4
        ♂ 写入 z1 ♂ 写入 z2 ♂ 写入 z3 ♂ 写入 z4 写入 t
    。
编 求解值  (  --- )
   x y                                      x方程 t * 写入 x1
   x x1 2.0 /  + y y1 2.0 / +               x方程 t * 写入 x2
   x x2 2.0 /  + y y2 2.0 / +               x方程 t * 写入 x3
   x x3  + y y3  +                          x方程 t * 写入 x4
   x y z                                    y方程 t * 写入 y1
   x x1 2.0 /  + y y1 2.0 / + z z1 2.0 / +  y方程 t * 写入 y2
   x x2 2.0 /  + y y2 2.0 / + z z2 2.0 / +  y方程 t * 写入 y3
   x x3  + y y3  + z z3  +                  y方程 t * 写入 y4
   x y z                                    z方程 t * 写入 z1
   x x1 2.0 /  + y y1 2.0 / + z z1 2.0 / +  z方程 t * 写入 z2
   x x2 2.0 /  + y y2 2.0 / + z z2 2.0 / +  z方程 t * 写入 z3
   x x3   + y y3  + z z3  +                 z方程 t * 写入 z4
   x1 x2 2.0 * x3 2.0 * x4  + + + 6.0 / +写入 x
   y1 y2 2.0 * y3 2.0 * y4  + + + 6.0 / +写入 y
   z1 z2 2.0 * z3 2.0 * z4  + + + 6.0 / +写入 z
   。
编 计算作图   ( 迭代次数 --- )
   100 0 客户区宽度 客户区高度 黑色 区域填充: 设备描述表
   浅红色 置文本颜色: 设备描述表
   视图标志
   如和 0 对应就  110 5 字串" 当前视图: xyz" 文本输出: 设备描述表
   而和 1 对应就  110 5 字串" 当前视图: x-z" 文本输出: 设备描述表
   而和 2 对应就  110 5 字串" 当前视图: x-y" 文本输出: 设备描述表
   而和 3 对应就  110 5 字串" 当前视图: y-z" 文本输出: 设备描述表
   而后 浅绿色 画线颜色: 设备描述表
   赋参数及初始 求解值
   视图标志
   如和 0 对应就  x 8.0 * 实>数 ( 250 + )
                  y 8.0 * 实>数
                  z 8.0 * 实>数 ( -1 * 450 + )
                  模拟三维坐标  -1 *  z原心 + 430 +
                  坐标定位: 设备描述表
   而和 1 对应就  x 8.0 * 实>数  300 +
                  z 8.0 * 实>数  -1 *  z原心 +  100 +
                  坐标定位: 设备描述表
   而和 2 对应就  x  8.0 * 实>数  300 +
                  y  8.0 * 实>数  -1 *  z原心 +  50 -
                  坐标定位: 设备描述表
   而和 3 对应就  y  8.0 * 实>数  -1 *  z原心 +  50  +
                  z  8.0 * 实>数  -1 *  z原心 +  150 +
                  坐标定位: 设备描述表
   而后
   1
   ?循环 求解值 视图标志
      如和 0 对应就  x  8.0 * 实>数 ( 250 + )
                     y  8.0 * 实>数
                     z  8.0 * 实>数 ( -1 * 450 + )
                     模拟三维坐标  -1 *  z原心 + 430 +  
                     画线到: 设备描述表
      而和 1 对应就  x  8.0 * 实>数  300 +
                     z  8.0 * 实>数 
                     -1 *  z原心 +  100 +  画线到: 设备描述表
      而和 2 对应就  x  8.0 * 实>数  300 +
                     y  8.0 * 实>数 
                     -1 *  z原心 +  50 -   画线到: 设备描述表
      而和 3 对应就  y  8.0 * 实>数 -1 *  z原心 +  50 +
                     z  8.0 * 实>数 
                     -1 *  z原心 +  150 +  画线到: 设备描述表
      而后 dt +写入 t
   回环
。

对象事件 绘制时:  
         40000 计算作图    
对象事件。

wm_close 触发时:
           关闭: 自源模板
           退出  
         触发。
wm_command 触发时:
           \ wm_command 触发: 自源模板
           \ 若使用菜单或工具栏，请加上上一行
           ∽  取低字
           如和 读标识: xyz 对应就 0 写入 视图标志 40000 计算作图
           而和 读标识: xz  对应就 1 写入 视图标志 40000 计算作图
           而和 读标识: xy  对应就 2 写入 视图标志 40000 计算作图
           而和 读标识: yz  对应就 3 写入 视图标志 40000 计算作图
           而后 0
           触发。
对象。
启动: 测试窗口

\ 求二元一次方程的解
\ X-Y=2
\ X+Y=8
 0 给 X  0 给 Y   2 给 等式1  8 给 等式2
等式1  等式2  + 给 上限值
编 求XY   等式1  等式2  + 写入 上限值
          环首  1 +写入 X  0 写入 Y
                    环首  1 +写入 Y  \  X 显 Y 显 回车
                          X Y + 等式2 =
                          X Y - 等式1 = 与
                          Y 上限值 >    或
                    就出来

                X Y + 等式2 =
                X Y - 等式1 = 与
                X 上限值 >
                    ♂ 就 显" 无解！" 回车  然后
                 或
          就出来  显" X=" X 显  显" Y="  Y 显  回车
          。