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