图形计算之人工智能.docx

图形计算器之人工智能 在接触CASIO公司的图形计算器Classpad 330的三个月里，我们通过研究发现Classpad的编程功能真的很强大，简直就是一个可以随身携带的Visual Basic语言编程器，同时，也是因为一次偶然的机会，在了解到iphone4s的siri语音控制功能给人们所带来的便利之后，我便有了编一个人工智能对话程序的想法。【探究目的】 利用图形计算器的编程功能，在机器上实现一个便利的人工智能对话程序，从而对计算机算法以及相关知识有一个深入的认识。【探究过程】说起人机智能对话，我最先想到的是这样一个简单的程序：Lbl r‘设置循环点r Inputstr x,Hello!‘输入语句，保存至x变量 If x=mThenPrint n ‘输出变量nIfendInputstr x,next talk? ,next talkGoto r‘前往循环点r(其中m为预设问题，n为预设回答)通过判断输入问题是否与预设问题等价，来进行回答。有了这个基础，我便有了信心，开始扩大这个数据库的容量，而dt()这个子程序就是那个时期的产物。可是很快，我就遇到了困难，如果要实现日常的对话，这个数据库将会变得无比巨大，因为一旦有一个字符不同，系统便会无法判别，就连大小写甚至句末的空格、句号、问号等都要加以区分，实在是很麻烦，所以我便开发了如下的筛选化归程序段：Strlwr x,x ‘将字符串x全部改成小写字母Strlen x,xl ‘测量字长保存至xl变量Chrtonum x,ui,xl ‘ui取得末位字符对应的机内码If ui=32 or ui=44 or ui=46 or ui=33 or ui=63 ‘32代表“空格”的机内码，44代表“句号”的机内码，以此类推…Then Strleft x,xl-1,x ‘x取得左起至xl-1的字符串Ifend于是乎，当你输入“how are you ”或“how are you?”或“How are you?”时，对于机内变量x，都是同一个问题“how are you”，这样就有效地节约了数据库的空间。然而随后，在使用的过程中，我又发现，数据库再大，也还是有无法识别的问题，所以，我便想让它具有学习的功能，程序段如下：z=0 ‘z变量起标志作用If x=mThenz=z+1Print nIfendIf x=m2……If x=m3……………… ‘以此类推就可以扩大数据库容量If z=0Then lp() ‘运行学习子程序(learning part)Ifend子程序段如下:q=0 ‘q变量起标志作用If q=1 Then m1=x Inputstr n1 q=q+1 Return ‘返回主程序 IfendIf q=2Then m2=x Inputstr n2 q=q+1 Return Ifend If q=3……………‘以此类推就可以扩大数据库容量这样，它就具有了学习的功能。此时的程序已经趋于完善，可当我通过看说明书知道了Strleft这个函数的作用之后，顿时有了新的想法——给对话程序加上“调用其他程序“的功能，程序段如下：计算：Strleft x,4,xt ‘xt取得左起第4个字符之前的字符串If at=“calc”ThenStrmid x,6,xy ‘xy取得左起第6个字符之后的字符串te=StrtoExp(xy) ‘将xy转换为表达式并计算ExptoStr te,ter ‘将te转换为字符串Print terIfend绘图： If xt=“draw”ThenStrmid x,6,xyDelVar f ‘删除变量fDefine f(x)=StrtoExp(xy) ‘定义变量f为函数f(x)Clrgraph Drawgraph f(x) ‘画出f(x)的函数图象PauseIfend调用其他自制程序：Strleft x,5,xttIf xtt=“solve”ThenFc() ‘解一元二次方程程序ifend控制程