]> git.somenet.org - pub/jan/ewbs-dlv.git/blob - w.dl
GITOLITE.txt
[pub/jan/ewbs-dlv.git] / w.dl
1 % windmill definition.
2
3 p(C,op,OP) :- not ab(C), windmill(C), c(C,iw,IW), IW < 5, OP = 0.
4 p(C,op,OP) :- not ab(C), windmill(C), c(C,iw,IW), IW > 40, OP = 0.
5 p(C,op,OP) :- not ab(C), windmill(C), c(C,i1,I1), I1 = 0, OP = 0.
6 p(C,op,OP) :- not ab(C), windmill(C), c(C,i1,I1), c_max(C,MAX), c(C,iw,IW), IW >= 5, IW <= 40, I1 > 0, MAX >= I1, OP = I1, #int(OP).
7 p(C,op,OP) :- not ab(C), windmill(C), c(C,i1,I1), c_max(C,MAX), c(C,iw,IW), IW >= 5, IW <= 40, I1 > 0, I1 > MAX, OP = MAX, #int(OP).
8
9