【文章內(nèi)容簡介】 8 第四章 數(shù)據(jù)模型構建 數(shù)據(jù)流的構建 打開 Clementine 軟件，在源選項卡中選擇“可變文件”節(jié)點，單擊編輯，進行如下設置：在文件設置中，導入處理好的數(shù)據(jù)，勾選“讀取文件中的字段名”， 在定“界符中”選項框中勾選“逗號”，“新行”；在類型設置中，將 ID字段設為無類型， CONTENT 設為集， TIME 設為范圍。 設置過程截圖如下： 圖 1 導入數(shù)據(jù) 9 圖 2 數(shù)據(jù)類型設置 再點擊選取表節(jié)點，連接可變文件，執(zhí)行，觀察數(shù)據(jù)是否正確導入了。然后在數(shù)學建模選項卡中選擇“序列”節(jié)點，連接可變文件，點擊編輯，進行如下設置： 在字段設置中，將 ID字段設置為 ID,勾選“設置時間字段”，選擇 TIME，內(nèi)容字段中選擇 CONTENT。在模型設置中，設置合適的最小規(guī)則支持度，最小規(guī)則置信度，最大序列大小，要添加到流 的預測。 設置過程截圖如下： 10 圖 3 序列分析字段設置 11 圖 4 序列分析模型參數(shù)設置 以上過程設置好后，對“序列”字段點擊執(zhí)行 ，產(chǎn)生結果。 數(shù)據(jù)流的構建過程截圖如下： 圖 5 數(shù)據(jù)流構建 12 第五章 模型結果分析 結果的分析處理 首先在“序列”節(jié)點的模型設置中設置好合適的最小支持度，最小置信度?，F(xiàn)在將最小支持度設置為 3%，最小置信度設置為 60%，取其結果進行相應的分析。結果如下： 13 圖 6 測試模型結果 將最小支持度設置為 3%，最小置信度設置為 60%是為了剔除最小支持度小于3%，最小置信度 小于 60%的結果。以第一條結果為例進行說明：前項為 4， 7，后項為 4，表示點擊了 4號網(wǎng)頁，再點 7 號網(wǎng)頁，可推送出 4 號網(wǎng)頁。因為記錄一共有 989818，此條結果支持度為 %，故先點擊 4號網(wǎng)頁，再點擊 7 號網(wǎng)頁的記錄一共有約 40000 多條，點擊了 4 號和 7 號網(wǎng)頁后，在點擊 4 號的可能性為%，即為其置信度。其他條記錄可依此類推。 結果合理性分析 以上選取的 最小支持度設置為 3%，最小置信度設置為 60%，那么根據(jù)這個設置可以看出，只有重復出現(xiàn) 30000 次左右的結果才會被保留下來，這樣會 導致很多條結果被剔除，所得出的結論很少，不利于分析推送。所以最小支持度應該設置的更小一定，使結果更加有合理性。 重新設置相關參數(shù)，最小支持度設置為 %，最小置信度設置為 60%，則前項必須出現(xiàn)的次數(shù)達到 5000 次左右結果才會被保留。結果如下： 14 圖 7 修正模型結果 15 圖 8 模型結果匯總 從結果匯總中可以看出，將最小支持度設置為 %，最小置信度設置為 60%時，規(guī)則數(shù)一共有 161 條，有效的事務數(shù)有 383534 條。其中最小的支持度為%，最大支持度為 %。最小置信度為 %，最大 置信度為 %。從有效事務數(shù)，規(guī)則條數(shù)上看，這個結果還是很合理的。置信度也在 60%以上 ，有一定可信度。故可以選擇這個分析結果。最后將此結果導出，保留給推薦系統(tǒng)備用。 16 第六章 應用系統(tǒng)設計 模型接口 經(jīng)討論分析我們決定，運用 軟件實現(xiàn)對本系統(tǒng)的應用設計。具體分析實現(xiàn)步驟如下： 。定義全局數(shù)組 msn，用于記錄用戶所進入網(wǎng)頁的的編號 ,代碼如下： unit Uall。 interface var msn:array[0..1000] of integer。//定義數(shù)組，保存訪問數(shù)據(jù) var i:integer。 implementation uses Ulocal, Umain, Unews, Utech。 initialization i:=0。 end. 17個窗口作為網(wǎng)頁，并新建一個主窗口 Fmain,在 Fmain中拉入 label,當用戶點擊相應的 label 時，進入相應的網(wǎng)頁，并將網(wǎng)頁的編號記錄到數(shù)據(jù) 數(shù)組中，并將數(shù)組下標 i 自加 1。具體 label 中代碼如下： procedure (Sender: TObject)。 begin 。 。 []:=2。 :=+1。 end。 。在 Fmain 中拉入一個 button，當用戶點擊此 button 時，系統(tǒng)進行推薦，在此中寫入代碼，具體分析步驟如下： 1）取分析后文本數(shù)據(jù)中一行，并將一行數(shù)據(jù)進行分割， 取最后一個編號為推薦編號 轉換為 Int 型，賦值給整型變量 SE。將數(shù)據(jù)逐個轉換為 int 型，賦值給 msnint 數(shù)組 ，數(shù)據(jù)最后一個編號不寫如數(shù)組。 2）將 msnint 數(shù)組中數(shù)據(jù)從結尾開始逐個與用戶操作序列數(shù)組結尾開始進行比較。用戶操作序列數(shù)組 與 msnint 中匹配時，將 SE 值轉換為 string型賦值給 SEE，并將 temp 值賦值為 1。 3）對 temp 進行判斷， temp 為 1時則說明可進行推薦。則將推薦的數(shù)據(jù) SEE賦值給 。即可顯示。 17 具體代碼如下： procedure (Sender: TObject)。 var F: TextFile。 S: string。 //保存一行 字符 SE:integer。//保存推薦網(wǎng)頁編號 SEE:string。//保存臨時推薦網(wǎng)頁編號 SS:string。 //保存所有推薦 Slist:Tstringlist。//定義字符截取 i:integer。 //ii:integer。 alli:integer。 temp:integer。// inn:integer。 scount:integer。 msnint:array[0..1000] of integer。//定義數(shù)組，保存 int 型數(shù)據(jù) begin temp:=0。 SEE:=39。39。 SS:=39。39。 AssignFile(F,39。39。)。 //綁定文件到文件類型變量 Reset(F)。//打開一個存在的文件 ,另 Rewrite 創(chuàng)建文件并打開 while not eof(F) do begin Readln(F,S)。//讀取一行字符 ////字符串的截取 Slist:=。 :=39。 39。 //設置分隔符 :=S。 //設置待分割的字符串 scount:=。 for i:=0 to do //列舉所有值，保存進數(shù)組 begin msnint[i]:=Strtoint(Slist[i])。 end。 SE:=Strtoint(Slist[scount])。//取最后一個編號為推薦編號 // i:=scount1。 alli:=。//取最大值 while msnint[i]=[alli] do begin 18