From 451b3c9cccec4ee5f456735442a6c4d0eece5f4b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 14 Mar 1992 14:17:09 +0000 Subject: [PATCH] Put random state in the file so that it really is deterministic. Supply legal initial values for *test-{inputs,outputs}*. --- benchmarks/cascor1.lisp | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/benchmarks/cascor1.lisp b/benchmarks/cascor1.lisp index 62daa1250..513c13151 100644 --- a/benchmarks/cascor1.lisp +++ b/benchmarks/cascor1.lisp @@ -338,11 +338,11 @@ ;;; the network's ability to generalize. These values are not used during ;;; training. -(defvar *test-inputs* nil +(defvar *test-inputs* '#() "Vector of input patterns for testing the net.") (proclaim '(simple-vector *test-inputs*)) -(defvar *test-outputs* nil +(defvar *test-outputs* '#() "Vector of output patterns for testing the net.") (proclaim '(simple-vector *test-outputs*)) @@ -1440,8 +1440,26 @@ ;;; IMu 2.00, IEps 100.00, IDcy 0.00000, IPat 8, IChange 0.030 ;;; Utype :SIGMOID, Otype :SIGMOID, RawErr NIL, Pool 8 +(defvar *save-random-state* + #+cmu + #S(RANDOM-STATE + J 6 + K 37 + SEED #(495959915 319289337 100972028 135321524 137984323 + 177928266 385820814 500959740 328846885 254554634 + 354844676 133704123 362896421 217869951 380210131 + 323670005 366246053 40575617 346460653 10417936 + 34276234 300730891 211595838 199986777 291429322 + 1196272 425488031 328015953 24567252 297307474 + 82341400 29130711 247126684 98716216 478723257 + 47355455 81983578 248879315 97829219 533448623 + 148633156 77868250 28344376 162872116 404460195 + 321766796 8557425 441861346 455213668 302826847 + 256874625 271153816 11749650 277043774 234844262)) + #-cmu (make-random-state)) + (defun time-two-spirals () - (setq *random-state* (make-random-state)) + (setq *random-state* (make-random-state *save-random-state*)) (build-two-spirals) (time (train 100 100 25))) -- GitLab