[Toss-devel-svn] SF.net SVN: toss:[1295] trunk/Toss

[<luk...@us...>]

Revision: 1295
          http://toss.svn.sourceforge.net/toss/?rev=1295&view=rev
Author:   lukaszkaiser
Date:     2011-01-31 01:29:45 +0000 (Mon, 31 Jan 2011)

Log Message:
-----------
Try increased depth.

Modified Paths:
--------------
    trunk/Toss/GGP/GDL.ml
    trunk/Toss/Server/Server.ml

Modified: trunk/Toss/GGP/GDL.ml
===================================================================
--- trunk/Toss/GGP/GDL.ml	2011-01-30 20:30:02 UTC (rev 1294)
+++ trunk/Toss/GGP/GDL.ml	2011-01-31 01:29:45 UTC (rev 1295)
@@ -2001,7 +2001,7 @@
   player_name_terms := [|Const "WHITE"; Const "RED"|];
   Game.use_monotonic := false;
   let effort, horizon, heur_adv_ratio =
-    6, 100, 4.0 in
+    8, 100, 4.0 in
   effort, horizon, heur_adv_ratio
 
 let initialize_game_breakthrough state player game_descr startcl =
@@ -2010,7 +2010,7 @@
   game_description := game_descr;
   player_name_terms := [|Const "WHITE"; Const "BLACK"|];
   let effort, horizon, heur_adv_ratio =
-    3, 100, 2.0 in
+    4, 100, 2.0 in
   effort, horizon, heur_adv_ratio
 
 let initialize_game_pawn_whopping state player game_descr startcl =
@@ -2019,7 +2019,7 @@
   game_description := game_descr;
   player_name_terms := [|Const "X"; Const "O"|];
   let effort, horizon, heur_adv_ratio =
-    5, 100, 2.0 in
+    6, 100, 2.0 in
   effort, horizon, heur_adv_ratio
 
 let initialize_game state player game_descr startcl =

Modified: trunk/Toss/Server/Server.ml
===================================================================
--- trunk/Toss/Server/Server.ml	2011-01-30 20:30:02 UTC (rev 1294)
+++ trunk/Toss/Server/Server.ml	2011-01-31 01:29:45 UTC (rev 1295)
@@ -494,7 +494,7 @@
 let main () =
   Gc.set { (Gc.get()) with
              Gc.space_overhead = 300;  (* 300% instead of 80% std *)
-             Gc.minor_heap_size = 64*1024; (* 2*std, opt ~= L2 cache/proc *)
+             Gc.minor_heap_size = 80*1024; (* 2*std, opt ~= L2 cache/proc *)
              Gc.major_heap_increment = 8*124*1024 (* 8*std ok *) };
   let (server, port) = (ref "localhost", ref 8110) in
   let opts = [


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.