原子:单词抠掉个别字母的子串,如: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
 阅读全文>
发表于 @ 2008年07月22日 17:12:00|评论(loading...)|收藏
using System;
using System.Collections.Generic;
public class UTest
{
static 阅读全文>
发表于 @ 2008年07月22日 17:06:00|评论(loading...)|收藏