c]情緒推定一般規則
/* ↓悲しみの性質 */
feel( , , sad):- = person( , _R, ), , good_before( , ),
bad_after( , ).
/* ↓喜びの性質 */
feel( , , joy):- = person( , _R, ), , bad_before( , ),
good_after( , ).
/* ↓好ましいの性質 */
feel( , , liking):- = person( , _R, ), , good_after( , ).
/* ↓嫌だの性質 */
feel( , , disliking):- = person( , _R, ), , bad_after( ,
).
/* ↓怒りの性質 */
feel( , , anger):- = person( , owner, ), =
person( , user, ), ,
, superior( , ), good_before( , ), bad_after( , ).
/* ↓恐れの性質 */
feel( , , fear):- = person( , owner, ), =
person( , user, ), , ,
superior( , ), good_before( , ), bad_after( , ).
|