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 73
73
truth-quality (if (:truth derived-task) (truth-to-quality (:truth derived-task))
74
74
0.0 #_(w2c 1.0 ))
75
75
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!
77
77
quality (* truth-quality
78
78
rescale-factor
79
79
#_(/ 1.0 (Math/sqrt complexity)))]
Original file line number Diff line number Diff line change 63
63
([tl old-strength]
64
64
(let [prio-me (concept-priority (:id @state))
65
65
prio-other (concept-priority tl)
66
+ evidence-mul 0.5
66
67
association (t-and prio-me prio-other)
67
68
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)])))))
69
71
70
72
(defn update-termlink [tl] ; term
71
73
(let [old-strength ((:termlinks @state) tl)]
You can’t perform that action at this time.
0 commit comments