易语言对比俩段文字，计算出百分之相似度 有什么好思.....

cai674098989

易语言 判断俩段文本 相似度  文本相同度  相似百分之比例
有什么好的思路啊 有准确的方法吗
俩段文本 在100-3000字之间 用于文章判断相同文字使用 哈哈

文西哥

https://bbs.125.la/forum.php?mod ... 8%E4%BC%BC%E5%BA%A6

https://bbs.125.la/forum.php?mod=viewthread&tid=14767720

独倚斜阳

我选择发给各种ai gpt机qi人

易造轮

汉明距离

凌哥

  

子程序名	返回值类型	公开	备 注
L_文本_比较相似度	小数型		Levenshtein莱文斯坦距离 - 动态规划实现计算文本相似度 - 少量汇编；返回相似度百分比(0.0-1.0), 越大说明相似度越高；只适合处理短文本，内存占用很大(你也可以自己分块处理)
参数名	类 型	参考	可空	数组	备 注
文本1指针	通用型				参数可以是文本数据指针或文本型变量
文本1长度	整数型				留空为自动计算长度
文本2指针	通用型				参数可以是文本数据指针或文本型变量
文本2长度	整数型				留空为自动计算长度
返回_莱文斯坦距离	整数型

变量名	类 型	静态	数组	备 注
matrix	整数型		0
i	整数型
j	整数型
cost	整数型
临时值1	整数型
临时值2	整数型
临时值3	整数型
临时值4	整数型

取数组成员数 (matrix)
i ＝ 0
j ＝ 0
cost ＝ 0
临时值1 ＝ 0
临时值2 ＝ 0
临时值3 ＝ 0
临时值4 ＝ 0
如果真 (文本1长度 ≤ 0)
文本1长度 ＝ L_文本_取长度 (文本1指针)
如果真 (文本2长度 ≤ 0)
文本2长度 ＝ L_文本_取长度 (文本2指针)
如果真 (文本1长度 ＝ 0)
返回_莱文斯坦距离 ＝ 文本2长度
返回 (0)
如果真 (文本2长度 ＝ 0)
返回_莱文斯坦距离 ＝ 文本1长度
返回 (0)
置入代码 ({ 139, 69, 12, 64, 137, 69, 236, 139, 69, 24, 64, 137, 69, 232 })
重定义数组 (matrix, 假, 临时值1, 临时值2)
变量循环首 (0, 文本1长度, 1, i)
置入代码 ({ 139, 69, 248, 64, 137, 69, 236 })
matrix [临时值1] [1] ＝ i
变量循环尾 ()
变量循环首 (0, 文本2长度, 1, j)
置入代码 ({ 139, 69, 244, 64, 137, 69, 236 })
matrix [1] [临时值1] ＝ j
变量循环尾 ()
变量循环首 (1, 文本1长度, 1, i)
变量循环首 (1, 文本2长度, 1, j)
置入代码 ({ 139, 77, 8, 139, 9, 3, 77, 248, 73, 138, 1, 139, 77, 20, 139, 9, 3, 77, 244, 73, 58, 1, 117, 9, 199, 69, 240, 0, 0, 0, 0, 235, 7, 199, 69, 240, 1, 0, 0, 0, 139, 69, 248, 64, 137, 69, 236, 139, 69, 244, 64, 137, 69, 232 })
临时值3 ＝ matrix [i] [临时值2]
置入代码 ({ 255, 69, 228 })
临时值4 ＝ matrix [临时值1] [j]
置入代码 ({ 255, 69, 224 })
如果真 (临时值4 ＜ 临时值3)
临时值3 ＝ 临时值4

临时值4 ＝ matrix [i] [j]
置入代码 ({ 139, 69, 240, 1, 69, 224 })
如果真 (临时值4 ＜ 临时值3)
临时值3 ＝ 临时值4
matrix [临时值1] [临时值2] ＝ 临时值3
变量循环尾 ()
变量循环尾 ()
置入代码 ({ 139, 69, 12, 64, 137, 69, 236, 139, 69, 24, 64, 137, 69, 232 })
返回_莱文斯坦距离 ＝ matrix [临时值1] [临时值2]
如果 (文本1长度 ＞ 文本2长度)
cost ＝ 文本1长度
cost ＝ 文本2长度

返回 (1 － 返回_莱文斯坦距离 ÷ cost)

.版本 2<br /> <br /> .子程序 L_文本_比较相似度, 小数型, 公开, Levenshtein莱文斯坦距离 - 动态规划实现计算文本相似度 - 少量汇编；返回相似度百分比(0.0-1.0), 越大说明相似度越高；只适合处理短文本，内存占用很大(你也可以自己分块处理)<br /> .参数 文本1指针, 通用型, 参考, 参数可以是文本数据指针或文本型变量<br /> .参数 文本1长度, 整数型, 可空, 留空为自动计算长度<br /> .参数 文本2指针, 通用型, 参考, 参数可以是文本数据指针或文本型变量<br /> .参数 文本2长度, 整数型, 可空, 留空为自动计算长度<br /> .参数 返回_莱文斯坦距离, 整数型, 参考 可空<br /> .局部变量 matrix, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 cost, 整数型<br /> .局部变量 临时值1, 整数型<br /> .局部变量 临时值2, 整数型<br /> .局部变量 临时值3, 整数型<br /> .局部变量 临时值4, 整数型<br /> <br /> 取数组成员数 (matrix)<br /> i ＝ 0<br /> j ＝ 0<br /> cost ＝ 0<br /> 临时值1 ＝ 0<br /> 临时值2 ＝ 0<br /> 临时值3 ＝ 0<br /> 临时值4 ＝ 0<br /> .如果真 (文本1长度 ≤ 0)<br />     文本1长度 ＝ L_文本_取长度 (文本1指针)<br /> .如果真结束<br /> .如果真 (文本2长度 ≤ 0)<br />     文本2长度 ＝ L_文本_取长度 (文本2指针)<br /> .如果真结束<br /> .如果真 (文本1长度 ＝ 0)<br />     返回_莱文斯坦距离 ＝ 文本2长度<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (文本2长度 ＝ 0)<br />     返回_莱文斯坦距离 ＝ 文本1长度<br />     返回 (0)<br /> .如果真结束<br /> 置入代码 ({ 139, 69, 12, 64, 137, 69, 236, 139, 69, 24, 64, 137, 69, 232 })<br /> 重定义数组 (matrix, 假, 临时值1, 临时值2)<br /> <br /> .变量循环首 (0, 文本1长度, 1, i)<br />     置入代码 ({ 139, 69, 248, 64, 137, 69, 236 })<br />     matrix [临时值1] [1] ＝ i<br /> .变量循环尾 ()<br /> .变量循环首 (0, 文本2长度, 1, j)<br />     置入代码 ({ 139, 69, 244, 64, 137, 69, 236 })<br />     matrix [1] [临时值1] ＝ j<br /> .变量循环尾 ()<br /> <br /> .变量循环首 (1, 文本1长度, 1, i)<br /> <br />     .变量循环首 (1, 文本2长度, 1, j)<br />         置入代码 ({ 139, 77, 8, 139, 9, 3, 77, 248, 73, 138, 1, 139, 77, 20, 139, 9, 3, 77, 244, 73, 58, 1, 117, 9, 199, 69, 240, 0, 0, 0, 0, 235, 7, 199, 69, 240, 1, 0, 0, 0, 139, 69, 248, 64, 137, 69, 236, 139, 69, 244, 64, 137, 69, 232 })<br />         临时值3 ＝ matrix <i> [临时值2]<br />         置入代码 ({ 255, 69, 228 })<br />         临时值4 ＝ matrix [临时值1] [j]<br />         置入代码 ({ 255, 69, 224 })<br />         .如果真 (临时值4 ＜ 临时值3)<br />             临时值3 ＝ 临时值4<br />         .如果真结束<br /> <br />         临时值4 ＝ matrix <i> [j]<br />         置入代码 ({ 139, 69, 240, 1, 69, 224 })<br />         .如果真 (临时值4 ＜ 临时值3)<br />             临时值3 ＝ 临时值4<br />         .如果真结束<br />         matrix [临时值1] [临时值2] ＝ 临时值3<br />     .变量循环尾 ()<br /> <br /> .变量循环尾 ()<br /> 置入代码 ({ 139, 69, 12, 64, 137, 69, 236, 139, 69, 24, 64, 137, 69, 232 })<br /> 返回_莱文斯坦距离 ＝ matrix [临时值1] [临时值2]<br /> <br /> .如果 (文本1长度 ＞ 文本2长度)<br />     cost ＝ 文本1长度<br /> .否则<br />     cost ＝ 文本2长度<br /> .如果结束<br /> <br /> 返回 (1 － 返回_莱文斯坦距离 ÷ cost)

itoljeipw

谢谢分享，学习一下

cai674098989

凌哥 发表于 2024-2-7 21:31
[e=1].版本 2

.子程序 L_文本_比较相似度, 小数型, 公开, Levenshtein莱文斯坦距离 - 动态规划实现计算文 ...

实在是看不懂