提供一个 文本_相似度比较的源码

debj031634

这是利用矩阵进行文本相似度的比较，两个文本进行比较。

  

子程序名	返回值类型	公开	备 注
文本相似度计算_矩阵	小数型		文本长度不要超过255，否则会报错;；利用矩阵来进行计算，精确度较高
参数名	类 型	参考	可空	数组	备 注
文本1	文本型				两个文本长度尽量相等时比较更准
文本2	文本型				两个文本长度尽量相等时比较更准

变量名	类 型	静态	数组	备 注
长1	整数型
长2	整数型
Maxlen	整数型
tmp	整数型
D	小数型
ld	整数型
文本数组1	文本型		0
文本数组2	文本型		0
i	整数型
j	整数型
概率表	整数型		256,256

文本_逐字分割 (文本1, 文本数组1)
文本_逐字分割 (文本2, 文本数组2)
长1 ＝ 取数组下标 (文本数组1, )
长2 ＝ 取数组下标 (文本数组2, )
如果真 (长1 ＝ 0)
ld ＝ 长2
如果真 (长2 ＝ 0)
ld ＝ 长1
如果 (长1 ＞ 长2)
Maxlen ＝ 长1
Maxlen ＝ 长2

' 重定义数组 (概率表, 假, Maxlen ＋ 1)
变量循环首 (1, 长1 ＋ 1, 1, i)
概率表 [i] [1] ＝ i － 1
变量循环尾 ()
变量循环首 (1, 长2 ＋ 1, 1, j)
概率表 [1] [j] ＝ j － 1
变量循环尾 ()
变量循环首 (1, 长1, 1, i)
变量循环首 (1, 长2, 1, j)
如果 (文本数组1 [i] ＝ 文本数组2 [j])
tmp ＝ 0
tmp ＝ 1
概率表 [i ＋ 1] [j ＋ 1] ＝ 三数字取最小 (概率表 [i] [j ＋ 1] ＋ 1, 概率表 [i ＋ 1] [j] ＋ 1, 概率表 [i] [j] ＋ tmp)
变量循环尾 ()
变量循环尾 ()
' 调试输出 (概率表 [长1 ＋ 1] [长2 ＋ 1])
返回 (四舍五入 (1 － 概率表 [长1 ＋ 1] [长2 ＋ 1] ÷ Maxlen, 3))

.版本 2<br /> <br /> .子程序 文本相似度计算_矩阵, 小数型, 公开, 文本长度不要超过255，否则会报错;；利用矩阵来进行计算，精确度较高<br /> .参数 文本1, 文本型, , 两个文本长度尽量相等时比较更准<br /> .参数 文本2, 文本型, , 两个文本长度尽量相等时比较更准<br /> .局部变量 长1, 整数型<br /> .局部变量 长2, 整数型<br /> .局部变量 Maxlen, 整数型<br /> .局部变量 tmp, 整数型<br /> .局部变量 D, 小数型<br /> .局部变量 ld, 整数型<br /> .局部变量 文本数组1, 文本型, , "0"<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 概率表, 整数型, , "256,256"<br /> <br /> 文本_逐字分割 (文本1, 文本数组1)<br /> 文本_逐字分割 (文本2, 文本数组2)<br /> <br /> 长1 ＝ 取数组下标 (文本数组1, )<br /> 长2 ＝ 取数组下标 (文本数组2, )<br /> .如果真 (长1 ＝ 0)<br />     ld ＝ 长2<br /> .如果真结束<br /> .如果真 (长2 ＝ 0)<br />     ld ＝ 长1<br /> .如果真结束<br /> .如果 (长1 ＞ 长2)<br />     Maxlen ＝ 长1<br /> .否则<br />     Maxlen ＝ 长2<br /> .如果结束<br /> <br /> ' 重定义数组 (概率表, 假, Maxlen ＋ 1)<br /> <br /> .变量循环首 (1, 长1 ＋ 1, 1, i)<br />     概率表 <i> [1] ＝ i － 1<br /> .变量循环尾 ()<br /> .变量循环首 (1, 长2 ＋ 1, 1, j)<br />     概率表 [1] [j] ＝ j － 1<br /> .变量循环尾 ()<br /> <br /> <br /> <br /> .变量循环首 (1, 长1, 1, i)<br />     .变量循环首 (1, 长2, 1, j)<br />         .如果 (文本数组1 <i> ＝ 文本数组2 [j])<br />             tmp ＝ 0<br />         .否则<br />             tmp ＝ 1<br />         .如果结束<br />         概率表 [i ＋ 1] [j ＋ 1] ＝ 三数字取最小 (概率表 <i> [j ＋ 1] ＋ 1, 概率表 [i ＋ 1] [j] ＋ 1, 概率表 <i> [j] ＋ tmp)<br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> ' 调试输出 (概率表 [长1 ＋ 1] [长2 ＋ 1])<br /> 返回 (四舍五入 (1 － 概率表 [长1 ＋ 1] [长2 ＋ 1] ÷ Maxlen, 3))

  

子程序名	返回值类型	公开	备 注
三数字取最小	整数型
参数名	类 型	参考	可空	数组	备 注
数1	整数型
数2	整数型
数3	整数型

变量名	类 型	静态	数组	备 注
min	整数型

min ＝ 数1
如果真 (数2 ＜ min)
min ＝ 数2
如果真 (数3 ＜ min)
min ＝ 数3
返回 (min)

.版本 2<br /> <br /> .子程序 三数字取最小, 整数型, 公开<br /> .参数 数1, 整数型<br /> .参数 数2, 整数型<br /> .参数 数3, 整数型<br /> .局部变量 min, 整数型<br /> <br /> min ＝ 数1<br /> .如果真 (数2 ＜ min)<br />     min ＝ 数2<br /> .如果真结束<br /> .如果真 (数3 ＜ min)<br />     min ＝ 数3<br /> .如果真结束<br /> 返回 (min)

2020web

这个有什么用？模糊匹配吗

咽泪装欢

debj031634 发表于 2021-2-5 13:32
嗯啊  ，不过很多时候程序环境是不连接互联网的，比如我这些小程序的使用环境都是隔离网，所以需要考虑这 ...

小程序？

debj031634

咽泪装欢 发表于 2021-2-4 15:03
很感谢开源。。但是我现在用百dAPI 比较合理。。
因为易语言 文本对比 在怎样 觉得也没有百d来得牛
不过还 ...

嗯啊  ，不过很多时候程序环境是不连接互联网的，比如我这些小程序的使用环境都是隔离网，所以需要考虑这方面的问题。

咽泪装欢

很感谢开源。。但是我现在用百dAPI 比较合理。。
因为易语言 文本对比 在怎样 觉得也没有百d来得牛
不过还是感谢