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.16 by yoffy, Mon Nov 1 10:32:02 2004 UTC revision 1.17 by h677, Fri Nov 5 14:24:26 2004 UTC
# Line 699  function TGikoBayesian.CalcPaulGraham( w Line 699  function TGikoBayesian.CalcPaulGraham( w
699                          Result := 0.01                          Result := 0.01
700                  else if info.ImportantWord + info.NormalWord * 2 < 5 then                  else if info.ImportantWord + info.NormalWord * 2 < 5 then
701                          Result := 0.5                          Result := 0.5
702                  else                  else begin
703                          Result := ( info.ImportantWord / info.ImportantText ) /                          try
704                                  ((info.NormalWord * 2 / info.NormalText ) +                                  Result := ( info.ImportantWord / info.ImportantText ) /
705                                   (info.ImportantWord / info.ImportantText));                                          ((info.NormalWord * 2 / info.NormalText ) +
706                                             (info.ImportantWord / info.ImportantText));
707                            except
708                    on EZeroDivide do Result := 0.99;
709                            end;
710                    end;
711          end;          end;
712    
713  var  var

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

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