File tree Expand file tree Collapse file tree 2 files changed +4
-2
lines changed
Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Original file line number Diff line number Diff line change 7373 truth-quality (if (:truth derived-task) (truth-to-quality (:truth derived-task))
7474 0.0 #_(w2c 1.0 ))
7575 complexity (:sc derived-task)
76- rescale-factor 0.3 ; should probably not above input belief quality!
76+ rescale-factor 0.4 ; should probably not above input belief quality!
7777 quality (* truth-quality
7878 rescale-factor
7979 #_(/ 1.0 (Math/sqrt complexity)))]
Original file line number Diff line number Diff line change 6363 ([tl old-strength]
6464 (let [prio-me (concept-priority (:id @state))
6565 prio-other (concept-priority tl)
66+ evidence-mul 0.5
6667 association (t-and prio-me prio-other)
6768 disassocation (t-and prio-me (- 1.0 prio-other))]
68- (revision [0.0 disassocation] (revision old-strength [1.0 association])))))
69+ (revision [0.0 (* evidence-mul disassocation)]
70+ (revision old-strength [1.0 (* evidence-mul association)])))))
6971
7072(defn update-termlink [tl] ; term
7173 (let [old-strength ((:termlinks @state) tl)]
You can’t perform that action at this time.
0 commit comments