Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoBayesian.pas

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

revision 1.15 by yoffy, Mon Nov 1 10:28:24 2004 UTC revision 1.16 by yoffy, Mon Nov 1 10:32:02 2004 UTC
# Line 810  begin Line 810  begin
810          end;          end;
811          cnt := wordCount.Count;          cnt := wordCount.Count;
812          if cnt = 0 then          if cnt = 0 then
813                  cnt := 1                  cnt := 1;
         else  
814          P1 := 1 - Power( P1, 1 / cnt );          P1 := 1 - Power( P1, 1 / cnt );
815          Q1 := 1 - Power( Q1, 1 / cnt );          Q1 := 1 - Power( Q1, 1 / cnt );
816    
# Line 903  begin Line 902  begin
902          end;          end;
903          cnt := wordCount.Count;          cnt := wordCount.Count;
904          if cnt = 0 then          if cnt = 0 then
905                  cnt := 1                  cnt := 1;
         else  
906          P1 := Power( P1, 1 / cnt );          P1 := Power( P1, 1 / cnt );
907          Q1 := Power( Q1, 1 / cnt );          Q1 := Power( Q1, 1 / cnt );
908    

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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