-
Notifications
You must be signed in to change notification settings - Fork 6
/
asp_fixed_code_2.lp
74 lines (38 loc) · 2.62 KB
/
asp_fixed_code_2.lp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
% Stock code
query(C,0):-generate_q(C).
query(C1,0):-generate_q(C),opposes(C,C1).
query(C1,0):-according_to(R,C),opposes(C,C1).
%gen_graph(defeated(R,C)):-defeated(R,C).
gen_graph(legally_holds(C)):-generate_q(C).
:-generate_q(C),not legally_holds(C),const(N),not opp_const(N+1).
:-generate_q(C),legally_holds(C),opp_const(N),not const(N+1).
defeated(R2,C2):-overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2).
opposes(C1,C2):-opposes(C2,C1).
legally_enforces(R,C):-according_to(R,C),not defeated(R,C).
legally_holds(C):-legally_enforces(R,C).
:-opposes(C1,C2),legally_holds(C1),legally_holds(C2).
query(X,N):-explains(X,Y,N).
query(Y,N-1):-explains(X,Y,N),N>0.
not_leaf(X):-explains(X,Y,N),explains(Z,X,N+1).
abducible(leaf,X,N):-explains(X,Y,N),not not_leaf(X).
abducible(nleaf,X,N):-explains(X,Y,N),not_leaf(X).
ask(X,N):-query(X,N).
% Integrate with main program
{choose(X,N+1-M)}:-ask(X,M),max_ab_lvl(N).
legally_holds(X):-choose(X,K).
ask_user(X):-choose(X,M).
legally_holds(X):-user_input(X,posFact).
:-user_input(X,negFact),legally_holds(X).
:~choose(X,M).[1@M,X,M]
caused_by(pos,overrides(R1,R2),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
caused_by(pos,according_to(R2,C2),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
caused_by(pos,legally_enforces(R1,C1),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
caused_by(pos,opposes(C1,C2),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
caused_by(pos,according_to(R,C),legally_enforces(R,C),N+1):-legally_enforces(R,C),according_to(R,C),not defeated(R,C),justify(legally_enforces(R,C),N).
caused_by(neg,defeated(R,C),legally_enforces(R,C),N+1):-legally_enforces(R,C),according_to(R,C),not defeated(R,C),justify(legally_enforces(R,C),N).
caused_by(pos,legally_enforces(R,C),legally_holds(C),N+1):-legally_holds(C),legally_enforces(R,C),not user_input(posFact,C), justify(legally_holds(C),N).
caused_by(pos,user_input(posFact,C),legally_holds(C),N+1):-legally_holds(C), user_input(posFact,C), justify(legally_holds(C),N).
justify(X,N):-caused_by(pos,X,Y,N),graph_level(N+1), not user_input(posFact,X).
directedEdge(Sgn,X,Y):-caused_by(Sgn,X,Y,M).
graph_level(0..N):-max_graph_level(N).
justify(X,0):-gen_graph(X).