apriori- 关联算法 perl实现

0关注
1粉丝

已卖：121份资源

大专生

65%

还不是VIP/贵宾

-

0%

威望: 0 级
论坛币: 255 个
通用积分: 3.1366
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 1650 点
帖子: 34
精华: 0
在线时间: 45 小时
注册时间: 2010-1-20
最后登录: 2024-10-24

楼主

game90730 发表于 2010-3-24 16:04:50 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

while (!$over) { #主循环
#得到Ck集合
my %CK=();
$Llen=$Llen+1;
%CK=apriori_gen($Llen,%LCK);
#进行对每个CK中的集合事务计数 ,并删除小于 min_sup的集合
%LCK=CK_count(%CK);
#合成结果集 %HD
union_HD(%LCK);
# %LL=%LCK;
# $Llen=$Llen+1;
# %CK=apriori_gen($Llen,%LL);
# %LCK=CK_count(%CK);
#判断是否结束 LCK 长度为零就表示可以结束了
my @num=(keys %LCK);
if(scalar(@num)==0) { $over=1; }
}