From: H.G. Muller <h.g.muller@hccnet.nl>
Date: Sat, 7 Aug 2010 14:26:35 +0000 (+0200)
Subject: Add some book-control options
X-Git-Url: http://winboard.nl/cgi-bin?p=xboard.git;a=commitdiff_plain;h=1e854f2b4c4aa7ed89e5bf7211487c795812899f

Add some book-control options

Options /bookDepth and /bookVariation have been added to control the use
of the GUI book. In WinBoard the Optons -> Common Engine dialog now
contains fields to set them.
---

diff --git a/args.h b/args.h
index 04f2c23..11b630d 100644
--- a/args.h
+++ b/args.h
@@ -540,6 +540,8 @@ ArgDescriptor argDescriptors[] = {
   { "polyglotDir", ArgFilename, (void *) &appData.polyglotDir, TRUE, (ArgIniType) "" },
   { "usePolyglotBook", ArgBoolean, (void *) &appData.usePolyglotBook, TRUE, (ArgIniType) FALSE },
   { "polyglotBook", ArgFilename, (void *) &appData.polyglotBook, TRUE, (ArgIniType) "" },
+  { "bookDepth", ArgInt, (void *) &appData.bookDepth, TRUE, (ArgIniType) 12 }, 
+  { "bookVariation", ArgInt, (void *) &appData.bookStrength, TRUE, (ArgIniType) 50 }, 
   { "defaultHashSize", ArgInt, (void *) &appData.defaultHashSize, TRUE, (ArgIniType) 64 }, 
   { "defaultCacheSizeEGTB", ArgInt, (void *) &appData.defaultCacheSizeEGTB, TRUE, (ArgIniType) 4 },
   { "defaultPathEGTB", ArgFilename, (void *) &appData.defaultPathEGTB, TRUE, (ArgIniType) "c:\\egtb" },
diff --git a/book.c b/book.c
index b574073..2c1a06a 100644
--- a/book.c
+++ b/book.c
@@ -32,6 +32,7 @@
 #include <string.h>
 #include <time.h>
 #include <stdlib.h>
+#include <math.h>
 
 #include "common.h"
 #include "backend.h"
@@ -466,7 +467,7 @@ char *ProbeBook(int moveNr, char *book)
     static char move_s[6];
     int total_weight;
 
-    if(book == NULL) return NULL; 
+    if(book == NULL || moveNr >= 2*appData.bookDepth) return NULL; 
 //    if(gameInfo.variant != VariantNormal) return NULL; // Zobrist scheme only works for normal Chess, so far
     f=fopen(book,"rb");
     if(!f){
@@ -497,11 +498,21 @@ char *ProbeBook(int moveNr, char *book)
         if(count == MOVE_BUF) break;
         entries[count++] = entry;
     }
+    if(appData.bookStrength != 50) { // transform weights
+        double power, maxWeight = 0.0;
+        if(appData.bookStrength) power = (100.-appData.bookStrength)/appData.bookStrength;
+        for(i=0; i<count; i++) if(entries[i].weight > maxWeight) maxWeight = entries[i].weight;
+        for(i=0; i<count; i++){
+            double weight = entries[i].weight / maxWeight;
+	      if(weight > 0)
+                entries[i].weight = appData.bookStrength || weight == 1.0 ? 1e4*exp(power * log(weight)) + 0.5 : 0.0;
+        }
+    }
     total_weight = 0;
     for(i=0; i<count; i++){
         total_weight += entries[i].weight;
     }
-    j = (random() & 0x7FFF) * total_weight >> 15; // create random < total_weight
+    j = (random() & 0xFFF) * total_weight >> 12; // create random < total_weight
     total_weight = 0;
     for(i=0; i<count; i++){
         total_weight += entries[i].weight;
diff --git a/common.h b/common.h
index 2b6d695..9b9b0e6 100644
--- a/common.h
+++ b/common.h
@@ -569,6 +569,8 @@ typedef struct {
     char * polyglotDir;
     Boolean usePolyglotBook;
     char * polyglotBook;
+    int bookDepth;
+    int bookStrength;
     int defaultHashSize;
     int defaultCacheSizeEGTB;
     char * defaultPathEGTB;
diff --git a/winboard/resource.h b/winboard/resource.h
index ee1bd86..74e350d 100644
--- a/winboard/resource.h
+++ b/winboard/resource.h
@@ -457,6 +457,8 @@
 #define IDC_OwnBook1                    1471
 #define IDC_OwnBook2                    1472
 #define IDC_Cores                       1473
+#define IDC_BookDep                     1474
+#define IDC_BookStr                     1475
 #define DLG_NewVariant                  1500
 #define OPT_VariantGothic               1501
 #define OPT_VariantCrazyhouse           1502
diff --git a/winboard/winboard.rc b/winboard/winboard.rc
index b89c8f6..254b07b 100644
--- a/winboard/winboard.rc
+++ b/winboard/winboard.rc
@@ -910,7 +910,7 @@ BEGIN
     PUSHBUTTON      "Cancel",IDCANCEL,154,185,50,14
 END
 
-DLG_OptionsUCI DIALOG DISCARDABLE  0, 0, 228, 124
+DLG_OptionsUCI DIALOG DISCARDABLE  0, 0, 228, 160
 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
 CAPTION "Common Engine Settings"
 FONT 8, "MS Sans Serif"
@@ -935,8 +935,12 @@ BEGIN
                     WS_TABSTOP,2,94,100,10
     CONTROL         "Second has Own Book",IDC_OwnBook2,"Button",BS_AUTOCHECKBOX | 
                     WS_TABSTOP,2,107,100,10
-    DEFPUSHBUTTON   "OK",IDOK,118,106,50,14
-    PUSHBUTTON      "Cancel",IDCANCEL,174,106,50,14
+    LTEXT           "Book Depth:",IDC_STATIC,106,98,52,8
+    EDITTEXT        IDC_BookDep,162,94,40,14,ES_AUTOHSCROLL
+    LTEXT           "Book Variation:",IDC_STATIC,106,116,52,8
+    EDITTEXT        IDC_BookStr,162,112,40,14,ES_AUTOHSCROLL
+    DEFPUSHBUTTON   "OK",IDOK,118,142,50,14
+    PUSHBUTTON      "Cancel",IDCANCEL,174,142,50,14
 END
 
 DLG_Null DIALOG DISCARDABLE  0, 0, 186, 50
diff --git a/winboard/woptions.c b/winboard/woptions.c
index 7420fc0..36beec9 100644
--- a/winboard/woptions.c
+++ b/winboard/woptions.c
@@ -2918,6 +2918,8 @@ LRESULT CALLBACK UciOptionsDialog(HWND hDlg, UINT message, WPARAM wParam, LPARAM
     // [HGM] book: tick boxes for own book use
     CheckDlgButton( hDlg, IDC_OwnBook1, (BOOL) appData.firstHasOwnBookUCI );
     CheckDlgButton( hDlg, IDC_OwnBook2, (BOOL) appData.secondHasOwnBookUCI );
+    SetDlgItemInt( hDlg, IDC_BookDep, appData.bookDepth, TRUE );
+    SetDlgItemInt( hDlg, IDC_BookStr, appData.bookStrength, TRUE );
 
     SendDlgItemMessage( hDlg, IDC_PolyglotDir, EM_SETSEL, 0, -1 );
 
@@ -2942,6 +2944,8 @@ LRESULT CALLBACK UciOptionsDialog(HWND hDlg, UINT message, WPARAM wParam, LPARAM
       // [HGM] book: read tick boxes for own book use
       appData.firstHasOwnBookUCI  = (Boolean) IsDlgButtonChecked( hDlg, IDC_OwnBook1 );
       appData.secondHasOwnBookUCI = (Boolean) IsDlgButtonChecked( hDlg, IDC_OwnBook2 );
+      appData.bookDepth = GetDlgItemInt(hDlg, IDC_BookDep, NULL, FALSE );
+      appData.bookStrength = GetDlgItemInt(hDlg, IDC_BookStr, NULL, FALSE );
 
       if(gameMode == BeginningOfGame) Reset(TRUE, TRUE);
       EndDialog(hDlg, TRUE);