Release commit. (slightly higher quality rescale, + confidence rescal…

…e for termlink strengths)
opennars · Jul 16, 2016 · 5eac58f · 5eac58f
1 parent 3756656
commit 5eac58f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/narjure/budget_functions.clj b/src/narjure/budget_functions.clj
@@ -73,7 +73,7 @@
          truth-quality (if (:truth derived-task) (truth-to-quality (:truth derived-task))
                                                  0.0 #_(w2c 1.0))
          complexity (:sc derived-task)
-         rescale-factor 0.3 ;should probably not above input belief quality!
+         rescale-factor 0.4 ;should probably not above input belief quality!
          quality (* truth-quality
                     rescale-factor
                     #_(/ 1.0 (Math/sqrt complexity)))]

diff --git a/src/narjure/memory_management/termlink_utils.clj b/src/narjure/memory_management/termlink_utils.clj
@@ -63,9 +63,11 @@
   ([tl old-strength]
   (let [prio-me (concept-priority (:id @state))
         prio-other (concept-priority tl)
+        evidence-mul 0.5
         association (t-and prio-me prio-other)
         disassocation (t-and prio-me (- 1.0 prio-other))]
-    (revision [0.0 disassocation] (revision old-strength [1.0 association])))))
+    (revision [0.0 (* evidence-mul disassocation)]
+              (revision old-strength [1.0 (* evidence-mul association)])))))
 
 (defn update-termlink [tl]                                  ;term
   (let [old-strength ((:termlinks @state) tl)]