1.58.0.756

[gikonavigoeson/gikonavi.git] / GikoBayesian.pas

diff --git a/GikoBayesian.pas b/GikoBayesian.pas
index 7e28dbe..a8f7c07 100644 (file)
--- a/GikoBayesian.pas
+++ b/GikoBayesian.pas
@@ -5,7 +5,7 @@ unit GikoBayesian;
 \brief \83x\83C\83W\83A\83\93\83t\83B\83\8b\83^
 
 
-$Id: GikoBayesian.pas,v 1.20 2005/08/18 14:17:47 h677 Exp $
+$Id: GikoBayesian.pas,v 1.21 2006/06/26 14:57:15 h677 Exp $
 }
 
 //! \95½\89¼\96¼\82ð\8e«\8f\91\82É\8aÜ\82ß\82È\82¢
@@ -417,7 +417,7 @@ var
        wKanjiDelimiter         : TStringList;
        words                                                   : TStringList;
        aWord                                                   : string;
-       countInfo                                       : TWordCountInfo;
+//     countInfo                                       : TWordCountInfo;
 
        function cutBoth( _aWord : string; _delim : TStringList ) : string;
        var
@@ -795,7 +795,7 @@ var
        mean                            : Extended;
        countInfo               : TWordCountInfo;
        i                                               : Integer;
-       P1, Q1, R1      : Extended;
+       P1, Q1{, R1}    : Extended;
        cnt                                     : Extended;
 begin
 
@@ -891,8 +891,8 @@ var
        mean                            : Extended;
        countInfo               : TWordCountInfo;
        i                                               : Integer;
-       normal                  : Extended;
-       important               : Extended;
+//     normal                  : Extended;
+//     important               : Extended;
        P1, Q1                  : Extended;
        cnt                                     : Extended;
 begin