得到单词有效原子集合的算法.

[超级大笨狼]

原子:单词抠掉个别字母的子串,如:abc 中的ac bc ab abc注意:ca不算
有效原子:长度大于单词长60%的原子,可用于联想记忆,比较相似单词.

<SCRIPT LANGUAGE="vbScript">

str="aaccb"
''创建全局字典对象，用来存储所有得到的原子结果
Set dict=CreateObject("Scripting.Dictionary")

Dim a(100)
strLength=Len(str)
''原子
atomyLength=round(strLength*0.6)

For x=atomyLength To strLength
a(0)=x
''计算5选3，5选4，5选5组合
combine strLength,x
next



sub combine(m, k)
''计算组合在m里面选k个元素的全部组合情况，添加到字典对象里
i=0
j=0
For i=m To k Step -1
a(k)=i
if (k>1) then
combine i-1,k-1
else
tempStr=""
for j=1 To a(0)
tempStr=tempStr & Mid(str,a(j),1)
Next
''排除重复的，加到字典里
If Not dict. Exists(tempStr) then dict.add tempStr,Len(tempStr)
End if
next
End sub

Main()

Sub Main
''输出显示结果
For i=0 To dict.count-1
Document.write dict.keys()(i) & "  "
next
End sub
</SCRIPT>

[Red_angelX]

来接一点点分就走...

[超级大笨狼]

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication3
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
string word = this.textBox1.Text ;
List <string> list = new List<string>();
char[] Arr = word.ToCharArray();
int a = 0;
int b = 0;
pictureBox1.Show();
button1.Enabled = false;
DateTime T = DateTime.Now;
string result = "";
int strLength=word.Length;
int atomyLength = Convert.ToInt32(Math.Round(strLength * 0.6));
DateTime T1 = DateTime.Now;
//开始结算
for (int x = Convert.ToInt32(Math.Pow(2, atomyLength)); x <Convert.ToInt32(Math.Pow(2, strLength)); x++)
{
b = 0;
a = x;
while (a != 0)
{
if (a % 2 != 0)
{
result += Arr[b];
}
b++;
a >>= 1;
Application.DoEvents();
}
Application.DoEvents();
if (!list.Contains(result) && result.Length >= atomyLength)
{
list.Add(result);
}
result = "";
}
pictureBox1.Hide();
string time = (DateTime.Now - T1).ToString();
MessageBox.Show("程序运行时间:" + time);
this.listBox1.DataSource = list;
button1.Enabled = true;
}







}
}

[超级大笨狼]

输入：
"superdullwolf"

---------------------------

---------------------------
程序运行时间:00:00:03.7488720
---------------------------
OK
---------------------------

[超级大笨狼]

输入"superdullwolf"产生1771个原子，用时:00:00:03.5933590

[超级大笨狼]

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication3
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
string word = this.textBox1.Text ;
List <string> list = new List<string>();
char[] Arr = word.ToCharArray();
int a = 0;
int b = 0;
pictureBox1.Show();
button1.Enabled = false;
DateTime T = DateTime.Now;
string result = "";
int strLength=word.Length;
int atomyLength = Convert.ToInt32(Math.Round(strLength * 0.6));
DateTime T1 = DateTime.Now;
//开始结算
for (int x = Convert.ToInt32(Math.Pow(2, atomyLength)); x <Convert.ToInt32(Math.Pow(2, strLength)); x++)
{
b = 0;
a = x;
while (a != 0)
{
if (a % 2 != 0)
{
result += Arr[b];
}
b++;
a >>= 1;
Application.DoEvents();
}
Application.DoEvents();
if (!list.Contains(result) && result.Length >= atomyLength)
{
list.Add(result);
}
result = "";
}
pictureBox1.Hide();
string time = (DateTime.Now - T1).ToString();
textBox2.Text = "输入\"" + textBox1.Text + "\"产生" + list.Count + "个原子，用时:" + time;
this.listBox1.DataSource = list;
button1.Enabled = true;
}







}
}

[kencorn]

mark

[ahhisoft]

收藏

[tsxnb]

收藏

[xk2y]

收了```

[细细rainbow]

收了！

[折射光]

mark

[ymle1228]

收藏,以后再研究

[lightnightcat]

留个记号,回头细读

[「已注销」]

mark

[牙签是竹子的]

mark

[lbt777777]

楼主能不能把vb换成vc实现啊，不懂vb。net，谢拉！

[cpring]

mark
会用得着的

[akenter]

非常感谢，正在研究分词的技术^_^。另外，分词之后如何再归类也是很头痛的问题。

[audryhepburn]

用正则对象就行！比这简单！

[后浪]

收藏了，以后看！..