資源簡介
今天剛寫的Apriori算法,C#+VS2008開發,數據在bin/debug/data.txt中構造。現剛寫到頻繁項集,支持度寫好了后繼續更新。
數據挖掘 Apriori

代碼片段和文件信息
using?System;
using?System.Collections.Generic;
using?System.ComponentModel;
using?System.Data;
using?System.Drawing;
using?System.Linq;
using?System.Text;
using?System.Windows.Forms;
namespace?Apriori
{
???
????public?partial?class?Form1?:?Form
????{
????????string?erzimu;
????????string[]?strArray=?new?string[10];//事務項集合數組
????????int[]?DanZiMuLieBiao=new?int[26];//字符個數數組
????????string[]?shuangzimuliebiao=new?string[100];
????????string[]?sanzimuliebiao=new?string[200];
????????string[]?sizimuliebiao=new?string[200];
????????char[]?houxuanyixiangji=new?char[26];//候選一項集數組
????????string[]?houxuanerxiangji=new?string[100];
????????string[]?houxuansanxiangji=new?string[100];
????????string[]?houxuansixiangji=new?string[1000];
????????public?Form1()
????????{
????????????InitializeComponent();
????????}
????????private?void?button1_Click(object?sender?EventArgs?e)
????????{
????????????//求候選一項集
????????????int?i;
????????????int?j;
????????????int?m?n?u;
????????????string?q?=?textBox1.Text;//事務項集賦給字符串q
????????????strArray?=?q.Split(‘‘);
????????
????????????for?(i?=?0;?i?????????????{
????????????????foreach?(char?c?in?strArray[i])//訪問每一項字符串,每個字符
????????????????{
????????????????????if(c>=‘a‘&&c<=‘z‘)//判斷是否是字母
????????????????????{
????????????????????????DanZiMuLieBiao[c?-?‘a‘]++;//記錄每個字母個數,放到數組里
????????????????????}
???????????????????
????????????????}
????????????}
????????????for?(j?=?0;?j?????????????{
????????????????if?(DanZiMuLieBiao[j]?>=Convert.ToInt32(?comboBox1.Text))//判斷字母出現個數是否小于最小支持度3
????????????????{
????????????????????houxuanyixiangji[j]?=?(char)(j?+?‘a‘);//達到要求的字母放到候選一項集數組中
????????????????}
????????????????textBox2.AppendText(Convert.ToString(houxuanyixiangji[j]));//在文本框textBox2中顯示候選一項集
????????????}
????????????//一項集兩兩組合
????????????int?v?=?0;
????????????????for?(m?=?0;?m?????????????????{
????????????????????for?(n?=?m?+?1;?n?????????????????????{
???????????????????????????if?(houxuanyixiangji[m]?!=?‘\0‘?&&?houxuanyixiangji[n]?!=?‘\0‘)//判斷是否為0
????????????????????????????{
????????????????????????????????erzimu?=?Convert.ToString(houxuanyixiangji[m])?+?Convert.ToString(houxuanyixiangji[n])?+?““;//兩兩組合
????????????????????????????????shuangzimuliebiao[v++]?=?erzimu;//放入雙字母列表中
????????????????????????????}
????????????????????????
????????????????????}
????????????????}
????????????
????????????//求候選二項集
????????????int?k=0;
????????????int?h=0;
????????????int?s=0;
????????????string?w?=?““;
???????????for?(u?=?0;?u????????????{
???????????????if?(shuangzimuliebiao[u]?==?null)//判斷是否為空
???????????????????break;
????????????????for?(h=0;?h??????????????{
?????????????????foreach?(char?c?in?strArray[h])
???
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2014-03-26?16:10??Apriori\
?????文件????????3773??2014-03-26?11:14??Apriori\Apriori.csproj
?????文件?????????168??2014-03-26?15:29??Apriori\Apriori.csproj.user
?????目錄???????????0??2014-03-26?16:10??Apriori\Common\
?????文件????????3784??2014-03-26?16:02??Apriori\Common\Apriori.cs
?????文件?????????266??2014-03-26?16:03??Apriori\Common\Setting.cs
?????文件????????1095??2014-03-26?15:43??Apriori\Common\Transaction.cs
?????文件???????10934??2014-03-26?08:48??Apriori\Form1.Designer.cs
?????文件???????10167??2014-03-26?08:48??Apriori\Form1.cs
?????文件????????5814??2014-03-26?08:48??Apriori\Form1.resx
?????文件????????4302??2014-03-26?15:56??Apriori\Main.Designer.cs
?????文件????????1213??2014-03-26?16:04??Apriori\Main.cs
?????文件????????5814??2014-03-26?15:56??Apriori\Main.resx
?????文件?????????487??2014-03-26?08:52??Apriori\Program.cs
?????目錄???????????0??2014-03-26?16:10??Apriori\Properties\
?????文件????????1370??2009-04-04?10:49??Apriori\Properties\AssemblyInfo.cs
?????文件????????1092??2009-04-04?10:49??Apriori\Properties\Settings.Designer.cs
?????文件?????????249??2009-04-04?10:49??Apriori\Properties\Settings.settings
?????目錄???????????0??2014-03-26?16:10??Apriori\bin\
?????目錄???????????0??2014-03-26?16:10??Apriori\bin\Debug\
?????文件???????17920??2014-03-26?16:04??Apriori\bin\Debug\Apriori.exe
?????文件??????????41??2014-03-26?15:53??Apriori\bin\Debug\data.txt
?????文件?????????915??2009-04-04?12:01??Apriori.sln
- 上一篇:植物大戰僵尸C#源碼mvc
- 下一篇:C# 圖片循環滾動
評論
共有 條評論