[ |
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(, ). |