摘要: unit TC3_HMAC; interface uses System.SysUtils, System.hash, System.DateUtils,System.Net.URLClient,System.Net.HttpClient, System.Net.HttpClientComponen 阅读全文
posted @ 2023-01-05 17:11 舟扁叶一 阅读(392) 评论(0) 推荐(0)
摘要: 声明:本程序设计参考象棋巫师源码(开发工具dephi 11,建议用delphi 10.3以上版本)。 这一章主要完善算法。本章目标: 实现开局库; 实现PVS(主要变例搜索); 把根节点的搜索单独处理,增加搜索的随机性; 克服由长将引起的置换表的不稳定性。 6.1 实现开局库 开局库几乎是每个象棋程 阅读全文
posted @ 2021-12-22 16:38 舟扁叶一 阅读(1082) 评论(0) 推荐(0)
摘要: 声明:本程序设计参考象棋巫师源码(开发工具dephi 11,建议用delphi 10.3以上版本)。 这一章主要介绍置换表。本章目标: 实现置换表; 采用置换表走法、杀手走法等多种启发方式。 5.1 置换表 没有置换表,就称不上是完整的计算机博弈程序。在搜索过程中,某个搜索结果可能会出现这么多次,这 阅读全文
posted @ 2021-12-20 16:49 舟扁叶一 阅读(662) 评论(0) 推荐(0)
摘要: 声明:本程序设计参考象棋巫师源码(开发工具dephi 11,建议用delphi 10.3以上版本)。 上一章我们的程序终于会走棋了,不过很多时候它很低能。由于水平线效应,任何变化都只搜索固定的深度。还有,有时它会长将。我们能做哪些改进呢? 本章的目标: 用Zobrist校验码技术实现重复局面判定; 阅读全文
posted @ 2021-12-17 10:02 舟扁叶一 阅读(723) 评论(2) 推荐(0)
摘要: 声明:本程序设计参考象棋巫师源码(开发工具dephi 11,建议用delphi 10.3以上版本)。 这一章计划初步实现搜索算法,前两章基本上按照我自己对中国象棋的理解来设计程序,从这章开始参照象棋巫师算法。 本章目标: 用子力位置价值表实现局面评价函数; 用超出边界(Fail-Soft)的Alph 阅读全文
posted @ 2021-12-14 22:10 舟扁叶一 阅读(967) 评论(0) 推荐(0)
摘要: 声明:本程序设计参考象棋巫师源码(开发工具dephi 11,建议用delphi 10.3以上版本)。 本章目标: 实现中国象棋规则 上一章我们设计了图形界面,可以开始轮流走棋了。但是,由于没有按中国象棋的规则进行限制,所有的棋子都可以在棋盘上随意走动,这章我们开始制定行棋规则。 2.1 记录局面 在 阅读全文
posted @ 2021-12-12 22:13 舟扁叶一 阅读(961) 评论(0) 推荐(0)
摘要: 声明:本程序设计参考象棋巫师源码(开发工具dephi 11,建议用delphi 10.3以上版本)。 本章目标: 制作一个可操作的图形界面 第一步我们设计图形界面,显示初始化棋局。效果如下图: 我们先做个3D象棋子控件(请看我的博客关于FireMonkey3D的文章:万能控件Mesh详解),源码如下 阅读全文
posted @ 2021-12-11 22:12 舟扁叶一 阅读(1576) 评论(0) 推荐(0)
摘要: 在网上发现一篇60行javascript超经典俄罗斯方块代码,值得学习,转为Delphi如下,有详细注释,不再另讲解: unit Block_Unit; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.V 阅读全文
posted @ 2021-08-30 16:44 舟扁叶一 阅读(1081) 评论(0) 推荐(0)
摘要: 偶尔发现一个比较好用的XLS文件读写插件,下载的压缩包里有Delphi的示例,最新版本有Delphi7和Delphi12的例子,区别在于ANSI与UTF-8的支持。这个示例下有API调用的Pas文件, 最新版本可以从以下网站下载:http://www.libxl.com/。这个插件不是免费的,但是不 阅读全文
posted @ 2021-08-22 16:12 舟扁叶一 阅读(1200) 评论(1) 推荐(0)
摘要: 所谓的方阵,举个例子:3X3的方格上填1-9个数字,使每行、每列、每个对角线的数字相加的和相等。这个算法可以填3以上的奇数方阵,填方阵有口诀: 1填左边正中央,依次斜填左上方,左边出格右侧填,上边出格下侧填,无处可填填右边。以下算法就是实现这个口诀(代码内有注释): function SetMR(c 阅读全文
posted @ 2021-08-22 15:32 舟扁叶一 阅读(381) 评论(0) 推荐(0)