Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/AbonUnit.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|