【正文】 // i:=scount1。 4:SEE:=39。 12:SEE:=39。 ShowMessage(39。代碼如下： procedure (Sender: TObject)。 var F: TextFile。 SS:=39。 for i:=0 to do //列舉所有值，保存進(jìn)數(shù)組 begin msnint[i]:=Strtoint(Slist[i])。//+39。輿論 39。MSN 體育 39。 //SEE:=39。 end. 24 圖 11 單個 網(wǎng)頁 軟件測試 ，進(jìn)入加載界面如圖 12： 圖 12 加載界面 2． 進(jìn)入主界面，點(diǎn)擊， 13 號 MSN 體育，訪問網(wǎng)頁 MSN 體育，如圖 13，圖14 所示： 25 圖 13 選擇進(jìn)入網(wǎng)頁 圖 14網(wǎng)頁 顯示 ， 7 號網(wǎng)頁音樂，訪問網(wǎng)頁音樂，如圖 15，圖 16所示： 26 圖 15 進(jìn)入網(wǎng)頁 圖 16網(wǎng)頁 顯示 ，系統(tǒng)自動推薦 13 號網(wǎng)頁 MSN 體育，如圖 17： 27 圖 17 顯示推薦 網(wǎng)頁 ，系統(tǒng)跳出彈框，顯示推薦網(wǎng)頁，如圖 18 圖 18 按鈕推薦網(wǎng)頁 7 號，選擇音樂，進(jìn)入音樂網(wǎng)頁如圖 19 所示： 28 圖 19 進(jìn)入音樂網(wǎng)頁 ，進(jìn)入主界 面，系統(tǒng)無法找到匹配序列，則自動清空推薦網(wǎng)頁 ，如圖 20： 圖 20 推薦自動清空 ，給出提示，說明系統(tǒng)未能找到匹配的推薦網(wǎng)頁，如圖 21所示： 29 圖 21 按鈕推薦提醒 9．在主界面點(diǎn)擊退出，則退出系統(tǒng)，如圖 22 所示： 圖 22退出系統(tǒng) 測試，軟件能夠正常運(yùn)行。 我們是設(shè)計一個網(wǎng)頁推薦系統(tǒng)，采用的工具是 delphi，可視化窗口程序設(shè)計。這個部分的處理需要對Clementine 的各個控件很熟悉，要掌握序列關(guān)聯(lián)分析的理論知識，最后要對分析出的結(jié)果進(jìn)行合理性分析，結(jié)合實(shí)際，判斷自己得出的結(jié)論是否有應(yīng)用性。 。向您推薦 :39。商業(yè) 39。本地新聞 39。 if i=1 then begin temp:=1。 //設(shè)置分隔符 :=S。 SEE:=39。 end。 功能實(shí)現(xiàn)需要加入 timer， gauge 和 imag 控件，導(dǎo)入圖片，使圖形更加美觀。.39。 11:SEE:=39。 3:SEE:=39。 end。//定義數(shù)組，保存 int 型數(shù)據(jù) begin temp:=0。則將推薦的數(shù)據(jù) SEE賦值給 。//定義數(shù)組，保存訪問數(shù)據(jù) var i:integer。因?yàn)橛涗浺还灿?989818，此條結(jié)果支持度為 %，故先點(diǎn)擊 4號網(wǎng)頁，再點(diǎn)擊 7 號網(wǎng)頁的記錄一共有約 40000 多條，點(diǎn)擊了 4 號和 7 號網(wǎng)頁后，在點(diǎn)擊 4 號的可能性為%，即為其置信度。i+1\n。 //將截取數(shù)字轉(zhuǎn)換為整型，賦值給數(shù) 組 p=strtok(NULL,split)。 int i=0,count=0。 一第三行數(shù)據(jù)為例對單個用戶的數(shù)據(jù)進(jìn)行說明。本文利用 Clementine 數(shù)據(jù) 挖掘的方法和技術(shù)對用戶所訪問的頁面序列進(jìn)行挖掘，構(gòu)建 網(wǎng)頁推薦的 模型，實(shí)現(xiàn)對當(dāng)前站點(diǎn)排序方式的優(yōu)化，從而最大限度地優(yōu)化用戶訪問體驗(yàn)，提高 當(dāng)前站點(diǎn)信 息獲取的整體效率。 選取的方法是 Clementine 的序列關(guān)聯(lián) ，所以要將數(shù)據(jù)處理成 Clementine 可讀取的格式，并且要刪減不必要的數(shù)據(jù)，改寫數(shù)據(jù)的格式，這樣才能達(dá)到分析處理的要求。//保存一行 int 型數(shù)據(jù)數(shù)組 int msn2[10000]。 int a=0。//關(guān)閉文件 } 數(shù)據(jù)預(yù)處理結(jié)果 數(shù)據(jù)處理好之后，形式為三列，分別是用戶號，用戶點(diǎn)擊的網(wǎng)頁號，點(diǎn)擊網(wǎng)頁的次序號。所以最小支持度應(yīng)該設(shè)置的更小一定，使結(jié)果更加有合理性。 end. 17個窗口作為網(wǎng)頁，并新建一個主窗口 Fmain,在 Fmain中拉入 label,當(dāng)用戶點(diǎn)擊相應(yīng)的 label 時，進(jìn)入相應(yīng)的網(wǎng)頁，并將網(wǎng)頁的編號記錄到數(shù)據(jù) 數(shù)組中，并將數(shù)組下標(biāo) i 自加 1。 var F: TextFile。 SS:=39。 alli:=。本地新聞 39。商業(yè) 39。向您推薦 :39。 begin :=+1。 S: string。39。 //showmessage(39。 39。 6:SEE:=39。 14:SEE:=39。39。但是，在網(wǎng)頁的設(shè)計方面還不夠完美，不夠貼近于實(shí)際，有待改善。這部分要能熟練使用 delphi 開發(fā)工具，合理設(shè)計窗體，處理好模型接口，能很好的導(dǎo)入結(jié)果數(shù)據(jù)，還要處理好人機(jī)交互接口，讓用戶能簡單方便的操作，界面要注意美觀簡約。然后就需要使用到數(shù)據(jù)處理的工具，選用 Clementine 來處理數(shù)據(jù)，選用的方法是關(guān)聯(lián)規(guī)則的序列關(guān)聯(lián)分析。 begin close。 //ShowMessage(39。 12:SEE:=39。 4:SEE:=39。 alli:=alli1。 39。//定義數(shù)組，保存 int 型數(shù)據(jù) begin temp:=0。 begin 。這樣使系統(tǒng)更具有親和力。 :=inttostr(inn)+39。健康 39。新聞 39。 for i:=0 to do //列舉所有值，保存進(jìn)數(shù)組 begin msnint[i]:=Strtoint(Slist[i])。 msnint:array[0..1000] of integer。 3）對 temp 進(jìn)行判斷， temp 為 1時則說明可進(jìn)行推薦。 interface var msn:array[0..1000] of integer。以第一條結(jié)果為例進(jìn)行說明：前項為 4， 7，后項為 4，表示點(diǎn)擊了 4號網(wǎng)頁，再點(diǎn) 7 號網(wǎng)頁，可推送出 4 號網(wǎng)頁。,39。 while(p!=NULL) { msn1[i]=atoi(p)。 //void quchu()。 基本描述分析 截取部分?jǐn)?shù)據(jù)如下： 1 1 2 3 2 2 4 2 2 2 3 3 5 1 6 1 1 6 6 7 7 7 6 6 8 8 8 8 6 9 4 4 4 10 3 10 5 10 4 4 4 1 1 1 11 1 1 1 3 12 12 1 1 每一行代表一個用戶所點(diǎn)擊的網(wǎng)頁，此次選取的數(shù)據(jù)之中一共有 17 個不同類型的網(wǎng)頁，分別是： frontpage news tech local opinion onair misc wea