马尔可夫链算法脚本例子

蓝星际语音平台脚本例子

这些例子都比较简单, 有些比较有趣，您很容易看明白，仔细阅读源程序可以让您迅速入门，也会提高您的水平。
每个例子都有一个说明文档，请您在运行例子之前阅读它。
请将蓝星际平台程序拷贝到相应的目录之下，然后运行。因为有些脚本使用了相对路径，所以建议脚本文件和蓝星际平台程序放在相同的目录。

马尔可夫链算法

说明：

这是个有趣的脚本, 实现了马尔可夫链算法，您将会发现，它比相同功能的C/C++, JAVA程序简单了很多。
开发平台因为要动态显示语法树，对速度有影响。如果您关注速度，请使用运行平台，运行平台非常快。
这个脚本也展现了koodoo语言对格式化文件的强大处理能力，可以媲美AWK语言。
它示范了文件读写操作、散列数组、随机数等各种应用。
马尔可夫链算法具体的说明请参阅《程序设计实践》
(Brian W.Kernighan & Rob Pike著, 裘宗燕译, 机械工业出版社2000版)
输入文件: "month.txt" -- 英文版《人月神话》的一段话
输出文件: "out1.txt"

示例：

// Markov.bss
// 用koodoo语言实现马尔可夫链算法
// 这也是对文件操作、散列数组的演示
// 马尔可夫链算法具体的说明请参阅《程序设计实践》
//      (Brian W.Kernighan & Rob Pike著, 裘宗燕译, 机械工业出版社2000版)
// 输入文件: "month.txt" -- 《人月神话》的一段话
// 输出文件: "out1.txt"
// 深圳市蓝星际公司 2004
// bluesen@sina.com

// markov chain algorithm for 2-word prefixes

const MAXGEN = 10000;
CR = 0;
Chr(13, CR);
NONWORD = CR;
c2 = 0;
Chr(10, c2);
CR = CR + c2;


w1 = NONWORD;
w2 = NONWORD;

LK = "";
Chr(15, LK);

inFile = "month.txt";
outFile = "out1.txt";

// 只读方式打开输入文件
hd = -1;
FileOpen(inFile, "rt", hd);
if( hd<0 )
{
   return(0);
}

statetab = 0;
nsuffix = 0;
s = "";
while(true)
{
   FileReadLine(hd, s);  // 读一行
   if( s=="" )
   {
      // 到了文件结束
      break;
   }

   m = 0;
   AnlyStr(s, " ", m);  // 将一行的内容分解为单词, 存放在数组m
   num = _retVal;  // 单词数
   for(i=0; i<num; i++)
   {
      k1 = w1 + LK + w2;  // 将w1, w2连接起来模拟2维数组
      v = nsuffix[k1];
      t = 0;
      Type(v, t);
      if( t==0 )  // 表示该下标首次使用
      {
         nsuffix[k1] = 0;
      }

      nsuffix[k1] = 1 + nsuffix[k1];
      k2 = k1 + LK + nsuffix[k1];  // 模拟3维数组
      statetab[k2] = m[i];
      w1 = w2;
      w2 = m[i];
   }
}

FileClose(hd);

// 创建输出文件
hd = -1;
FileOpen(outFile, "w+t", hd);
if( hd<0 )
{
   return(0);
}

k1 = w1 + LK + w2;
v = nsuffix[k1];
t = 0;
Type(v, t);
if( t==0 )
{
   nsuffix[k1] = 0;
}
nsuffix[k1] = nsuffix[k1] + 1;
k2 = k1 + LK + nsuffix[k1];
statetab[k2] = NONWORD;
w1 = NONWORD;
w2 = NONWORD;
for(i=0; i<MAXGEN; i++)
{
   r = 0;
   Rand(r);
   k1 = w1 + LK + w2;
   r = r % nsuffix[k1] + 1;
   k2 = k1 + LK + r;
   p = statetab[k2];
   if( p== NONWORD )
   {
      break;
   }

   FileWrite(hd, p);
   FileWrite(hd, " ");

   w1 = w2;
   w2 = p;
}

FileCloseAll();
return(0);

下载：

脚本＋输入/输出文件＋说明

Koodoo脚本示例

蓝星际语音平台 脚本例子

马尔可夫链算法

蓝星际语音平台脚本例子