Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.35 by yoffy, Wed Oct 27 00:10:12 2004 UTC revision 1.36 by yoffy, Wed Oct 27 08:24:23 2004 UTC
# Line 648  begin Line 648  begin
648                          // ※推論が間違っている場合はユーザがあぼ〜んを修正する事で学習される                          // ※推論が間違っている場合はユーザがあぼ〜んを修正する事で学習される
649                          for j := FAbonRes.FLearned to resList.Count - 1 do begin                          for j := FAbonRes.FLearned to resList.Count - 1 do begin
650                                  wordCount.Clear;                                  wordCount.Clear;
651                                  spamminess := GikoSys.Bayesian.Parse( resList[ j ], wordCount );                                  spamminess := GikoSys.SpamParse( resList[ j ], wordCount );
652                                  if spamminess >= SPAM_THRESHOLD then begin                                  if spamminess >= SPAM_THRESHOLD then begin
653                                          // スパム                                          // スパム
654                                          GikoSys.Bayesian.Learn( wordCount, True );                                          GikoSys.Bayesian.Learn( wordCount, True );

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26