Feeling Updater

main/mind-agents/feeling-updater/feeling-updaters-v2.metta

@@ -0,0 +1,97 @@
+
+; fetches all modulator values from the modulator space
+(= (all-modulators $space)
+
+    (let* 
+        (
+            ($_ (add-modulator $space (modulator pleasure 0.5)))
+            ($activation  (fetch-modulator-val $space arousal))
+            ($resolution (fetch-modulator-val $space goal-directedness))
+            ($securing-threshold (fetch-modulator-val $space securing-threshold))
+            ($selection-threshold (fetch-modulator-val $space selection-threshold))
+            ($pleasure (fetch-modulator-val $space positive-valence))
+        )
+            ($activation $resolution $securing-threshold $selection-threshold $pleasure)
+    )
+
+)
+
+(= (sum $list)
+    (foldl + 0 $list)
+    (let * 
+    ($acc (foldl-atom $list 0 $acc $x (+ $acc $x))) 
+    ($acc)
+    )
+)
+
+; Happy feeling updater 
+(= (happy-feeling-updater $modulators)
+    (let* (
+            (($activation $resolution $securing-threshold $selection-threshold $pleasure) $modulators)
+            ($act (fuzzy-logic-p $activation H))
+            ($res (fuzzy-logic-p $resolution L))
+            ($sec (fuzzy-logic-p $securing-threshold U))
+            ($sel (fuzzy-logic-p $selection-threshold H))
+            ($ple (fuzzy-logic-p $pleasure H))
+            ($sum (sum($act $res $sec $sel $ple)))
+            ($happiness  (/ $sum 5))
+
+        )
+      $happiness
+    )
+
+)
+
+; Sad feeling updater 
+(= (sad-feeling-updater $modulators)
+    (let* (
+            (($activation $resolution $securing-threshold $selection-threshold $pleasure) $modulators)
+            ($act (fuzzy-logic-p $activation L))
+            ($res (fuzzy-logic-p $resolution H))
+            ($sec (fuzzy-logic-p $securing-threshold U))
+            ($sel (fuzzy-logic-p $selection-threshold EL))
+            ($ple (fuzzy-logic-p $pleasure EL))
+            ($sum (sum($act $res $sec $sel $ple)))
+            ($sadness  (/ $sum 5))
+
+        )
+      $sadness
+    )
+
+)
+
+; Angry feeling updater 
+(= (angry-feeling-updater $modulators)
+    (let* (
+            (($activation $resolution $securing-threshold $selection-threshold $pleasure) $modulators)
+            ($act (fuzzy-logic-p $activation H))
+            ($res (fuzzy-logic-p $resolution L))
+            ($sec (fuzzy-logic-p $securing-threshold U))
+            ($sel (fuzzy-logic-p $selection-threshold L))
+            ($ple (fuzzy-logic-p $pleasure EL))
+            ($sum (sum($act $res $sec $sel $ple)))
+            ($anger  (/ $sum 5))
+
+        )
+      $anger
+    )
+
+)
+
+; Fear feeling updater 
+(= (fear-feeling-updater $modulators)
+    (let* (
+            (($activation $resolution $securing-threshold $selection-threshold $pleasure) $modulators)
+            ($act (fuzzy-logic-p $activation EL))
+            ($res (fuzzy-logic-p $resolution EH))
+            ($sec (fuzzy-logic-p $securing-threshold L))
+            ($sel (fuzzy-logic-p $selection-threshold U))
+            ($ple (fuzzy-logic-p $pleasure EL))
+            ($sum (sum($act $res $sec $sel $ple)))
+            ($fear  (/ $sum 5))
+
+        )
+      $fear
+    )
+
+)

main/mind-agents/feeling-updater/tests/feeling-updaters-v2-test.metta

@@ -0,0 +1,14 @@
+!(register-module! ../../../../../hyperon-openpsi)
+!(register-module! ../../../../utilities-module)
+!(import! &self utilities-module:utils)
+!(import! &self hyperon-openpsi:psi-utilities:psi_utils)
+!(import! &self hyperon-openpsi:main:mind-agents:feeling-updater:feeling-updaters-v2)
+!(import! &self hyperon-openpsi:main:modulator:modulator)
+!(bind! &modulator-space (new-space))
+
+
+! (insert-modulators &modulator-space)
+!(assertEqual (happy-feeling-updater (all-modulators &modulator-space)) 0.2666666666666667)
+!(assertEqual (sad-feeling-updater (all-modulators &modulator-space)) 0.18947368421052632)
+!(assertEqual (angry-feeling-updater (all-modulators &modulator-space)) 0.22807017543859648)
+!(assertEqual (fear-feeling-updater (all-modulators &modulator-space))  0.1508771929824561)

psi-utilities/psi_utils.metta

@@ -175,4 +175,35 @@
     (Symbol  ( let $res (collapse (get-type-space $space $atom)) (not (== (%Undefined%) $res)) ))
   )
   )
-)
+)
+
+; fuzzy logic  P(m, im)
+; P is a simple fuzzy logic function produces a number within [0, 1]
+; in terms of the modulator level m and its corresponding indicator im.
+; m - modulator value 
+; im - modulator indicator(H, L, U, EL, EH)
+(= (fuzzy-logic-p $m $im)
+    (if (== $im EL)  
+         (fuzzy_less_than $m 0.15 50 )
+
+        (if (== $im L)   
+            (fuzzy_less_than $m 0.30 50 )
+
+            (if (== $im M)   
+                (fuzzy_equal $m 0.50 50 )
+
+                (if (== $im H)   
+                    (fuzzy_greater_than $m 0.70 50 )
+
+                    (if (== $im EH)   
+                        (fuzzy_greater_than $m 0.85 50 )
+                        (if (== $im U)   
+                            0
+                            (Error: Please input valid modulator indicator)
+                        )
+                    )
+                )
+            )   
+        )
+    )
+)