:-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_ecnet.e',4640). % From E: % % :-call_pel_directive(translate(unskipped,'/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e.lps')). :- call_pel_directive(translate(unskipped, '/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e.lps')). :-include(library('ec_planner/ec_test_incl')). :-expects_dialect(lps). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_ecnet.e',4640). % From E: % % :-call_pel_directive(translate(begining,'/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e.lps')). :- call_pel_directive(translate(begining, '/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e.lps')). % Sat, 10 Oct 2020 15:32:16 GMT File: (0x559e4af4d100)%; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004a/Holding.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Mueller:2004a, %; author = "Erik T. Mueller", %; year = "2004", %; title = "Event calculus reasoning through satisfiability", %; journal = "Journal of Logic and Computation", %; volume = "14", %; number = "5", %; pages = "703--730", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',28). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',30). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',30). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',33). % sort person % From E: % % sort(person). sort(person). % sort object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',33). % From E: % % sort(object). sort(object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',36). % event Hold(person,object) % From E: % % event(hold(person,object)). mpred_prop(hold(person,object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',36). events([hold/2]). % fluent Holding(person,object) % From E: % % fluent(holding(person,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',36). mpred_prop(holding(person,object),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',39). % person P1 % From E: % % t(person,p1). person(p1). % object O1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',39). % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',42). % Happens(Hold(P1,O1),0). % From E: % % happens_at(hold(p1,o1),0). observe hold(p1, o1)at 0. % observe([hold(p1,o1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',44). % [person,object,time] % Initiates(Hold(person,object),Holding(person,object),time). % From E: % % initiates_at( % hold(Person,Object), % holding(Person,Object), % Time). % [Time]. hold(Person, Object)initiates holding(Person, Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',44). /* initiated(happens(hold(Person,Object), Time_From, Time_Until), holding(Person,Object), []). */ % "% =================================". % !HoldsAt(Holding(P1,O1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',46). % From E: % % holds_at(not(holding(p1,o1)),0). initially not holding(p1, o1). % initial_state([not(holding(p1,o1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',48). %;;; AUTO !ReleasedAt(Holding(P1,O1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',50). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',52). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',52). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004a/Leaf.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Mueller:2004a, %; author = "Erik T. Mueller", %; year = "2004", %; title = "Event calculus reasoning through satisfiability", %; journal = "Journal of Logic and Computation", %; volume = "14", %; number = "5", %; pages = "703--730", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',83). % option trajectory on % From E: % % :-call_pel_directive(option(trajectory,on)). :- call_pel_directive(option(trajectory, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',85). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',85). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',88). % sort object % From E: % % sort(object). sort(object). % sort height: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',88). % From E: % % subsort(height,integer). subsort(height,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',91). % fluent Height(object,height) % From E: % % fluent(height(object,height)). mpred_prop(height(object,height),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',91). fluents([height/2]). % fluent Falling(object) % From E: % % fluent(falling(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',91). mpred_prop(falling(object),fluent). fluents([falling/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',93). % event StartFalling(object) % From E: % % event(startFalling(object)). mpred_prop(startFalling(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',93). events([startFalling/1]). % event HitsGround(object) % From E: % % event(hitsGround(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',93). mpred_prop(hitsGround(object),event). events([hitsGround/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',96). % [object,height1,height2,time] % HoldsAt(Height(object,height1),time) & % HoldsAt(Height(object,height2),time) -> % height1=height2. % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % holds_at(height(Object,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), height(Object, Height1), height(Object, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',96). /* d_pre([ not(equals(Height1,Height2)), holds(height(Object,Height1),Time_At), holds(height(Object,Height2),Time_At) ]). */ % "% =================================". % [object,time] % Initiates(StartFalling(object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',102). % From E: % % initiates_at( % startFalling(Object), % falling(Object), % Time). % [Time]. startFalling(Object)initiates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',102). /* initiated(happens(startFalling(Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',104). % [object,height,time] % Releases(StartFalling(object),Height(object,height),time). % From E: % % releases_at( % startFalling(Object), % height(Object,Height), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',104). releases(startFalling(Object),height(Object,Height)). % [object,height1,height2,offset,time] % HoldsAt(Height(object,height1),time) & % height2=height1-offset*offset -> % Trajectory(Falling(object),time,Height(object,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',108). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % Height2=Height1-Offset*Offset), % trajectory( % falling(Object), % Time, Time, % height(Object,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',108). holds_at(height(Object, Height1), Time), Height2=Height1-Offset*Offset -> trajectory(falling(Object), Time, height(Object, Height2), Offset). % [object,time] % HoldsAt(Falling(object),time) & % HoldsAt(Height(object,0),time) -> % Happens(HitsGround(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',113). % From E: % % '->'( % (holds_at(falling(Object),Time) , % holds_at(height(Object,0),Time)), % happens_at(hitsGround(Object),Time)). % [Time]. hitsGround(Object)if falling(Object), height(Object, 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',113). /* l_events(happens(hitsGround(Object), Time_From, Time_From), [ holds(falling(Object),Time_From), holds(height(Object,0),Time_From) ]). */ % "% =================================". %;[object,height1,height2,time] %;HoldsAt(Height(object,height1),time) & %;height1 != height2 -> %;Terminates(HitsGround(object),Height(object,height2),time). % [object,height,time] % HoldsAt(Height(object,height),time) -> % Initiates(HitsGround(object),Height(object,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',122). % From E: % % '->'( % holds_at(height(Object,Height),Time), % initiates_at( % hitsGround(Object), % height(Object,Height), % Time)). % [Time]. hitsGround(Object)initiates height(Object, Height)if height(Object, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',122). /* initiated(happens(hitsGround(Object), Time_From, Time_Until), height(Object,Height), [holds(height(Object,Height),Time_From)]). */ % "% =================================". % [object,time] % Terminates(HitsGround(object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',127). % From E: % % terminates_at( % hitsGround(Object), % falling(Object), % Time). % [Time]. hitsGround(Object)terminates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',127). /* terminated(happens(hitsGround(Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',129). % object Leaf % From E: % % t(object,leaf). object(leaf). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',131). % !HoldsAt(Falling(Leaf),0). % From E: % % holds_at(not(falling(leaf)),0). initially not falling(leaf). % initial_state([not(falling(leaf))]). % "% =================================". % HoldsAt(Height(Leaf,9),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',131). % From E: % % holds_at(height(leaf,9),0). initially height(leaf, 9). % initial_state([height(leaf,9)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',133). % Happens(StartFalling(Leaf),0). % From E: % % happens_at(startFalling(leaf),0). observe startFalling(leaf)at 0. % observe([startFalling(leaf)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',135). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',137). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 9 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',137). % From E: % % :-call_pel_directive(range(offset,1,9)). :- call_pel_directive(range(offset, 1, 9)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',139). % range height 0 9 % From E: % % :-call_pel_directive(range(height,0,9)). :- call_pel_directive(range(height, 0, 9)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Cassimatis2002/PolySpace.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @phdthesis{Cassimatis:2002, %; author = "Nicholas L. Cassimatis", %; year = "2002", %; title = "Polyscheme: A Cognitive Architecture for Integrating Multiple Representation and Inference Schemes", %; address = "Cambridge, MA", %; school = "Program in Media Arts and Sciences, School of Architecture and Planning, Massachusetts Institute of Technology", %; } %; %; sorts % sort object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',167). % From E: % % sort(object). sort(object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',169). % sort xcoord: integer % From E: % % subsort(xcoord,integer). subsort(xcoord,integer). % sort ycoord: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',169). % From E: % % subsort(ycoord,integer). subsort(ycoord,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',171). % sort grid % From E: % % sort(grid). sort(grid). % sort shape :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',171). % From E: % % sort(shape). sort(shape). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',173). % sort color % From E: % % sort(color). sort(color). %; constants % shape Round,Square :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',175). % From E: % % t(shape,round). shape(round). % From E: % % t(shape,square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',175). shape(square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',177). % color Red,Green % From E: % % t(color,red). color(red). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',177). % From E: % % t(color,green). color(green). %; predicates, fluents, and events % predicate Equal(object,object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',179). % From E: % % predicate(equal(object,object)). mpred_prop(equal(object,object),predicate). predicates([equal/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',181). % predicate Shape(object,shape) % From E: % % predicate(shape(object,shape)). mpred_prop(shape(object,shape),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',181). predicates([shape/2]). % predicate Color(object,color) % From E: % % predicate(color(object,color)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',181). mpred_prop(color(object,color),predicate). predicates([color/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',183). % fluent Location(grid,object,xcoord,ycoord) % From E: % % fluent(location(grid,object,xcoord,ycoord)). mpred_prop(location(grid,object,xcoord,ycoord),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',183). fluents([location/4]). % event Move(grid,object,xcoord,ycoord,xcoord,ycoord) % From E: % % event(move(grid,object,xcoord,ycoord,xcoord,ycoord)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',183). mpred_prop(move(grid,object,xcoord,ycoord,xcoord,ycoord),event). events([move/6]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',186). %; axioms % [object1,object2] % Equal(object1,object2) -> Equal(object2,object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',188). % From E: % % '->'( % equal(Object1,Object2), % equal(Object2,Object1)). if equal(Object1, Object2)then equal(Object2, Object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',188). /* reactive_rule([equal(Object1,Object2)], [equal(Object2,Object1)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',190). %; objects have unique shape % [object,shape1,shape2] % Shape(object,shape1) & Shape(object,shape2) -> % shape1=shape2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',192). % From E: % % '->'( % (shape(Object,Shape1) , % shape(Object,Shape2)), % Shape1=Shape2). false not equals(Shape1, Shape2), shape(Object, Shape1), shape(Object, Shape2). /* d_pre([ not(equals(Shape1,Shape2)), shape(Object,Shape1), shape(Object,Shape2) ]). */ % "% =================================". %; objects have unique color % [object,color1,color2] % Color(object,color1) & Color(object,color2) -> % color1=color2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',196). % From E: % % '->'( % (color(Object,Color1) , % color(Object,Color2)), % Color1=Color2). false not equals(Color1, Color2), color(Object, Color1), color(Object, Color2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',196). /* d_pre([ not(equals(Color1,Color2)), color(Object,Color1), color(Object,Color2) ]). */ % "% =================================". %; if objects are the same, they have the same shape % [object1,object2] % Equal(object1,object2) -> % ({shape} Shape(object1,shape) & Shape(object2,shape)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',201). % From E: % % '->'( % equal(Object1,Object2), % exists( % [Shape], % (shape(Object1,Shape) , % shape(Object2,Shape)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',201). equal(Object1, Object2) -> exists([Shape], (shape(Object1, Shape), shape(Object2, Shape))). %; if objects are the same, they have the same color % [object1,object2] % Equal(object1,object2) -> % ({color} Color(object1,color) & Color(object2,color)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',206). % From E: % % '->'( % equal(Object1,Object2), % exists( % [Color], % (color(Object1,Color) , % color(Object2,Color)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',206). equal(Object1, Object2) -> exists([Color], (color(Object1, Color), color(Object2, Color))). %; if objects are the same, they have the same location % [grid,object1,object2,xcoord1,ycoord1,xcoord2,ycoord2,time] % Equal(object1,object2) -> % (HoldsAt(Location(grid,object1,xcoord1,ycoord1),time) & % HoldsAt(Location(grid,object2,xcoord2,ycoord2),time) -> % xcoord1=xcoord2 & ycoord1=ycoord2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',211). % From E: % % '->'( % equal(Object1,Object2), % '->'( % (holds_at(location(Grid,Object1,Xcoord1,Ycoord1),Time) , % holds_at(location(Grid,Object2,Xcoord2,Ycoord2),Time)), % (Xcoord1=Xcoord2 , % Ycoord1=Ycoord2))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',211). equal(Object1, Object2) -> ( location(Grid, Object1, Xcoord1, Ycoord1), location(Grid, Object2, Xcoord2, Ycoord2)->Xcoord1=Xcoord2, Ycoord1=Ycoord2 ). %; object in one location at a time % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] % HoldsAt(Location(grid,object,xcoord1,ycoord1),time) & % HoldsAt(Location(grid,object,xcoord2,ycoord2),time) -> % xcoord1=xcoord2 & ycoord1=ycoord2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',218). % From E: % % '->'( % (holds_at(location(Grid,Object,Xcoord1,Ycoord1),Time) , % holds_at(location(Grid,Object,Xcoord2,Ycoord2),Time)), % (Xcoord1=Xcoord2 , % Ycoord1=Ycoord2)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',218). location(Grid, Object, Xcoord1, Ycoord1), location(Grid, Object, Xcoord2, Ycoord2) -> Xcoord1=Xcoord2, Ycoord1=Ycoord2. %; objects have locations % [grid,object,time] % (% {xcoord,ycoord} HoldsAt(Location(grid,object,xcoord,ycoord),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',224). % From E: % % exists( % [ Xcoord, % Ycoord ], % holds_at(location(Grid,Object,Xcoord,Ycoord),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',224). exists([Xcoord,Ycoord], location(Grid,Object,Xcoord,Ycoord)). %; different objects are not at same location % [grid,object1,object2,xcoord1,ycoord1,time] % HoldsAt(Location(grid,object1,xcoord1,ycoord1),time) & % HoldsAt(Location(grid,object2,xcoord1,ycoord1),time) -> % Equal(object1,object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',228). % From E: % % '->'( % (holds_at(location(Grid,Object1,Xcoord1,Ycoord1),Time) , % holds_at(location(Grid,Object2,Xcoord1,Ycoord1),Time)), % equal(Object1,Object2)). % [Time]. if location(Grid, Object1, Xcoord1, Ycoord1), location(Grid, Object2, Xcoord1, Ycoord1)then equal(Object1, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',228). /* reactive_rule([ holds(location(Grid, Object1, Xcoord1, Ycoord1), Time_At), holds(location(Grid, Object2, Xcoord1, Ycoord1), Time_At) ], [equal(Object1,Object2)]). */ % "% =================================". %; moving to a location causes an object to be at that location % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] % Initiates(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2), % Location(grid,object,xcoord2,ycoord2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',234). % From E: % % initiates_at( % move(Grid,Object,Xcoord1,Ycoord1,Xcoord2,Ycoord2), % location(Grid,Object,Xcoord2,Ycoord2), % Time). % [Time]. move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2)initiates location(Grid, Object, Xcoord2, Ycoord2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',234). /* initiated(happens(move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2), Time_From, Time_Until), location(Grid,Object,Xcoord2,Ycoord2), []). */ % "% =================================". %; moving to a location causes the object no longer to be at its previous %; location % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] % Terminates(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2), % Location(grid,object,xcoord1,ycoord1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',241). % From E: % % terminates_at( % move(Grid,Object,Xcoord1,Ycoord1,Xcoord2,Ycoord2), % location(Grid,Object,Xcoord1,Ycoord1), % Time). % [Time]. move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2)terminates location(Grid, Object, Xcoord1, Ycoord1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',241). /* terminated(happens(move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2), Time_From, Time_Until), location(Grid, Object, Xcoord1, Ycoord1), []). */ % "% =================================". %;; allow diagonal movements %;[grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] %;Happens(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2),time) -> %;HoldsAt(Location(grid,object,xcoord1,ycoord1),time) & %;(xcoord1=xcoord2 | %; xcoord1=xcoord2+1 | %; xcoord1=xcoord2-1) & %;(ycoord1=ycoord2 | %; ycoord1=ycoord2+1 | %; ycoord1=ycoord2-1). %; only allow right angle movements % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',259). % Happens(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2),time) -> % HoldsAt(Location(grid,object,xcoord1,ycoord1),time) & % ((xcoord1=xcoord2 & (ycoord1=ycoord2+1 | ycoord1=ycoord2-1)) | % (ycoord1=ycoord2 & (xcoord1=xcoord2+1 | xcoord1=xcoord2-1))). % From E: % % '->'( % happens_at(move(Grid,Object,Xcoord1,Ycoord1,Xcoord2,Ycoord2),Time), % (holds_at(location(Grid,Object,Xcoord1,Ycoord1),Time) , % ((Xcoord1=Xcoord2 , % (Ycoord1=Ycoord2+1 ; % Ycoord1=Ycoord2-1)) ; % (Ycoord1=Ycoord2 , % (Xcoord1=Xcoord2+1 ; % Xcoord1=Xcoord2-1))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',259). move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2) -> location(Grid, Object, Xcoord1, Ycoord1), ( Xcoord1=Xcoord2, ( Ycoord1=Ycoord2+1 ; Ycoord1=Ycoord2-1 ) ; Ycoord1=Ycoord2, ( Xcoord1=Xcoord2+1 ; Xcoord1=Xcoord2-1 ) ). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Cassimatis2002/TwoScreens.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @phdthesis{Cassimatis:2002, %; author = "Nicholas L. Cassimatis", %; year = "2002", %; title = "Polyscheme: A Cognitive Architecture for Integrating Multiple Representation and Inference Schemes", %; address = "Cambridge, MA", %; school = "Program in Media Arts and Sciences, School of Architecture and Planning, Massachusetts Institute of Technology", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',290). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',290). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',292). % load examples/Cassimatis2002/PolySpace.e % From E: % % :-call_pel_directive(load('examples/Cassimatis2002/PolySpace.e')). :- call_pel_directive(load('examples/Cassimatis2002/PolySpace.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',294). % grid G1 % From E: % % t(grid,g1). grid(g1). % object X,Y,Screen1,Screen2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',294). % From E: % % t(object,x). object(x). % From E: % % t(object,y). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',294). object(y). % From E: % % t(object,screen1). object(screen1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',294). % From E: % % t(object,screen2). object(screen2). %; perceptions: % Shape(X,Round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',297). % From E: % % shape(x,round). shape(x,round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',299). % Color(X,Red). % From E: % % color(x,red). color(x,red). % Shape(Y,Round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',299). % From E: % % shape(y,round). shape(y,round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',301). % Color(Y,Red). % From E: % % color(y,red). color(y,red). % Shape(Screen1,Square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',301). % From E: % % shape(screen1,square). shape(screen1,square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',303). % Color(Screen1,Green). % From E: % % color(screen1,green). color(screen1,green). % Shape(Screen2,Square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',303). % From E: % % shape(screen2,square). shape(screen2,square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',305). % Color(Screen2,Green). % From E: % % color(screen2,green). color(screen2,green). % [time] % HoldsAt(Location(G1,Screen1,2,0),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',305). % From E: % % holds_at(location(g1,screen1,2,0),Time). % [Time]. location(g1, screen1, 2, 0). % l_int(holds(location(g1,screen1,2,0),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',307). % [time] % HoldsAt(Location(G1,Screen2,4,0),time). % From E: % % holds_at(location(g1,screen2,4,0),Time). % [Time]. location(g1, screen2, 4, 0). % l_int(holds(location(g1,screen2,4,0),Time_At),[]). % "% =================================". % HoldsAt(Location(G1,X,1,1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',307). % From E: % % holds_at(location(g1,x,1,1),0). initially location(g1, x, 1, 1). % initial_state([location(g1,x,1,1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',309). % HoldsAt(Location(G1,Y,5,1),4). % From E: % % holds_at(location(g1,y,5,1),4). holds_at(location(g1,y,5,1),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',311). % [xcoord,ycoord,time] % xcoord!=% 2 & xcoord!=4 & !(xcoord=1 & ycoord=1 & time=0) -> % !HoldsAt(Location(G1,X,xcoord,ycoord),time) | % xcoord=5 & ycoord=1 & time=4 & Equal(X,Y). % From E: % % '->'( % (Xcoord\=2 , % Xcoord\=4 , % not( % (Xcoord=1 , % Ycoord=1 , % Time=0))), % (holds_at(not(location(g1,x,Xcoord,Ycoord)),Time) ; % (Xcoord=5 , % Ycoord=1 , % Time=4 , % equal(x,y)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',311). Xcoord\=2, Xcoord\=4, false((equals(Xcoord, 1), equals(Ycoord, 1), equals(Time, 0))) -> ( holds_at(not(location(g1, x, Xcoord, Ycoord)), Time) ; Xcoord=5, Ycoord=1, Time=4, equal(x, y) ). % [xcoord,ycoord,time] % xcoord!=% 2 & xcoord!=4 & !(xcoord=5 & ycoord=1 & time=4) -> % !HoldsAt(Location(G1,Y,xcoord,ycoord),time) | % xcoord=1 & ycoord=1 & time=0 & Equal(X,Y). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',317). % From E: % % '->'( % (Xcoord\=2 , % Xcoord\=4 , % not( % (Xcoord=5 , % Ycoord=1 , % Time=4))), % (holds_at(not(location(g1,y,Xcoord,Ycoord)),Time) ; % (Xcoord=1 , % Ycoord=1 , % Time=0 , % equal(x,y)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',317). Xcoord\=2, Xcoord\=4, false((equals(Xcoord, 5), equals(Ycoord, 1), equals(Time, 4))) -> ( holds_at(not(location(g1, y, Xcoord, Ycoord)), Time) ; Xcoord=1, Ycoord=1, Time=0, equal(x, y) ). % range time 0 4 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',320). % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',322). % range xcoord 0 5 % From E: % % :-call_pel_directive(range(xcoord,0,5)). :- call_pel_directive(range(xcoord, 0, 5)). % range ycoord 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',322). % From E: % % :-call_pel_directive(range(ycoord,0,1)). :- call_pel_directive(range(ycoord, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',324). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Cassimatis2002/OneScreen.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @phdthesis{Cassimatis:2002, %; author = "Nicholas L. Cassimatis", %; year = "2002", %; title = "Polyscheme: A Cognitive Architecture for Integrating Multiple Representation and Inference Schemes", %; address = "Cambridge, MA", %; school = "Program in Media Arts and Sciences, School of Architecture and Planning, Massachusetts Institute of Technology", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',352). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',352). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',354). % load examples/Cassimatis2002/PolySpace.e % From E: % % :-call_pel_directive(load('examples/Cassimatis2002/PolySpace.e')). :- call_pel_directive(load('examples/Cassimatis2002/PolySpace.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',356). % grid G1 % From E: % % t(grid,g1). grid(g1). % object X,Y,Screen :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',356). % From E: % % t(object,x). object(x). % From E: % % t(object,y). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',356). object(y). % From E: % % t(object,screen). object(screen). %; perceptions: % Shape(X,Round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',359). % From E: % % shape(x,round). shape(x,round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',361). % Color(X,Red). % From E: % % color(x,red). color(x,red). % Shape(Y,Round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',361). % From E: % % shape(y,round). shape(y,round). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',363). % Color(Y,Red). % From E: % % color(y,red). color(y,red). % Shape(Screen,Square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',363). % From E: % % shape(screen,square). shape(screen,square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',365). % Color(Screen,Green). % From E: % % color(screen,green). color(screen,green). % [time] % HoldsAt(Location(G1,Screen,2,0),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',365). % From E: % % holds_at(location(g1,screen,2,0),Time). % [Time]. location(g1, screen, 2, 0). % l_int(holds(location(g1,screen,2,0),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',367). % HoldsAt(Location(G1,X,1,1),0). % From E: % % holds_at(location(g1,x,1,1),0). initially location(g1, x, 1, 1). % initial_state([location(g1,x,1,1)]). % "% =================================". % HoldsAt(Location(G1,Y,3,1),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',367). % From E: % % holds_at(location(g1,y,3,1),2). holds_at(location(g1,y,3,1),2). % [xcoord,ycoord,time] % xcoord!=% 2 & !(xcoord=1 & ycoord=1 & time=0) -> % !HoldsAt(Location(G1,X,xcoord,ycoord),time) | % xcoord=3 & ycoord=1 & time=2 & Equal(X,Y). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',371). % From E: % % '->'( % (Xcoord\=2 , % not( % (Xcoord=1 , % Ycoord=1 , % Time=0))), % (holds_at(not(location(g1,x,Xcoord,Ycoord)),Time) ; % (Xcoord=3 , % Ycoord=1 , % Time=2 , % equal(x,y)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',371). Xcoord\=2, false((equals(Xcoord, 1), equals(Ycoord, 1), equals(Time, 0))) -> ( holds_at(not(location(g1, x, Xcoord, Ycoord)), Time) ; Xcoord=3, Ycoord=1, Time=2, equal(x, y) ). % [xcoord,ycoord,time] % xcoord!=% 2 & !(xcoord=3 & ycoord=1 & time=2) -> % !HoldsAt(Location(G1,Y,xcoord,ycoord),time) | % xcoord=1 & ycoord=1 & time=0 & Equal(X,Y). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',376). % From E: % % '->'( % (Xcoord\=2 , % not( % (Xcoord=3 , % Ycoord=1 , % Time=2))), % (holds_at(not(location(g1,y,Xcoord,Ycoord)),Time) ; % (Xcoord=1 , % Ycoord=1 , % Time=0 , % equal(x,y)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',376). Xcoord\=2, false((equals(Xcoord, 3), equals(Ycoord, 1), equals(Time, 2))) -> ( holds_at(not(location(g1, y, Xcoord, Ycoord)), Time) ; Xcoord=1, Ycoord=1, Time=0, equal(x, y) ). % range time 0 2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',379). % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',381). % range xcoord 0 4 % From E: % % :-call_pel_directive(range(xcoord,0,4)). :- call_pel_directive(range(xcoord, 0, 4)). % range ycoord 0 2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',381). % From E: % % :-call_pel_directive(range(ycoord,0,2)). :- call_pel_directive(range(ycoord, 0, 2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',383). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/BrewkaDixKonolige1997/Wine.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; reasoning by cases %; \fullciteA[p. 45]{BrewkaDixKonolige:1997} %; %; @book{BrewkaDixKonolige:1997, %; author = "Gerhard Brewka and J{\"{u}}rgen Dix and Kurt Konolige", %; year = "1997", %; title = "Nonmonotonic Reasoning: An Overview", %; address = "Stanford, CA", %; publisher = "CSLI", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',414). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',414). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',417). % sort x % From E: % % sort(x). sort(x). % x Person :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',417). % From E: % % t(x,person). x(person). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',420). % predicate LikesWine(x) % From E: % % predicate(likesWine(x)). mpred_prop(likesWine(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',420). predicates([likesWine/1]). % predicate Italian(x) % From E: % % predicate(italian(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',420). mpred_prop(italian(x),predicate). predicates([italian/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',422). % predicate French(x) % From E: % % predicate(french(x)). mpred_prop(french(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',422). predicates([french/1]). % predicate Ab1(x) % From E: % % predicate(ab1(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',422). mpred_prop(ab1(x),predicate). predicates([ab1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',424). % predicate Ab2(x) % From E: % % predicate(ab2(x)). mpred_prop(ab2(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',424). predicates([ab2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',426). % [x] % Italian(x) & !Ab1(x) -> LikesWine(x). % From E: % % '->'( % (italian(X) , % not(ab1(X))), % likesWine(X)). if italian(X), not ab1(X)then likesWine(X). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',426). /* reactive_rule([italian(X),not(ab1(X))], [likesWine(X)]). */ % "% =================================". % [x] % French(x) & !Ab2(x) -> LikesWine(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',426). % From E: % % '->'( % (french(X) , % not(ab2(X))), % likesWine(X)). if french(X), not ab2(X)then likesWine(X). % reactive_rule([french(X),not(ab2(X))],[likesWine(X)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',428). % [x] % Italian(x) -> !French(x). % From E: % % '->'( % italian(X), % not(french(X))). if italian(X)then not french(X). % reactive_rule([italian(X)],[not(french(X))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',430). % Italian(Person) | French(Person). % From E: % % (italian(person) ; % french(person)). false not italian(person), not french(person). % d_pre([not(italian(person)),not(french(person))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',432). % range time 0 0 % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',432). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',435). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',435). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',435). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',435). :- call_pel_directive(completion(ab2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1997/Yale.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{HanksMcDermott:1987, %; author = "Steve Hanks and Drew V. McDermott", %; year = "1987", %; title = "Nonmonotonic logic and temporal projection", %; journal = "Artificial Intelligence", %; volume = "33", %; number = "3", %; pages = "379--412", %; } %; %; \fullciteA[pp. 322--323]{Shanahan:1997} %; %; @book{Shanahan:1997, %; author = "Murray Shanahan", %; year = "1997", %; title = "Solving the Frame Problem", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; %; deduction %; %; modifications from Shanahan's formulation: %; InitiallyP -> HoldsAt %; timestamps %; added [time] Terminates(Shoot(),Loaded(),time). %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',483). % option showpred off % From E: % % :-call_pel_directive(option(showpred,off)). :- call_pel_directive(option(showpred, off)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',485). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',485). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',488). % event Load() % From E: % % event(load()). events([load/0]). % event Shoot() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',488). % From E: % % event(shoot()). events([shoot/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',490). % event Sneeze() % From E: % % event(sneeze()). events([sneeze/0]). % fluent Loaded() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',490). % From E: % % fluent(loaded()). fluents([loaded/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',492). % fluent Alive() % From E: % % fluent(alive()). fluents([alive/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',494). % [time] % Initiates(Load(),Loaded(),time). % From E: % % initiates_at(load(),loaded(),Time). % [Time]. load initiates loaded. % initiated(happens(load,Time_From,Time_Until),loaded,[]). % "% =================================". % [time] % HoldsAt(Loaded(),time) -> Terminates(Shoot(),Alive(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',494). % From E: % % '->'( % holds_at(loaded(),Time), % terminates_at(shoot(),alive(),Time)). % [Time]. shoot terminates alive if loaded. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',494). /* terminated(happens(shoot,Time_From,Time_Until), alive, [holds(loaded,Time_From)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',496). % [time] % Terminates(Shoot(),Loaded(),time). % From E: % % terminates_at(shoot(),loaded(),Time). % [Time]. shoot terminates loaded. % terminated(happens(shoot,Time_From,Time_Until),loaded,[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',498). % HoldsAt(Alive(),0). % From E: % % holds_at(alive(),0). initially alive. % initial_state([alive]). % "% =================================". % !HoldsAt(Loaded(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',498). % From E: % % holds_at(not(loaded()),0). initially not loaded. % initial_state([not(loaded)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',500). % Happens(Load(),0). % From E: % % happens_at(load(),0). observe load at 0. % observe([load],0). % "% =================================". % Happens(Sneeze(),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',500). % From E: % % happens_at(sneeze(),1). observe sneeze at 1. % observe([sneeze],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',502). % Happens(Shoot(),2). % From E: % % happens_at(shoot(),2). observe shoot at 2. % observe([shoot],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',504). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',506). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',506). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1997/StuffyRoom.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{GinsbergSmith:1988a, %; author = "Matthew L. Ginsberg and David E. Smith", %; year = "1988", %; title = "Reasoning about action \uppercase{I}: \uppercase{A} possible worlds approach", %; journal = "Artificial Intelligence", %; volume = "35", %; number = "2", %; pages = "165--195", %; } %; %; \fullciteA[pp. 288--289]{Shanahan:1997} %; %; @book{Shanahan:1997, %; author = "Murray Shanahan", %; year = "1997", %; title = "Solving the Frame Problem", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; %; deduction %; %; modifications from Shanahan's formulation: %; timestamps %; added: %; !HoldsAt(Blocked1(),0). %; !HoldsAt(Blocked2(),0). %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',555). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',555). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',558). % event Close1() % From E: % % event(close1()). events([close1/0]). % event Close2() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',558). % From E: % % event(close2()). events([close2/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',560). % event Start() % From E: % % event(start()). events([start/0]). % fluent Blocked1() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',560). % From E: % % fluent(blocked1()). fluents([blocked1/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',562). % fluent Blocked2() % From E: % % fluent(blocked2()). fluents([blocked2/0]). % fluent Stuffy() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',562). % From E: % % fluent(stuffy()). fluents([stuffy/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',564). % noninertial Stuffy % From E: % % :-call_pel_directive(noninertial(stuffy)). :- call_pel_directive(noninertial(stuffy)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',566). % [time] % Initiates(Close1(),Blocked1(),time). % From E: % % initiates_at(close1(),blocked1(),Time). % [Time]. close1 initiates blocked1. % initiated(happens(close1,Time_From,Time_Until),blocked1,[]). % "% =================================". % [time] % Initiates(Close2(),Blocked2(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',566). % From E: % % initiates_at(close2(),blocked2(),Time). % [Time]. close2 initiates blocked2. % initiated(happens(close2,Time_From,Time_Until),blocked2,[]). % "% =================================". % [time] % HoldsAt(Stuffy(),time) <-> % HoldsAt(Blocked1(),time)&HoldsAt(Blocked2(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',570). % From E: % % <->( % holds_at(stuffy(),Time), % (holds_at(blocked1(),Time) , % holds_at(blocked2(),Time))). % [Time]. if stuffy then blocked1, blocked2. /* reactive_rule([stuffy], [ holds(blocked1,Time_At), holds(blocked2,Time_At) ]). */ % "% =================================". if blocked1, blocked2 then stuffy. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',570). /* reactive_rule([ holds(blocked1,Time_At2), holds(blocked2,Time_At2) ], [stuffy]). */ % "% =================================". % [time] % Initiates(Start(),Blocked1(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',572). % From E: % % initiates_at(start(),blocked1(),Time). % [Time]. start initiates blocked1. % initiated(happens(start,Time_From,Time_Until),blocked1,[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',574). % [time] % Terminates(Start(),Blocked2(),time). % From E: % % terminates_at(start(),blocked2(),Time). % [Time]. start terminates blocked2. % terminated(happens(start,Time_From,Time_Until),blocked2,[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',576). % !HoldsAt(Blocked1(),0). % From E: % % holds_at(not(blocked1()),0). initially not blocked1. % initial_state([not(blocked1)]). % "% =================================". % !HoldsAt(Blocked2(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',576). % From E: % % holds_at(not(blocked2()),0). initially not blocked2. % initial_state([not(blocked2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',578). % Happens(Start(),0). % From E: % % happens_at(start(),0). observe start at 0. % observe([start],0). % "% =================================". % Happens(Close2(),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',578). % From E: % % happens_at(close2(),1). observe close2 at 1. % observe([close2],1). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',580). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',583). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',583). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1997/BusRide.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Kartha:1994, %; author = "G. Neelakantan Kartha", %; year = "1994", %; title = "Two counterexamples related to \uppercase{B}aker's approach to the frame problem", %; journal = "Artificial Intelligence", %; volume = "69", %; number = "1--2", %; pages = "379--391", %; } %; %; \fullciteA[pp. 359--361]{Shanahan:1997} %; %; @book{Shanahan:1997, %; author = "Murray Shanahan", %; year = "1997", %; title = "Solving the Frame Problem", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; %; modifications from Shanahan's formulation: %; InitiallyN -> !HoldsAt %; timestamps %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',628). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',628). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',631). % fluent HasTicket() % From E: % % fluent(hasTicket()). fluents([hasTicket/0]). % fluent OnRed() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',631). % From E: % % fluent(onRed()). fluents([onRed/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',633). % fluent OnYellow() % From E: % % fluent(onYellow()). fluents([onYellow/0]). % event Buy() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',633). % From E: % % event(buy()). events([buy/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',635). % event Board() % From E: % % event(board()). events([board/0]). % event BoardRed() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',635). % From E: % % event(boardRed()). events([boardRed/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',637). % event BoardYellow() % From E: % % event(boardYellow()). events([boardYellow/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',639). % [time] % Happens(Board(),time) -> Happens(BoardRed(),time) | Happens(BoardYellow(),time). % From E: % % '->'( % happens_at(board(),Time), % (happens_at(boardRed(),Time) ; % happens_at(boardYellow(),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',639). board -> false((not(boardRed), not(boardYellow))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',641). % [time] % Initiates(Buy(),HasTicket(),time). % From E: % % initiates_at(buy(),hasTicket(),Time). % [Time]. buy initiates hasTicket. % initiated(happens(buy,Time_From,Time_Until),hasTicket,[]). % "% =================================". % [time] % HoldsAt(HasTicket(),time) -> Initiates(BoardRed(),OnRed(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',641). % From E: % % '->'( % holds_at(hasTicket(),Time), % initiates_at(boardRed(),onRed(),Time)). % [Time]. boardRed initiates onRed if hasTicket. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',641). /* initiated(happens(boardRed,Time_From,Time_Until), onRed, [holds(hasTicket,Time_From)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',643). % [time] % HoldsAt(HasTicket(),time) -> Initiates(BoardYellow(),OnYellow(),time). % From E: % % '->'( % holds_at(hasTicket(),Time), % initiates_at(boardYellow(),onYellow(),Time)). % [Time]. boardYellow initiates onYellow if hasTicket. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',643). /* initiated(happens(boardYellow,Time_From,Time_Until), onYellow, [holds(hasTicket,Time_From)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',645). % [time] % !(HoldsAt(OnRed(),time) & HoldsAt(OnYellow(),time)). % From E: % % not( % (holds_at(onRed(),Time) , % holds_at(onYellow(),Time))). % [Time]. false onRed, onYellow. % d_pre([holds(onRed,Time_At),holds(onYellow,Time_At)]). % "% =================================". % [time] % HoldsAt(OnRed(),time) -> HoldsAt(HasTicket(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',645). % From E: % % '->'( % holds_at(onRed(),Time), % holds_at(hasTicket(),Time)). % [Time]. hasTicket if onRed. % l_int(holds(hasTicket,Time_At),[holds(onRed,Time_At)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',647). % [time] % HoldsAt(OnYellow(),time) -> HoldsAt(HasTicket(),time). % From E: % % '->'( % holds_at(onYellow(),Time), % holds_at(hasTicket(),Time)). % [Time]. hasTicket if onYellow. % l_int(holds(hasTicket,Time_At),[holds(onYellow,Time_At)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',649). % HoldsAt(OnRed(),2). % From E: % % holds_at(onRed(),2). holds_at(onRed,2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',651). % !HoldsAt(HasTicket(),0). % From E: % % holds_at(not(hasTicket()),0). initially not hasTicket. % initial_state([not(hasTicket)]). % "% =================================". % Happens(Buy(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',651). % From E: % % happens_at(buy(),0). observe buy at 0. % observe([buy],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',653). % Happens(Board(),1). % From E: % % happens_at(board(),1). observe board at 1. % observe([board],1). % "% =================================". %; ABDUCED Happens(BoardRed(), 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',656). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',658). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',658). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1997/DeadOrAlive.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; \fullciteA[p. 324]{Shanahan:1997} %; %; @book{Shanahan:1997, %; author = "Murray Shanahan", %; year = "1997", %; title = "Solving the Frame Problem", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; %; deduction %; %; modifications from Shanahan's formulation: %; InitiallyP -> HoldsAt %; timestamps %; added [time] Terminates(Shoot(),Loaded(),time). %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',696). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',696). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',699). % event Load() % From E: % % event(load()). events([load/0]). % event Shoot() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',699). % From E: % % event(shoot()). events([shoot/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',701). % event Sneeze() % From E: % % event(sneeze()). events([sneeze/0]). % fluent Loaded() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',701). % From E: % % fluent(loaded()). fluents([loaded/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',703). % fluent Alive() % From E: % % fluent(alive()). fluents([alive/0]). % fluent Dead() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',703). % From E: % % fluent(dead()). fluents([dead/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',705). % noninertial Dead % From E: % % :-call_pel_directive(noninertial(dead)). :- call_pel_directive(noninertial(dead)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',707). % [time] % Initiates(Load(),Loaded(),time). % From E: % % initiates_at(load(),loaded(),Time). % [Time]. load initiates loaded. % initiated(happens(load,Time_From,Time_Until),loaded,[]). % "% =================================". % [time] % HoldsAt(Loaded(),time) -> Terminates(Shoot(),Alive(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',707). % From E: % % '->'( % holds_at(loaded(),Time), % terminates_at(shoot(),alive(),Time)). % [Time]. shoot terminates alive if loaded. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',707). /* terminated(happens(shoot,Time_From,Time_Until), alive, [holds(loaded,Time_From)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',709). % [time] % Terminates(Shoot(),Loaded(),time). % From E: % % terminates_at(shoot(),loaded(),Time). % [Time]. shoot terminates loaded. % terminated(happens(shoot,Time_From,Time_Until),loaded,[]). % "% =================================". % [time] % HoldsAt(Dead(),time) <-> !HoldsAt(Alive(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',709). % From E: % % <->( % holds_at(dead(),Time), % holds_at(not(alive()),Time)). % [Time]. not alive if dead. % l_int(holds(not(alive),Time_At),[dead]). % "% =================================". if not alive then dead. % reactive_rule([holds(not(alive),Time_At2)],[dead]). % "% =================================". % HoldsAt(Alive(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',711). % From E: % % holds_at(alive(),0). initially alive. % initial_state([alive]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',713). % !HoldsAt(Loaded(),0). % From E: % % holds_at(not(loaded()),0). initially not loaded. % initial_state([not(loaded)]). % "% =================================". % Happens(Load(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',713). % From E: % % happens_at(load(),0). observe load at 0. % observe([load],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',715). % Happens(Sneeze(),1). % From E: % % happens_at(sneeze(),1). observe sneeze at 1. % observe([sneeze],1). % "% =================================". % Happens(Shoot(),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',715). % From E: % % happens_at(shoot(),2). observe shoot at 2. % observe([shoot],2). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',717). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',720). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',720). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1997/Supermarket.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; \fullciteA[pp. 302--304]{Shanahan:1997} %; %; @book{Shanahan:1997, %; author = "Murray Shanahan", %; year = "1997", %; title = "Solving the Frame Problem", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; %; deduction %; %; modifications from Shanahan's formulation: %; reformulated using the method of \fullciteA[pp. 460--461]{MillerShanahan:2002} %; %; @incollection{MillerShanahan:2002, %; author = "Rob Miller and Murray Shanahan", %; year = "2002", %; title = "Some alternative formulations of the event calculus", %; editor = "Antonis C. Kakas and Fariba Sadri", %; booktitle = "Computational Logic: Logic Programming and Beyond: Essays in Honour of \uppercase{R}obert \uppercase{A}. \uppercase{K}owalski, Part \uppercase{II}", %; series = "Lecture Notes in Computer Science", %; volume = "2408", %; pages = "452--490", %; address = "Berlin", %; publisher = "Springer", %; } %; %; added: %; !HoldsAt(Forwards(), 0). %; !HoldsAt(Backwards(), 0). %; !HoldsAt(Spinning(), 0). %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',774). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',774). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',777). % event Push() % From E: % % event(push()). events([push/0]). % event Pull() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',777). % From E: % % event(pull()). events([pull/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',779). % fluent Forwards() % From E: % % fluent(forwards()). fluents([forwards/0]). % fluent Backwards() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',779). % From E: % % fluent(backwards()). fluents([backwards/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',781). % fluent Spinning() % From E: % % fluent(spinning()). fluents([spinning/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',783). % [time] % !Happens(Pull(), time) -> % Initiates(Push(), Forwards(), time). % From E: % % '->'( % not(happens_at(pull(),Time)), % initiates_at(push(),forwards(),Time)). % [Time]. push initiates forwards if not pull. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',783). /* initiated(happens(push,Time_From,Time_Until), forwards, [not(pull)]). */ % "% =================================". % [time] % !Happens(Pull(), time) -> % Terminates(Push(), Backwards(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',788). % From E: % % '->'( % not(happens_at(pull(),Time)), % terminates_at(push(),backwards(),Time)). % [Time]. push terminates backwards if not pull. /* terminated(happens(push,Time_From,Time_Until), backwards, [not(pull)]). */ % "% =================================". % [time] % !Happens(Push(), time) -> % Initiates(Pull(), Backwards(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',792). % From E: % % '->'( % not(happens_at(push(),Time)), % initiates_at(pull(),backwards(),Time)). % [Time]. pull initiates backwards if not push. /* initiated(happens(pull,Time_From,Time_Until), backwards, [not(push)]). */ % "% =================================". % [time] % !Happens(Push(), time) -> % Terminates(Pull(), Forwards(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',796). % From E: % % '->'( % not(happens_at(push(),Time)), % terminates_at(pull(),forwards(),Time)). % [Time]. pull terminates forwards if not push. /* terminated(happens(pull,Time_From,Time_Until), forwards, [not(push)]). */ % "% =================================". % [time] % Happens(Push(), time) -> % Initiates(Pull(), Spinning(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',800). % From E: % % '->'( % happens_at(push(),Time), % initiates_at(pull(),spinning(),Time)). % [Time]. pull initiates spinning if push. /* initiated(happens(pull,Time_From,Time_Until), spinning, [happens(push,Time_From,Time_Until)]). */ % "% =================================". % [time] % Happens(Push(), time) -> % Terminates(Pull(), Forwards(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',804). % From E: % % '->'( % happens_at(push(),Time), % terminates_at(pull(),forwards(),Time)). % [Time]. pull terminates forwards if push. /* terminated(happens(pull,Time_From,Time_Until), forwards, [happens(push,Time_From,Time_Until)]). */ % "% =================================". % [time] % Happens(Push(), time) -> % Terminates(Pull(), Backwards(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',808). % From E: % % '->'( % happens_at(push(),Time), % terminates_at(pull(),backwards(),Time)). % [Time]. pull terminates backwards if push. /* terminated(happens(pull,Time_From,Time_Until), backwards, [happens(push,Time_From,Time_Until)]). */ % "% =================================". % [time] % !Happens(Pull(), time) -> % Terminates(Push(), Spinning(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',812). % From E: % % '->'( % not(happens_at(pull(),Time)), % terminates_at(push(),spinning(),Time)). % [Time]. push terminates spinning if not pull. /* terminated(happens(push,Time_From,Time_Until), spinning, [not(pull)]). */ % "% =================================". % [time] % !Happens(Push(), time) -> % Terminates(Pull(), Spinning(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',816). % From E: % % '->'( % not(happens_at(push(),Time)), % terminates_at(pull(),spinning(),Time)). % [Time]. pull terminates spinning if not push. /* terminated(happens(pull,Time_From,Time_Until), spinning, [not(push)]). */ % "% =================================". % !HoldsAt(Forwards(), 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',818). % From E: % % holds_at(not(forwards()),0). initially not forwards. % initial_state([not(forwards)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',820). % !HoldsAt(Backwards(), 0). % From E: % % holds_at(not(backwards()),0). initially not backwards. % initial_state([not(backwards)]). % "% =================================". % !HoldsAt(Spinning(), 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',820). % From E: % % holds_at(not(spinning()),0). initially not spinning. % initial_state([not(spinning)]). % "% =================================". % Happens(Push(), 5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',822). % From E: % % happens_at(push(),5). observe push at 5. % observe([push],5). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',824). % Happens(Pull(), 5). % From E: % % happens_at(pull(),5). observe pull at 5. % observe([pull],5). % "% =================================". % Happens(Pull(), 10). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',824). % From E: % % happens_at(pull(),10). observe pull at 10. % observe([pull],10). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',826). % Happens(Push(), 10). % From E: % % happens_at(push(),10). observe push at 10. % observe([push],10). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',828). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',830). % range time 0 12 % From E: % % :-call_pel_directive(range(time,0,12)). :- call_pel_directive(range(time, 0, 12)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',830). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1997/StolenCar.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Kautz:1986, %; author = "Henry A. Kautz", %; year = "1986", %; title = "The Logic of Persistence", %; booktitle = "\uppercase{P}roceedings of the \uppercase{F}ifth \uppercase{N}ational \uppercase{C}onference on \uppercase{A}rtificial \uppercase{I}ntelligence", %; pages = "401--405", %; address = "Los Altos, CA", %; publisher = "Morgan Kaufmann", %; } %; %; \fullciteA[p. 359]{Shanahan:1997} %; %; @book{Shanahan:1997, %; author = "Murray Shanahan", %; year = "1997", %; title = "Solving the Frame Problem", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; %; abduction %; %; modifications from Shanahan's formulation: %; timestamps %; added !HoldsAt(CarParked(),0). %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',877). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',877). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',880). % event Park() % From E: % % event(park()). events([park/0]). % event Steal() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',880). % From E: % % event(steal()). events([steal/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',882). % fluent CarParked() % From E: % % fluent(carParked()). fluents([carParked/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',884). % [time] % Initiates(Park(),CarParked(),time). % From E: % % initiates_at(park(),carParked(),Time). % [Time]. park initiates carParked. % initiated(happens(park,Time_From,Time_Until),carParked,[]). % "% =================================". % [time] % Terminates(Steal(),CarParked(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',884). % From E: % % terminates_at(steal(),carParked(),Time). % [Time]. steal terminates carParked. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',884). /* terminated(happens(steal,Time_From,Time_Until), carParked, []). */ % "% =================================". % !HoldsAt(CarParked(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',886). % From E: % % holds_at(not(carParked()),0). initially not carParked. % initial_state([not(carParked)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',888). % Happens(Park(),0). % From E: % % happens_at(park(),0). observe park at 0. % observe([park],0). % "% =================================". %; ABDUCED Happens(Steal(), 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',890). % !HoldsAt(CarParked(),2). % From E: % % holds_at(not(carParked()),2). holds_at(not(carParked),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',892). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',892). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/MillerShanahan2002/Bowl.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; \fullciteA[p. 461]{MillerShanahan:2002} %; %; @incollection{MillerShanahan:2002, %; author = "Rob Miller and Murray Shanahan", %; year = "2002", %; title = "Some alternative formulations of the event calculus", %; editor = "Antonis C. Kakas and Fariba Sadri", %; booktitle = "Computational Logic: Logic Programming and Beyond: Essays in Honour of \uppercase{R}obert \uppercase{A}. \uppercase{K}owalski, Part \uppercase{II}", %; series = "Lecture Notes in Computer Science", %; volume = "2408", %; pages = "452--490", %; address = "Berlin", %; publisher = "Springer", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',928). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',928). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',931). % event LiftLeft() % From E: % % event(liftLeft()). events([liftLeft/0]). % event LiftRight() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',931). % From E: % % event(liftRight()). events([liftRight/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',933). % fluent Spilt() % From E: % % fluent(spilt()). fluents([spilt/0]). % fluent Raised() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',933). % From E: % % fluent(raised()). fluents([raised/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',936). % [time] % !Happens(LiftRight(), time) -> % Initiates(LiftLeft(), Spilt(), time). % From E: % % '->'( % not(happens_at(liftRight(),Time)), % initiates_at(liftLeft(),spilt(),Time)). % [Time]. liftLeft initiates spilt if not liftRight. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',936). /* initiated(happens(liftLeft,Time_From,Time_Until), spilt, [not(liftRight)]). */ % "% =================================". % [time] % !Happens(LiftLeft(), time) -> % Initiates(LiftRight(), Spilt(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',941). % From E: % % '->'( % not(happens_at(liftLeft(),Time)), % initiates_at(liftRight(),spilt(),Time)). % [Time]. liftRight initiates spilt if not liftLeft. /* initiated(happens(liftRight,Time_From,Time_Until), spilt, [not(liftLeft)]). */ % "% =================================". % [time] % Happens(LiftLeft(), time) -> % Initiates(LiftRight(), Raised(), time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',945). % From E: % % '->'( % happens_at(liftLeft(),Time), % initiates_at(liftRight(),raised(),Time)). % [Time]. liftRight initiates raised if liftLeft. /* initiated(happens(liftRight,Time_From,Time_Until), raised, [happens(liftLeft,Time_From,Time_Until)]). */ % "% =================================". % !HoldsAt(Spilt(), 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',947). % From E: % % holds_at(not(spilt()),0). initially not spilt. % initial_state([not(spilt)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',949). % !HoldsAt(Raised(), 0). % From E: % % holds_at(not(raised()),0). initially not raised. % initial_state([not(raised)]). % "% =================================". % Happens(LiftLeft(), 2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',949). % From E: % % happens_at(liftLeft(),2). observe liftLeft at 2. % observe([liftLeft],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',951). % Happens(LiftRight(), 2). % From E: % % happens_at(liftRight(),2). observe liftRight at 2. % observe([liftRight],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',953). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',955). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',955). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/ReiterCriscuolo1981/NixonDiamond1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; conflicting defaults: showing that inconsistency results %; without a cancellation rule %; \fullciteA[p. 274]{ReiterCriscuolo:1981} %; \fullciteA[pp. 98--99]{McCarthy:1986} %; %; @inproceedings{ReiterCriscuolo:1981, %; author = "Raymond Reiter and Giovanni Criscuolo", %; year = "1981", %; title = "On interacting defaults", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventh \uppercase{I}nternational \uppercase{J}oint \uppercase{C}onference on \uppercase{A}rtificial \uppercase{I}ntelligence", %; volume = "1", %; pages = "270--276", %; address = "Los Altos, CA", %; publisher = "William Kaufmann", %; } %; %; @article{McCarthy:1986, %; author = "John McCarthy", %; year = "1986", %; title = "Applications of circumscription to formalizing common-sense knowledge", %; journal = "Artificial Intelligence", %; volume = "28", %; pages = "89--116". %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1001). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1001). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1004). % sort x % From E: % % sort(x). sort(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1006). % predicate Republican(x) % From E: % % predicate(republican(x)). mpred_prop(republican(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1006). predicates([republican/1]). % predicate Quaker(x) % From E: % % predicate(quaker(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1006). mpred_prop(quaker(x),predicate). predicates([quaker/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1008). % predicate Pacifist(x) % From E: % % predicate(pacifist(x)). mpred_prop(pacifist(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1008). predicates([pacifist/1]). % predicate Ab1(x) % From E: % % predicate(ab1(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1008). mpred_prop(ab1(x),predicate). predicates([ab1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1010). % predicate Ab2(x) % From E: % % predicate(ab2(x)). mpred_prop(ab2(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1010). predicates([ab2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1012). % x John % From E: % % t(x,john). x(john). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1014). % Republican(John). % From E: % % republican(john). republican(john). % Quaker(John). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1014). % From E: % % quaker(john). quaker(john). % [x] % Republican(x) & !Ab1(x) -> !Pacifist(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1016). % From E: % % '->'( % (republican(X) , % not(ab1(X))), % not(pacifist(X))). if republican(X), not ab1(X)then not pacifist(X). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1016). /* reactive_rule([republican(X),not(ab1(X))], [not(pacifist(X))]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1018). % [x] % Quaker(x) & !Ab2(x) -> Pacifist(x). % From E: % % '->'( % (quaker(X) , % not(ab2(X))), % pacifist(X)). if quaker(X), not ab2(X)then pacifist(X). % reactive_rule([quaker(X),not(ab2(X))],[pacifist(X)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1020). % range time 0 0 % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1020). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1023). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1023). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1023). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1023). :- call_pel_directive(completion(ab2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/ReiterCriscuolo1981/NixonDiamond2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; conflicting defaults: method (D) %; \fullciteA[p. 274]{ReiterCriscuolo:1981} %; \fullciteA[pp. 98--99]{McCarthy:1986} %; \fullciteA[p. 18]{BrewkaDixKonolige:1997} %; %; @inproceedings{ReiterCriscuolo:1981, %; author = "Raymond Reiter and Giovanni Criscuolo", %; year = "1981", %; title = "On interacting defaults", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventh \uppercase{I}nternational \uppercase{J}oint \uppercase{C}onference on \uppercase{A}rtificial \uppercase{I}ntelligence", %; volume = "1", %; pages = "270--276", %; address = "Los Altos, CA", %; publisher = "William Kaufmann", %; } %; %; @article{McCarthy:1986, %; author = "John McCarthy", %; year = "1986", %; title = "Applications of circumscription to formalizing common-sense knowledge", %; journal = "Artificial Intelligence", %; volume = "28", %; pages = "89--116". %; } %; %; @book{BrewkaDixKonolige:1997, %; author = "Gerhard Brewka and J{\"{u}}rgen Dix and Kurt Konolige", %; year = "1997", %; title = "Nonmonotonic Reasoning: An Overview", %; address = "Stanford, CA", %; publisher = "CSLI", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1077). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1077). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1080). % sort x % From E: % % sort(x). sort(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1082). % predicate Republican(x) % From E: % % predicate(republican(x)). mpred_prop(republican(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1082). predicates([republican/1]). % predicate Quaker(x) % From E: % % predicate(quaker(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1082). mpred_prop(quaker(x),predicate). predicates([quaker/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1084). % predicate Pacifist(x) % From E: % % predicate(pacifist(x)). mpred_prop(pacifist(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1084). predicates([pacifist/1]). % predicate Ab1(x) % From E: % % predicate(ab1(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1084). mpred_prop(ab1(x),predicate). predicates([ab1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1086). % predicate Ab2(x) % From E: % % predicate(ab2(x)). mpred_prop(ab2(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1086). predicates([ab2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1088). % x John % From E: % % t(x,john). x(john). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1090). % Republican(John). % From E: % % republican(john). republican(john). % Quaker(John). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1090). % From E: % % quaker(john). quaker(john). % [x] % Republican(x) & !Ab1(x) -> !Pacifist(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1092). % From E: % % '->'( % (republican(X) , % not(ab1(X))), % not(pacifist(X))). if republican(X), not ab1(X)then not pacifist(X). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1092). /* reactive_rule([republican(X),not(ab1(X))], [not(pacifist(X))]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1094). % [x] % Quaker(x) & !Ab2(x) -> Pacifist(x). % From E: % % '->'( % (quaker(X) , % not(ab2(X))), % pacifist(X)). if quaker(X), not ab2(X)then pacifist(X). % reactive_rule([quaker(X),not(ab2(X))],[pacifist(X)]). % "% =================================". % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1094). % From E: % % directive(theta). directive(theta). % [x] % Republican(x) -> Ab2(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1094). % From E: % % '->'( % republican(X), % ab2(X)). if republican(X)then ab2(X). % reactive_rule([republican(X)],[ab2(X)]). % "% =================================". % range time 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1096). % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1098). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1100). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1100). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1100). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1100). :- call_pel_directive(completion(ab2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Sleep2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1129). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1129). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1132). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1134). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1136). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1136). fluents([awake/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1138). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). events([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1138). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). % event FallAsleep(agent) % From E: % % event(fallAsleep(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1138). events([fallAsleep/1]). mpred_prop(fallAsleep(agent),action). actions([fallAsleep/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1141). %; Sigma % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1143). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1143). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Terminates(FallAsleep(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1143). % From E: % % terminates_at( % fallAsleep(Agent), % awake(Agent), % Time). % [Time]. fallAsleep(Agent)terminates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1143). /* terminated(happens(fallAsleep(Agent), Time_From, Time_Until), awake(Agent), []). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1148). % !HoldsAt(Awake(Nathan),0). % From E: % % holds_at(not(awake(nathan)),0). initially not awake(nathan). % initial_state([not(awake(nathan))]). % "% =================================". % HoldsAt(Awake(Nathan),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1148). % From E: % % holds_at(awake(nathan),1). holds_at(awake(nathan),1). %; abduced: %; Happens(WakeUp(Nathan),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1154). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1154). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Sleep1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1183). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1183). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1186). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1188). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1190). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1190). fluents([awake/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1192). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). events([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1192). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). % event FallAsleep(agent) % From E: % % event(fallAsleep(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1192). events([fallAsleep/1]). mpred_prop(fallAsleep(agent),action). actions([fallAsleep/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1195). %; Sigma % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1197). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1197). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Terminates(FallAsleep(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1197). % From E: % % terminates_at( % fallAsleep(Agent), % awake(Agent), % Time). % [Time]. fallAsleep(Agent)terminates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1197). /* terminated(happens(fallAsleep(Agent), Time_From, Time_Until), awake(Agent), []). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1202). % Happens(WakeUp(Nathan),1). % From E: % % happens_at(wakeUp(nathan),1). observe wakeUp(nathan)at 1. % observe([wakeUp(nathan)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1204). %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1206). % !HoldsAt(Awake(Nathan),0). % From E: % % holds_at(not(awake(nathan)),0). initially not awake(nathan). % initial_state([not(awake(nathan))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1208). %; entailed: %; HoldsAt(Awake(Nathan),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1211). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1213). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1213). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Sleep3.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1242). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1242). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1245). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1247). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1249). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1249). fluents([awake/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1251). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). events([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1251). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). % event FallAsleep(agent) % From E: % % event(fallAsleep(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1251). events([fallAsleep/1]). mpred_prop(fallAsleep(agent),action). actions([fallAsleep/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1254). %; Sigma % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1256). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1256). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Terminates(FallAsleep(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1256). % From E: % % terminates_at( % fallAsleep(Agent), % awake(Agent), % Time). % [Time]. fallAsleep(Agent)terminates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1256). /* terminated(happens(fallAsleep(Agent), Time_From, Time_Until), awake(Agent), []). */ % "% =================================". %; Delta % [agent,time] % Happens(WakeUp(agent),time) -> % !HoldsAt(Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1261). % From E: % % '->'( % happens_at(wakeUp(Agent),Time), % holds_at(not(awake(Agent)),Time)). % [Time]. not awake(Agent)if wakeUp(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1261). /* l_int(holds(not(awake(Agent)),Time_At), [happens(wakeUp(Agent),Time_At,Time_At)]). */ % "% =================================". % Happens(WakeUp(Nathan),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1264). % From E: % % happens_at(wakeUp(nathan),0). observe wakeUp(nathan)at 0. % observe([wakeUp(nathan)],0). % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1269). % HoldsAt(Awake(Nathan),1). % From E: % % holds_at(awake(nathan),1). holds_at(awake(nathan),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1271). %; inferred: %; !HoldsAt(Awake(Nathan),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1274). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1276). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1276). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Inconsistency3.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1305). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1305). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1308). % sort object % From E: % % sort(object). sort(object). % object O1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1308). % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1311). % fluent F(object) % From E: % % fluent(f(object)). mpred_prop(f(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1311). fluents([f/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1313). % event E(object) % From E: % % event(e(object)). mpred_prop(e(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1313). events([e/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1315). % [object,time] % Releases(E(object),F(object),time). % From E: % % releases_at( % e(Object), % f(Object), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1315). releases(e(Object),f(Object)). % [object,time] % Terminates(E(object),F(object),time). % From E: % % terminates_at( % e(Object), % f(Object), % Time). % [Time]. e(Object)terminates f(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1315). /* terminated(happens(e(Object),Time_From,Time_Until), f(Object), []). */ % "% =================================". % Happens(E(O1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1317). % From E: % % happens_at(e(o1),0). observe e(o1)at 0. % observe([e(o1)],0). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1319). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1321). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Sleep4.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1349). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1349). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1352). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1354). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1356). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1356). fluents([awake/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1358). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). events([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1358). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). % event FallAsleep(agent) % From E: % % event(fallAsleep(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1358). events([fallAsleep/1]). mpred_prop(fallAsleep(agent),action). actions([fallAsleep/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1361). %; Sigma % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1363). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1363). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Terminates(FallAsleep(agent),Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1363). % From E: % % terminates_at( % fallAsleep(Agent), % awake(Agent), % Time). % [Time]. fallAsleep(Agent)terminates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1363). /* terminated(happens(fallAsleep(Agent), Time_From, Time_Until), awake(Agent), []). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1368). % Happens(WakeUp(Nathan),1). % From E: % % happens_at(wakeUp(nathan),1). observe wakeUp(nathan)at 1. % observe([wakeUp(nathan)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1370). %; entailed: %; HoldsAt(Awake(Nathan),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1373). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1375). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1375). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Inconsistency4.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1404). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1404). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1407). % sort object % From E: % % sort(object). sort(object). % object O1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1407). % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1410). % event E(object) % From E: % % event(e(object)). mpred_prop(e(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1410). events([e/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1412). % fluent F1(object) % From E: % % fluent(f1(object)). mpred_prop(f1(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1412). fluents([f1/1]). % fluent F2(object) % From E: % % fluent(f2(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1412). mpred_prop(f2(object),fluent). fluents([f2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1415). % [object,time] % Initiates(E(object),F1(object),time). % From E: % % initiates_at( % e(Object), % f1(Object), % Time). % [Time]. e(Object)initiates f1(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1415). /* initiated(happens(e(Object),Time_From,Time_Until), f1(Object), []). */ % "% =================================". % [object,time] % HoldsAt(F1(object),time) <-> HoldsAt(F2(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1419). % From E: % % <->( % holds_at(f1(Object),Time), % holds_at(f2(Object),Time)). % [Time]. if f1(Object)then f2(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1419). /* reactive_rule([holds(f1(Object),Time_At)], [f2(Object)]). */ % "% =================================". f1(Object)if f2(Object). % l_int(holds(f1(Object),Time_At3),[f2(Object)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1421). % !HoldsAt(F2(O1),0). % From E: % % holds_at(not(f2(o1)),0). initially not f2(o1). % initial_state([not(f2(o1))]). % "% =================================". % Happens(E(O1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1421). % From E: % % happens_at(e(o1),0). observe e(o1)at 0. % observe([e(o1)],0). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1423). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1425). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Inconsistency1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1453). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1453). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1456). % sort object % From E: % % sort(object). sort(object). % object O1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1456). % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1459). % fluent F(object) % From E: % % fluent(f(object)). mpred_prop(f(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1459). fluents([f/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1461). % event E(object) % From E: % % event(e(object)). mpred_prop(e(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1461). events([e/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1463). % [object,time] % Initiates(E(object),F(object),time). % From E: % % initiates_at( % e(Object), % f(Object), % Time). % [Time]. e(Object)initiates f(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1463). /* initiated(happens(e(Object),Time_From,Time_Until), f(Object), []). */ % "% =================================". % [object,time] % Terminates(E(object),F(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1463). % From E: % % terminates_at( % e(Object), % f(Object), % Time). % [Time]. e(Object)terminates f(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1463). /* terminated(happens(e(Object),Time_From,Time_Until), f(Object), []). */ % "% =================================". % Happens(E(O1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1465). % From E: % % happens_at(e(o1),0). observe e(o1)at 0. % observe([e(o1)],0). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1467). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1469). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter2/Inconsistency2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1497). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1497). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1500). % sort object % From E: % % sort(object). sort(object). % object O1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1500). % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1503). % fluent F(object) % From E: % % fluent(f(object)). mpred_prop(f(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1503). fluents([f/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1505). % event E(object) % From E: % % event(e(object)). mpred_prop(e(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1505). events([e/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1507). % [object,time] % Releases(E(object),F(object),time). % From E: % % releases_at( % e(Object), % f(Object), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1507). releases(e(Object),f(Object)). % [object,time] % Initiates(E(object),F(object),time). % From E: % % initiates_at( % e(Object), % f(Object), % Time). % [Time]. e(Object)initiates f(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1507). /* initiated(happens(e(Object),Time_From,Time_Until), f(Object), []). */ % "% =================================". % Happens(E(O1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1509). % From E: % % happens_at(e(o1),0). observe e(o1)at 0. % observe([e(o1)],0). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1511). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1513). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter8/CameraWithFlash.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1541). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1541). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1544). % sort camera % From E: % % sort(camera). sort(camera). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1546). % camera Camera1 % From E: % % t(camera,camera1). camera(camera1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1548). % fluent ProperlyExposedPicture(camera) % From E: % % fluent(properlyExposedPicture(camera)). mpred_prop(properlyExposedPicture(camera),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1548). fluents([properlyExposedPicture/1]). % fluent ImproperlyExposedPicture(camera) % From E: % % fluent(improperlyExposedPicture(camera)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1548). mpred_prop(improperlyExposedPicture(camera),fluent). fluents([improperlyExposedPicture/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1551). % event ReleaseShutter(camera) % From E: % % event(releaseShutter(camera)). mpred_prop(releaseShutter(camera),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1551). events([releaseShutter/1]). % event TriggerFlash(camera) % From E: % % event(triggerFlash(camera)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1551). mpred_prop(triggerFlash(camera),event). events([triggerFlash/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1554). %; Sigma % [camera,time] % Happens(TriggerFlash(camera),time) -> % Initiates(ReleaseShutter(camera),ProperlyExposedPicture(camera),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1556). % From E: % % '->'( % happens_at(triggerFlash(Camera),Time), % initiates_at( % releaseShutter(Camera), % properlyExposedPicture(Camera), % Time)). % [Time]. releaseShutter(Camera)initiates properlyExposedPicture(Camera)if triggerFlash(Camera). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1556). /* initiated(happens(releaseShutter(Camera), Time_From, Time_Until), properlyExposedPicture(Camera), [triggerFlash(Camera)]). */ % "% =================================". % [camera,time] % !Happens(TriggerFlash(camera),time) -> % Initiates(ReleaseShutter(camera),ImproperlyExposedPicture(camera),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1561). % From E: % % '->'( % not(happens_at(triggerFlash(Camera),Time)), % initiates_at( % releaseShutter(Camera), % improperlyExposedPicture(Camera), % Time)). % [Time]. releaseShutter(Camera)initiates improperlyExposedPicture(Camera)if not triggerFlash(Camera). /* initiated(happens(releaseShutter(Camera), Time_From, Time_Until), improperlyExposedPicture(Camera), [not(triggerFlash(Camera))]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1566). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1566). % Happens(ReleaseShutter(Camera1),0). % From E: % % happens_at(releaseShutter(camera1),0). observe releaseShutter(camera1)at 0. % observe([releaseShutter(camera1)],0). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1566). % From E: % % directive(delta). directive(delta). % Happens(TriggerFlash(Camera1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1566). % From E: % % happens_at(triggerFlash(camera1),1). observe triggerFlash(camera1)at 1. % observe([triggerFlash(camera1)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1568). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1568). % Happens(ReleaseShutter(Camera1),1). % From E: % % happens_at(releaseShutter(camera1),1). observe releaseShutter(camera1)at 1. % observe([releaseShutter(camera1)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1570). %; added: % [camera] % !HoldsAt(ImproperlyExposedPicture(camera),0). % From E: % % holds_at(not(improperlyExposedPicture(Camera)),0). initially not improperlyExposedPicture(Camera). % initial_state([not(improperlyExposedPicture(Camera))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1572). % [camera] % !HoldsAt(ProperlyExposedPicture(camera),0). % From E: % % holds_at(not(properlyExposedPicture(Camera)),0). initially not properlyExposedPicture(Camera). % initial_state([not(properlyExposedPicture(Camera))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1574). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1574). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1576). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1576). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter8/MovingRobot.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Shanahan:1996, %; author = "Murray Shanahan", %; year = "1996", %; title = "Robotics and the common sense informatic situation", %; editor = "Wolfgang Wahlster", %; booktitle = "\uppercase{P}roceedings of the \uppercase{T}welfth \uppercase{E}uropean \uppercase{C}onference on \uppercase{A}rtificial \uppercase{I}ntelligence", %; pages = "684--688", %; address = "Chichester, UK", %; publisher = "John Wiley", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1616). % option renaming off % From E: % % :-call_pel_directive(option(renaming,off)). :- call_pel_directive(option(renaming, off)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1618). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1618). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1621). % sort coord: integer % From E: % % subsort(coord,integer). subsort(coord,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1623). % sort direction: integer % From E: % % subsort(direction,integer). subsort(direction,integer). %; 0 -> 0, 1 -> 90, 2 -> 180, 3 -> 370 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1626). % sort robot % From E: % % sort(robot). sort(robot). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1628). % robot Robot1 % From E: % % t(robot,robot1). robot(robot1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1630). % function Sin(direction): coord % From E: % % function(sin(direction),coord). function(sin(direction),coord). % function Cos(direction): coord :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1630). % From E: % % function(cos(direction),coord). function(cos(direction),coord). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1633). % Sin(0)=0. % From E: % % sin(0)=0. sin(0,0). % Sin(1)=1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1633). % From E: % % sin(1)=1. sin(1,1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1635). % Sin(2)=2. % From E: % % sin(2)=2. sin(2,2). % Sin(3)=3. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1635). % From E: % % sin(3)=3. sin(3,3). % Cos(0)=1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1637). % From E: % % cos(0)=1. cos(0,1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1639). % Cos(1)=2. % From E: % % cos(1)=2. cos(1,2). % Cos(2)=3. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1639). % From E: % % cos(2)=3. cos(2,3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1641). % Cos(3)=4. % From E: % % cos(3)=4. cos(3,4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1643). % fluent Direction(robot,direction) % From E: % % fluent(direction(robot,direction)). mpred_prop(direction(robot,direction),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1643). fluents([direction/2]). % fluent Location(robot,coord,coord) % From E: % % fluent(location(robot,coord,coord)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1643). mpred_prop(location(robot,coord,coord),fluent). fluents([location/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1646). % event MoveLeftWheel(robot) % From E: % % event(moveLeftWheel(robot)). mpred_prop(moveLeftWheel(robot),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1646). events([moveLeftWheel/1]). % event MoveRightWheel(robot) % From E: % % event(moveRightWheel(robot)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1646). mpred_prop(moveRightWheel(robot),event). events([moveRightWheel/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1649). %; Sigma % [robot,direction1,direction2,time] % !Happens(MoveRightWheel(robot),time) & % HoldsAt(Direction(robot,direction1),time) & % direction2 = (direction1-1)-> % Initiates(MoveLeftWheel(robot),Direction(robot,direction2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1651). % From E: % % '->'( % (not(happens_at(moveRightWheel(Robot),Time)) , % holds_at(direction(Robot,Direction1),Time) , % Direction2=Direction1-1), % initiates_at( % moveLeftWheel(Robot), % direction(Robot,Direction2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1651). not(moveRightWheel(Robot)), direction(Robot, Direction1), Direction2=Direction1-1 -> initiates(moveLeftWheel(Robot), direction(Robot, Direction2)). % [robot,direction,time] % !Happens(MoveRightWheel(robot),time) & % HoldsAt(Direction(robot,direction),time) -> % Terminates(MoveLeftWheel(robot),Direction(robot,direction),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1658). % From E: % % '->'( % (not(happens_at(moveRightWheel(Robot),Time)) , % holds_at(direction(Robot,Direction),Time)), % terminates_at( % moveLeftWheel(Robot), % direction(Robot,Direction), % Time)). % [Time]. moveLeftWheel(Robot)terminates direction(Robot, Direction)if not moveRightWheel(Robot), direction(Robot, Direction). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1658). /* terminated(happens(moveLeftWheel(Robot), Time_From, Time_Until), direction(Robot,Direction), [ not(moveRightWheel(Robot)), holds(direction(Robot,Direction), Time_From) ]). */ % "% =================================". % [robot,direction1,direction2,time] % !Happens(MoveLeftWheel(robot),time) & % HoldsAt(Direction(robot,direction1),time) & % direction2 = (direction1+1)-> % Initiates(MoveRightWheel(robot),Direction(robot,direction2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1663). % From E: % % '->'( % (not(happens_at(moveLeftWheel(Robot),Time)) , % holds_at(direction(Robot,Direction1),Time) , % Direction2=Direction1+1), % initiates_at( % moveRightWheel(Robot), % direction(Robot,Direction2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1663). not(moveLeftWheel(Robot)), direction(Robot, Direction1), Direction2=Direction1+1 -> initiates(moveRightWheel(Robot), direction(Robot, Direction2)). % [robot,direction,time] % !Happens(MoveLeftWheel(robot),time) & % HoldsAt(Direction(robot,direction),time) -> % Terminates(MoveRightWheel(robot),Direction(robot,direction),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1669). % From E: % % '->'( % (not(happens_at(moveLeftWheel(Robot),Time)) , % holds_at(direction(Robot,Direction),Time)), % terminates_at( % moveRightWheel(Robot), % direction(Robot,Direction), % Time)). % [Time]. moveRightWheel(Robot)terminates direction(Robot, Direction)if not moveLeftWheel(Robot), direction(Robot, Direction). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1669). /* terminated(happens(moveRightWheel(Robot), Time_From, Time_Until), direction(Robot,Direction), [ not(moveLeftWheel(Robot)), holds(direction(Robot,Direction), Time_From) ]). */ % "% =================================". % [robot,direction,coord1,coord2,coord3,coord4,time] % Happens(MoveLeftWheel(robot),time) & % HoldsAt(Location(robot,coord1,coord2),time) & % HoldsAt(Direction(robot,direction),time) & % coord3 = coord1+Cos(direction) & % coord4 = coord2+Sin(direction) -> % Initiates(MoveRightWheel(robot), % Location(robot,coord3,coord4), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1674). % From E: % % '->'( % (happens_at(moveLeftWheel(Robot),Time) , % holds_at(location(Robot,Coord1,Coord2),Time) , % holds_at(direction(Robot,Direction),Time) , % Coord3=Coord1+cos(Direction) , % Coord4=Coord2+sin(Direction)), % initiates_at( % moveRightWheel(Robot), % location(Robot,Coord3,Coord4), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1674). moveLeftWheel(Robot), location(Robot, Coord1, Coord2), direction(Robot, Direction), Coord3=Coord1+cos(Direction), Coord4=Coord2+sin(Direction) -> initiates(moveRightWheel(Robot), location(Robot, Coord3, Coord4)). % [robot,coord1,coord2,time] % Happens(MoveLeftWheel(robot),time) & % HoldsAt(Location(robot,coord1,coord2),time) -> %; FIX: Direction not needed!! %; HoldsAt(Direction(robot,direction),time) -> % Terminates(MoveRightWheel(robot),Location(robot,coord1,coord2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1684). % From E: % % '->'( % (happens_at(moveLeftWheel(Robot),Time) , % holds_at(location(Robot,Coord1,Coord2),Time)), % terminates_at( % moveRightWheel(Robot), % location(Robot,Coord1,Coord2), % Time)). % [Time]. moveRightWheel(Robot)terminates location(Robot, Coord1, Coord2)if moveLeftWheel(Robot), location(Robot, Coord1, Coord2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1684). /* terminated(happens(moveRightWheel(Robot), Time_From, Time_Until), location(Robot,Coord1,Coord2), [ happens(moveLeftWheel(Robot), Time_From, Time_Until), holds(location(Robot,Coord1,Coord2), Time_From) ]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1692). % Happens(MoveRightWheel(Robot1),0). % From E: % % happens_at(moveRightWheel(robot1),0). observe moveRightWheel(robot1)at 0. % observe([moveRightWheel(robot1)],0). % "% =================================". % Happens(MoveLeftWheel(Robot1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1692). % From E: % % happens_at(moveLeftWheel(robot1),1). observe moveLeftWheel(robot1)at 1. % observe([moveLeftWheel(robot1)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1694). % Happens(MoveRightWheel(Robot1),1). % From E: % % happens_at(moveRightWheel(robot1),1). observe moveRightWheel(robot1)at 1. % observe([moveRightWheel(robot1)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1696). %; Psi % [robot,coord1,coord2,coord3,coord4,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1700). % HoldsAt(Location(robot,coord1,coord2),time) & % HoldsAt(Location(robot,coord3,coord4),time) -> % coord1=coord3 & % coord2=coord4. % From E: % % '->'( % (holds_at(location(Robot,Coord1,Coord2),Time) , % holds_at(location(Robot,Coord3,Coord4),Time)), % (Coord1=Coord3 , % Coord2=Coord4)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1700). location(Robot, Coord1, Coord2), location(Robot, Coord3, Coord4) -> Coord1=Coord3, Coord2=Coord4. % [robot,direction1,direction2,time] % HoldsAt(Direction(robot,direction1),time) & % HoldsAt(Direction(robot,direction2),time) -> % direction1=direction2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1706). % From E: % % '->'( % (holds_at(direction(Robot,Direction1),Time) , % holds_at(direction(Robot,Direction2),Time)), % Direction1=Direction2). % [Time]. false not equals(Direction1, Direction2), direction(Robot, Direction1), direction(Robot, Direction2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1706). /* d_pre([ not(equals(Direction1,Direction2)), holds(direction(Robot,Direction1),Time_At), holds(direction(Robot,Direction2),Time_At) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1712). % HoldsAt(Location(Robot1,0,0),0). % From E: % % holds_at(location(robot1,0,0),0). initially location(robot1, 0, 0). % initial_state([location(robot1,0,0)]). % "% =================================". % HoldsAt(Direction(Robot1,0),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1712). % From E: % % holds_at(direction(robot1,0),0). initially direction(robot1, 0). % initial_state([direction(robot1,0)]). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1714). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1717). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range coord 0 3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1717). % From E: % % :-call_pel_directive(range(coord,0,3)). :- call_pel_directive(range(coord, 0, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1719). % range direction 0 3 % From E: % % :-call_pel_directive(range(direction,0,3)). :- call_pel_directive(range(direction, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1719). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter8/PatHeadRubStomach.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1748). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1748). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1751). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1753). % event PatHead(agent) % From E: % % event(patHead(agent)). events([patHead/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1753). mpred_prop(patHead(agent),action). actions([patHead/1]). % event RubStomach(agent) % From E: % % event(rubStomach(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1753). events([rubStomach/1]). mpred_prop(rubStomach(agent),action). actions([rubStomach/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1756). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). %; Delta % [agent,time] % Happens(PatHead(agent),time) -> % !Happens(RubStomach(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1760). % From E: % % '->'( % happens_at(patHead(Agent),Time), % not(happens_at(rubStomach(Agent),Time))). % [Time]. if patHead(Agent)then not rubStomach(Agent). % reactive_rule([patHead(Agent)],[not(rubStomach(Agent))]). % "% =================================". % Happens(PatHead(Nathan),0) & Happens(RubStomach(Nathan),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1763). % From E: % % (happens_at(patHead(nathan),0) , % happens_at(rubStomach(nathan),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1763). observe(at(patHead(nathan), 0)), observe(at(rubStomach(nathan), 0)). % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1765). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1767). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter10/MovingNewspaperAndBox.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1795). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1795). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1798). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1798). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1800). % sort physobj: object % From E: % % subsort(physobj,object). subsort(physobj,object). % sort room: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1800). % From E: % % subsort(room,object). subsort(room,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1803). % fluent IN(object,object) % From E: % % fluent(in(object,object)). mpred_prop(in(object,object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1803). fluents([in/2]). % fluent INROOM(object,room) % From E: % % fluent(inroom(object,room)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1803). mpred_prop(inroom(object,room),fluent). fluents([inroom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1805). % noninertial INROOM % From E: % % :-call_pel_directive(noninertial(inroom)). :- call_pel_directive(noninertial(inroom)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1807). % event MOVE(agent,object,object,object) % From E: % % event(move(agent,object,object,object)). events([move/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1807). mpred_prop(move(agent,object,object,object),action). actions([move/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1809). % agent Lisa % From E: % % t(agent,lisa). agent(lisa). % physobj Box, Newspaper :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1809). % From E: % % t(physobj,box). physobj(box). % From E: % % t(physobj,newspaper). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1809). physobj(newspaper). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1811). % room Kitchen, LivingRoom % From E: % % t(room,kitchen). room(kitchen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1811). % From E: % % t(room,livingRoom). room(livingRoom). %; Sigma %; RS10 % [agent,physobj1,physobj2,room,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1817). % HoldsAt(IN(agent,room),time) & % HoldsAt(IN(physobj1,room),time) & % HoldsAt(INROOM(physobj2,room),time) -> % Initiates(MOVE(agent,physobj1,room,physobj2),IN(physobj1,physobj2),time). % From E: % % '->'( % (holds_at(in(Agent,Room),Time) , % holds_at(in(Physobj1,Room),Time) , % holds_at(inroom(Physobj2,Room),Time)), % initiates_at( % move(Agent,Physobj1,Room,Physobj2), % in(Physobj1,Physobj2), % Time)). % [Time]. move(Agent, Physobj1, Room, Physobj2)initiates Physobj1 in Physobj2 if Agent in Room, Physobj1 in Room, inroom(Physobj2, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1817). /* initiated(happens(move(Agent, Physobj1, Room, Physobj2), Time_From, Time_Until), in(Physobj1,Physobj2), [ holds(in(Agent,Room),Time_From), holds(in(Physobj1,Room),Time_From), inroom(Physobj2,Room) ]). */ % "% =================================". %; RS11 % [agent,physobj1,physobj2,room,time] % HoldsAt(IN(agent,room),time) & % HoldsAt(IN(physobj1,room),time) & % HoldsAt(INROOM(physobj2,room),time) -> % Terminates(MOVE(agent,physobj1,room,physobj2),IN(physobj1,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1823). % From E: % % '->'( % (holds_at(in(Agent,Room),Time) , % holds_at(in(Physobj1,Room),Time) , % holds_at(inroom(Physobj2,Room),Time)), % terminates_at( % move(Agent,Physobj1,Room,Physobj2), % in(Physobj1,Room), % Time)). % [Time]. move(Agent, Physobj1, Room, Physobj2)terminates Physobj1 in Room if Agent in Room, Physobj1 in Room, inroom(Physobj2, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1823). /* terminated(happens(move(Agent, Physobj1, Room, Physobj2), Time_From, Time_Until), in(Physobj1,Room), [ holds(in(Agent,Room),Time_From), holds(in(Physobj1,Room),Time_From), inroom(Physobj2,Room) ]). */ % "% =================================". %; RS12 % [agent,physobj1,physobj2,room,time] % HoldsAt(IN(agent,room),time) -> % Initiates(MOVE(agent,physobj1,physobj2,room),IN(physobj1,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1830). % From E: % % '->'( % holds_at(in(Agent,Room),Time), % initiates_at( % move(Agent,Physobj1,Physobj2,Room), % in(Physobj1,Room), % Time)). % [Time]. move(Agent, Physobj1, Physobj2, Room)initiates Physobj1 in Room if Agent in Room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1830). /* initiated(happens(move(Agent, Physobj1, Physobj2, Room), Time_From, Time_Until), in(Physobj1,Room), [holds(in(Agent,Room),Time_From)]). */ % "% =================================". %; RS13 % [agent,physobj1,physobj2,room,time] % HoldsAt(IN(agent,room),time) -> % Terminates(MOVE(agent,physobj1,physobj2,room),IN(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1835). % From E: % % '->'( % holds_at(in(Agent,Room),Time), % terminates_at( % move(Agent,Physobj1,Physobj2,Room), % in(Physobj1,Physobj2), % Time)). % [Time]. move(Agent, Physobj1, Physobj2, Room)terminates Physobj1 in Physobj2 if Agent in Room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1835). /* terminated(happens(move(Agent, Physobj1, Physobj2, Room), Time_From, Time_Until), in(Physobj1,Physobj2), [holds(in(Agent,Room),Time_From)]). */ % "% =================================". %; RS14 % [agent,room1,room2,time] % HoldsAt(IN(agent,room1),time) -> % Initiates(MOVE(agent,agent,room1,room2),IN(agent,room2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1840). % From E: % % '->'( % holds_at(in(Agent,Room1),Time), % initiates_at( % move(Agent,Agent,Room1,Room2), % in(Agent,Room2), % Time)). % [Time]. move(Agent, Agent, Room1, Room2)initiates Agent in Room2 if Agent in Room1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1840). /* initiated(happens(move(Agent,Agent,Room1,Room2), Time_From, Time_Until), in(Agent,Room2), [holds(in(Agent,Room1),Time_From)]). */ % "% =================================". %; RS15 % [agent,room1,room2,time] % HoldsAt(IN(agent,room1),time) -> % Terminates(MOVE(agent,agent,room1,room2),IN(agent,room1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1845). % From E: % % '->'( % holds_at(in(Agent,Room1),Time), % terminates_at( % move(Agent,Agent,Room1,Room2), % in(Agent,Room1), % Time)). % [Time]. move(Agent, Agent, Room1, Room2)terminates Agent in Room1 if Agent in Room1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1845). /* terminated(happens(move(Agent, Agent, Room1, Room2), Time_From, Time_Until), in(Agent,Room1), [holds(in(Agent,Room1),Time_From)]). */ % "% =================================". %; RS16 % [agent,physobj,room,time] % HoldsAt(IN(agent,room),time) & % HoldsAt(IN(physobj,room),time) -> % Initiates(MOVE(agent,physobj,room,agent),IN(physobj,agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1850). % From E: % % '->'( % (holds_at(in(Agent,Room),Time) , % holds_at(in(Physobj,Room),Time)), % initiates_at( % move(Agent,Physobj,Room,Agent), % in(Physobj,Agent), % Time)). % [Time]. move(Agent, Physobj, Room, Agent)initiates Physobj in Agent if Agent in Room, Physobj in Room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1850). /* initiated(happens(move(Agent, Physobj, Room, Agent), Time_From, Time_Until), in(Physobj,Agent), [ holds(in(Agent,Room),Time_From), holds(in(Physobj,Room),Time_From) ]). */ % "% =================================". %; RS17 % [agent,physobj,room,time] % HoldsAt(IN(agent,room),time) & % HoldsAt(IN(physobj,room),time) -> % Terminates(MOVE(agent,physobj,room,agent),IN(physobj,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1856). % From E: % % '->'( % (holds_at(in(Agent,Room),Time) , % holds_at(in(Physobj,Room),Time)), % terminates_at( % move(Agent,Physobj,Room,Agent), % in(Physobj,Room), % Time)). % [Time]. move(Agent, Physobj, Room, Agent)terminates Physobj in Room if Agent in Room, Physobj in Room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1856). /* terminated(happens(move(Agent, Physobj, Room, Agent), Time_From, Time_Until), in(Physobj,Room), [ holds(in(Agent,Room),Time_From), holds(in(Physobj,Room),Time_From) ]). */ % "% =================================". %; RS18 % [agent,physobj,room,time] % HoldsAt(IN(physobj,agent),time) & % HoldsAt(IN(agent,room),time) -> % Initiates(MOVE(agent,physobj,agent,room),IN(physobj,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1862). % From E: % % '->'( % (holds_at(in(Physobj,Agent),Time) , % holds_at(in(Agent,Room),Time)), % initiates_at( % move(Agent,Physobj,Agent,Room), % in(Physobj,Room), % Time)). % [Time]. move(Agent, Physobj, Agent, Room)initiates Physobj in Room if Physobj in Agent, Agent in Room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1862). /* initiated(happens(move(Agent, Physobj, Agent, Room), Time_From, Time_Until), in(Physobj,Room), [ holds(in(Physobj,Agent),Time_From), holds(in(Agent,Room),Time_From) ]). */ % "% =================================". %; RS19 % [agent,physobj,room,time] % HoldsAt(IN(physobj,agent),time) & % HoldsAt(IN(agent,room),time) -> % Terminates(MOVE(agent,physobj,agent,room),IN(physobj,agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1868). % From E: % % '->'( % (holds_at(in(Physobj,Agent),Time) , % holds_at(in(Agent,Room),Time)), % terminates_at( % move(Agent,Physobj,Agent,Room), % in(Physobj,Agent), % Time)). % [Time]. move(Agent, Physobj, Agent, Room)terminates Physobj in Agent if Physobj in Agent, Agent in Room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1868). /* terminated(happens(move(Agent, Physobj, Agent, Room), Time_From, Time_Until), in(Physobj,Agent), [ holds(in(Physobj,Agent),Time_From), holds(in(Agent,Room),Time_From) ]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1875). % Happens(MOVE(Lisa,Newspaper,LivingRoom,Box),0). % From E: % % happens_at(move(lisa,newspaper,livingRoom,box),0). observe move(lisa, newspaper, livingRoom, box)at 0. % observe([move(lisa,newspaper,livingRoom,box)],0). % "% =================================". % Happens(MOVE(Lisa,Box,LivingRoom,Lisa),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1875). % From E: % % happens_at(move(lisa,box,livingRoom,lisa),1). observe move(lisa, box, livingRoom, lisa)at 1. % observe([move(lisa,box,livingRoom,lisa)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1877). % Happens(MOVE(Lisa,Lisa,LivingRoom,Kitchen),2). % From E: % % happens_at(move(lisa,lisa,livingRoom,kitchen),2). observe move(lisa, lisa, livingRoom, kitchen)at 2. % observe([move(lisa,lisa,livingRoom,kitchen)],2). % "% =================================". % Happens(MOVE(Lisa,Box,Lisa,Kitchen),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1877). % From E: % % happens_at(move(lisa,box,lisa,kitchen),3). observe move(lisa, box, lisa, kitchen)at 3. % observe([move(lisa,box,lisa,kitchen)],3). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1879). % Happens(MOVE(Lisa,Lisa,Kitchen,LivingRoom),4). % From E: % % happens_at(move(lisa,lisa,kitchen,livingRoom),4). observe move(lisa, lisa, kitchen, livingRoom)at 4. % observe([move(lisa,lisa,kitchen,livingRoom)],4). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1881). %; Psi %; RS1 % [object,time] % !HoldsAt(IN(object,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1883). % From E: % % holds_at(not(in(Object,Object)),Time). % [Time]. not (Object in Object). % l_int(holds(not(in(Object,Object)),Time_At),[]). % "% =================================". %; RS2 % [object1,object2,time] % HoldsAt(IN(object1,object2),time) -> % !HoldsAt(IN(object2,object1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1887). % From E: % % '->'( % holds_at(in(Object1,Object2),Time), % holds_at(not(in(Object2,Object1)),Time)). % [Time]. not (Object2 in Object1)if Object1 in Object2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1887). /* l_int(holds(not(in(Object2,Object1)),Time_At), [holds(in(Object1,Object2),Time_At)]). */ % "% =================================". %; RS3 % [object1,object2,object3,time] % HoldsAt(IN(object1,object2),time) & % HoldsAt(IN(object2,object3),time) -> % !HoldsAt(IN(object1,object3),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1892). % From E: % % '->'( % (holds_at(in(Object1,Object2),Time) , % holds_at(in(Object2,Object3),Time)), % holds_at(not(in(Object1,Object3)),Time)). % [Time]. not (Object1 in Object3)if Object1 in Object2, Object2 in Object3. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1892). /* l_int(holds(not(in(Object1,Object3)),Time_At), [ holds(in(Object1,Object2),Time_At), holds(in(Object2,Object3),Time_At) ]). */ % "% =================================". %; RS4 % [object,object1,object2,time] % HoldsAt(IN(object,object1),time) & % HoldsAt(IN(object,object2),time) -> % object1=object2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1898). % From E: % % '->'( % (holds_at(in(Object,Object1),Time) , % holds_at(in(Object,Object2),Time)), % Object1=Object2). % [Time]. false not equals(Object1, Object2), Object in Object1, Object in Object2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1898). /* d_pre([ not(equals(Object1,Object2)), holds(in(Object,Object1),Time_At), holds(in(Object,Object2),Time_At) ]). */ % "% =================================". %; RS7 % [object,room,time] % HoldsAt(IN(object,room),time) -> % HoldsAt(INROOM(object,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1904). % From E: % % '->'( % holds_at(in(Object,Room),Time), % holds_at(inroom(Object,Room),Time)). % [Time]. if Object in Room then inroom(Object, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1904). /* reactive_rule([holds(in(Object,Room),Time_At)], [inroom(Object,Room)]). */ % "% =================================". %; RS8 % [object1,object2,room,time] % HoldsAt(IN(object1,object2),time) & % HoldsAt(INROOM(object2,room),time) -> % HoldsAt(INROOM(object1,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1909). % From E: % % '->'( % (holds_at(in(Object1,Object2),Time) , % holds_at(inroom(Object2,Room),Time)), % holds_at(inroom(Object1,Room),Time)). % [Time]. if Object1 in Object2, inroom(Object2, Room)then inroom(Object1, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1909). /* reactive_rule([ holds(in(Object1,Object2),Time_At), inroom(Object2,Room) ], [inroom(Object1,Room)]). */ % "% =================================". %; RS9 % [object,room1,room2,time] % HoldsAt(INROOM(object,room1),time) & % HoldsAt(INROOM(object,room2),time) -> % room1=room2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1915). % From E: % % '->'( % (holds_at(inroom(Object,Room1),Time) , % holds_at(inroom(Object,Room2),Time)), % Room1=Room2). % [Time]. false not equals(Room1, Room2), inroom(Object, Room1), inroom(Object, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1915). /* d_pre([ not(equals(Room1,Room2)), inroom(Object,Room1), inroom(Object,Room2) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1922). % HoldsAt(IN(Lisa,LivingRoom),0). % From E: % % holds_at(in(lisa,livingRoom),0). initially lisa in livingRoom. % initial_state([in(lisa,livingRoom)]). % "% =================================". % HoldsAt(IN(Newspaper,LivingRoom),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1922). % From E: % % holds_at(in(newspaper,livingRoom),0). initially newspaper in livingRoom. % initial_state([in(newspaper,livingRoom)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1924). % HoldsAt(IN(Box,LivingRoom),0). % From E: % % holds_at(in(box,livingRoom),0). initially box in livingRoom. % initial_state([in(box,livingRoom)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1926). %; added: % [room1,room2,time] % !HoldsAt(INROOM(room1,room2),time). % From E: % % holds_at(not(inroom(Room1,Room2)),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1926). not(inroom(Room1,Room2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1928). % [room,object,time] % !HoldsAt(IN(room,object),time). % From E: % % holds_at(not(in(Room,Object)),Time). % [Time]. not (Room in Object). % l_int(holds(not(in(Room,Object)),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1930). %; entailed: %; HoldsAt(IN(Lisa,LivingRoom),5). %; HoldsAt(IN(Box,Kitchen),5). %; HoldsAt(INROOM(Newspaper,Kitchen),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1935). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1937). % range time 0 5 % From E: % % :-call_pel_directive(range(time,0,5)). :- call_pel_directive(range(time, 0, 5)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1937). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter10/TwoScreens.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @phdthesis{Cassimatis:2002, %; author = "Nicholas L. Cassimatis", %; year = "2002", %; title = "Polyscheme: A Cognitive Architecture for Integrating Multiple Representation and Inference Schemes", %; address = "Cambridge, MA", %; school = "Program in Media Arts and Sciences, School of Architecture and Planning, Massachusetts Institute of Technology", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1974). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1974). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1977). % sort object % From E: % % sort(object). sort(object). % sort location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1977). % From E: % % sort(location). sort(location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1980). % object O1, O2 % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1980). % From E: % % t(object,o2). object(o2). % location L1, L2, L3, L4, L5 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1980). % From E: % % t(location,l1). location(l1). % From E: % % t(location,l2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1980). location(l2). % From E: % % t(location,l3). location(l3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1980). % From E: % % t(location,l4). location(l4). % From E: % % t(location,l5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1980). location(l5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1983). % predicate Adjacent(location,location) % From E: % % predicate(adjacent(location,location)). mpred_prop(adjacent(location,location),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1983). predicates([adjacent/2]). % predicate Equal(object,object) % From E: % % predicate(equal(object,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1983). mpred_prop(equal(object,object),predicate). predicates([equal/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1986). % fluent At(object,location) % From E: % % fluent(at_loc(object,location)). mpred_prop(at_loc(object,location),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1986). fluents([at_loc/2]). % event Move(object,location,location) % From E: % % event(move(object,location,location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1986). mpred_prop(move(object,location,location),event). events([move/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1989). %; Sigma % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % Adjacent(location1,location2) -> % Initiates(Move(object,location1,location2),At(object,location2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1991). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % adjacent(Location1,Location2)), % initiates_at( % move(Object,Location1,Location2), % at_loc(Object,Location2), % Time)). % [Time]. move(Object, Location1, Location2)initiates at_loc(Object, Location2)if at_loc(Object, Location1), adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1991). /* initiated(happens(move(Object,Location1,Location2), Time_From, Time_Until), at_loc(Object,Location2), [ holds(at_loc(Object,Location1),Time_From), adjacent(Location1,Location2) ]). */ % "% =================================". % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % Adjacent(location1,location2) -> % Terminates(Move(object,location1,location2),At(object,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1997). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % adjacent(Location1,Location2)), % terminates_at( % move(Object,Location1,Location2), % at_loc(Object,Location1), % Time)). % [Time]. move(Object, Location1, Location2)terminates at_loc(Object, Location1)if at_loc(Object, Location1), adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',1997). /* terminated(happens(move(Object,Location1,Location2), Time_From, Time_Until), at_loc(Object,Location1), [ holds(at_loc(Object,Location1), Time_From), adjacent(Location1,Location2) ]). */ % "% =================================". %; Psi % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % HoldsAt(At(object,location2),time) -> % location1=location2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2003). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % holds_at(at_loc(Object,Location2),Time)), % Location1=Location2). % [Time]. false not equals(Location1, Location2), at_loc(Object, Location1), at_loc(Object, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2003). /* d_pre([ not(equals(Location1,Location2)), holds(at_loc(Object,Location1),Time_At), holds(at_loc(Object,Location2),Time_At) ]). */ % "% =================================". % [object,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2009). % {location} % HoldsAt(At(object,location),time). % From E: % % exists( % [Location], % holds_at(at_loc(Object,Location),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2009). exists([Location], at_loc(Object,Location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2011). % [object1,object2,location,time] % HoldsAt(At(object1,location),time) & % HoldsAt(At(object2,location),time) -> % Equal(object1,object2). % From E: % % '->'( % (holds_at(at_loc(Object1,Location),Time) , % holds_at(at_loc(Object2,Location),Time)), % equal(Object1,Object2)). % [Time]. if at_loc(Object1, Location), at_loc(Object2, Location)then equal(Object1, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2011). /* reactive_rule([ holds(at_loc(Object1,Location), Time_At), holds(at_loc(Object2,Location), Time_At) ], [equal(Object1,Object2)]). */ % "% =================================". % [location1, location2] % Adjacent(location1,location2) <-> % Adjacent(location2,location1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2017). % From E: % % <->( % adjacent(Location1,Location2), % adjacent(Location2,Location1)). if adjacent(Location1, Location2)then adjacent(Location2, Location1). /* reactive_rule([adjacent(Location1,Location2)], [adjacent(Location2,Location1)]). */ % "% =================================". if adjacent(Location2, Location1)then adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2017). /* reactive_rule([adjacent(Location2,Location1)], [adjacent(Location1,Location2)]). */ % "% =================================". % [object1,object2] % Equal(object1,object2) <-> % Equal(object2,object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2021). % From E: % % <->( % equal(Object1,Object2), % equal(Object2,Object1)). if equal(Object1, Object2)then equal(Object2, Object1). /* reactive_rule([equal(Object1,Object2)], [equal(Object2,Object1)]). */ % "% =================================". if equal(Object2, Object1)then equal(Object1, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2021). /* reactive_rule([equal(Object2,Object1)], [equal(Object1,Object2)]). */ % "% =================================". %; Gamma % [location1,location2] % Adjacent(location1,location2) <-> % (location1=L1 & location2=L2) | % (location1=L2 & location2=L1) | % (location1=L2 & location2=L3) | % (location1=L3 & location2=L2) | % (location1=L3 & location2=L4) | % (location1=L4 & location2=L3) | % (location1=L4 & location2=L5) | % (location1=L5 & location2=L4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2026). % From E: % % <->( % adjacent(Location1,Location2), % ((Location1=l1 , % Location2=l2) ; % (Location1=l2 , % Location2=l1) ; % (Location1=l2 , % Location2=l3) ; % (Location1=l3 , % Location2=l2) ; % (Location1=l3 , % Location2=l4) ; % (Location1=l4 , % Location2=l3) ; % (Location1=l4 , % Location2=l5) ; % (Location1=l5 , % Location2=l4))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2026). adjacent(Location1, Location2) <-> ( Location1=l1, Location2=l2 ; Location1=l2, Location2=l1 ; Location1=l2, Location2=l3 ; Location1=l3, Location2=l2 ; Location1=l3, Location2=l4 ; Location1=l4, Location2=l3 ; Location1=l4, Location2=l5 ; Location1=l5, Location2=l4 ). % HoldsAt(At(O1,L1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2036). % From E: % % holds_at(at_loc(o1,l1),0). initially at_loc(o1, l1). % initial_state([at_loc(o1,l1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2038). % [object] % !HoldsAt(At(object,L5),0). % From E: % % holds_at(not(at_loc(Object,l5)),0). initially not at_loc(Object, l5). % initial_state([not(at_loc(Object,l5))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2040). % HoldsAt(At(O2,L5),4). % From E: % % holds_at(at_loc(o2,l5),4). holds_at(at_loc(o2,l5),4). % [object] % !HoldsAt(At(object,L1),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2040). % From E: % % holds_at(not(at_loc(Object,l1)),4). holds_at(not(at_loc(Object,l1)),4). % [object,time] % !HoldsAt(At(object,L3),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2042). % From E: % % holds_at(not(at_loc(Object,l3)),Time). % [Time]. not at_loc(Object, l3). % l_int(holds(not(at_loc(Object,l3)),Time_At),[]). % "% =================================". %; ADDED: % [object,location1,location2,time] % Happens(Move(object,location1,location2),time) -> % HoldsAt(At(object,location1),time) & % Adjacent(location1,location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2046). % From E: % % '->'( % happens_at(move(Object,Location1,Location2),Time), % (holds_at(at_loc(Object,Location1),Time) , % adjacent(Location1,Location2))). % [Time]. if move(Object, Location1, Location2)then at_loc(Object, Location1), adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2046). /* reactive_rule([ happens(move(Object, Location1, Location2), Time_From, Time_Until) ], [ holds(at_loc(Object,Location1), Time_At), adjacent(Location1,Location2) ]). */ % "% =================================". % [object1,object2,location1,location2,time] % Equal(object1,object2) & % Happens(Move(object1,location1,location2),time) -> % Happens(Move(object2,location1,location2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2052). % From E: % % '->'( % (equal(Object1,Object2) , % happens_at(move(Object1,Location1,Location2),Time)), % happens_at(move(Object2,Location1,Location2),Time)). % [Time]. move(Object2, Location1, Location2)if equal(Object1, Object2), move(Object1, Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2052). /* l_events(happens(move(Object2,Location1,Location2), Time_From, Time_Until), [ equal(Object1,Object2), happens(move(Object1,Location1,Location2), Time_From, Time_Until) ]). */ % "% =================================". %; entailed: !Equal(O1,O2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2058). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2058). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter10/OneScreen.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @phdthesis{Cassimatis:2002, %; author = "Nicholas L. Cassimatis", %; year = "2002", %; title = "Polyscheme: A Cognitive Architecture for Integrating Multiple Representation and Inference Schemes", %; address = "Cambridge, MA", %; school = "Program in Media Arts and Sciences, School of Architecture and Planning, Massachusetts Institute of Technology", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2095). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2095). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2098). % sort object % From E: % % sort(object). sort(object). % sort location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2098). % From E: % % sort(location). sort(location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2101). % object O1, O2 % From E: % % t(object,o1). object(o1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2101). % From E: % % t(object,o2). object(o2). % location L1, L2, L3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2101). % From E: % % t(location,l1). location(l1). % From E: % % t(location,l2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2101). location(l2). % From E: % % t(location,l3). location(l3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2104). % predicate Adjacent(location,location) % From E: % % predicate(adjacent(location,location)). mpred_prop(adjacent(location,location),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2104). predicates([adjacent/2]). % predicate Equal(object,object) % From E: % % predicate(equal(object,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2104). mpred_prop(equal(object,object),predicate). predicates([equal/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2107). % fluent At(object,location) % From E: % % fluent(at_loc(object,location)). mpred_prop(at_loc(object,location),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2107). fluents([at_loc/2]). % event Move(object,location,location) % From E: % % event(move(object,location,location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2107). mpred_prop(move(object,location,location),event). events([move/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2110). %; Sigma % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % Adjacent(location1,location2) -> % Initiates(Move(object,location1,location2),At(object,location2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2112). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % adjacent(Location1,Location2)), % initiates_at( % move(Object,Location1,Location2), % at_loc(Object,Location2), % Time)). % [Time]. move(Object, Location1, Location2)initiates at_loc(Object, Location2)if at_loc(Object, Location1), adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2112). /* initiated(happens(move(Object,Location1,Location2), Time_From, Time_Until), at_loc(Object,Location2), [ holds(at_loc(Object,Location1),Time_From), adjacent(Location1,Location2) ]). */ % "% =================================". % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % Adjacent(location1,location2) -> % Terminates(Move(object,location1,location2),At(object,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2118). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % adjacent(Location1,Location2)), % terminates_at( % move(Object,Location1,Location2), % at_loc(Object,Location1), % Time)). % [Time]. move(Object, Location1, Location2)terminates at_loc(Object, Location1)if at_loc(Object, Location1), adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2118). /* terminated(happens(move(Object,Location1,Location2), Time_From, Time_Until), at_loc(Object,Location1), [ holds(at_loc(Object,Location1), Time_From), adjacent(Location1,Location2) ]). */ % "% =================================". %; Psi % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % HoldsAt(At(object,location2),time) -> % location1=location2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2124). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % holds_at(at_loc(Object,Location2),Time)), % Location1=Location2). % [Time]. false not equals(Location1, Location2), at_loc(Object, Location1), at_loc(Object, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2124). /* d_pre([ not(equals(Location1,Location2)), holds(at_loc(Object,Location1),Time_At), holds(at_loc(Object,Location2),Time_At) ]). */ % "% =================================". % [object,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2130). % {location} % HoldsAt(At(object,location),time). % From E: % % exists( % [Location], % holds_at(at_loc(Object,Location),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2130). exists([Location], at_loc(Object,Location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2132). % [object1,object2,location,time] % HoldsAt(At(object1,location),time) & % HoldsAt(At(object2,location),time) -> % Equal(object1,object2). % From E: % % '->'( % (holds_at(at_loc(Object1,Location),Time) , % holds_at(at_loc(Object2,Location),Time)), % equal(Object1,Object2)). % [Time]. if at_loc(Object1, Location), at_loc(Object2, Location)then equal(Object1, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2132). /* reactive_rule([ holds(at_loc(Object1,Location), Time_At), holds(at_loc(Object2,Location), Time_At) ], [equal(Object1,Object2)]). */ % "% =================================". % [location1, location2] % Adjacent(location1,location2) <-> % Adjacent(location2,location1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2138). % From E: % % <->( % adjacent(Location1,Location2), % adjacent(Location2,Location1)). if adjacent(Location1, Location2)then adjacent(Location2, Location1). /* reactive_rule([adjacent(Location1,Location2)], [adjacent(Location2,Location1)]). */ % "% =================================". if adjacent(Location2, Location1)then adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2138). /* reactive_rule([adjacent(Location2,Location1)], [adjacent(Location1,Location2)]). */ % "% =================================". % [object1,object2] % Equal(object1,object2) <-> % Equal(object2,object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2142). % From E: % % <->( % equal(Object1,Object2), % equal(Object2,Object1)). if equal(Object1, Object2)then equal(Object2, Object1). /* reactive_rule([equal(Object1,Object2)], [equal(Object2,Object1)]). */ % "% =================================". if equal(Object2, Object1)then equal(Object1, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2142). /* reactive_rule([equal(Object2,Object1)], [equal(Object1,Object2)]). */ % "% =================================". %; Gamma % [location1,location2] % Adjacent(location1,location2) <-> % (location1=L1 & location2=L2) | % (location1=L2 & location2=L1) | % (location1=L2 & location2=L3) | % (location1=L3 & location2=L2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2147). % From E: % % <->( % adjacent(Location1,Location2), % ((Location1=l1 , % Location2=l2) ; % (Location1=l2 , % Location2=l1) ; % (Location1=l2 , % Location2=l3) ; % (Location1=l3 , % Location2=l2))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2147). adjacent(Location1, Location2) <-> ( Location1=l1, Location2=l2 ; Location1=l2, Location2=l1 ; Location1=l2, Location2=l3 ; Location1=l3, Location2=l2 ). % HoldsAt(At(O1,L1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2153). % From E: % % holds_at(at_loc(o1,l1),0). initially at_loc(o1, l1). % initial_state([at_loc(o1,l1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2155). % [object] % !HoldsAt(At(object,L3),0). % From E: % % holds_at(not(at_loc(Object,l3)),0). initially not at_loc(Object, l3). % initial_state([not(at_loc(Object,l3))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2157). % [object] % !HoldsAt(At(object,L1),1). % From E: % % holds_at(not(at_loc(Object,l1)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2157). holds_at(not(at_loc(Object,l1)),1). % [object] % !HoldsAt(At(object,L3),1). % From E: % % holds_at(not(at_loc(Object,l3)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2157). holds_at(not(at_loc(Object,l3)),1). % HoldsAt(At(O2,L3),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2159). % From E: % % holds_at(at_loc(o2,l3),2). holds_at(at_loc(o2,l3),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2161). % [object] % !HoldsAt(At(object,L1),2). % From E: % % holds_at(not(at_loc(Object,l1)),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2161). holds_at(not(at_loc(Object,l1)),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2163). %; ADDED: % [object,location1,location2,time] % Happens(Move(object,location1,location2),time) -> % HoldsAt(At(object,location1),time) & % Adjacent(location1,location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2165). % From E: % % '->'( % happens_at(move(Object,Location1,Location2),Time), % (holds_at(at_loc(Object,Location1),Time) , % adjacent(Location1,Location2))). % [Time]. if move(Object, Location1, Location2)then at_loc(Object, Location1), adjacent(Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2165). /* reactive_rule([ happens(move(Object, Location1, Location2), Time_From, Time_Until) ], [ holds(at_loc(Object,Location1), Time_At), adjacent(Location1,Location2) ]). */ % "% =================================". % [object1,object2,location1,location2,time] % Equal(object1,object2) & % Happens(Move(object1,location1,location2),time) -> % Happens(Move(object2,location1,location2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2170). % From E: % % '->'( % (equal(Object1,Object2) , % happens_at(move(Object1,Location1,Location2),Time)), % happens_at(move(Object2,Location1,Location2),Time)). % [Time]. move(Object2, Location1, Location2)if equal(Object1, Object2), move(Object1, Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2170). /* l_events(happens(move(Object2,Location1,Location2), Time_From, Time_Until), [ equal(Object1,Object2), happens(move(Object1,Location1,Location2), Time_From, Time_Until) ]). */ % "% =================================". % range time 0 2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2173). % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2175). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter9/RunningAndDriving.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2203). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2203). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2206). % sort agent % From E: % % sort(agent). sort(agent). % sort location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2206). % From E: % % sort(location). sort(location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2209). % agent James % From E: % % t(agent,james). agent(james). % location Bookstore :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2209). % From E: % % t(location,bookstore). location(bookstore). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2212). % fluent Tired(agent) % From E: % % fluent(tired(agent)). mpred_prop(tired(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2212). fluents([tired/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2214). % event Go(agent,location) % From E: % % event(go(agent,location)). events([go/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2214). mpred_prop(go(agent,location),action). actions([go/2]). % event Run(agent,location) % From E: % % event(run(agent,location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2214). events([run/2]). mpred_prop(run(agent,location),action). actions([run/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2216). % event Drive(agent,location) % From E: % % event(drive(agent,location)). events([drive/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2216). mpred_prop(drive(agent,location),action). actions([drive/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2218). % [agent,location,time] % Happens(Go(agent,location),time) -> % Happens(Run(agent,location),time) | Happens(Drive(agent,location),time). % From E: % % '->'( % happens_at(go(Agent,Location),Time), % (happens_at(run(Agent,Location),Time) ; % happens_at(drive(Agent,Location),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2218). go(Agent, Location) -> false((not(run(Agent, Location)), not(drive(Agent, Location)))). % xor Run, Drive :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2221). % From E: % % xor([run,drive]). xor([run,drive]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2224). % [agent,location,time] % Initiates(Run(agent,location),Tired(agent),time). % From E: % % initiates_at( % run(Agent,Location), % tired(Agent), % Time). % [Time]. run(Agent, Location)initiates tired(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2224). /* initiated(happens(run(Agent,Location), Time_From, Time_Until), tired(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2226). % !HoldsAt(Tired(James),0). % From E: % % holds_at(not(tired(james)),0). initially not tired(james). % initial_state([not(tired(james))]). % "% =================================". % Happens(Go(James,Bookstore),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2226). % From E: % % happens_at(go(james,bookstore),0). observe go(james, bookstore)at 0. % observe([go(james,bookstore)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2228). % HoldsAt(Tired(James),1). % From E: % % holds_at(tired(james),1). holds_at(tired(james),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2230). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2230). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter9/RouletteWheel.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2259). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2261). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2261). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2264). % sort dealer % From E: % % sort(dealer). sort(dealer). % sort wheel :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2264). % From E: % % sort(wheel). sort(wheel). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2266). % sort value: integer % From E: % % subsort(value,integer). subsort(value,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2268). % wheel Wheel1 % From E: % % t(wheel,wheel1). wheel(wheel1). % dealer Dealer1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2268). % From E: % % t(dealer,dealer1). dealer(dealer1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2271). % fluent WheelNumberDeterminer(wheel,value) % From E: % % fluent(wheelNumberDeterminer(wheel,value)). mpred_prop(wheelNumberDeterminer(wheel,value),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2271). fluents([wheelNumberDeterminer/2]). % fluent WheelNumber(wheel,value) % From E: % % fluent(wheelNumber(wheel,value)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2271). mpred_prop(wheelNumber(wheel,value),fluent). fluents([wheelNumber/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2273). % noninertial WheelNumberDeterminer % From E: % % :-call_pel_directive(noninertial(wheelNumberDeterminer)). :- call_pel_directive(noninertial(wheelNumberDeterminer)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2275). % event Spin(dealer,wheel) % From E: % % event(spin(dealer,wheel)). mpred_prop(spin(dealer,wheel),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2275). events([spin/2]). % event Reset(dealer,wheel) % From E: % % event(reset(dealer,wheel)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2275). mpred_prop(reset(dealer,wheel),event). events([reset/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2278). % [wheel,time] % {value}% HoldsAt(WheelNumberDeterminer(wheel,value),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2280). % From E: % % exists( % [Value], % holds_at(wheelNumberDeterminer(Wheel,Value),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2280). exists([Value], wheelNumberDeterminer(Wheel,Value)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2282). % [wheel,value1,value2,time] % HoldsAt(WheelNumberDeterminer(wheel,value1),time) & % HoldsAt(WheelNumberDeterminer(wheel,value2),time) -> % value1=value2. % From E: % % '->'( % (holds_at(wheelNumberDeterminer(Wheel,Value1),Time) , % holds_at(wheelNumberDeterminer(Wheel,Value2),Time)), % Value1=Value2). % [Time]. false not equals(Value1, Value2), wheelNumberDeterminer(Wheel, Value1), wheelNumberDeterminer(Wheel, Value2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2282). /* d_pre([ not(equals(Value1,Value2)), wheelNumberDeterminer(Wheel,Value1), wheelNumberDeterminer(Wheel,Value2) ]). */ % "% =================================". % [dealer,wheel,value,time] % HoldsAt(WheelNumberDeterminer(wheel,value),time) -> % Initiates(Spin(dealer,wheel),WheelNumber(wheel,value),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2288). % From E: % % '->'( % holds_at(wheelNumberDeterminer(Wheel,Value),Time), % initiates_at( % spin(Dealer,Wheel), % wheelNumber(Wheel,Value), % Time)). % [Time]. spin(Dealer, Wheel)initiates wheelNumber(Wheel, Value)if wheelNumberDeterminer(Wheel, Value). /* initiated(happens(spin(Dealer,Wheel), Time_From, Time_Until), wheelNumber(Wheel,Value), [wheelNumberDeterminer(Wheel,Value)]). */ % "% =================================". % [dealer,wheel,value1,value2,time] % HoldsAt(WheelNumber(wheel,value1),time) & % HoldsAt(WheelNumberDeterminer(wheel,value2),time) & % value1!=value2 -> % Terminates(Spin(dealer,wheel),WheelNumber(wheel,value1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2292). % From E: % % '->'( % (holds_at(wheelNumber(Wheel,Value1),Time) , % holds_at(wheelNumberDeterminer(Wheel,Value2),Time) , % Value1\=Value2), % terminates_at( % spin(Dealer,Wheel), % wheelNumber(Wheel,Value1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2292). wheelNumber(Wheel, Value1), wheelNumberDeterminer(Wheel, Value2), Value1\=Value2 -> terminates(spin(Dealer, Wheel), wheelNumber(Wheel, Value1)). % [dealer,wheel,value,time] % Terminates(Reset(dealer,wheel),WheelNumber(wheel,value),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2298). % From E: % % terminates_at( % reset(Dealer,Wheel), % wheelNumber(Wheel,Value), % Time). % [Time]. reset(Dealer, Wheel)terminates wheelNumber(Wheel, Value). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2298). /* terminated(happens(reset(Dealer,Wheel), Time_From, Time_Until), wheelNumber(Wheel,Value), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2300). % [wheel,value1,value2,time] % HoldsAt(WheelNumber(wheel,value1),time) & % HoldsAt(WheelNumber(wheel,value2),time) -> % value1=value2. % From E: % % '->'( % (holds_at(wheelNumber(Wheel,Value1),Time) , % holds_at(wheelNumber(Wheel,Value2),Time)), % Value1=Value2). % [Time]. false not equals(Value1, Value2), wheelNumber(Wheel, Value1), wheelNumber(Wheel, Value2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2300). /* d_pre([ not(equals(Value1,Value2)), holds(wheelNumber(Wheel,Value1),Time_At), holds(wheelNumber(Wheel,Value2),Time_At) ]). */ % "% =================================". % [value] % !HoldsAt(WheelNumber(Wheel1,value),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2304). % From E: % % holds_at(not(wheelNumber(wheel1,Value)),0). initially not wheelNumber(wheel1, Value). % initial_state([not(wheelNumber(wheel1,Value))]). % "% =================================". % Happens(Spin(Dealer1,Wheel1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2306). % From E: % % happens_at(spin(dealer1,wheel1),0). observe spin(dealer1, wheel1)at 0. % observe([spin(dealer1,wheel1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2308). %;Happens(Reset(Dealer1,Wheel1),1). %; added to prune models % HoldsAt(WheelNumberDeterminer(Wheel1, 1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2310). % From E: % % holds_at(wheelNumberDeterminer(wheel1,1),1). holds_at(wheelNumberDeterminer(wheel1,1),1). % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2312). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2315). % range value 1 3 % From E: % % :-call_pel_directive(range(value,1,3)). :- call_pel_directive(range(value, 1, 3)). % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2315). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2317). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter14/NetBill1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{SirbuTygar:1995, %; author = "Marvin A. Sirbu and J. D. Tygar", %; year = "1995", %; title = "Net\uppercase{B}ill: An \uppercase{I}nternet commerce system optimized for network delivered services", %; editor = " %; booktitle = "40th \uppercase{IEEE} \uppercase{C}omputer \uppercase{S}ociety \uppercase{I}nternational \uppercase{C}onference", %; pages = "20--25", %; publisher = " %; address = " %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2356). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2358). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2358). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2361). % sort agent % From E: % % sort(agent). sort(agent). % agent MusicStore, Jen :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2361). % From E: % % t(agent,musicStore). agent(musicStore). % From E: % % t(agent,jen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2361). agent(jen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2364). % sort product % From E: % % sort(product). sort(product). % product BritneyCD :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2364). % From E: % % t(product,britneyCD). product(britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2367). % sort f % From E: % % sort(f). sort(f). % f PurchaseRequestedJenMusicStoreBritneyCD1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2367). % From E: % % t(f,purchaseRequestedJenMusicStoreBritneyCD1). f(purchaseRequestedJenMusicStoreBritneyCD1). /* l_int(holds(f(purchaseRequestedJenMusicStoreBritneyCD1),Time_At), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2369). % f DeliveredMusicStoreJenBritneyCD % From E: % % t(f,deliveredMusicStoreJenBritneyCD). f(deliveredMusicStoreJenBritneyCD). % l_int(holds(f(deliveredMusicStoreJenBritneyCD),Time_At),[]). % "% =================================". % f EPOSentJenMusicStore1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2369). % From E: % % t(f,ePOSentJenMusicStore1). f(ePOSentJenMusicStore1). % l_int(holds(f(ePOSentJenMusicStore1),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2372). % sort amount: integer % From E: % % subsort(amount,integer). subsort(amount,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2374). % fluent C(agent,agent,f) % From E: % % fluent(c(agent,agent,f)). mpred_prop(c(agent,agent,f),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2374). fluents([c/3]). % fluent CC(agent,agent,f,f) % From E: % % fluent(cc(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2374). mpred_prop(cc(agent,agent,f,f),fluent). fluents([cc/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2377). % event CreateC(agent,agent,f) % From E: % % event(createC(agent,agent,f)). events([createC/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2377). mpred_prop(createC(agent,agent,f),action). actions([createC/3]). % event CreateCC(agent,agent,f,f) % From E: % % event(createCC(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2377). events([createCC/4]). mpred_prop(createCC(agent,agent,f,f),action). actions([createCC/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2379). % event DischargeC(agent,agent,f) % From E: % % event(dischargeC(agent,agent,f)). events([dischargeC/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2379). mpred_prop(dischargeC(agent,agent,f),action). actions([dischargeC/3]). % event DischargeCC(agent,agent,f,f) % From E: % % event(dischargeCC(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2379). events([dischargeCC/4]). mpred_prop(dischargeCC(agent,agent,f,f),action). actions([dischargeCC/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2382). % fluent QuoteSent(agent,agent,product,amount) % From E: % % fluent(quoteSent(agent,agent,product,amount)). mpred_prop(quoteSent(agent,agent,product,amount),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2382). fluents([quoteSent/4]). % fluent PurchaseRequested(agent,agent,product,amount) % From E: % % fluent(purchaseRequested(agent,agent,product,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2382). mpred_prop(purchaseRequested(agent,agent,product,amount),fluent). fluents([purchaseRequested/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2384). % fluent Delivered(agent,agent,product) % From E: % % fluent(delivered(agent,agent,product)). mpred_prop(delivered(agent,agent,product),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2384). fluents([delivered/3]). % fluent EPOSent(agent,agent,amount) % From E: % % fluent(ePOSent(agent,agent,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2384). mpred_prop(ePOSent(agent,agent,amount),fluent). fluents([ePOSent/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2387). % event SendQuote(agent,agent,product,amount) % From E: % % event(sendQuote(agent,agent,product,amount)). events([sendQuote/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2387). mpred_prop(sendQuote(agent,agent,product,amount),action). actions([sendQuote/4]). % event RequestPurchase(agent,agent,product,amount) % From E: % % event(requestPurchase(agent,agent,product,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2387). events([requestPurchase/4]). mpred_prop(requestPurchase(agent,agent,product,amount),action). actions([requestPurchase/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2389). % event Deliver(agent,agent,product) % From E: % % event(deliver(agent,agent,product)). events([deliver/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2389). mpred_prop(deliver(agent,agent,product),action). actions([deliver/3]). % event SendEPO(agent,agent,amount) % From E: % % event(sendEPO(agent,agent,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2389). events([sendEPO/3]). mpred_prop(sendEPO(agent,agent,amount),action). actions([sendEPO/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2392). %; Sigma % [agent1,agent2,f,time] % Initiates(CreateC(agent1,agent2,f),C(agent1,agent2,f),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2394). % From E: % % initiates_at( % createC(Agent1,Agent2,F), % c(Agent1,Agent2,F), % Time). % [Time]. createC(Agent1, Agent2, F)initiates c(Agent1, Agent2, F). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2394). /* initiated(happens(createC(Agent1,Agent2,F), Time_From, Time_Until), c(Agent1,Agent2,F), []). */ % "% =================================". % [agent1,agent2,f1,f2,time] % Initiates(CreateCC(agent1,agent2,f1,f2),CC(agent1,agent2,f1,f2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2398). % From E: % % initiates_at( % createCC(Agent1,Agent2,F1,F2), % cc(Agent1,Agent2,F1,F2), % Time). % [Time]. createCC(Agent1, Agent2, F1, F2)initiates cc(Agent1, Agent2, F1, F2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2398). /* initiated(happens(createCC(Agent1,Agent2,F1,F2), Time_From, Time_Until), cc(Agent1,Agent2,F1,F2), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2400). % [agent1,agent2,f,time] % Terminates(DischargeC(agent1,agent2,f),C(agent1,agent2,f),time). % From E: % % terminates_at( % dischargeC(Agent1,Agent2,F), % c(Agent1,Agent2,F), % Time). % [Time]. dischargeC(Agent1, Agent2, F)terminates c(Agent1, Agent2, F). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2400). /* terminated(happens(dischargeC(Agent1,Agent2,F), Time_From, Time_Until), c(Agent1,Agent2,F), []). */ % "% =================================". % [agent1,agent2,f1,f2,time] % Terminates(DischargeCC(agent1,agent2,f1,f2),CC(agent1,agent2,f1,f2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2404). % From E: % % terminates_at( % dischargeCC(Agent1,Agent2,F1,F2), % cc(Agent1,Agent2,F1,F2), % Time). % [Time]. dischargeCC(Agent1, Agent2, F1, F2)terminates cc(Agent1, Agent2, F1, F2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2404). /* terminated(happens(dischargeCC(Agent1, Agent2, F1, F2), Time_From, Time_Until), cc(Agent1,Agent2,F1,F2), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2406). % [agent1,agent2,product,amount,time] % Initiates(SendQuote(agent1,agent2,product,amount), % QuoteSent(agent1,agent2,product,amount), % time). % From E: % % initiates_at( % sendQuote(Agent1,Agent2,Product,Amount), % quoteSent(Agent1,Agent2,Product,Amount), % Time). % [Time]. sendQuote(Agent1, Agent2, Product, Amount)initiates quoteSent(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2406). /* initiated(happens(sendQuote(Agent1, Agent2, Product, Amount), Time_From, Time_Until), quoteSent(Agent1, Agent2, Product, Amount), []). */ % "% =================================". % [agent1,agent2,product,amount,time] % Initiates(RequestPurchase(agent1,agent2,product,amount), % PurchaseRequested(agent1,agent2,product,amount), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2412). % From E: % % initiates_at( % requestPurchase(Agent1,Agent2,Product,Amount), % purchaseRequested(Agent1,Agent2,Product,Amount), % Time). % [Time]. requestPurchase(Agent1, Agent2, Product, Amount)initiates purchaseRequested(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2412). /* initiated(happens(requestPurchase(Agent1, Agent2, Product, Amount), Time_From, Time_Until), purchaseRequested(Agent1, Agent2, Product, Amount), []). */ % "% =================================". % [agent1,agent2,product,time] % Initiates(Deliver(agent1,agent2,product), % Delivered(agent1,agent2,product), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2417). % From E: % % initiates_at( % deliver(Agent1,Agent2,Product), % delivered(Agent1,Agent2,Product), % Time). % [Time]. deliver(Agent1, Agent2, Product)initiates delivered(Agent1, Agent2, Product). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2417). /* initiated(happens(deliver(Agent1,Agent2,Product), Time_From, Time_Until), delivered(Agent1,Agent2,Product), []). */ % "% =================================". % [agent1,agent2,amount,time] % Initiates(SendEPO(agent1,agent2,amount), % EPOSent(agent1,agent2,amount), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2422). % From E: % % initiates_at( % sendEPO(Agent1,Agent2,Amount), % ePOSent(Agent1,Agent2,Amount), % Time). % [Time]. sendEPO(Agent1, Agent2, Amount)initiates ePOSent(Agent1, Agent2, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2422). /* initiated(happens(sendEPO(Agent1,Agent2,Amount), Time_From, Time_Until), ePOSent(Agent1,Agent2,Amount), []). */ % "% =================================". % [agent1,agent2,product,amount,f1,f2,time] % agent1=% MusicStore & % agent2=Jen & % product=BritneyCD & % amount=1 & % f1=PurchaseRequestedJenMusicStoreBritneyCD1 & % f2=DeliveredMusicStoreJenBritneyCD -> % Initiates(SendQuote(agent1,agent2,product,amount), % CC(agent1,agent2,f1,f2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2427). % From E: % % '->'( % (Agent1=musicStore , % Agent2=jen , % Product=britneyCD , % Amount=1 , % F1=purchaseRequestedJenMusicStoreBritneyCD1 , % F2=deliveredMusicStoreJenBritneyCD), % initiates_at( % sendQuote(Agent1,Agent2,Product,Amount), % cc(Agent1,Agent2,F1,F2), % Time)). % [Time]. false not (sendQuote(Agent1, Agent2, Product, Amount)initiates cc(Agent1, Agent2, F1, F2)), equals(Agent1, musicStore), equals(Agent2, jen), equals(Product, britneyCD), equals(Amount, 1), equals(F1, purchaseRequestedJenMusicStoreBritneyCD1), equals(F2, deliveredMusicStoreJenBritneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2427). /* d_pre([ not(initiates(sendQuote(Agent1, Agent2, Product, Amount), cc(Agent1,Agent2,F1,F2))), equals(Agent1,musicStore), equals(Agent2,jen), equals(Product,britneyCD), equals(Amount,1), equals(F1,purchaseRequestedJenMusicStoreBritneyCD1), equals(F2,deliveredMusicStoreJenBritneyCD) ]). */ % "% =================================". % [agent1,agent2,product,amount,f1,f2,time] % agent1=% Jen & % agent2=MusicStore & % product=BritneyCD & % amount=1 & % f1=DeliveredMusicStoreJenBritneyCD & % f2=EPOSentJenMusicStore1 & % !HoldsAt(Delivered(agent2,agent1,product),time) -> % Initiates(RequestPurchase(agent1,agent2,product,amount), % CC(agent1,agent2,f1,f2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2438). % From E: % % '->'( % (Agent1=jen , % Agent2=musicStore , % Product=britneyCD , % Amount=1 , % F1=deliveredMusicStoreJenBritneyCD , % F2=ePOSentJenMusicStore1 , % holds_at(not(delivered(Agent2,Agent1,Product)),Time)), % initiates_at( % requestPurchase(Agent1,Agent2,Product,Amount), % cc(Agent1,Agent2,F1,F2), % Time)). % [Time]. false not (requestPurchase(Agent1, Agent2, Product, Amount)initiates cc(Agent1, Agent2, F1, F2)), equals(Agent1, jen), equals(Agent2, musicStore), equals(Product, britneyCD), equals(Amount, 1), equals(F1, deliveredMusicStoreJenBritneyCD), equals(F2, ePOSentJenMusicStore1), not delivered(Agent2, Agent1, Product). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2438). /* d_pre([ not(initiates(requestPurchase(Agent1, Agent2, Product, Amount), cc(Agent1,Agent2,F1,F2))), equals(Agent1,jen), equals(Agent2,musicStore), equals(Product,britneyCD), equals(Amount,1), equals(F1,deliveredMusicStoreJenBritneyCD), equals(F2,ePOSentJenMusicStore1), holds(not(delivered(Agent2,Agent1,Product)), Time_At) ]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2451). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2451). % [time] % HoldsAt(CC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(PurchaseRequested(Jen,MusicStore,BritneyCD,1),time) -> % Happens(CreateC(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time). % From E: % % '->'( % (holds_at(cc(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(purchaseRequested(jen,musicStore,britneyCD,1),Time)), % happens_at(createC(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. createC(musicStore, jen, deliveredMusicStoreJenBritneyCD)if cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), purchaseRequested(jen, musicStore, britneyCD, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2451). /* l_events(happens(createC(musicStore, jen, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From), holds(purchaseRequested(jen,musicStore,britneyCD,1), Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2455). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(PurchaseRequested(Jen, MusicStore, BritneyCD, 1),time) -> % Happens(DischargeCC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2457). % From E: % % '->'( % (holds_at(cc(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(purchaseRequested(jen,musicStore,britneyCD,1),Time)), % happens_at(dischargeCC(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. dischargeCC(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD)if cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), purchaseRequested(jen, musicStore, britneyCD, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2457). /* l_events(happens(dischargeCC(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From), holds(purchaseRequested(jen,musicStore,britneyCD,1), Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2460). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(Jen, MusicStore, DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(CreateC(Jen,MusicStore,EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2462). % From E: % % '->'( % (holds_at(cc(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(createC(jen,musicStore,ePOSentJenMusicStore1),Time)). % [Time]. createC(jen, musicStore, ePOSentJenMusicStore1)if cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2462). /* l_events(happens(createC(jen,musicStore,ePOSentJenMusicStore1), Time_From, Time_From), [ holds(cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2465). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(Jen, MusicStore, DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(DischargeCC(Jen,MusicStore,DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2467). % From E: % % '->'( % (holds_at(cc(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(dischargeCC(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time)). % [Time]. dischargeCC(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1)if cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2467). /* l_events(happens(dischargeCC(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From, Time_From), [ holds(cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2470). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(C(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(DischargeC(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2472). % From E: % % '->'( % (holds_at(c(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(dischargeC(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. dischargeC(musicStore, jen, deliveredMusicStoreJenBritneyCD)if c(musicStore, jen, deliveredMusicStoreJenBritneyCD), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2472). /* l_events(happens(dischargeC(musicStore, jen, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(c(musicStore,jen,deliveredMusicStoreJenBritneyCD), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2475). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(C(Jen,MusicStore,EPOSentJenMusicStore1),time) & % HoldsAt(EPOSent(Jen,MusicStore,1),time) -> % Happens(DischargeC(Jen,MusicStore,EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2477). % From E: % % '->'( % (holds_at(c(jen,musicStore,ePOSentJenMusicStore1),Time) , % holds_at(ePOSent(jen,musicStore,1),Time)), % happens_at(dischargeC(jen,musicStore,ePOSentJenMusicStore1),Time)). % [Time]. dischargeC(jen, musicStore, ePOSentJenMusicStore1)if c(jen, musicStore, ePOSentJenMusicStore1), ePOSent(jen, musicStore, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2477). /* l_events(happens(dischargeC(jen,musicStore,ePOSentJenMusicStore1), Time_From, Time_From), [ holds(c(jen,musicStore,ePOSentJenMusicStore1), Time_From), holds(ePOSent(jen,musicStore,1),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2480). % From E: % % directive(delta). directive(delta). % Happens(SendQuote(MusicStore,Jen,BritneyCD,1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2480). % From E: % % happens_at(sendQuote(musicStore,jen,britneyCD,1),0). observe sendQuote(musicStore, jen, britneyCD, 1)at 0. % observe([sendQuote(musicStore,jen,britneyCD,1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2482). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2482). % Happens(RequestPurchase(Jen,MusicStore,BritneyCD,1),1). % From E: % % happens_at(requestPurchase(jen,musicStore,britneyCD,1),1). observe requestPurchase(jen, musicStore, britneyCD, 1)at 1. % observe([requestPurchase(jen,musicStore,britneyCD,1)],1). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2482). % From E: % % directive(delta). directive(delta). % Happens(Deliver(MusicStore,Jen,BritneyCD),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2482). % From E: % % happens_at(deliver(musicStore,jen,britneyCD),3). observe deliver(musicStore, jen, britneyCD)at 3. % observe([deliver(musicStore,jen,britneyCD)],3). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2484). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2484). % Happens(SendEPO(Jen,MusicStore,1),5). % From E: % % happens_at(sendEPO(jen,musicStore,1),5). observe sendEPO(jen, musicStore, 1)at 5. % observe([sendEPO(jen,musicStore,1)],5). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2486). %; Gamma % [agent1,agent2,product,amount] % !HoldsAt(QuoteSent(agent1,agent2,product,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2488). % From E: % % holds_at(not(quoteSent(Agent1,Agent2,Product,Amount)),0). initially not quoteSent(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2488). /* initial_state([ not(quoteSent(Agent1, Agent2, Product, Amount)) ]). */ % "% =================================". % [agent1,agent2,product,amount] % !HoldsAt(PurchaseRequested(agent1,agent2,product,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2492). % From E: % % holds_at(not(purchaseRequested(Agent1,Agent2,Product,Amount)),0). initially not purchaseRequested(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2492). /* initial_state([ not(purchaseRequested(Agent1, Agent2, Product, Amount)) ]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2494). % [agent1,agent2,product] % !HoldsAt(Delivered(agent1,agent2,product),0). % From E: % % holds_at(not(delivered(Agent1,Agent2,Product)),0). initially not delivered(Agent1, Agent2, Product). % initial_state([not(delivered(Agent1,Agent2,Product))]). % "% =================================". % [agent1,agent2,f] % !HoldsAt(C(agent1,agent2,f),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2498). % From E: % % holds_at(not(c(Agent1,Agent2,F)),0). initially not c(Agent1, Agent2, F). % initial_state([not(c(Agent1,Agent2,F))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2500). % [agent1,agent2,f1,f2] % !HoldsAt(CC(agent1,agent2,f1,f2),0). % From E: % % holds_at(not(cc(Agent1,Agent2,F1,F2)),0). initially not cc(Agent1, Agent2, F1, F2). % initial_state([not(cc(Agent1,Agent2,F1,F2))]). % "% =================================". % [agent1,agent2,amount] % !HoldsAt(EPOSent(agent1,agent2,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2504). % From E: % % holds_at(not(ePOSent(Agent1,Agent2,Amount)),0). initially not ePOSent(Agent1, Agent2, Amount). % initial_state([not(ePOSent(Agent1,Agent2,Amount))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2506). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2506). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2508). % range time 0 7 % From E: % % :-call_pel_directive(range(time,0,7)). :- call_pel_directive(range(time, 0, 7)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2508). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2510). % range amount 1 1 % From E: % % :-call_pel_directive(range(amount,1,1)). :- call_pel_directive(range(amount, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter14/NetBill3.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{SirbuTygar:1995, %; author = "Marvin A. Sirbu and J. D. Tygar", %; year = "1995", %; title = "Net\uppercase{B}ill: An \uppercase{I}nternet commerce system optimized for network delivered services", %; editor = " %; booktitle = "40th \uppercase{IEEE} \uppercase{C}omputer \uppercase{S}ociety \uppercase{I}nternational \uppercase{C}onference", %; pages = "20--25", %; publisher = " %; address = " %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2549). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2551). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2551). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2554). % sort agent % From E: % % sort(agent). sort(agent). % agent MusicStore, Jen :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2554). % From E: % % t(agent,musicStore). agent(musicStore). % From E: % % t(agent,jen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2554). agent(jen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2557). % sort product % From E: % % sort(product). sort(product). % product BritneyCD :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2557). % From E: % % t(product,britneyCD). product(britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2560). % sort f % From E: % % sort(f). sort(f). % f PurchaseRequestedJenMusicStoreBritneyCD1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2560). % From E: % % t(f,purchaseRequestedJenMusicStoreBritneyCD1). f(purchaseRequestedJenMusicStoreBritneyCD1). /* l_int(holds(f(purchaseRequestedJenMusicStoreBritneyCD1),Time_At), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2562). % f DeliveredMusicStoreJenBritneyCD % From E: % % t(f,deliveredMusicStoreJenBritneyCD). f(deliveredMusicStoreJenBritneyCD). % l_int(holds(f(deliveredMusicStoreJenBritneyCD),Time_At),[]). % "% =================================". % f EPOSentJenMusicStore1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2562). % From E: % % t(f,ePOSentJenMusicStore1). f(ePOSentJenMusicStore1). % l_int(holds(f(ePOSentJenMusicStore1),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2565). % sort amount: integer % From E: % % subsort(amount,integer). subsort(amount,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2567). % fluent C(agent,agent,f) % From E: % % fluent(c(agent,agent,f)). mpred_prop(c(agent,agent,f),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2567). fluents([c/3]). % fluent CC(agent,agent,f,f) % From E: % % fluent(cc(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2567). mpred_prop(cc(agent,agent,f,f),fluent). fluents([cc/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2570). % event CreateC(agent,agent,f) % From E: % % event(createC(agent,agent,f)). events([createC/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2570). mpred_prop(createC(agent,agent,f),action). actions([createC/3]). % event CreateCC(agent,agent,f,f) % From E: % % event(createCC(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2570). events([createCC/4]). mpred_prop(createCC(agent,agent,f,f),action). actions([createCC/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2572). % event DischargeC(agent,agent,f) % From E: % % event(dischargeC(agent,agent,f)). events([dischargeC/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2572). mpred_prop(dischargeC(agent,agent,f),action). actions([dischargeC/3]). % event DischargeCC(agent,agent,f,f) % From E: % % event(dischargeCC(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2572). events([dischargeCC/4]). mpred_prop(dischargeCC(agent,agent,f,f),action). actions([dischargeCC/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2575). % fluent QuoteSent(agent,agent,product,amount) % From E: % % fluent(quoteSent(agent,agent,product,amount)). mpred_prop(quoteSent(agent,agent,product,amount),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2575). fluents([quoteSent/4]). % fluent PurchaseRequested(agent,agent,product,amount) % From E: % % fluent(purchaseRequested(agent,agent,product,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2575). mpred_prop(purchaseRequested(agent,agent,product,amount),fluent). fluents([purchaseRequested/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2577). % fluent Delivered(agent,agent,product) % From E: % % fluent(delivered(agent,agent,product)). mpred_prop(delivered(agent,agent,product),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2577). fluents([delivered/3]). % fluent EPOSent(agent,agent,amount) % From E: % % fluent(ePOSent(agent,agent,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2577). mpred_prop(ePOSent(agent,agent,amount),fluent). fluents([ePOSent/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2580). % event SendQuote(agent,agent,product,amount) % From E: % % event(sendQuote(agent,agent,product,amount)). events([sendQuote/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2580). mpred_prop(sendQuote(agent,agent,product,amount),action). actions([sendQuote/4]). % event RequestPurchase(agent,agent,product,amount) % From E: % % event(requestPurchase(agent,agent,product,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2580). events([requestPurchase/4]). mpred_prop(requestPurchase(agent,agent,product,amount),action). actions([requestPurchase/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2582). % event Deliver(agent,agent,product) % From E: % % event(deliver(agent,agent,product)). events([deliver/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2582). mpred_prop(deliver(agent,agent,product),action). actions([deliver/3]). % event SendEPO(agent,agent,amount) % From E: % % event(sendEPO(agent,agent,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2582). events([sendEPO/3]). mpred_prop(sendEPO(agent,agent,amount),action). actions([sendEPO/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2585). %; Sigma % [agent1,agent2,f,time] % Initiates(CreateC(agent1,agent2,f),C(agent1,agent2,f),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2587). % From E: % % initiates_at( % createC(Agent1,Agent2,F), % c(Agent1,Agent2,F), % Time). % [Time]. createC(Agent1, Agent2, F)initiates c(Agent1, Agent2, F). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2587). /* initiated(happens(createC(Agent1,Agent2,F), Time_From, Time_Until), c(Agent1,Agent2,F), []). */ % "% =================================". % [agent1,agent2,f1,f2,time] % Initiates(CreateCC(agent1,agent2,f1,f2),CC(agent1,agent2,f1,f2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2591). % From E: % % initiates_at( % createCC(Agent1,Agent2,F1,F2), % cc(Agent1,Agent2,F1,F2), % Time). % [Time]. createCC(Agent1, Agent2, F1, F2)initiates cc(Agent1, Agent2, F1, F2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2591). /* initiated(happens(createCC(Agent1,Agent2,F1,F2), Time_From, Time_Until), cc(Agent1,Agent2,F1,F2), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2593). % [agent1,agent2,f,time] % Terminates(DischargeC(agent1,agent2,f),C(agent1,agent2,f),time). % From E: % % terminates_at( % dischargeC(Agent1,Agent2,F), % c(Agent1,Agent2,F), % Time). % [Time]. dischargeC(Agent1, Agent2, F)terminates c(Agent1, Agent2, F). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2593). /* terminated(happens(dischargeC(Agent1,Agent2,F), Time_From, Time_Until), c(Agent1,Agent2,F), []). */ % "% =================================". % [agent1,agent2,f1,f2,time] % Terminates(DischargeCC(agent1,agent2,f1,f2),CC(agent1,agent2,f1,f2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2597). % From E: % % terminates_at( % dischargeCC(Agent1,Agent2,F1,F2), % cc(Agent1,Agent2,F1,F2), % Time). % [Time]. dischargeCC(Agent1, Agent2, F1, F2)terminates cc(Agent1, Agent2, F1, F2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2597). /* terminated(happens(dischargeCC(Agent1, Agent2, F1, F2), Time_From, Time_Until), cc(Agent1,Agent2,F1,F2), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2599). % [agent1,agent2,product,amount,time] % Initiates(SendQuote(agent1,agent2,product,amount), % QuoteSent(agent1,agent2,product,amount), % time). % From E: % % initiates_at( % sendQuote(Agent1,Agent2,Product,Amount), % quoteSent(Agent1,Agent2,Product,Amount), % Time). % [Time]. sendQuote(Agent1, Agent2, Product, Amount)initiates quoteSent(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2599). /* initiated(happens(sendQuote(Agent1, Agent2, Product, Amount), Time_From, Time_Until), quoteSent(Agent1, Agent2, Product, Amount), []). */ % "% =================================". % [agent1,agent2,product,amount,time] % Initiates(RequestPurchase(agent1,agent2,product,amount), % PurchaseRequested(agent1,agent2,product,amount), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2605). % From E: % % initiates_at( % requestPurchase(Agent1,Agent2,Product,Amount), % purchaseRequested(Agent1,Agent2,Product,Amount), % Time). % [Time]. requestPurchase(Agent1, Agent2, Product, Amount)initiates purchaseRequested(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2605). /* initiated(happens(requestPurchase(Agent1, Agent2, Product, Amount), Time_From, Time_Until), purchaseRequested(Agent1, Agent2, Product, Amount), []). */ % "% =================================". % [agent1,agent2,product,time] % Initiates(Deliver(agent1,agent2,product), % Delivered(agent1,agent2,product), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2610). % From E: % % initiates_at( % deliver(Agent1,Agent2,Product), % delivered(Agent1,Agent2,Product), % Time). % [Time]. deliver(Agent1, Agent2, Product)initiates delivered(Agent1, Agent2, Product). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2610). /* initiated(happens(deliver(Agent1,Agent2,Product), Time_From, Time_Until), delivered(Agent1,Agent2,Product), []). */ % "% =================================". % [agent1,agent2,amount,time] % Initiates(SendEPO(agent1,agent2,amount), % EPOSent(agent1,agent2,amount), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2615). % From E: % % initiates_at( % sendEPO(Agent1,Agent2,Amount), % ePOSent(Agent1,Agent2,Amount), % Time). % [Time]. sendEPO(Agent1, Agent2, Amount)initiates ePOSent(Agent1, Agent2, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2615). /* initiated(happens(sendEPO(Agent1,Agent2,Amount), Time_From, Time_Until), ePOSent(Agent1,Agent2,Amount), []). */ % "% =================================". % [agent1,agent2,product,amount,f1,f2,time] % agent1=% MusicStore & % agent2=Jen & % product=BritneyCD & % amount=1 & % f1=PurchaseRequestedJenMusicStoreBritneyCD1 & % f2=DeliveredMusicStoreJenBritneyCD -> % Initiates(SendQuote(agent1,agent2,product,amount), % CC(agent1,agent2,f1,f2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2620). % From E: % % '->'( % (Agent1=musicStore , % Agent2=jen , % Product=britneyCD , % Amount=1 , % F1=purchaseRequestedJenMusicStoreBritneyCD1 , % F2=deliveredMusicStoreJenBritneyCD), % initiates_at( % sendQuote(Agent1,Agent2,Product,Amount), % cc(Agent1,Agent2,F1,F2), % Time)). % [Time]. false not (sendQuote(Agent1, Agent2, Product, Amount)initiates cc(Agent1, Agent2, F1, F2)), equals(Agent1, musicStore), equals(Agent2, jen), equals(Product, britneyCD), equals(Amount, 1), equals(F1, purchaseRequestedJenMusicStoreBritneyCD1), equals(F2, deliveredMusicStoreJenBritneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2620). /* d_pre([ not(initiates(sendQuote(Agent1, Agent2, Product, Amount), cc(Agent1,Agent2,F1,F2))), equals(Agent1,musicStore), equals(Agent2,jen), equals(Product,britneyCD), equals(Amount,1), equals(F1,purchaseRequestedJenMusicStoreBritneyCD1), equals(F2,deliveredMusicStoreJenBritneyCD) ]). */ % "% =================================". % [agent1,agent2,product,amount,f1,f2,time] % agent1=% Jen & % agent2=MusicStore & % product=BritneyCD & % amount=1 & % f1=DeliveredMusicStoreJenBritneyCD & % f2=EPOSentJenMusicStore1 & % !HoldsAt(Delivered(agent2,agent1,product),time) -> % Initiates(RequestPurchase(agent1,agent2,product,amount), % CC(agent1,agent2,f1,f2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2631). % From E: % % '->'( % (Agent1=jen , % Agent2=musicStore , % Product=britneyCD , % Amount=1 , % F1=deliveredMusicStoreJenBritneyCD , % F2=ePOSentJenMusicStore1 , % holds_at(not(delivered(Agent2,Agent1,Product)),Time)), % initiates_at( % requestPurchase(Agent1,Agent2,Product,Amount), % cc(Agent1,Agent2,F1,F2), % Time)). % [Time]. false not (requestPurchase(Agent1, Agent2, Product, Amount)initiates cc(Agent1, Agent2, F1, F2)), equals(Agent1, jen), equals(Agent2, musicStore), equals(Product, britneyCD), equals(Amount, 1), equals(F1, deliveredMusicStoreJenBritneyCD), equals(F2, ePOSentJenMusicStore1), not delivered(Agent2, Agent1, Product). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2631). /* d_pre([ not(initiates(requestPurchase(Agent1, Agent2, Product, Amount), cc(Agent1,Agent2,F1,F2))), equals(Agent1,jen), equals(Agent2,musicStore), equals(Product,britneyCD), equals(Amount,1), equals(F1,deliveredMusicStoreJenBritneyCD), equals(F2,ePOSentJenMusicStore1), holds(not(delivered(Agent2,Agent1,Product)), Time_At) ]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2644). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2644). % [time] % HoldsAt(CC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(PurchaseRequested(Jen,MusicStore,BritneyCD,1),time) -> % Happens(CreateC(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time). % From E: % % '->'( % (holds_at(cc(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(purchaseRequested(jen,musicStore,britneyCD,1),Time)), % happens_at(createC(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. createC(musicStore, jen, deliveredMusicStoreJenBritneyCD)if cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), purchaseRequested(jen, musicStore, britneyCD, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2644). /* l_events(happens(createC(musicStore, jen, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From), holds(purchaseRequested(jen,musicStore,britneyCD,1), Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2648). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(PurchaseRequested(Jen, MusicStore, BritneyCD, 1),time) -> % Happens(DischargeCC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2650). % From E: % % '->'( % (holds_at(cc(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(purchaseRequested(jen,musicStore,britneyCD,1),Time)), % happens_at(dischargeCC(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. dischargeCC(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD)if cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), purchaseRequested(jen, musicStore, britneyCD, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2650). /* l_events(happens(dischargeCC(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From), holds(purchaseRequested(jen,musicStore,britneyCD,1), Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2653). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(Jen, MusicStore, DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(CreateC(Jen,MusicStore,EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2655). % From E: % % '->'( % (holds_at(cc(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(createC(jen,musicStore,ePOSentJenMusicStore1),Time)). % [Time]. createC(jen, musicStore, ePOSentJenMusicStore1)if cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2655). /* l_events(happens(createC(jen,musicStore,ePOSentJenMusicStore1), Time_From, Time_From), [ holds(cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2658). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(Jen, MusicStore, DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(DischargeCC(Jen,MusicStore,DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2660). % From E: % % '->'( % (holds_at(cc(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(dischargeCC(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time)). % [Time]. dischargeCC(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1)if cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2660). /* l_events(happens(dischargeCC(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From, Time_From), [ holds(cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2663). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(C(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(DischargeC(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2665). % From E: % % '->'( % (holds_at(c(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(dischargeC(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. dischargeC(musicStore, jen, deliveredMusicStoreJenBritneyCD)if c(musicStore, jen, deliveredMusicStoreJenBritneyCD), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2665). /* l_events(happens(dischargeC(musicStore, jen, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(c(musicStore,jen,deliveredMusicStoreJenBritneyCD), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2668). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(C(Jen,MusicStore,EPOSentJenMusicStore1),time) & % HoldsAt(EPOSent(Jen,MusicStore,1),time) -> % Happens(DischargeC(Jen,MusicStore,EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2670). % From E: % % '->'( % (holds_at(c(jen,musicStore,ePOSentJenMusicStore1),Time) , % holds_at(ePOSent(jen,musicStore,1),Time)), % happens_at(dischargeC(jen,musicStore,ePOSentJenMusicStore1),Time)). % [Time]. dischargeC(jen, musicStore, ePOSentJenMusicStore1)if c(jen, musicStore, ePOSentJenMusicStore1), ePOSent(jen, musicStore, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2670). /* l_events(happens(dischargeC(jen,musicStore,ePOSentJenMusicStore1), Time_From, Time_From), [ holds(c(jen,musicStore,ePOSentJenMusicStore1), Time_From), holds(ePOSent(jen,musicStore,1),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2673). % From E: % % directive(delta). directive(delta). % Happens(Deliver(MusicStore,Jen,BritneyCD),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2673). % From E: % % happens_at(deliver(musicStore,jen,britneyCD),0). observe deliver(musicStore, jen, britneyCD)at 0. % observe([deliver(musicStore,jen,britneyCD)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2675). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2675). % Happens(SendEPO(Jen,MusicStore,1),2). % From E: % % happens_at(sendEPO(jen,musicStore,1),2). observe sendEPO(jen, musicStore, 1)at 2. % observe([sendEPO(jen,musicStore,1)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2677). %; Gamma % [agent1,agent2,product,amount] % !HoldsAt(QuoteSent(agent1,agent2,product,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2679). % From E: % % holds_at(not(quoteSent(Agent1,Agent2,Product,Amount)),0). initially not quoteSent(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2679). /* initial_state([ not(quoteSent(Agent1, Agent2, Product, Amount)) ]). */ % "% =================================". % [agent1,agent2,product,amount] % !HoldsAt(PurchaseRequested(agent1,agent2,product,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2683). % From E: % % holds_at(not(purchaseRequested(Agent1,Agent2,Product,Amount)),0). initially not purchaseRequested(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2683). /* initial_state([ not(purchaseRequested(Agent1, Agent2, Product, Amount)) ]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2685). % [agent1,agent2,product] % !HoldsAt(Delivered(agent1,agent2,product),0). % From E: % % holds_at(not(delivered(Agent1,Agent2,Product)),0). initially not delivered(Agent1, Agent2, Product). % initial_state([not(delivered(Agent1,Agent2,Product))]). % "% =================================". % [agent1,agent2,f] % !HoldsAt(C(agent1,agent2,f),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2689). % From E: % % holds_at(not(c(Agent1,Agent2,F)),0). initially not c(Agent1, Agent2, F). % initial_state([not(c(Agent1,Agent2,F))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2691). % [agent1,agent2,f1,f2] % !HoldsAt(CC(agent1,agent2,f1,f2),0). % From E: % % holds_at(not(cc(Agent1,Agent2,F1,F2)),0). initially not cc(Agent1, Agent2, F1, F2). % initial_state([not(cc(Agent1,Agent2,F1,F2))]). % "% =================================". % [agent1,agent2,amount] % !HoldsAt(EPOSent(agent1,agent2,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2695). % From E: % % holds_at(not(ePOSent(Agent1,Agent2,Amount)),0). initially not ePOSent(Agent1, Agent2, Amount). % initial_state([not(ePOSent(Agent1,Agent2,Amount))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2697). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2697). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2699). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2699). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2701). % range amount 1 1 % From E: % % :-call_pel_directive(range(amount,1,1)). :- call_pel_directive(range(amount, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter14/NetBill2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{SirbuTygar:1995, %; author = "Marvin A. Sirbu and J. D. Tygar", %; year = "1995", %; title = "Net\uppercase{B}ill: An \uppercase{I}nternet commerce system optimized for network delivered services", %; editor = " %; booktitle = "40th \uppercase{IEEE} \uppercase{C}omputer \uppercase{S}ociety \uppercase{I}nternational \uppercase{C}onference", %; pages = "20--25", %; publisher = " %; address = " %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2740). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2742). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2742). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2745). % sort agent % From E: % % sort(agent). sort(agent). % agent MusicStore, Jen :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2745). % From E: % % t(agent,musicStore). agent(musicStore). % From E: % % t(agent,jen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2745). agent(jen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2748). % sort product % From E: % % sort(product). sort(product). % product BritneyCD :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2748). % From E: % % t(product,britneyCD). product(britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2751). % sort f % From E: % % sort(f). sort(f). % f PurchaseRequestedJenMusicStoreBritneyCD1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2751). % From E: % % t(f,purchaseRequestedJenMusicStoreBritneyCD1). f(purchaseRequestedJenMusicStoreBritneyCD1). /* l_int(holds(f(purchaseRequestedJenMusicStoreBritneyCD1),Time_At), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2753). % f DeliveredMusicStoreJenBritneyCD % From E: % % t(f,deliveredMusicStoreJenBritneyCD). f(deliveredMusicStoreJenBritneyCD). % l_int(holds(f(deliveredMusicStoreJenBritneyCD),Time_At),[]). % "% =================================". % f EPOSentJenMusicStore1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2753). % From E: % % t(f,ePOSentJenMusicStore1). f(ePOSentJenMusicStore1). % l_int(holds(f(ePOSentJenMusicStore1),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2756). % sort amount: integer % From E: % % subsort(amount,integer). subsort(amount,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2758). % fluent C(agent,agent,f) % From E: % % fluent(c(agent,agent,f)). mpred_prop(c(agent,agent,f),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2758). fluents([c/3]). % fluent CC(agent,agent,f,f) % From E: % % fluent(cc(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2758). mpred_prop(cc(agent,agent,f,f),fluent). fluents([cc/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2761). % event CreateC(agent,agent,f) % From E: % % event(createC(agent,agent,f)). events([createC/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2761). mpred_prop(createC(agent,agent,f),action). actions([createC/3]). % event CreateCC(agent,agent,f,f) % From E: % % event(createCC(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2761). events([createCC/4]). mpred_prop(createCC(agent,agent,f,f),action). actions([createCC/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2763). % event DischargeC(agent,agent,f) % From E: % % event(dischargeC(agent,agent,f)). events([dischargeC/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2763). mpred_prop(dischargeC(agent,agent,f),action). actions([dischargeC/3]). % event DischargeCC(agent,agent,f,f) % From E: % % event(dischargeCC(agent,agent,f,f)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2763). events([dischargeCC/4]). mpred_prop(dischargeCC(agent,agent,f,f),action). actions([dischargeCC/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2766). % fluent QuoteSent(agent,agent,product,amount) % From E: % % fluent(quoteSent(agent,agent,product,amount)). mpred_prop(quoteSent(agent,agent,product,amount),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2766). fluents([quoteSent/4]). % fluent PurchaseRequested(agent,agent,product,amount) % From E: % % fluent(purchaseRequested(agent,agent,product,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2766). mpred_prop(purchaseRequested(agent,agent,product,amount),fluent). fluents([purchaseRequested/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2768). % fluent Delivered(agent,agent,product) % From E: % % fluent(delivered(agent,agent,product)). mpred_prop(delivered(agent,agent,product),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2768). fluents([delivered/3]). % fluent EPOSent(agent,agent,amount) % From E: % % fluent(ePOSent(agent,agent,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2768). mpred_prop(ePOSent(agent,agent,amount),fluent). fluents([ePOSent/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2771). % event SendQuote(agent,agent,product,amount) % From E: % % event(sendQuote(agent,agent,product,amount)). events([sendQuote/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2771). mpred_prop(sendQuote(agent,agent,product,amount),action). actions([sendQuote/4]). % event RequestPurchase(agent,agent,product,amount) % From E: % % event(requestPurchase(agent,agent,product,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2771). events([requestPurchase/4]). mpred_prop(requestPurchase(agent,agent,product,amount),action). actions([requestPurchase/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2773). % event Deliver(agent,agent,product) % From E: % % event(deliver(agent,agent,product)). events([deliver/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2773). mpred_prop(deliver(agent,agent,product),action). actions([deliver/3]). % event SendEPO(agent,agent,amount) % From E: % % event(sendEPO(agent,agent,amount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2773). events([sendEPO/3]). mpred_prop(sendEPO(agent,agent,amount),action). actions([sendEPO/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2776). %; Sigma % [agent1,agent2,f,time] % Initiates(CreateC(agent1,agent2,f),C(agent1,agent2,f),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2778). % From E: % % initiates_at( % createC(Agent1,Agent2,F), % c(Agent1,Agent2,F), % Time). % [Time]. createC(Agent1, Agent2, F)initiates c(Agent1, Agent2, F). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2778). /* initiated(happens(createC(Agent1,Agent2,F), Time_From, Time_Until), c(Agent1,Agent2,F), []). */ % "% =================================". % [agent1,agent2,f1,f2,time] % Initiates(CreateCC(agent1,agent2,f1,f2),CC(agent1,agent2,f1,f2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2782). % From E: % % initiates_at( % createCC(Agent1,Agent2,F1,F2), % cc(Agent1,Agent2,F1,F2), % Time). % [Time]. createCC(Agent1, Agent2, F1, F2)initiates cc(Agent1, Agent2, F1, F2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2782). /* initiated(happens(createCC(Agent1,Agent2,F1,F2), Time_From, Time_Until), cc(Agent1,Agent2,F1,F2), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2784). % [agent1,agent2,f,time] % Terminates(DischargeC(agent1,agent2,f),C(agent1,agent2,f),time). % From E: % % terminates_at( % dischargeC(Agent1,Agent2,F), % c(Agent1,Agent2,F), % Time). % [Time]. dischargeC(Agent1, Agent2, F)terminates c(Agent1, Agent2, F). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2784). /* terminated(happens(dischargeC(Agent1,Agent2,F), Time_From, Time_Until), c(Agent1,Agent2,F), []). */ % "% =================================". % [agent1,agent2,f1,f2,time] % Terminates(DischargeCC(agent1,agent2,f1,f2),CC(agent1,agent2,f1,f2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2788). % From E: % % terminates_at( % dischargeCC(Agent1,Agent2,F1,F2), % cc(Agent1,Agent2,F1,F2), % Time). % [Time]. dischargeCC(Agent1, Agent2, F1, F2)terminates cc(Agent1, Agent2, F1, F2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2788). /* terminated(happens(dischargeCC(Agent1, Agent2, F1, F2), Time_From, Time_Until), cc(Agent1,Agent2,F1,F2), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2790). % [agent1,agent2,product,amount,time] % Initiates(SendQuote(agent1,agent2,product,amount), % QuoteSent(agent1,agent2,product,amount), % time). % From E: % % initiates_at( % sendQuote(Agent1,Agent2,Product,Amount), % quoteSent(Agent1,Agent2,Product,Amount), % Time). % [Time]. sendQuote(Agent1, Agent2, Product, Amount)initiates quoteSent(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2790). /* initiated(happens(sendQuote(Agent1, Agent2, Product, Amount), Time_From, Time_Until), quoteSent(Agent1, Agent2, Product, Amount), []). */ % "% =================================". % [agent1,agent2,product,amount,time] % Initiates(RequestPurchase(agent1,agent2,product,amount), % PurchaseRequested(agent1,agent2,product,amount), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2796). % From E: % % initiates_at( % requestPurchase(Agent1,Agent2,Product,Amount), % purchaseRequested(Agent1,Agent2,Product,Amount), % Time). % [Time]. requestPurchase(Agent1, Agent2, Product, Amount)initiates purchaseRequested(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2796). /* initiated(happens(requestPurchase(Agent1, Agent2, Product, Amount), Time_From, Time_Until), purchaseRequested(Agent1, Agent2, Product, Amount), []). */ % "% =================================". % [agent1,agent2,product,time] % Initiates(Deliver(agent1,agent2,product), % Delivered(agent1,agent2,product), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2801). % From E: % % initiates_at( % deliver(Agent1,Agent2,Product), % delivered(Agent1,Agent2,Product), % Time). % [Time]. deliver(Agent1, Agent2, Product)initiates delivered(Agent1, Agent2, Product). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2801). /* initiated(happens(deliver(Agent1,Agent2,Product), Time_From, Time_Until), delivered(Agent1,Agent2,Product), []). */ % "% =================================". % [agent1,agent2,amount,time] % Initiates(SendEPO(agent1,agent2,amount), % EPOSent(agent1,agent2,amount), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2806). % From E: % % initiates_at( % sendEPO(Agent1,Agent2,Amount), % ePOSent(Agent1,Agent2,Amount), % Time). % [Time]. sendEPO(Agent1, Agent2, Amount)initiates ePOSent(Agent1, Agent2, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2806). /* initiated(happens(sendEPO(Agent1,Agent2,Amount), Time_From, Time_Until), ePOSent(Agent1,Agent2,Amount), []). */ % "% =================================". % [agent1,agent2,product,amount,f1,f2,time] % agent1=% MusicStore & % agent2=Jen & % product=BritneyCD & % amount=1 & % f1=PurchaseRequestedJenMusicStoreBritneyCD1 & % f2=DeliveredMusicStoreJenBritneyCD -> % Initiates(SendQuote(agent1,agent2,product,amount), % CC(agent1,agent2,f1,f2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2811). % From E: % % '->'( % (Agent1=musicStore , % Agent2=jen , % Product=britneyCD , % Amount=1 , % F1=purchaseRequestedJenMusicStoreBritneyCD1 , % F2=deliveredMusicStoreJenBritneyCD), % initiates_at( % sendQuote(Agent1,Agent2,Product,Amount), % cc(Agent1,Agent2,F1,F2), % Time)). % [Time]. false not (sendQuote(Agent1, Agent2, Product, Amount)initiates cc(Agent1, Agent2, F1, F2)), equals(Agent1, musicStore), equals(Agent2, jen), equals(Product, britneyCD), equals(Amount, 1), equals(F1, purchaseRequestedJenMusicStoreBritneyCD1), equals(F2, deliveredMusicStoreJenBritneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2811). /* d_pre([ not(initiates(sendQuote(Agent1, Agent2, Product, Amount), cc(Agent1,Agent2,F1,F2))), equals(Agent1,musicStore), equals(Agent2,jen), equals(Product,britneyCD), equals(Amount,1), equals(F1,purchaseRequestedJenMusicStoreBritneyCD1), equals(F2,deliveredMusicStoreJenBritneyCD) ]). */ % "% =================================". % [agent1,agent2,product,amount,f1,f2,time] % agent1=% Jen & % agent2=MusicStore & % product=BritneyCD & % amount=1 & % f1=DeliveredMusicStoreJenBritneyCD & % f2=EPOSentJenMusicStore1 & % !HoldsAt(Delivered(agent2,agent1,product),time) -> % Initiates(RequestPurchase(agent1,agent2,product,amount), % CC(agent1,agent2,f1,f2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2822). % From E: % % '->'( % (Agent1=jen , % Agent2=musicStore , % Product=britneyCD , % Amount=1 , % F1=deliveredMusicStoreJenBritneyCD , % F2=ePOSentJenMusicStore1 , % holds_at(not(delivered(Agent2,Agent1,Product)),Time)), % initiates_at( % requestPurchase(Agent1,Agent2,Product,Amount), % cc(Agent1,Agent2,F1,F2), % Time)). % [Time]. false not (requestPurchase(Agent1, Agent2, Product, Amount)initiates cc(Agent1, Agent2, F1, F2)), equals(Agent1, jen), equals(Agent2, musicStore), equals(Product, britneyCD), equals(Amount, 1), equals(F1, deliveredMusicStoreJenBritneyCD), equals(F2, ePOSentJenMusicStore1), not delivered(Agent2, Agent1, Product). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2822). /* d_pre([ not(initiates(requestPurchase(Agent1, Agent2, Product, Amount), cc(Agent1,Agent2,F1,F2))), equals(Agent1,jen), equals(Agent2,musicStore), equals(Product,britneyCD), equals(Amount,1), equals(F1,deliveredMusicStoreJenBritneyCD), equals(F2,ePOSentJenMusicStore1), holds(not(delivered(Agent2,Agent1,Product)), Time_At) ]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2835). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2835). % [time] % HoldsAt(CC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(PurchaseRequested(Jen,MusicStore,BritneyCD,1),time) -> % Happens(CreateC(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time). % From E: % % '->'( % (holds_at(cc(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(purchaseRequested(jen,musicStore,britneyCD,1),Time)), % happens_at(createC(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. createC(musicStore, jen, deliveredMusicStoreJenBritneyCD)if cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), purchaseRequested(jen, musicStore, britneyCD, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2835). /* l_events(happens(createC(musicStore, jen, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From), holds(purchaseRequested(jen,musicStore,britneyCD,1), Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2839). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(PurchaseRequested(Jen, MusicStore, BritneyCD, 1),time) -> % Happens(DischargeCC(MusicStore,Jen,PurchaseRequestedJenMusicStoreBritneyCD1,DeliveredMusicStoreJenBritneyCD),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2841). % From E: % % '->'( % (holds_at(cc(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(purchaseRequested(jen,musicStore,britneyCD,1),Time)), % happens_at(dischargeCC(musicStore,jen,purchaseRequestedJenMusicStoreBritneyCD1,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. dischargeCC(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD)if cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), purchaseRequested(jen, musicStore, britneyCD, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2841). /* l_events(happens(dischargeCC(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(cc(musicStore, jen, purchaseRequestedJenMusicStoreBritneyCD1, deliveredMusicStoreJenBritneyCD), Time_From), holds(purchaseRequested(jen,musicStore,britneyCD,1), Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2844). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(Jen, MusicStore, DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(CreateC(Jen,MusicStore,EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2846). % From E: % % '->'( % (holds_at(cc(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(createC(jen,musicStore,ePOSentJenMusicStore1),Time)). % [Time]. createC(jen, musicStore, ePOSentJenMusicStore1)if cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2846). /* l_events(happens(createC(jen,musicStore,ePOSentJenMusicStore1), Time_From, Time_From), [ holds(cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2849). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(CC(Jen, MusicStore, DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(DischargeCC(Jen,MusicStore,DeliveredMusicStoreJenBritneyCD, EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2851). % From E: % % '->'( % (holds_at(cc(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(dischargeCC(jen,musicStore,deliveredMusicStoreJenBritneyCD,ePOSentJenMusicStore1),Time)). % [Time]. dischargeCC(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1)if cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2851). /* l_events(happens(dischargeCC(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From, Time_From), [ holds(cc(jen, musicStore, deliveredMusicStoreJenBritneyCD, ePOSentJenMusicStore1), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2854). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(C(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time) & % HoldsAt(Delivered(MusicStore,Jen,BritneyCD),time) -> % Happens(DischargeC(MusicStore,Jen,DeliveredMusicStoreJenBritneyCD),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2856). % From E: % % '->'( % (holds_at(c(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time) , % holds_at(delivered(musicStore,jen,britneyCD),Time)), % happens_at(dischargeC(musicStore,jen,deliveredMusicStoreJenBritneyCD),Time)). % [Time]. dischargeC(musicStore, jen, deliveredMusicStoreJenBritneyCD)if c(musicStore, jen, deliveredMusicStoreJenBritneyCD), delivered(musicStore, jen, britneyCD). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2856). /* l_events(happens(dischargeC(musicStore, jen, deliveredMusicStoreJenBritneyCD), Time_From, Time_From), [ holds(c(musicStore,jen,deliveredMusicStoreJenBritneyCD), Time_From), holds(delivered(musicStore,jen,britneyCD),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2859). % From E: % % directive(delta). directive(delta). % [time] % HoldsAt(C(Jen,MusicStore,EPOSentJenMusicStore1),time) & % HoldsAt(EPOSent(Jen,MusicStore,1),time) -> % Happens(DischargeC(Jen,MusicStore,EPOSentJenMusicStore1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2861). % From E: % % '->'( % (holds_at(c(jen,musicStore,ePOSentJenMusicStore1),Time) , % holds_at(ePOSent(jen,musicStore,1),Time)), % happens_at(dischargeC(jen,musicStore,ePOSentJenMusicStore1),Time)). % [Time]. dischargeC(jen, musicStore, ePOSentJenMusicStore1)if c(jen, musicStore, ePOSentJenMusicStore1), ePOSent(jen, musicStore, 1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2861). /* l_events(happens(dischargeC(jen,musicStore,ePOSentJenMusicStore1), Time_From, Time_From), [ holds(c(jen,musicStore,ePOSentJenMusicStore1), Time_From), holds(ePOSent(jen,musicStore,1),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2864). % From E: % % directive(delta). directive(delta). % Happens(RequestPurchase(Jen,MusicStore,BritneyCD,1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2864). % From E: % % happens_at(requestPurchase(jen,musicStore,britneyCD,1),0). observe requestPurchase(jen, musicStore, britneyCD, 1)at 0. % observe([requestPurchase(jen,musicStore,britneyCD,1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2866). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2866). % Happens(Deliver(MusicStore,Jen,BritneyCD),2). % From E: % % happens_at(deliver(musicStore,jen,britneyCD),2). observe deliver(musicStore, jen, britneyCD)at 2. % observe([deliver(musicStore,jen,britneyCD)],2). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2866). % From E: % % directive(delta). directive(delta). % Happens(SendEPO(Jen,MusicStore,1),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2866). % From E: % % happens_at(sendEPO(jen,musicStore,1),4). observe sendEPO(jen, musicStore, 1)at 4. % observe([sendEPO(jen,musicStore,1)],4). % "% =================================". %; Gamma % [agent1,agent2,product,amount] % !HoldsAt(QuoteSent(agent1,agent2,product,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2871). % From E: % % holds_at(not(quoteSent(Agent1,Agent2,Product,Amount)),0). initially not quoteSent(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2871). /* initial_state([ not(quoteSent(Agent1, Agent2, Product, Amount)) ]). */ % "% =================================". % [agent1,agent2,product,amount] % !HoldsAt(PurchaseRequested(agent1,agent2,product,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2875). % From E: % % holds_at(not(purchaseRequested(Agent1,Agent2,Product,Amount)),0). initially not purchaseRequested(Agent1, Agent2, Product, Amount). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2875). /* initial_state([ not(purchaseRequested(Agent1, Agent2, Product, Amount)) ]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2877). % [agent1,agent2,product] % !HoldsAt(Delivered(agent1,agent2,product),0). % From E: % % holds_at(not(delivered(Agent1,Agent2,Product)),0). initially not delivered(Agent1, Agent2, Product). % initial_state([not(delivered(Agent1,Agent2,Product))]). % "% =================================". % [agent1,agent2,f] % !HoldsAt(C(agent1,agent2,f),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2881). % From E: % % holds_at(not(c(Agent1,Agent2,F)),0). initially not c(Agent1, Agent2, F). % initial_state([not(c(Agent1,Agent2,F))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2883). % [agent1,agent2,f1,f2] % !HoldsAt(CC(agent1,agent2,f1,f2),0). % From E: % % holds_at(not(cc(Agent1,Agent2,F1,F2)),0). initially not cc(Agent1, Agent2, F1, F2). % initial_state([not(cc(Agent1,Agent2,F1,F2))]). % "% =================================". % [agent1,agent2,amount] % !HoldsAt(EPOSent(agent1,agent2,amount),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2887). % From E: % % holds_at(not(ePOSent(Agent1,Agent2,Amount)),0). initially not ePOSent(Agent1, Agent2, Amount). % initial_state([not(ePOSent(Agent1,Agent2,Amount))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2889). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2889). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2891). % range time 0 6 % From E: % % :-call_pel_directive(range(time,0,6)). :- call_pel_directive(range(time, 0, 6)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2891). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2893). % range amount 1 1 % From E: % % :-call_pel_directive(range(amount,1,1)). :- call_pel_directive(range(amount, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter14/Vision.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{ShanahanRandell:2004, %; author = "Murray Shanahan and David A. Randell", %; year = "2004", %; title = "A logic-based formulation of active visual perception", %; editor = "Didier Dubois and Christopher A. Welty and Mary-Anne Williams", %; booktitle = "\uppercase{P}roceedings of the \uppercase{N}inth \uppercase{I}nternational \uppercase{C}onference on \uppercase{P}rinciples of \uppercase{K}nowledge \uppercase{R}epresentation and \uppercase{R}easoning", %; pages = "64--72", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2932). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2934). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2934). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2937). % sort object % From E: % % sort(object). sort(object). % sort shape :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2937). % From E: % % sort(shape). sort(shape). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2939). % sort aspect % From E: % % sort(aspect). sort(aspect). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2941). % object Object1 % From E: % % t(object,object1). object(object1). % aspect Aspect1, Aspect2, Aspect3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2941). % From E: % % t(aspect,aspect1). aspect(aspect1). % From E: % % t(aspect,aspect2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2941). aspect(aspect2). % From E: % % t(aspect,aspect3). aspect(aspect3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2943). % shape Shape1, Shape2 % From E: % % t(shape,shape1). shape(shape1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2943). % From E: % % t(shape,shape2). shape(shape2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2945). % predicate Shape(object,shape) % From E: % % predicate(shape(object,shape)). mpred_prop(shape(object,shape),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2945). predicates([shape/2]). % predicate Arc(shape,aspect,aspect) % From E: % % predicate(arc(shape,aspect,aspect)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2945). mpred_prop(arc(shape,aspect,aspect),predicate). predicates([arc/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2947). % fluent Aspect(object,aspect) % From E: % % fluent(aspect(object,aspect)). mpred_prop(aspect(object,aspect),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2947). fluents([aspect/2]). % event Change(object,aspect,aspect) % From E: % % event(change(object,aspect,aspect)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2947). mpred_prop(change(object,aspect,aspect),event). events([change/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2950). %; Sigma % [object,aspect1,aspect2,shape,time] % HoldsAt(Aspect(object,aspect1),time) & % Shape(object,shape) & % (Arc(shape,aspect1,aspect2) | % Arc(shape,aspect2,aspect1)) -> % Initiates(Change(object,aspect1,aspect2),Aspect(object,aspect2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2952). % From E: % % '->'( % (holds_at(aspect(Object,Aspect1),Time) , % shape(Object,Shape) , % (arc(Shape,Aspect1,Aspect2) ; % arc(Shape,Aspect2,Aspect1))), % initiates_at( % change(Object,Aspect1,Aspect2), % aspect(Object,Aspect2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2952). aspect(Object, Aspect1), shape(Object, Shape), false((not(arc(Shape, Aspect1, Aspect2)), not(arc(Shape, Aspect2, Aspect1)))) -> initiates(change(Object, Aspect1, Aspect2), aspect(Object, Aspect2)). % [object,aspect1,aspect2,shape,time] % HoldsAt(Aspect(object,aspect1),time) & % Shape(object,shape) & % (Arc(shape,aspect1,aspect2) | % Arc(shape,aspect2,aspect1)) -> % Terminates(Change(object,aspect1,aspect2),Aspect(object,aspect1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2960). % From E: % % '->'( % (holds_at(aspect(Object,Aspect1),Time) , % shape(Object,Shape) , % (arc(Shape,Aspect1,Aspect2) ; % arc(Shape,Aspect2,Aspect1))), % terminates_at( % change(Object,Aspect1,Aspect2), % aspect(Object,Aspect1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2960). aspect(Object, Aspect1), shape(Object, Shape), false((not(arc(Shape, Aspect1, Aspect2)), not(arc(Shape, Aspect2, Aspect1)))) -> terminates(change(Object, Aspect1, Aspect2), aspect(Object, Aspect1)). %; preconditions (added) % [object,aspect1,aspect2,time] % Happens(Change(object,aspect1,aspect2),time) -> % HoldsAt(Aspect(object,aspect1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2968). % From E: % % '->'( % happens_at(change(Object,Aspect1,Aspect2),Time), % holds_at(aspect(Object,Aspect1),Time)). % [Time]. if change(Object, Aspect1, Aspect2)then aspect(Object, Aspect1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2968). /* reactive_rule([change(Object,Aspect1,Aspect2)], [aspect(Object,Aspect1)]). */ % "% =================================". % [object,aspect1,aspect2,aspect3,time] % Happens(Change(object,aspect1,aspect2),time) & % Happens(Change(object,aspect1,aspect3),time) -> % aspect2=aspect3. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2973). % From E: % % '->'( % (happens_at(change(Object,Aspect1,Aspect2),Time) , % happens_at(change(Object,Aspect1,Aspect3),Time)), % Aspect2=Aspect3). % [Time]. false not equals(Aspect2, Aspect3), change(Object, Aspect1, Aspect2), change(Object, Aspect1, Aspect3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2973). /* d_pre([ not(equals(Aspect2,Aspect3)), change(Object,Aspect1,Aspect2), change(Object,Aspect1,Aspect3) ]). */ % "% =================================". %; Psi % [object,shape1,shape2] % Shape(object,shape1) & % Shape(object,shape2) -> % shape1=shape2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2979). % From E: % % '->'( % (shape(Object,Shape1) , % shape(Object,Shape2)), % Shape1=Shape2). false not equals(Shape1, Shape2), shape(Object, Shape1), shape(Object, Shape2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2979). /* d_pre([ not(equals(Shape1,Shape2)), shape(Object,Shape1), shape(Object,Shape2) ]). */ % "% =================================". % [object,aspect1,aspect2,time] % HoldsAt(Aspect(object,aspect1),time) & % HoldsAt(Aspect(object,aspect2),time) -> % aspect1=aspect2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2985). % From E: % % '->'( % (holds_at(aspect(Object,Aspect1),Time) , % holds_at(aspect(Object,Aspect2),Time)), % Aspect1=Aspect2). % [Time]. false not equals(Aspect1, Aspect2), aspect(Object, Aspect1), aspect(Object, Aspect2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2985). /* d_pre([ not(equals(Aspect1,Aspect2)), aspect(Object,Aspect1), aspect(Object,Aspect2) ]). */ % "% =================================". % [aspect1,aspect2] % Arc(Shape1,aspect1,aspect2) <-> % (aspect1=Aspect1 & aspect2=Aspect2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2990). % From E: % % <->( % arc(shape1,Aspect1,Aspect2), % (Aspect1=aspect1 , % Aspect2=aspect2)). arc(shape1, Aspect1, Aspect2) <-> Aspect1=aspect1, Aspect2=aspect2. % [aspect1,aspect2] % Arc(Shape2,aspect1,aspect2) <-> % ((aspect1=Aspect1 & aspect2=Aspect3) | % (aspect1=Aspect3 & aspect2=Aspect2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2994). % From E: % % <->( % arc(shape2,Aspect1,Aspect2), % ((Aspect1=aspect1 , % Aspect2=aspect3) ; % (Aspect1=aspect3 , % Aspect2=aspect2))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',2994). arc(shape2, Aspect1, Aspect2) <-> ( Aspect1=aspect1, Aspect2=aspect3 ; Aspect1=aspect3, Aspect2=aspect2 ). %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3000). % HoldsAt(Aspect(Object1,Aspect1),0). % From E: % % holds_at(aspect(object1,aspect1),0). initially aspect(object1, aspect1). % initial_state([aspect(object1,aspect1)]). % "% =================================". % HoldsAt(Aspect(Object1,Aspect2),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3000). % From E: % % holds_at(aspect(object1,aspect2),1). holds_at(aspect(object1,aspect2),1). %;completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3005). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3005). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter14/Workflow.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @incollection{CicekliYildirim:2000, %; author = "Nihan Kesim Cicekli and Yakup Yildirim", %; year = "2000", %; title = "Formalizing workflows using the event calculus", %; editor = "Mohamed T. Ibrahim and Josef K{\"{u}}ng and Norman Revell", %; booktitle = "Database and Expert Systems Applications", %; series = "Lecture Notes in Computer Science", %; volume = "1873", %; pages = "222--231", %; address = "Berlin", %; publisher = "Springer", %; } %; %; @unpublished{WFMC:1999, %; author = "{Workflow Management Coalition}", %; year = "1999", %; title = "\uppercase{W}orkflow \uppercase{M}anagement \uppercase{C}oalition Terminology \& Glossary", %; howpublished = "Document Number WFMC-TC-1011, Document Status -- Issue 3.0, Workflow Management Coalition, Winchester, UK", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3054). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3056). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3056). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3059). % sort activity % From E: % % sort(activity). sort(activity). % sort condition :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3059). % From E: % % sort(condition). sort(condition). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % activity A, B, C1, C2, C3, D, E1, E2, E3, F, G % From E: % % t(activity,a). activity(a). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % From E: % % t(activity,b). activity(b). % From E: % % t(activity,c1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). activity(c1). % From E: % % t(activity,c2). activity(c2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % From E: % % t(activity,c3). activity(c3). % From E: % % t(activity,d). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). activity(d). % From E: % % t(activity,e1). activity(e1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % From E: % % t(activity,e2). activity(e2). % From E: % % t(activity,e3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). activity(e3). % From E: % % t(activity,f). activity(f). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % From E: % % t(activity,g). activity(g). % condition E1C, E2C, E3C, FC :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % From E: % % t(condition,e1c). condition(e1c). % From E: % % t(condition,e2c). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). condition(e2c). % From E: % % t(condition,e3c). condition(e3c). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3061). % From E: % % t(condition,fc). condition(fc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3064). % fluent Active(activity) % From E: % % fluent(active(activity)). mpred_prop(active(activity),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3064). fluents([active/1]). % fluent Completed(activity) % From E: % % fluent(completed(activity)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3064). mpred_prop(completed(activity),fluent). fluents([completed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3066). % fluent Condition(condition) % From E: % % fluent(condition(condition)). mpred_prop(condition(condition),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3066). fluents([condition/1]). % noninertial Condition % From E: % % :-call_pel_directive(noninertial(condition)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3066). :- call_pel_directive(noninertial(condition)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3069). % event Start(activity) % From E: % % event(start(activity)). mpred_prop(start(activity),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3069). events([start/1]). % event End(activity) % From E: % % event(end(activity)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3069). mpred_prop(end(activity),event). events([end/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3072). %; Sigma % [activity,time] % Initiates(Start(activity),Active(activity),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3074). % From E: % % initiates_at( % start(Activity), % active(Activity), % Time). % [Time]. start(Activity)initiates active(Activity). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3074). /* initiated(happens(start(Activity), Time_From, Time_Until), active(Activity), []). */ % "% =================================". % [activity,time] % Terminates(Start(activity),Completed(activity),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3078). % From E: % % terminates_at( % start(Activity), % completed(Activity), % Time). % [Time]. start(Activity)terminates completed(Activity). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3078). /* terminated(happens(start(Activity), Time_From, Time_Until), completed(Activity), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3080). % [activity,time] % Initiates(End(activity),Completed(activity),time). % From E: % % initiates_at( % end(Activity), % completed(Activity), % Time). % [Time]. end(Activity)initiates completed(Activity). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3080). /* initiated(happens(end(Activity),Time_From,Time_Until), completed(Activity), []). */ % "% =================================". % [activity,time] % Terminates(End(activity),Active(activity),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3084). % From E: % % terminates_at( % end(Activity), % active(Activity), % Time). % [Time]. end(Activity)terminates active(Activity). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3084). /* terminated(happens(end(Activity), Time_From, Time_Until), active(Activity), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3086). %; Delta %; A; B % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3088). % From E: % % directive(delta). directive(delta). % [time] % !HoldsAt(Active(B),time) & % !HoldsAt(Completed(A),time-1) & % HoldsAt(Completed(A),time) -> % Happens(Start(B),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3090). % From E: % % '->'( % (holds_at(not(active(b)),Time) , % holds_at(not(completed(a)),Time-1) , % holds_at(completed(a),Time)), % happens_at(start(b),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3090). holds_at(not(active(b)), Time), holds_at(not(completed(a)), Time-1), holds_at(completed(a), Time) -> happens_at(start(b), Time). %; B; AND-split C1, C2, C3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3096). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3096). % [time] % !HoldsAt(Active(C1),time) & % !HoldsAt(Completed(B),time-1) & % HoldsAt(Completed(B),time) -> % Happens(Start(C1),time). % From E: % % '->'( % (holds_at(not(active(c1)),Time) , % holds_at(not(completed(b)),Time-1) , % holds_at(completed(b),Time)), % happens_at(start(c1),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3096). holds_at(not(active(c1)), Time), holds_at(not(completed(b)), Time-1), holds_at(completed(b), Time) -> happens_at(start(c1), Time). % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3101). % From E: % % directive(delta). directive(delta). % [time] % !HoldsAt(Active(C2),time) & % !HoldsAt(Completed(B),time-1) & % HoldsAt(Completed(B),time) -> % Happens(Start(C2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3103). % From E: % % '->'( % (holds_at(not(active(c2)),Time) , % holds_at(not(completed(b)),Time-1) , % holds_at(completed(b),Time)), % happens_at(start(c2),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3103). holds_at(not(active(c2)), Time), holds_at(not(completed(b)), Time-1), holds_at(completed(b), Time) -> happens_at(start(c2), Time). % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3107). % From E: % % directive(delta). directive(delta). % [time] % !HoldsAt(Active(C3),time) & % !HoldsAt(Completed(B),time-1) & % HoldsAt(Completed(B),time) -> % Happens(Start(C3),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3109). % From E: % % '->'( % (holds_at(not(active(c3)),Time) , % holds_at(not(completed(b)),Time-1) , % holds_at(completed(b),Time)), % happens_at(start(c3),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3109). holds_at(not(active(c3)), Time), holds_at(not(completed(b)), Time-1), holds_at(completed(b), Time) -> happens_at(start(c3), Time). %; AND-join C1, C2, C3; D :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3115). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3115). % [time] % !HoldsAt(Active(D),time) & % ((!HoldsAt(Completed(C1),time-1) & HoldsAt(Completed(C1),time))| % (!HoldsAt(Completed(C2),time-1) & HoldsAt(Completed(C2),time))| % (!HoldsAt(Completed(C3),time-1) & HoldsAt(Completed(C3),time))) & % HoldsAt(Completed(C1),time) & % HoldsAt(Completed(C2),time) & % HoldsAt(Completed(C3),time) -> % Happens(Start(D),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3115). % From E: % % '->'( % (holds_at(not(active(d)),Time) , % ((holds_at(not(completed(c1)),Time-1) , % holds_at(completed(c1),Time)) ; % (holds_at(not(completed(c2)),Time-1) , % holds_at(completed(c2),Time)) ; % (holds_at(not(completed(c3)),Time-1) , % holds_at(completed(c3),Time))) , % holds_at(completed(c1),Time) , % holds_at(completed(c2),Time) , % holds_at(completed(c3),Time)), % happens_at(start(d),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3115). holds_at(not(active(d)), Time), (holds_at(not(completed(c1)), Time-1), holds_at(completed(c1), Time);holds_at(not(completed(c2)), Time-1), holds_at(completed(c2), Time);holds_at(not(completed(c3)), Time-1), holds_at(completed(c3), Time)), holds_at(completed(c1), Time), holds_at(completed(c2), Time), holds_at(completed(c3), Time) -> happens_at(start(d), Time). %; D; XOR-split E1, E2, E3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3126). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3126). % [time] % !HoldsAt(Active(E1),time) & % !HoldsAt(Completed(D),time-1) & % HoldsAt(Completed(D),time) & % HoldsAt(Condition(E1C),time) -> % Happens(Start(E1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3126). % From E: % % '->'( % (holds_at(not(active(e1)),Time) , % holds_at(not(completed(d)),Time-1) , % holds_at(completed(d),Time) , % holds_at(condition(e1c),Time)), % happens_at(start(e1),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3126). holds_at(not(active(e1)), Time), holds_at(not(completed(d)), Time-1), holds_at(completed(d), Time), holds_at(condition(e1c), Time) -> happens_at(start(e1), Time). % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3132). % From E: % % directive(delta). directive(delta). % [time] % !HoldsAt(Active(E2),time) & % !HoldsAt(Completed(D),time-1) & % HoldsAt(Completed(D),time) & % HoldsAt(Condition(E2C),time) -> % Happens(Start(E2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3134). % From E: % % '->'( % (holds_at(not(active(e2)),Time) , % holds_at(not(completed(d)),Time-1) , % holds_at(completed(d),Time) , % holds_at(condition(e2c),Time)), % happens_at(start(e2),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3134). holds_at(not(active(e2)), Time), holds_at(not(completed(d)), Time-1), holds_at(completed(d), Time), holds_at(condition(e2c), Time) -> happens_at(start(e2), Time). % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3139). % From E: % % directive(delta). directive(delta). % [time] % !HoldsAt(Active(E3),time) & % !HoldsAt(Completed(D),time-1) & % HoldsAt(Completed(D),time) & % HoldsAt(Condition(E3C),time) -> % Happens(Start(E3),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3141). % From E: % % '->'( % (holds_at(not(active(e3)),Time) , % holds_at(not(completed(d)),Time-1) , % holds_at(completed(d),Time) , % holds_at(condition(e3c),Time)), % happens_at(start(e3),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3141). holds_at(not(active(e3)), Time), holds_at(not(completed(d)), Time-1), holds_at(completed(d), Time), holds_at(condition(e3c), Time) -> happens_at(start(e3), Time). %; XOR-join E1, E2, E3; F :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3148). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3148). % [time] % !HoldsAt(Active(F),time) & % ((!HoldsAt(Completed(E1),time-1) & HoldsAt(Completed(E1),time))| % (!HoldsAt(Completed(E2),time-1) & HoldsAt(Completed(E2),time))| % (!HoldsAt(Completed(E3),time-1) & HoldsAt(Completed(E3),time))) -> % Happens(Start(F),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3148). % From E: % % '->'( % (holds_at(not(active(f)),Time) , % ((holds_at(not(completed(e1)),Time-1) , % holds_at(completed(e1),Time)) ; % (holds_at(not(completed(e2)),Time-1) , % holds_at(completed(e2),Time)) ; % (holds_at(not(completed(e3)),Time-1) , % holds_at(completed(e3),Time)))), % happens_at(start(f),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3148). holds_at(not(active(f)), Time), (holds_at(not(completed(e1)), Time-1), holds_at(completed(e1), Time);holds_at(not(completed(e2)), Time-1), holds_at(completed(e2), Time);holds_at(not(completed(e3)), Time-1), holds_at(completed(e3), Time)) -> happens_at(start(f), Time). %; while (FC) F; G :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3156). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3156). % [time] % !HoldsAt(Active(F),time) & % !HoldsAt(Completed(F),time-1) & % HoldsAt(Completed(F),time) & % HoldsAt(Condition(FC),time) -> % Happens(Start(F),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3156). % From E: % % '->'( % (holds_at(not(active(f)),Time) , % holds_at(not(completed(f)),Time-1) , % holds_at(completed(f),Time) , % holds_at(condition(fc),Time)), % happens_at(start(f),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3156). holds_at(not(active(f)), Time), holds_at(not(completed(f)), Time-1), holds_at(completed(f), Time), holds_at(condition(fc), Time) -> happens_at(start(f), Time). % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3162). % From E: % % directive(delta). directive(delta). % [time] % !HoldsAt(Active(G),time) & % !HoldsAt(Completed(F),time-1) & % HoldsAt(Completed(F),time) & % !HoldsAt(Condition(FC),time) -> % Happens(Start(G),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3164). % From E: % % '->'( % (holds_at(not(active(g)),Time) , % holds_at(not(completed(f)),Time-1) , % holds_at(completed(f),Time) , % holds_at(not(condition(fc)),Time)), % happens_at(start(g),Time)). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3164). holds_at(not(active(g)), Time), holds_at(not(completed(f)), Time-1), holds_at(completed(f), Time), holds_at(not(condition(fc)), Time) -> happens_at(start(g), Time). % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3169). % From E: % % directive(delta). directive(delta). % Happens(Start(A),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3169). % From E: % % happens_at(start(a),0). observe start(a)at 0. % observe([start(a)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3171). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3171). % Happens(End(A),1). % From E: % % happens_at(end(a),1). observe end(a)at 1. % observe([end(a)],1). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3171). % From E: % % directive(delta). directive(delta). % Happens(End(B),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3171). % From E: % % happens_at(end(b),3). observe end(b)at 3. % observe([end(b)],3). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3173). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3173). % Happens(End(C1),5). % From E: % % happens_at(end(c1),5). observe end(c1)at 5. % observe([end(c1)],5). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3173). % From E: % % directive(delta). directive(delta). % Happens(End(C2),6). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3173). % From E: % % happens_at(end(c2),6). observe end(c2)at 6. % observe([end(c2)],6). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3175). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3175). % Happens(End(C3),7). % From E: % % happens_at(end(c3),7). observe end(c3)at 7. % observe([end(c3)],7). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3175). % From E: % % directive(delta). directive(delta). % Happens(End(D),9). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3175). % From E: % % happens_at(end(d),9). observe end(d)at 9. % observe([end(d)],9). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3177). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3177). % Happens(End(E2),11). % From E: % % happens_at(end(e2),11). observe end(e2)at 11. % observe([end(e2)],11). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3177). % From E: % % directive(delta). directive(delta). % Happens(End(F),13). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3177). % From E: % % happens_at(end(f),13). observe end(f)at 13. % observe([end(f)],13). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3179). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3179). % Happens(End(F),15). % From E: % % happens_at(end(f),15). observe end(f)at 15. % observe([end(f)],15). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3181). %; Gamma % [activity] % !HoldsAt(Active(activity),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3183). % From E: % % holds_at(not(active(Activity)),0). initially not active(Activity). % initial_state([not(active(Activity))]). % "% =================================". % [activity] % !HoldsAt(Completed(activity),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3183). % From E: % % holds_at(not(completed(Activity)),0). initially not completed(Activity). % initial_state([not(completed(Activity))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3185). % [time] % time=% 14 <-> HoldsAt(Condition(FC),time). % From E: % % <->( % Time=14, % holds_at(condition(fc),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3185). Time=14 <-> holds_at(condition(fc), Time). % [time] % !HoldsAt(Condition(E1C),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3185). % From E: % % holds_at(not(condition(e1c)),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3185). not(condition(e1c)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3187). % [time] % time=% 10 <-> HoldsAt(Condition(E2C),time). % From E: % % <->( % Time=10, % holds_at(condition(e2c),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3187). Time=10 <-> holds_at(condition(e2c), Time). % [time] % !HoldsAt(Condition(E3C),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3187). % From E: % % holds_at(not(condition(e3c)),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3187). not(condition(e3c)). % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3189). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3189). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3192). % range time 0 18 % From E: % % :-call_pel_directive(range(time,0,18)). :- call_pel_directive(range(time, 0, 18)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3192). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter6/ThielscherCircuit1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Thielscher:1997, %; author = "Michael Thielscher", %; year = "1997", %; title = "Ramification and causality", %; journal = "Artificial Intelligence", %; volume = "89", %; pages = "317--364", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3230). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3230). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3232). % load foundations/ECCausal.e % From E: % % :-call_pel_directive(load('foundations/ECCausal.e')). :- call_pel_directive(load('foundations/ECCausal.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3234). % sort switch % From E: % % sort(switch). sort(switch). % sort relay :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3234). % From E: % % sort(relay). sort(relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3236). % sort light % From E: % % sort(light). sort(light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3238). % switch S1, S2, S3 % From E: % % t(switch,s1). switch(s1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3238). % From E: % % t(switch,s2). switch(s2). % From E: % % t(switch,s3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3238). switch(s3). % relay R % From E: % % t(relay,r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3238). relay(r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3240). % light L % From E: % % t(light,l). light(l). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3242). % event Light(light) % From E: % % event(light(light)). mpred_prop(light(light),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3242). events([light/1]). % event Close(switch) % From E: % % event(close(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3242). mpred_prop(close(switch),event). events([close/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3244). % event Open(switch) % From E: % % event(open(switch)). mpred_prop(open(switch),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3244). events([open/1]). % event Activate(relay) % From E: % % event(activate(relay)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3244). mpred_prop(activate(relay),event). events([activate/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3247). % fluent Lit(light) % From E: % % fluent(lit(light)). mpred_prop(lit(light),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3247). fluents([lit/1]). % fluent Closed(switch) % From E: % % fluent(closed(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3247). mpred_prop(closed(switch),fluent). fluents([closed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3249). % fluent Activated(relay) % From E: % % fluent(activated(relay)). mpred_prop(activated(relay),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3249). fluents([activated/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3251). % [time] % Stopped(Lit(L),time) & % Initiated(Closed(S1),time) & % Initiated(Closed(S2),time) -> % Happens(Light(L),time). % From E: % % '->'( % (stopped(lit(l),Time) , % initiated(closed(s1),Time) , % initiated(closed(s2),Time)), % happens_at(light(l),Time)). % [Time]. if stopped(lit(l), Time), initiated(closed(s1), Time), initiated(closed(s2), Time)then happens_at(light(l), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3251). /* reactive_rule([ stopped(lit(l),Time), initiated(closed(s1),Time), initiated(closed(s2),Time) ], [happens_at(light(l),Time)]). */ % "% =================================". % [time] % Started(Closed(S2),time) & % Initiated(Activated(R),time) -> % Happens(Open(S2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3258). % From E: % % '->'( % (started(closed(s2),Time) , % initiated(activated(r),Time)), % happens_at(open(s2),Time)). % [Time]. if started(closed(s2), Time), initiated(activated(r), Time)then happens_at(open(s2), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3258). /* reactive_rule([ started(closed(s2),Time), initiated(activated(r),Time) ], [happens_at(open(s2),Time)]). */ % "% =================================". % [time] % Stopped(Activated(R),time) & % Initiated(Closed(S1),time) & % Initiated(Closed(S3),time) -> % Happens(Activate(R),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3263). % From E: % % '->'( % (stopped(activated(r),Time) , % initiated(closed(s1),Time) , % initiated(closed(s3),Time)), % happens_at(activate(r),Time)). % [Time]. if stopped(activated(r), Time), initiated(closed(s1), Time), initiated(closed(s3), Time)then happens_at(activate(r), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3263). /* reactive_rule([ stopped(activated(r),Time), initiated(closed(s1),Time), initiated(closed(s3),Time) ], [happens_at(activate(r),Time)]). */ % "% =================================". % [switch,time] % Initiates(Close(switch),Closed(switch),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3267). % From E: % % initiates_at( % close(Switch), % closed(Switch), % Time). % [Time]. close(Switch)initiates closed(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3267). /* initiated(happens(close(Switch),Time_From,Time_Until), closed(Switch), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3269). % [switch,time] % Terminates(Open(switch),Closed(switch),time). % From E: % % terminates_at( % open(Switch), % closed(Switch), % Time). % [Time]. open(Switch)terminates closed(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3269). /* terminated(happens(open(Switch),Time_From,Time_Until), closed(Switch), []). */ % "% =================================". % [relay,time] % Initiates(Activate(relay),Activated(relay),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3269). % From E: % % initiates_at( % activate(Relay), % activated(Relay), % Time). % [Time]. activate(Relay)initiates activated(Relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3269). /* initiated(happens(activate(Relay), Time_From, Time_Until), activated(Relay), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3271). % [light,time] % Initiates(Light(light),Lit(light),time). % From E: % % initiates_at( % light(Light), % lit(Light), % Time). % [Time]. light(Light)initiates lit(Light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3271). /* initiated(happens(light(Light),Time_From,Time_Until), lit(Light), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3273). % !HoldsAt(Closed(S1),0). % From E: % % holds_at(not(closed(s1)),0). initially not closed(s1). % initial_state([not(closed(s1))]). % "% =================================". % HoldsAt(Closed(S2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3273). % From E: % % holds_at(closed(s2),0). initially closed(s2). % initial_state([closed(s2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3275). % HoldsAt(Closed(S3),0). % From E: % % holds_at(closed(s3),0). initially closed(s3). % initial_state([closed(s3)]). % "% =================================". % !HoldsAt(Activated(R),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3275). % From E: % % holds_at(not(activated(r)),0). initially not activated(r). % initial_state([not(activated(r))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3277). % !HoldsAt(Lit(L),0). % From E: % % holds_at(not(lit(l)),0). initially not lit(l). % initial_state([not(lit(l))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3279). % Happens(Close(S1),0). % From E: % % happens_at(close(s1),0). observe close(s1)at 0. % observe([close(s1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3281). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3283). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3283). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter6/CarryingABook1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Example: Carrying a Book (Effect Axioms) %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3315). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3317). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3317). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3320). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3320). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3322). % sort room % From E: % % sort(room). sort(room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3324). % object Book % From E: % % t(object,book). object(book). % agent Nathan :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3324). % From E: % % t(agent,nathan). agent(nathan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3326). % room LivingRoom, Kitchen % From E: % % t(room,livingRoom). room(livingRoom). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3326). % From E: % % t(room,kitchen). room(kitchen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3328). % event LetGoOf(agent,object) % From E: % % event(letGoOf(agent,object)). events([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3328). mpred_prop(letGoOf(agent,object),action). actions([letGoOf/2]). % event PickUp(agent,object) % From E: % % event(pickUp(agent,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3328). events([pickUp/2]). mpred_prop(pickUp(agent,object),action). actions([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3330). % event Walk(agent,room,room) % From E: % % event(walk(agent,room,room)). events([walk/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3330). mpred_prop(walk(agent,room,room),action). actions([walk/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3332). % fluent InRoom(object,room) % From E: % % fluent(inRoom(object,room)). mpred_prop(inRoom(object,room),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3332). fluents([inRoom/2]). % fluent Holding(agent,object) % From E: % % fluent(holding(agent,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3332). mpred_prop(holding(agent,object),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3335). %; Sigma % [agent,room1,room2,time] % Initiates(Walk(agent,room1,room2),InRoom(agent,room2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3337). % From E: % % initiates_at( % walk(Agent,Room1,Room2), % inRoom(Agent,Room2), % Time). % [Time]. walk(Agent, Room1, Room2)initiates inRoom(Agent, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3337). /* initiated(happens(walk(Agent,Room1,Room2), Time_From, Time_Until), inRoom(Agent,Room2), []). */ % "% =================================". % [agent,room1,room2,time] % room1!=% room2 -> % Terminates(Walk(agent,room1,room2),InRoom(agent,room1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3341). % From E: % % '->'( % Room1\=Room2, % terminates_at( % walk(Agent,Room1,Room2), % inRoom(Agent,Room1), % Time)). % [Time]. Room1\=Room2 -> terminates(walk(Agent, Room1, Room2), inRoom(Agent, Room1)). % [agent,object,room,time] % HoldsAt(InRoom(agent,room),time) & % HoldsAt(InRoom(object,room),time) -> % Initiates(PickUp(agent,object),Holding(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3345). % From E: % % '->'( % (holds_at(inRoom(Agent,Room),Time) , % holds_at(inRoom(Object,Room),Time)), % initiates_at( % pickUp(Agent,Object), % holding(Agent,Object), % Time)). % [Time]. pickUp(Agent, Object)initiates holding(Agent, Object)if inRoom(Agent, Room), inRoom(Object, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3345). /* initiated(happens(pickUp(Agent,Object), Time_From, Time_Until), holding(Agent,Object), [ holds(inRoom(Agent,Room),Time_From), holds(inRoom(Object,Room),Time_From) ]). */ % "% =================================". % [agent,object,time] % HoldsAt(Holding(agent,object),time) -> % Terminates(LetGoOf(agent,object),Holding(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3350). % From E: % % '->'( % holds_at(holding(Agent,Object),Time), % terminates_at( % letGoOf(Agent,Object), % holding(Agent,Object), % Time)). % [Time]. letGoOf(Agent, Object)terminates holding(Agent, Object)if holding(Agent, Object). /* terminated(happens(letGoOf(Agent,Object), Time_From, Time_Until), holding(Agent,Object), [holds(holding(Agent,Object),Time_From)]). */ % "% =================================". % [agent,object,room1,room2,time] % HoldsAt(Holding(agent,object),time) -> % Initiates(Walk(agent,room1,room2),InRoom(object,room2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3354). % From E: % % '->'( % holds_at(holding(Agent,Object),Time), % initiates_at( % walk(Agent,Room1,Room2), % inRoom(Object,Room2), % Time)). % [Time]. walk(Agent, Room1, Room2)initiates inRoom(Object, Room2)if holding(Agent, Object). /* initiated(happens(walk(Agent,Room1,Room2), Time_From, Time_Until), inRoom(Object,Room2), [holds(holding(Agent,Object),Time_From)]). */ % "% =================================". % [agent,object,room1,room2,time] % HoldsAt(Holding(agent,object),time) & % room1!=room2 -> % Terminates(Walk(agent,room1,room2),InRoom(object,room1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3358). % From E: % % '->'( % (holds_at(holding(Agent,Object),Time) , % Room1\=Room2), % terminates_at( % walk(Agent,Room1,Room2), % inRoom(Object,Room1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3358). holding(Agent, Object), Room1\=Room2 -> terminates(walk(Agent, Room1, Room2), inRoom(Object, Room1)). %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3364). % Happens(PickUp(Nathan,Book),0). % From E: % % happens_at(pickUp(nathan,book),0). observe pickUp(nathan, book)at 0. % observe([pickUp(nathan,book)],0). % "% =================================". % Happens(Walk(Nathan,LivingRoom,Kitchen),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3364). % From E: % % happens_at(walk(nathan,livingRoom,kitchen),1). observe walk(nathan, livingRoom, kitchen)at 1. % observe([walk(nathan,livingRoom,kitchen)],1). % "% =================================". %; Psi % [object,room1,room2,time] % HoldsAt(InRoom(object,room1),time) & % HoldsAt(InRoom(object,room2),time) -> % room1=room2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3369). % From E: % % '->'( % (holds_at(inRoom(Object,Room1),Time) , % holds_at(inRoom(Object,Room2),Time)), % Room1=Room2). % [Time]. false not equals(Room1, Room2), inRoom(Object, Room1), inRoom(Object, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3369). /* d_pre([ not(equals(Room1,Room2)), holds(inRoom(Object,Room1),Time_At), holds(inRoom(Object,Room2),Time_At) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3376). % HoldsAt(InRoom(Nathan,LivingRoom),0). % From E: % % holds_at(inRoom(nathan,livingRoom),0). initially inRoom(nathan, livingRoom). % initial_state([inRoom(nathan,livingRoom)]). % "% =================================". % HoldsAt(InRoom(Book,LivingRoom),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3376). % From E: % % holds_at(inRoom(book,livingRoom),0). initially inRoom(book, livingRoom). % initial_state([inRoom(book,livingRoom)]). % "% =================================". %; added: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3380). % !HoldsAt(Holding(Nathan,Book),0). % From E: % % holds_at(not(holding(nathan,book)),0). initially not holding(nathan, book). % initial_state([not(holding(nathan,book))]). % "% =================================". % [agent,time] % !HoldsAt(Holding(agent,agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3380). % From E: % % holds_at(not(holding(Agent,Agent)),Time). % [Time]. not holding(Agent, Agent). % l_int(holds(not(holding(Agent,Agent)),Time_At),[]). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3382). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3385). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3385). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter6/ThielscherCircuit2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Thielscher:1997, %; author = "Michael Thielscher", %; year = "1997", %; title = "Ramification and causality", %; journal = "Artificial Intelligence", %; volume = "89", %; pages = "317--364", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3423). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3423). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3426). % sort switch % From E: % % sort(switch). sort(switch). % sort relay :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3426). % From E: % % sort(relay). sort(relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3428). % sort light % From E: % % sort(light). sort(light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3430). % switch S1, S2, S3 % From E: % % t(switch,s1). switch(s1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3430). % From E: % % t(switch,s2). switch(s2). % From E: % % t(switch,s3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3430). switch(s3). % relay R % From E: % % t(relay,r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3430). relay(r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3432). % light L % From E: % % t(light,l). light(l). % l_events(happens(light(l),Time_From,Time_Until),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3434). % event Light(light) % From E: % % event(light(light)). mpred_prop(light(light),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3434). events([light/1]). % event Unlight(light) % From E: % % event(unlight(light)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3434). mpred_prop(unlight(light),event). events([unlight/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3436). % event Close(switch) % From E: % % event(close(switch)). mpred_prop(close(switch),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3436). events([close/1]). % event Open(switch) % From E: % % event(open(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3436). mpred_prop(open(switch),event). events([open/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3438). % event Activate(relay) % From E: % % event(activate(relay)). mpred_prop(activate(relay),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3438). events([activate/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3440). % fluent Lit(light) % From E: % % fluent(lit(light)). mpred_prop(lit(light),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3440). fluents([lit/1]). % fluent Closed(switch) % From E: % % fluent(closed(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3440). mpred_prop(closed(switch),fluent). fluents([closed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3442). % fluent Activated(relay) % From E: % % fluent(activated(relay)). mpred_prop(activated(relay),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3442). fluents([activated/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3444). % [time] % !HoldsAt(Lit(L),time) & % HoldsAt(Closed(S1),time) & % HoldsAt(Closed(S2),time) -> % Happens(Light(L),time). % From E: % % '->'( % (holds_at(not(lit(l)),Time) , % holds_at(closed(s1),Time) , % holds_at(closed(s2),Time)), % happens_at(light(l),Time)). % [Time]. light(l)if not lit(l), closed(s1), closed(s2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3444). /* l_events(happens(light(l),Time_From,Time_From), [ holds(not(lit(l)),Time_From), holds(closed(s1),Time_From), holds(closed(s2),Time_From) ]). */ % "% =================================". % [time] % HoldsAt(Lit(L),time) & % (!HoldsAt(Closed(S1),time) | !HoldsAt(Closed(S2),time)) -> % Happens(Unlight(L),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3451). % From E: % % '->'( % (holds_at(lit(l),Time) , % (holds_at(not(closed(s1)),Time) ; % holds_at(not(closed(s2)),Time))), % happens_at(unlight(l),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3451). lit(l), false((closed(s1), closed(s2))) -> unlight(l). % [time] % HoldsAt(Closed(S2),time) & % HoldsAt(Activated(R),time) -> % Happens(Open(S2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3456). % From E: % % '->'( % (holds_at(closed(s2),Time) , % holds_at(activated(r),Time)), % happens_at(open(s2),Time)). % [Time]. open(s2)if closed(s2), activated(r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3456). /* l_events(happens(open(s2),Time_From,Time_From), [ holds(closed(s2),Time_From), holds(activated(r),Time_From) ]). */ % "% =================================". % [time] % !HoldsAt(Activated(R),time) & % HoldsAt(Closed(S1),time) & % HoldsAt(Closed(S3),time) -> % Happens(Activate(R),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3461). % From E: % % '->'( % (holds_at(not(activated(r)),Time) , % holds_at(closed(s1),Time) , % holds_at(closed(s3),Time)), % happens_at(activate(r),Time)). % [Time]. activate(r)if not activated(r), closed(s1), closed(s3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3461). /* l_events(happens(activate(r),Time_From,Time_From), [ holds(not(activated(r)),Time_From), holds(closed(s1),Time_From), holds(closed(s3),Time_From) ]). */ % "% =================================". % [switch,time] % Initiates(Close(switch),Closed(switch),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3465). % From E: % % initiates_at( % close(Switch), % closed(Switch), % Time). % [Time]. close(Switch)initiates closed(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3465). /* initiated(happens(close(Switch),Time_From,Time_Until), closed(Switch), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3467). % [switch,time] % Terminates(Open(switch),Closed(switch),time). % From E: % % terminates_at( % open(Switch), % closed(Switch), % Time). % [Time]. open(Switch)terminates closed(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3467). /* terminated(happens(open(Switch),Time_From,Time_Until), closed(Switch), []). */ % "% =================================". % [relay,time] % Initiates(Activate(relay),Activated(relay),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3467). % From E: % % initiates_at( % activate(Relay), % activated(Relay), % Time). % [Time]. activate(Relay)initiates activated(Relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3467). /* initiated(happens(activate(Relay), Time_From, Time_Until), activated(Relay), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3469). % [light,time] % Initiates(Light(light),Lit(light),time). % From E: % % initiates_at( % light(Light), % lit(Light), % Time). % [Time]. light(Light)initiates lit(Light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3469). /* initiated(happens(light(Light),Time_From,Time_Until), lit(Light), []). */ % "% =================================". % [light,time] % Terminates(Unlight(light),Lit(light),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3469). % From E: % % terminates_at( % unlight(Light), % lit(Light), % Time). % [Time]. unlight(Light)terminates lit(Light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3469). /* terminated(happens(unlight(Light), Time_From, Time_Until), lit(Light), []). */ % "% =================================". % !HoldsAt(Closed(S1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3471). % From E: % % holds_at(not(closed(s1)),0). initially not closed(s1). % initial_state([not(closed(s1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3473). % HoldsAt(Closed(S2),0). % From E: % % holds_at(closed(s2),0). initially closed(s2). % initial_state([closed(s2)]). % "% =================================". % HoldsAt(Closed(S3),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3473). % From E: % % holds_at(closed(s3),0). initially closed(s3). % initial_state([closed(s3)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3475). % !HoldsAt(Activated(R),0). % From E: % % holds_at(not(activated(r)),0). initially not activated(r). % initial_state([not(activated(r))]). % "% =================================". % !HoldsAt(Lit(L),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3475). % From E: % % holds_at(not(lit(l)),0). initially not lit(l). % initial_state([not(lit(l))]). % "% =================================". % Happens(Close(S1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3477). % From E: % % happens_at(close(s1),0). observe close(s1)at 0. % observe([close(s1)],0). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3479). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3482). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3482). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter6/ShanahanCircuit.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Shanahan:1999a, %; author = "Murray Shanahan", %; year = "1999", %; title = "The ramification problem in the event calculus", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}ixteenth \uppercase{I}nternational \uppercase{J}oint \uppercase{C}onference on \uppercase{A}rtificial \uppercase{I}ntelligence", %; pages = "140--146", %; address = "San Mateo, CA", %; publisher = "Morgan Kaufmann", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3521). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3521). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3524). % sort switch % From E: % % sort(switch). sort(switch). % sort relay :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3524). % From E: % % sort(relay). sort(relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3526). % sort light % From E: % % sort(light). sort(light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3528). % switch S1, S2, S3 % From E: % % t(switch,s1). switch(s1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3528). % From E: % % t(switch,s2). switch(s2). % From E: % % t(switch,s3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3528). switch(s3). % relay R % From E: % % t(relay,r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3528). relay(r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3530). % light L % From E: % % t(light,l). light(l). % l_events(happens(light(l),Time_From,Time_Until),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3532). % event Light(light) % From E: % % event(light(light)). mpred_prop(light(light),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3532). events([light/1]). % event Unlight(light) % From E: % % event(unlight(light)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3532). mpred_prop(unlight(light),event). events([unlight/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3534). % event Close(switch) % From E: % % event(close(switch)). mpred_prop(close(switch),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3534). events([close/1]). % event Open(switch) % From E: % % event(open(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3534). mpred_prop(open(switch),event). events([open/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3536). % event Activate(relay) % From E: % % event(activate(relay)). mpred_prop(activate(relay),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3536). events([activate/1]). % event Deactivate(relay) % From E: % % event(deactivate(relay)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3536). mpred_prop(deactivate(relay),event). events([deactivate/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3539). % fluent Lit(light) % From E: % % fluent(lit(light)). mpred_prop(lit(light),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3539). fluents([lit/1]). % fluent Closed(switch) % From E: % % fluent(closed(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3539). mpred_prop(closed(switch),fluent). fluents([closed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3541). % fluent Activated(relay) % From E: % % fluent(activated(relay)). mpred_prop(activated(relay),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3541). fluents([activated/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3543). % [time] % !HoldsAt(Lit(L),time) & % HoldsAt(Closed(S1),time) & % HoldsAt(Closed(S2),time) -> % Happens(Light(L),time). % From E: % % '->'( % (holds_at(not(lit(l)),Time) , % holds_at(closed(s1),Time) , % holds_at(closed(s2),Time)), % happens_at(light(l),Time)). % [Time]. light(l)if not lit(l), closed(s1), closed(s2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3543). /* l_events(happens(light(l),Time_From,Time_From), [ holds(not(lit(l)),Time_From), holds(closed(s1),Time_From), holds(closed(s2),Time_From) ]). */ % "% =================================". % [time] % HoldsAt(Lit(L),time) & % (!HoldsAt(Closed(S1),time) | !HoldsAt(Closed(S2),time)) -> % Happens(Unlight(L),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3550). % From E: % % '->'( % (holds_at(lit(l),Time) , % (holds_at(not(closed(s1)),Time) ; % holds_at(not(closed(s2)),Time))), % happens_at(unlight(l),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3550). lit(l), false((closed(s1), closed(s2))) -> unlight(l). % [time] % HoldsAt(Closed(S2),time) & % HoldsAt(Activated(R),time) -> % Happens(Open(S2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3555). % From E: % % '->'( % (holds_at(closed(s2),Time) , % holds_at(activated(r),Time)), % happens_at(open(s2),Time)). % [Time]. open(s2)if closed(s2), activated(r). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3555). /* l_events(happens(open(s2),Time_From,Time_From), [ holds(closed(s2),Time_From), holds(activated(r),Time_From) ]). */ % "% =================================". % [time] % !HoldsAt(Activated(R),time) & % HoldsAt(Closed(S1),time) & % HoldsAt(Closed(S2),time) & % HoldsAt(Closed(S3),time) -> % Happens(Activate(R),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3560). % From E: % % '->'( % (holds_at(not(activated(r)),Time) , % holds_at(closed(s1),Time) , % holds_at(closed(s2),Time) , % holds_at(closed(s3),Time)), % happens_at(activate(r),Time)). % [Time]. activate(r)if not activated(r), closed(s1), closed(s2), closed(s3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3560). /* l_events(happens(activate(r),Time_From,Time_From), [ holds(not(activated(r)),Time_From), holds(closed(s1),Time_From), holds(closed(s2),Time_From), holds(closed(s3),Time_From) ]). */ % "% =================================". % [time] % HoldsAt(Activated(R),time) & % (!HoldsAt(Closed(S1),time) | % !HoldsAt(Closed(S2),time) | % !HoldsAt(Closed(S3),time)) -> % Happens(Deactivate(R),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3567). % From E: % % '->'( % (holds_at(activated(r),Time) , % (holds_at(not(closed(s1)),Time) ; % holds_at(not(closed(s2)),Time) ; % holds_at(not(closed(s3)),Time))), % happens_at(deactivate(r),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3567). activated(r), (not(closed(s1));false((closed(s2), closed(s3)))) -> deactivate(r). % [switch,time] % Initiates(Close(switch),Closed(switch),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3572). % From E: % % initiates_at( % close(Switch), % closed(Switch), % Time). % [Time]. close(Switch)initiates closed(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3572). /* initiated(happens(close(Switch),Time_From,Time_Until), closed(Switch), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3574). % [switch,time] % Terminates(Open(switch),Closed(switch),time). % From E: % % terminates_at( % open(Switch), % closed(Switch), % Time). % [Time]. open(Switch)terminates closed(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3574). /* terminated(happens(open(Switch),Time_From,Time_Until), closed(Switch), []). */ % "% =================================". % [relay,time] % Initiates(Activate(relay),Activated(relay),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3574). % From E: % % initiates_at( % activate(Relay), % activated(Relay), % Time). % [Time]. activate(Relay)initiates activated(Relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3574). /* initiated(happens(activate(Relay), Time_From, Time_Until), activated(Relay), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3576). % [relay,time] % Terminates(Deactivate(relay),Activated(relay),time). % From E: % % terminates_at( % deactivate(Relay), % activated(Relay), % Time). % [Time]. deactivate(Relay)terminates activated(Relay). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3576). /* terminated(happens(deactivate(Relay), Time_From, Time_Until), activated(Relay), []). */ % "% =================================". % [light,time] % Initiates(Light(light),Lit(light),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3576). % From E: % % initiates_at( % light(Light), % lit(Light), % Time). % [Time]. light(Light)initiates lit(Light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3576). /* initiated(happens(light(Light),Time_From,Time_Until), lit(Light), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3578). % [light,time] % Terminates(Unlight(light),Lit(light),time). % From E: % % terminates_at( % unlight(Light), % lit(Light), % Time). % [Time]. unlight(Light)terminates lit(Light). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3578). /* terminated(happens(unlight(Light), Time_From, Time_Until), lit(Light), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3580). % !HoldsAt(Closed(S1),0). % From E: % % holds_at(not(closed(s1)),0). initially not closed(s1). % initial_state([not(closed(s1))]). % "% =================================". % HoldsAt(Closed(S2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3580). % From E: % % holds_at(closed(s2),0). initially closed(s2). % initial_state([closed(s2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3582). % HoldsAt(Closed(S3),0). % From E: % % holds_at(closed(s3),0). initially closed(s3). % initial_state([closed(s3)]). % "% =================================". % !HoldsAt(Activated(R),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3582). % From E: % % holds_at(not(activated(r)),0). initially not activated(r). % initial_state([not(activated(r))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3584). % !HoldsAt(Lit(L),0). % From E: % % holds_at(not(lit(l)),0). initially not lit(l). % initial_state([not(lit(l))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3586). % Happens(Close(S1),0). % From E: % % happens_at(close(s1),0). observe close(s1)at 0. % observe([close(s1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3588). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3590). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3590). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter6/CarryingABook2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Example: Carrying a Book (Release Axioms and State Constraints) %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3621). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3621). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3624). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3624). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3626). % sort room % From E: % % sort(room). sort(room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3628). % object Book % From E: % % t(object,book). object(book). % agent Nathan :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3628). % From E: % % t(agent,nathan). agent(nathan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3630). % room LivingRoom, Kitchen % From E: % % t(room,livingRoom). room(livingRoom). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3630). % From E: % % t(room,kitchen). room(kitchen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3632). % event LetGoOf(agent,object) % From E: % % event(letGoOf(agent,object)). events([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3632). mpred_prop(letGoOf(agent,object),action). actions([letGoOf/2]). % event PickUp(agent,object) % From E: % % event(pickUp(agent,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3632). events([pickUp/2]). mpred_prop(pickUp(agent,object),action). actions([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3634). % event Walk(agent,room,room) % From E: % % event(walk(agent,room,room)). events([walk/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3634). mpred_prop(walk(agent,room,room),action). actions([walk/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3636). % fluent InRoom(object,room) % From E: % % fluent(inRoom(object,room)). mpred_prop(inRoom(object,room),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3636). fluents([inRoom/2]). % fluent Holding(agent,object) % From E: % % fluent(holding(agent,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3636). mpred_prop(holding(agent,object),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3639). %; Sigma % [agent,room1,room2,time] % Initiates(Walk(agent,room1,room2),InRoom(agent,room2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3641). % From E: % % initiates_at( % walk(Agent,Room1,Room2), % inRoom(Agent,Room2), % Time). % [Time]. walk(Agent, Room1, Room2)initiates inRoom(Agent, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3641). /* initiated(happens(walk(Agent,Room1,Room2), Time_From, Time_Until), inRoom(Agent,Room2), []). */ % "% =================================". % [agent,room1,room2,time] % room1!=% room2 -> % Terminates(Walk(agent,room1,room2),InRoom(agent,room1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3645). % From E: % % '->'( % Room1\=Room2, % terminates_at( % walk(Agent,Room1,Room2), % inRoom(Agent,Room1), % Time)). % [Time]. Room1\=Room2 -> terminates(walk(Agent, Room1, Room2), inRoom(Agent, Room1)). % [agent,object,room,time] % HoldsAt(InRoom(agent,room),time) & % HoldsAt(InRoom(object,room),time) -> % Initiates(PickUp(agent,object),Holding(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3649). % From E: % % '->'( % (holds_at(inRoom(Agent,Room),Time) , % holds_at(inRoom(Object,Room),Time)), % initiates_at( % pickUp(Agent,Object), % holding(Agent,Object), % Time)). % [Time]. pickUp(Agent, Object)initiates holding(Agent, Object)if inRoom(Agent, Room), inRoom(Object, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3649). /* initiated(happens(pickUp(Agent,Object), Time_From, Time_Until), holding(Agent,Object), [ holds(inRoom(Agent,Room),Time_From), holds(inRoom(Object,Room),Time_From) ]). */ % "% =================================". % [agent,object,time] % HoldsAt(Holding(agent,object),time) -> % Terminates(LetGoOf(agent,object),Holding(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3654). % From E: % % '->'( % holds_at(holding(Agent,Object),Time), % terminates_at( % letGoOf(Agent,Object), % holding(Agent,Object), % Time)). % [Time]. letGoOf(Agent, Object)terminates holding(Agent, Object)if holding(Agent, Object). /* terminated(happens(letGoOf(Agent,Object), Time_From, Time_Until), holding(Agent,Object), [holds(holding(Agent,Object),Time_From)]). */ % "% =================================". % [agent,object,room,time] % Releases(PickUp(agent,object),InRoom(object,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3658). % From E: % % releases_at( % pickUp(Agent,Object), % inRoom(Object,Room), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3658). releases(pickUp(Agent,Object), inRoom(Object,Room)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3660). % [agent,object,room,time] % HoldsAt(InRoom(agent,room),time) -> % Initiates(LetGoOf(agent,object),InRoom(object,room),time). % From E: % % '->'( % holds_at(inRoom(Agent,Room),Time), % initiates_at( % letGoOf(Agent,Object), % inRoom(Object,Room), % Time)). % [Time]. letGoOf(Agent, Object)initiates inRoom(Object, Room)if inRoom(Agent, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3660). /* initiated(happens(letGoOf(Agent,Object), Time_From, Time_Until), inRoom(Object,Room), [holds(inRoom(Agent,Room),Time_From)]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3666). % Happens(PickUp(Nathan,Book),0). % From E: % % happens_at(pickUp(nathan,book),0). observe pickUp(nathan, book)at 0. % observe([pickUp(nathan,book)],0). % "% =================================". % Happens(Walk(Nathan,LivingRoom,Kitchen),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3666). % From E: % % happens_at(walk(nathan,livingRoom,kitchen),1). observe walk(nathan, livingRoom, kitchen)at 1. % observe([walk(nathan,livingRoom,kitchen)],1). % "% =================================". %; Psi % [object,room1,room2,time] % HoldsAt(InRoom(object,room1),time) & % HoldsAt(InRoom(object,room2),time) -> % room1=room2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3671). % From E: % % '->'( % (holds_at(inRoom(Object,Room1),Time) , % holds_at(inRoom(Object,Room2),Time)), % Room1=Room2). % [Time]. false not equals(Room1, Room2), inRoom(Object, Room1), inRoom(Object, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3671). /* d_pre([ not(equals(Room1,Room2)), holds(inRoom(Object,Room1),Time_At), holds(inRoom(Object,Room2),Time_At) ]). */ % "% =================================". % [agent,object,room,time] % HoldsAt(Holding(agent,object),time) & % HoldsAt(InRoom(agent,room),time) -> % HoldsAt(InRoom(object,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3677). % From E: % % '->'( % (holds_at(holding(Agent,Object),Time) , % holds_at(inRoom(Agent,Room),Time)), % holds_at(inRoom(Object,Room),Time)). % [Time]. inRoom(Object, Room)if holding(Agent, Object), inRoom(Agent, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3677). /* l_int(holds(inRoom(Object,Room),Time_At), [ holds(holding(Agent,Object),Time_At), holds(inRoom(Agent,Room),Time_At) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3683). % HoldsAt(InRoom(Nathan,LivingRoom),0). % From E: % % holds_at(inRoom(nathan,livingRoom),0). initially inRoom(nathan, livingRoom). % initial_state([inRoom(nathan,livingRoom)]). % "% =================================". % HoldsAt(InRoom(Book,LivingRoom),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3683). % From E: % % holds_at(inRoom(book,livingRoom),0). initially inRoom(book, livingRoom). % initial_state([inRoom(book,livingRoom)]). % "% =================================". %; added: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3687). % !HoldsAt(Holding(Nathan,Book),0). % From E: % % holds_at(not(holding(nathan,book)),0). initially not holding(nathan, book). % initial_state([not(holding(nathan,book))]). % "% =================================". % [agent,time] % !HoldsAt(Holding(agent,agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3687). % From E: % % holds_at(not(holding(Agent,Agent)),Time). % [Time]. not holding(Agent, Agent). % l_int(holds(not(holding(Agent,Agent)),Time_At),[]). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3689). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3692). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3692). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter7/HotAirBalloon.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{MillerShanahan:1999, %; author = "Rob Miller and Murray Shanahan", %; year = "1999", %; title = "The event calculus in classical logic---\uppercase{A}lternative axiomatisations", %; journal = "Link{\"{o}}ping Electronic Articles in Computer and Information Science", %; volume = "4", %; number = "016", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3730). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). % option trajectory on :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3730). % From E: % % :-call_pel_directive(option(trajectory,on)). :- call_pel_directive(option(trajectory, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3733). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3733). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3736). % sort balloon % From E: % % sort(balloon). sort(balloon). % sort agent :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3736). % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3738). % sort height: integer % From E: % % subsort(height,integer). subsort(height,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3740). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % balloon Balloon :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3740). % From E: % % t(balloon,balloon). balloon(balloon). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3743). % fluent HeaterOn(balloon) % From E: % % fluent(heaterOn(balloon)). mpred_prop(heaterOn(balloon),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3743). fluents([heaterOn/1]). % fluent Height(balloon,height) % From E: % % fluent(height(balloon,height)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3743). mpred_prop(height(balloon,height),fluent). fluents([height/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3745). % noninertial Height % From E: % % :-call_pel_directive(noninertial(height)). :- call_pel_directive(noninertial(height)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3747). % event TurnOnHeater(agent,balloon) % From E: % % event(turnOnHeater(agent,balloon)). events([turnOnHeater/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3747). mpred_prop(turnOnHeater(agent,balloon),action). actions([turnOnHeater/2]). % event TurnOffHeater(agent,balloon) % From E: % % event(turnOffHeater(agent,balloon)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3747). events([turnOffHeater/2]). mpred_prop(turnOffHeater(agent,balloon),action). actions([turnOffHeater/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3750). %; Sigma % [agent,balloon,time] % Initiates(TurnOnHeater(agent,balloon),HeaterOn(balloon),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3752). % From E: % % initiates_at( % turnOnHeater(Agent,Balloon), % heaterOn(Balloon), % Time). % [Time]. turnOnHeater(Agent, Balloon)initiates heaterOn(Balloon). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3752). /* initiated(happens(turnOnHeater(Agent,Balloon), Time_From, Time_Until), heaterOn(Balloon), []). */ % "% =================================". % [agent,balloon,time] % Terminates(TurnOffHeater(agent,balloon),HeaterOn(balloon),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3756). % From E: % % terminates_at( % turnOffHeater(Agent,Balloon), % heaterOn(Balloon), % Time). % [Time]. turnOffHeater(Agent, Balloon)terminates heaterOn(Balloon). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3756). /* terminated(happens(turnOffHeater(Agent,Balloon), Time_From, Time_Until), heaterOn(Balloon), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3758). %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3760). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3760). % Happens(TurnOnHeater(Nathan,Balloon),0). % From E: % % happens_at(turnOnHeater(nathan,balloon),0). observe turnOnHeater(nathan, balloon)at 0. % observe([turnOnHeater(nathan,balloon)],0). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3760). % From E: % % directive(delta). directive(delta). % Happens(TurnOffHeater(Nathan,Balloon),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3760). % From E: % % happens_at(turnOffHeater(nathan,balloon),2). observe turnOffHeater(nathan, balloon)at 2. % observe([turnOffHeater(nathan,balloon)],2). % "% =================================". %; Psi % [balloon,height1,height2,time] % HoldsAt(Height(balloon,height1),time) & % HoldsAt(Height(balloon,height2),time) -> % height1=height2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3765). % From E: % % '->'( % (holds_at(height(Balloon,Height1),Time) , % holds_at(height(Balloon,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), height(Balloon, Height1), height(Balloon, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3765). /* d_pre([ not(equals(Height1,Height2)), holds(height(Balloon,Height1),Time_At), holds(height(Balloon,Height2),Time_At) ]). */ % "% =================================". %; Pi % [balloon,height1,height2,offset,time] % HoldsAt(Height(balloon,height1),time) & % height2 = (height1 + offset) -> % Trajectory(HeaterOn(balloon),time,Height(balloon,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3772). % From E: % % '->'( % (holds_at(height(Balloon,Height1),Time) , % Height2=Height1+Offset), % trajectory( % heaterOn(Balloon), % Time, Time, % height(Balloon,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3772). holds_at(height(Balloon, Height1), Time), Height2=Height1+Offset -> trajectory(heaterOn(Balloon), Time, height(Balloon, Height2), Offset). % [balloon,height1,height2,offset,time] % HoldsAt(Height(balloon,height1),time) & % height2 = (height1 - offset) -> % AntiTrajectory(HeaterOn(balloon),time,Height(balloon,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3778). % From E: % % '->'( % (holds_at(height(Balloon,Height1),Time) , % Height2=Height1-Offset), % antiTrajectory( % heaterOn(Balloon), % Time, Time, % height(Balloon,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3778). holds_at(height(Balloon, Height1), Time), Height2=Height1-Offset -> antiTrajectory(heaterOn(Balloon), Time, height(Balloon, Height2), Offset). %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3784). % HoldsAt(Height(Balloon,0),0). % From E: % % holds_at(height(balloon,0),0). initially height(balloon, 0). % initial_state([height(balloon,0)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3786). %; added: % !HoldsAt(HeaterOn(Balloon),0). % From E: % % holds_at(not(heaterOn(balloon)),0). initially not heaterOn(balloon). % initial_state([not(heaterOn(balloon))]). % "% =================================". % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3788). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3788). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3791). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range height 0 2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3791). % From E: % % :-call_pel_directive(range(height,0,2)). :- call_pel_directive(range(height, 0, 2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3793). % range offset 1 2 % From E: % % :-call_pel_directive(range(offset,1,2)). :- call_pel_directive(range(offset, 1, 2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter7/FallingObjectWithEvents.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3821). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3821). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3824). % sort object % From E: % % sort(object). sort(object). % sort agent :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3824). % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3826). % sort height: integer % From E: % % subsort(height,integer). subsort(height,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3828). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % object Apple :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3828). % From E: % % t(object,apple). object(apple). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3831). % fluent Falling(object) % From E: % % fluent(falling(object)). mpred_prop(falling(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3831). fluents([falling/1]). % fluent Height(object,height) % From E: % % fluent(height(object,height)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3831). mpred_prop(height(object,height),fluent). fluents([height/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3834). % event Drop(agent,object) % From E: % % event(drop(agent,object)). events([drop/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3834). mpred_prop(drop(agent,object),action). actions([drop/2]). % event HitGround(object) % From E: % % event(hitGround(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3834). mpred_prop(hitGround(object),event). events([hitGround/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3837). %; Sigma % [agent,object,time] % Initiates(Drop(agent,object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3839). % From E: % % initiates_at( % drop(Agent,Object), % falling(Object), % Time). % [Time]. drop(Agent, Object)initiates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3839). /* initiated(happens(drop(Agent,Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". % [agent,object,height,time] % Releases(Drop(agent,object),Height(object,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3843). % From E: % % releases_at( % drop(Agent,Object), % height(Object,Height), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3843). releases(drop(Agent,Object), height(Object,Height)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3845). % [object,time] % Terminates(HitGround(object),Falling(object),time). % From E: % % terminates_at( % hitGround(Object), % falling(Object), % Time). % [Time]. hitGround(Object)terminates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3845). /* terminated(happens(hitGround(Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". % [object,height,time] % HoldsAt(Height(object,height),time) -> % Initiates(HitGround(object),Height(object,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3849). % From E: % % '->'( % holds_at(height(Object,Height),Time), % initiates_at( % hitGround(Object), % height(Object,Height), % Time)). % [Time]. hitGround(Object)initiates height(Object, Height)if height(Object, Height). /* initiated(happens(hitGround(Object), Time_From, Time_Until), height(Object,Height), [holds(height(Object,Height),Time_From)]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3854). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3854). % [object,time] % HoldsAt(Falling(object),time) & % HoldsAt(Height(object,0),time) -> % Happens(HitGround(object),time). % From E: % % '->'( % (holds_at(falling(Object),Time) , % holds_at(height(Object,0),Time)), % happens_at(hitGround(Object),Time)). % [Time]. hitGround(Object)if falling(Object), height(Object, 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3854). /* l_events(happens(hitGround(Object), Time_From, Time_From), [ holds(falling(Object),Time_From), holds(height(Object,0),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3858). % From E: % % directive(delta). directive(delta). % Happens(Drop(Nathan,Apple),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3858). % From E: % % happens_at(drop(nathan,apple),0). observe drop(nathan, apple)at 0. % observe([drop(nathan,apple)],0). % "% =================================". %; Psi % [object,height1,height2,time] % HoldsAt(Height(object,height1),time) & % HoldsAt(Height(object,height2),time) -> % height1=height2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3863). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % holds_at(height(Object,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), height(Object, Height1), height(Object, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3863). /* d_pre([ not(equals(Height1,Height2)), holds(height(Object,Height1),Time_At), holds(height(Object,Height2),Time_At) ]). */ % "% =================================". %; Pi % [object,height1,height2,offset,time] % HoldsAt(Height(object,height1),time) & % height2 = (height1 - offset) -> % Trajectory(Falling(object),time,Height(object,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3870). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % Height2=Height1-Offset), % trajectory( % falling(Object), % Time, Time, % height(Object,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3870). holds_at(height(Object, Height1), Time), Height2=Height1-Offset -> trajectory(falling(Object), Time, height(Object, Height2), Offset). %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3877). % !HoldsAt(Falling(Apple),0). % From E: % % holds_at(not(falling(apple)),0). initially not falling(apple). % initial_state([not(falling(apple))]). % "% =================================". % HoldsAt(Height(Apple,3),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3877). % From E: % % holds_at(height(apple,3),0). initially height(apple, 3). % initial_state([height(apple,3)]). % "% =================================". % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3879). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3879). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3882). % range time 0 5 % From E: % % :-call_pel_directive(range(time,0,5)). :- call_pel_directive(range(time, 0, 5)). % range height 0 3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3882). % From E: % % :-call_pel_directive(range(height,0,3)). :- call_pel_directive(range(height, 0, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3884). % range offset 1 3 % From E: % % :-call_pel_directive(range(offset,1,3)). :- call_pel_directive(range(offset, 1, 3)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter7/FallingObjectWithAntiTrajectory.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3912). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). % option trajectory on :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3912). % From E: % % :-call_pel_directive(option(trajectory,on)). :- call_pel_directive(option(trajectory, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3915). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3915). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3918). % sort object % From E: % % sort(object). sort(object). % sort agent :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3918). % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3920). % sort height: integer % From E: % % subsort(height,integer). subsort(height,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3922). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % object Apple :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3922). % From E: % % t(object,apple). object(apple). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3925). % fluent Falling(object) % From E: % % fluent(falling(object)). mpred_prop(falling(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3925). fluents([falling/1]). % fluent Height(object,height) % From E: % % fluent(height(object,height)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3925). mpred_prop(height(object,height),fluent). fluents([height/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3927). % noninertial Height % From E: % % :-call_pel_directive(noninertial(height)). :- call_pel_directive(noninertial(height)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3929). % event Drop(agent,object) % From E: % % event(drop(agent,object)). events([drop/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3929). mpred_prop(drop(agent,object),action). actions([drop/2]). % event HitGround(object) % From E: % % event(hitGround(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3929). mpred_prop(hitGround(object),event). events([hitGround/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3932). %; Sigma % [agent,object,time] % Initiates(Drop(agent,object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3934). % From E: % % initiates_at( % drop(Agent,Object), % falling(Object), % Time). % [Time]. drop(Agent, Object)initiates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3934). /* initiated(happens(drop(Agent,Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". % [object,time] % Terminates(HitGround(object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3938). % From E: % % terminates_at( % hitGround(Object), % falling(Object), % Time). % [Time]. hitGround(Object)terminates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3938). /* terminated(happens(hitGround(Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3940). %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3942). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3942). % [object,time] % HoldsAt(Falling(object),time) & % HoldsAt(Height(object,0),time) -> % Happens(HitGround(object),time). % From E: % % '->'( % (holds_at(falling(Object),Time) , % holds_at(height(Object,0),Time)), % happens_at(hitGround(Object),Time)). % [Time]. hitGround(Object)if falling(Object), height(Object, 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3942). /* l_events(happens(hitGround(Object), Time_From, Time_From), [ holds(falling(Object),Time_From), holds(height(Object,0),Time_From) ]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3946). % From E: % % directive(delta). directive(delta). % Happens(Drop(Nathan,Apple),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3946). % From E: % % happens_at(drop(nathan,apple),0). observe drop(nathan, apple)at 0. % observe([drop(nathan,apple)],0). % "% =================================". %; Psi % [object,height1,height2,time] % HoldsAt(Height(object,height1),time) & % HoldsAt(Height(object,height2),time) -> % height1=height2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3951). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % holds_at(height(Object,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), height(Object, Height1), height(Object, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3951). /* d_pre([ not(equals(Height1,Height2)), holds(height(Object,Height1),Time_At), holds(height(Object,Height2),Time_At) ]). */ % "% =================================". %; Pi % [object,height1,height2,offset,time] % HoldsAt(Height(object,height1),time) & % height2 = (height1 - offset) -> % Trajectory(Falling(object),time,Height(object,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3958). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % Height2=Height1-Offset), % trajectory( % falling(Object), % Time, Time, % height(Object,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3958). holds_at(height(Object, Height1), Time), Height2=Height1-Offset -> trajectory(falling(Object), Time, height(Object, Height2), Offset). % [object,height,offset,time] % HoldsAt(Height(object,height),time) -> % AntiTrajectory(Falling(object),time,Height(object,height),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3964). % From E: % % '->'( % holds_at(height(Object,Height),Time), % antiTrajectory( % falling(Object), % Time, Time, % height(Object,Height), % Offset)). % [Time]. if holds_at(height(Object, Height), Time)then antiTrajectory(falling(Object), Time, height(Object, Height), Offset). /* reactive_rule([holds_at(height(Object,Height),Time)], [ antiTrajectory(falling(Object), Time, height(Object,Height), Offset) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3969). % !HoldsAt(Falling(Apple),0). % From E: % % holds_at(not(falling(apple)),0). initially not falling(apple). % initial_state([not(falling(apple))]). % "% =================================". % HoldsAt(Height(Apple,3),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3969). % From E: % % holds_at(height(apple,3),0). initially height(apple, 3). % initial_state([height(apple,3)]). % "% =================================". % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3971). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3971). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3974). % range time 0 5 % From E: % % :-call_pel_directive(range(time,0,5)). :- call_pel_directive(range(time, 0, 5)). % range height 0 3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3974). % From E: % % :-call_pel_directive(range(height,0,3)). :- call_pel_directive(range(height, 0, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',3976). % range offset 1 3 % From E: % % :-call_pel_directive(range(offset,1,3)). :- call_pel_directive(range(offset, 1, 3)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter3/Telephone2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4004). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4004). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4007). % sort agent % From E: % % sort(agent). sort(agent). % sort phone :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4007). % From E: % % sort(phone). sort(phone). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4010). % agent Agent1, Agent2 % From E: % % t(agent,agent1). agent(agent1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4010). % From E: % % t(agent,agent2). agent(agent2). % phone Phone1, Phone2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4010). % From E: % % t(phone,phone1). phone(phone1). % From E: % % t(phone,phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4010). phone(phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4013). % fluent Ringing(phone,phone) % From E: % % fluent(ringing(phone,phone)). mpred_prop(ringing(phone,phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4013). fluents([ringing/2]). % fluent DialTone(phone) % From E: % % fluent(dialTone(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4013). mpred_prop(dialTone(phone),fluent). fluents([dialTone/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4015). % fluent BusySignal(phone) % From E: % % fluent(busySignal(phone)). mpred_prop(busySignal(phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4015). fluents([busySignal/1]). % fluent Idle(phone) % From E: % % fluent(idle(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4015). mpred_prop(idle(phone),fluent). fluents([idle/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4017). % fluent Connected(phone,phone) % From E: % % fluent(connected(phone,phone)). mpred_prop(connected(phone,phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4017). fluents([connected/2]). % fluent Disconnected(phone) % From E: % % fluent(disconnected(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4017). mpred_prop(disconnected(phone),fluent). fluents([disconnected/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4020). % event PickUp(agent,phone) % From E: % % event(pickUp(agent,phone)). events([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4020). mpred_prop(pickUp(agent,phone),action). actions([pickUp/2]). % event SetDown(agent,phone) % From E: % % event(setDown(agent,phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4020). events([setDown/2]). mpred_prop(setDown(agent,phone),action). actions([setDown/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4022). % event Dial(agent,phone,phone) % From E: % % event(dial(agent,phone,phone)). events([dial/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4022). mpred_prop(dial(agent,phone,phone),action). actions([dial/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4024). %; Sigma % [agent,phone,time] % HoldsAt(Idle(phone),time) -> % Initiates(PickUp(agent,phone),DialTone(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4026). % From E: % % '->'( % holds_at(idle(Phone),Time), % initiates_at( % pickUp(Agent,Phone), % dialTone(Phone), % Time)). % [Time]. pickUp(Agent, Phone)initiates dialTone(Phone)if idle(Phone). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4026). /* initiated(happens(pickUp(Agent,Phone), Time_From, Time_Until), dialTone(Phone), [holds(idle(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Idle(phone),time) -> % Terminates(PickUp(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4031). % From E: % % '->'( % holds_at(idle(Phone),Time), % terminates_at( % pickUp(Agent,Phone), % idle(Phone), % Time)). % [Time]. pickUp(Agent, Phone)terminates idle(Phone)if idle(Phone). /* terminated(happens(pickUp(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(idle(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(DialTone(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4035). % From E: % % '->'( % holds_at(dialTone(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if dialTone(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(dialTone(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(DialTone(phone),time) -> % Terminates(SetDown(agent,phone),DialTone(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4039). % From E: % % '->'( % holds_at(dialTone(Phone),Time), % terminates_at( % setDown(Agent,Phone), % dialTone(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates dialTone(Phone)if dialTone(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), dialTone(Phone), [holds(dialTone(Phone),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Initiates(Dial(agent,phone1,phone2),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4043). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % initiates_at( % dial(Agent,Phone1,Phone2), % ringing(Phone1,Phone2), % Time)). % [Time]. dial(Agent, Phone1, Phone2)initiates ringing(Phone1, Phone2)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4043). /* initiated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), ringing(Phone1,Phone2), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),DialTone(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4048). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % dialTone(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates dialTone(Phone1)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4048). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), dialTone(Phone1), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4053). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % idle(Phone2), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates idle(Phone2)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4053). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), idle(Phone2), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % !HoldsAt(Idle(phone2),time) -> % Initiates(Dial(agent,phone1,phone2),BusySignal(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4058). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(not(idle(Phone2)),Time)), % initiates_at( % dial(Agent,Phone1,Phone2), % busySignal(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)initiates busySignal(Phone1)if dialTone(Phone1), not idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4058). /* initiated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), busySignal(Phone1), [ holds(dialTone(Phone1),Time_From), holds(not(idle(Phone2)),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % !HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),DialTone(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4063). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(not(idle(Phone2)),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % dialTone(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates dialTone(Phone1)if dialTone(Phone1), not idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4063). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), dialTone(Phone1), [ holds(dialTone(Phone1),Time_From), holds(not(idle(Phone2)),Time_From) ]). */ % "% =================================". % [agent,phone,time] % HoldsAt(BusySignal(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4068). % From E: % % '->'( % holds_at(busySignal(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if busySignal(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(busySignal(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(BusySignal(phone),time) -> % Terminates(SetDown(agent,phone),BusySignal(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4072). % From E: % % '->'( % holds_at(busySignal(Phone),Time), % terminates_at( % setDown(Agent,Phone), % busySignal(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates busySignal(Phone)if busySignal(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), busySignal(Phone), [holds(busySignal(Phone),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4076). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone1), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone1)if ringing(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone1), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4080). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone2), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone2)if ringing(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Terminates(SetDown(agent,phone1),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4084). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone1), % ringing(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone1)terminates ringing(Phone1, Phone2)if ringing(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone1), Time_From, Time_Until), ringing(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(PickUp(agent,phone2),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4088). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % pickUp(Agent,Phone2), % connected(Phone1,Phone2), % Time)). % [Time]. pickUp(Agent, Phone2)initiates connected(Phone1, Phone2)if ringing(Phone1, Phone2). /* initiated(happens(pickUp(Agent,Phone2), Time_From, Time_Until), connected(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Terminates(PickUp(agent,phone2),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4092). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % terminates_at( % pickUp(Agent,Phone2), % ringing(Phone1,Phone2), % Time)). % [Time]. pickUp(Agent, Phone2)terminates ringing(Phone1, Phone2)if ringing(Phone1, Phone2). /* terminated(happens(pickUp(Agent,Phone2), Time_From, Time_Until), ringing(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4096). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone1), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone1)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone1), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Disconnected(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4100). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % disconnected(Phone2), % Time)). % [Time]. setDown(Agent, Phone1)initiates disconnected(Phone2)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), disconnected(Phone2), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Terminates(SetDown(agent,phone1),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4104). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone1), % connected(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone1)terminates connected(Phone1, Phone2)if connected(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone1), Time_From, Time_Until), connected(Phone1,Phone2), [ holds(connected(Phone1,Phone2), Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone2),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4108). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone2), % idle(Phone2), % Time)). % [Time]. setDown(Agent, Phone2)initiates idle(Phone2)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone2), Time_From, Time_Until), idle(Phone2), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone2),Disconnected(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4112). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone2), % disconnected(Phone1), % Time)). % [Time]. setDown(Agent, Phone2)initiates disconnected(Phone1)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone2), Time_From, Time_Until), disconnected(Phone1), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Terminates(SetDown(agent,phone2),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4116). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone2), % connected(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone2)terminates connected(Phone1, Phone2)if connected(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone2), Time_From, Time_Until), connected(Phone1,Phone2), [ holds(connected(Phone1,Phone2), Time_From) ]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Disconnected(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4120). % From E: % % '->'( % holds_at(disconnected(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if disconnected(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(disconnected(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Disconnected(phone),time) -> % Terminates(SetDown(agent,phone),Disconnected(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4124). % From E: % % '->'( % holds_at(disconnected(Phone),Time), % terminates_at( % setDown(Agent,Phone), % disconnected(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates disconnected(Phone)if disconnected(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), disconnected(Phone), [holds(disconnected(Phone),Time_From)]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4129). % Happens(PickUp(Agent1,Phone1),0). % From E: % % happens_at(pickUp(agent1,phone1),0). observe pickUp(agent1, phone1)at 0. % observe([pickUp(agent1,phone1)],0). % "% =================================". % Happens(Dial(Agent1,Phone1,Phone2),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4129). % From E: % % happens_at(dial(agent1,phone1,phone2),1). observe dial(agent1, phone1, phone2)at 1. % observe([dial(agent1,phone1,phone2)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4131). % Happens(PickUp(Agent2,Phone2),2). % From E: % % happens_at(pickUp(agent2,phone2),2). observe pickUp(agent2, phone2)at 2. % observe([pickUp(agent2,phone2)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4133). %; Psi % [phone,time] % !HoldsAt(Ringing(phone,phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4135). % From E: % % holds_at(not(ringing(Phone,Phone)),Time). % [Time]. not ringing(Phone, Phone). % l_int(holds(not(ringing(Phone,Phone)),Time_At),[]). % "% =================================". % [phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) & % phone1!=phone2 -> % !HoldsAt(Ringing(phone2,phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4139). % From E: % % '->'( % (holds_at(ringing(Phone1,Phone2),Time) , % Phone1\=Phone2), % holds_at(not(ringing(Phone2,Phone1)),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4139). ringing(Phone1, Phone2), Phone1\=Phone2 -> not(ringing(Phone2, Phone1)). % [phone,time] % !HoldsAt(Connected(phone,phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4144). % From E: % % holds_at(not(connected(Phone,Phone)),Time). % [Time]. not connected(Phone, Phone). % l_int(holds(not(connected(Phone,Phone)),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4146). % [phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) & % phone1!=phone2 -> % !HoldsAt(Connected(phone2,phone1),time). % From E: % % '->'( % (holds_at(connected(Phone1,Phone2),Time) , % Phone1\=Phone2), % holds_at(not(connected(Phone2,Phone1)),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4146). connected(Phone1, Phone2), Phone1\=Phone2 -> not(connected(Phone2, Phone1)). % mutex Idle, DialTone, BusySignal, Disconnected :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4150). % From E: % % :-call_pel_directive(mutex(idle)). :- call_pel_directive(mutex(idle)). % From E: % % :-call_pel_directive(mutex(dialTone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4150). :- call_pel_directive(mutex(dialTone)). % From E: % % :-call_pel_directive(mutex(busySignal)). :- call_pel_directive(mutex(busySignal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4150). % From E: % % :-call_pel_directive(mutex(disconnected)). :- call_pel_directive(mutex(disconnected)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4153). % [phone1,phone2,time] % HoldsAt(Idle(phone1),time) -> % !HoldsAt(Ringing(phone1,phone2),time) & % !HoldsAt(Connected(phone1,phone2),time). % From E: % % '->'( % holds_at(idle(Phone1),Time), % (holds_at(not(ringing(Phone1,Phone2)),Time) , % holds_at(not(connected(Phone1,Phone2)),Time))). % [Time]. if idle(Phone1)then not ringing(Phone1, Phone2), not connected(Phone1, Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4153). /* reactive_rule([holds(idle(Phone1),Time_At)], [ holds(not(ringing(Phone1,Phone2)), Time_At4), holds(not(connected(Phone1,Phone2)), Time_At4) ]). */ % "% =================================". %; etc. %; Gamma % [phone] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4162). % HoldsAt(Idle(phone),0). % From E: % % holds_at(idle(Phone),0). initially idle(Phone). % initial_state([idle(Phone)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4164). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4166). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4166). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter3/Telephone1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4195). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4195). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4198). % sort agent % From E: % % sort(agent). sort(agent). % sort phone :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4198). % From E: % % sort(phone). sort(phone). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4201). % agent Agent1, Agent2 % From E: % % t(agent,agent1). agent(agent1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4201). % From E: % % t(agent,agent2). agent(agent2). % phone Phone1, Phone2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4201). % From E: % % t(phone,phone1). phone(phone1). % From E: % % t(phone,phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4201). phone(phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4204). % fluent Ringing(phone,phone) % From E: % % fluent(ringing(phone,phone)). mpred_prop(ringing(phone,phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4204). fluents([ringing/2]). % fluent DialTone(phone) % From E: % % fluent(dialTone(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4204). mpred_prop(dialTone(phone),fluent). fluents([dialTone/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4206). % fluent BusySignal(phone) % From E: % % fluent(busySignal(phone)). mpred_prop(busySignal(phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4206). fluents([busySignal/1]). % fluent Idle(phone) % From E: % % fluent(idle(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4206). mpred_prop(idle(phone),fluent). fluents([idle/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4208). % fluent Connected(phone,phone) % From E: % % fluent(connected(phone,phone)). mpred_prop(connected(phone,phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4208). fluents([connected/2]). % fluent Disconnected(phone) % From E: % % fluent(disconnected(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4208). mpred_prop(disconnected(phone),fluent). fluents([disconnected/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4211). % event PickUp(agent,phone) % From E: % % event(pickUp(agent,phone)). events([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4211). mpred_prop(pickUp(agent,phone),action). actions([pickUp/2]). % event SetDown(agent,phone) % From E: % % event(setDown(agent,phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4211). events([setDown/2]). mpred_prop(setDown(agent,phone),action). actions([setDown/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4213). % event Dial(agent,phone,phone) % From E: % % event(dial(agent,phone,phone)). events([dial/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4213). mpred_prop(dial(agent,phone,phone),action). actions([dial/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4215). %; Sigma % [agent,phone,time] % HoldsAt(Idle(phone),time) -> % Initiates(PickUp(agent,phone),DialTone(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4217). % From E: % % '->'( % holds_at(idle(Phone),Time), % initiates_at( % pickUp(Agent,Phone), % dialTone(Phone), % Time)). % [Time]. pickUp(Agent, Phone)initiates dialTone(Phone)if idle(Phone). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4217). /* initiated(happens(pickUp(Agent,Phone), Time_From, Time_Until), dialTone(Phone), [holds(idle(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Idle(phone),time) -> % Terminates(PickUp(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4222). % From E: % % '->'( % holds_at(idle(Phone),Time), % terminates_at( % pickUp(Agent,Phone), % idle(Phone), % Time)). % [Time]. pickUp(Agent, Phone)terminates idle(Phone)if idle(Phone). /* terminated(happens(pickUp(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(idle(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(DialTone(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4226). % From E: % % '->'( % holds_at(dialTone(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if dialTone(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(dialTone(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(DialTone(phone),time) -> % Terminates(SetDown(agent,phone),DialTone(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4230). % From E: % % '->'( % holds_at(dialTone(Phone),Time), % terminates_at( % setDown(Agent,Phone), % dialTone(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates dialTone(Phone)if dialTone(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), dialTone(Phone), [holds(dialTone(Phone),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Initiates(Dial(agent,phone1,phone2),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4234). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % initiates_at( % dial(Agent,Phone1,Phone2), % ringing(Phone1,Phone2), % Time)). % [Time]. dial(Agent, Phone1, Phone2)initiates ringing(Phone1, Phone2)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4234). /* initiated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), ringing(Phone1,Phone2), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),DialTone(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4239). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % dialTone(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates dialTone(Phone1)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4239). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), dialTone(Phone1), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4244). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % idle(Phone2), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates idle(Phone2)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4244). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), idle(Phone2), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % !HoldsAt(Idle(phone2),time) -> % Initiates(Dial(agent,phone1,phone2),BusySignal(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4249). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(not(idle(Phone2)),Time)), % initiates_at( % dial(Agent,Phone1,Phone2), % busySignal(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)initiates busySignal(Phone1)if dialTone(Phone1), not idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4249). /* initiated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), busySignal(Phone1), [ holds(dialTone(Phone1),Time_From), holds(not(idle(Phone2)),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % !HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),DialTone(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4254). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(not(idle(Phone2)),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % dialTone(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates dialTone(Phone1)if dialTone(Phone1), not idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4254). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), dialTone(Phone1), [ holds(dialTone(Phone1),Time_From), holds(not(idle(Phone2)),Time_From) ]). */ % "% =================================". % [agent,phone,time] % HoldsAt(BusySignal(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4259). % From E: % % '->'( % holds_at(busySignal(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if busySignal(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(busySignal(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(BusySignal(phone),time) -> % Terminates(SetDown(agent,phone),BusySignal(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4263). % From E: % % '->'( % holds_at(busySignal(Phone),Time), % terminates_at( % setDown(Agent,Phone), % busySignal(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates busySignal(Phone)if busySignal(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), busySignal(Phone), [holds(busySignal(Phone),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4267). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone1), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone1)if ringing(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone1), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4271). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone2), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone2)if ringing(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Terminates(SetDown(agent,phone1),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4275). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone1), % ringing(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone1)terminates ringing(Phone1, Phone2)if ringing(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone1), Time_From, Time_Until), ringing(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(PickUp(agent,phone2),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4279). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % pickUp(Agent,Phone2), % connected(Phone1,Phone2), % Time)). % [Time]. pickUp(Agent, Phone2)initiates connected(Phone1, Phone2)if ringing(Phone1, Phone2). /* initiated(happens(pickUp(Agent,Phone2), Time_From, Time_Until), connected(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Terminates(PickUp(agent,phone2),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4283). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % terminates_at( % pickUp(Agent,Phone2), % ringing(Phone1,Phone2), % Time)). % [Time]. pickUp(Agent, Phone2)terminates ringing(Phone1, Phone2)if ringing(Phone1, Phone2). /* terminated(happens(pickUp(Agent,Phone2), Time_From, Time_Until), ringing(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4287). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone1), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone1)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone1), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Disconnected(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4291). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % disconnected(Phone2), % Time)). % [Time]. setDown(Agent, Phone1)initiates disconnected(Phone2)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), disconnected(Phone2), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Terminates(SetDown(agent,phone1),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4295). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone1), % connected(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone1)terminates connected(Phone1, Phone2)if connected(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone1), Time_From, Time_Until), connected(Phone1,Phone2), [ holds(connected(Phone1,Phone2), Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone2),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4299). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone2), % idle(Phone2), % Time)). % [Time]. setDown(Agent, Phone2)initiates idle(Phone2)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone2), Time_From, Time_Until), idle(Phone2), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone2),Disconnected(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4303). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone2), % disconnected(Phone1), % Time)). % [Time]. setDown(Agent, Phone2)initiates disconnected(Phone1)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone2), Time_From, Time_Until), disconnected(Phone1), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Terminates(SetDown(agent,phone2),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4307). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone2), % connected(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone2)terminates connected(Phone1, Phone2)if connected(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone2), Time_From, Time_Until), connected(Phone1,Phone2), [ holds(connected(Phone1,Phone2), Time_From) ]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Disconnected(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4311). % From E: % % '->'( % holds_at(disconnected(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if disconnected(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(disconnected(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Disconnected(phone),time) -> % Terminates(SetDown(agent,phone),Disconnected(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4315). % From E: % % '->'( % holds_at(disconnected(Phone),Time), % terminates_at( % setDown(Agent,Phone), % disconnected(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates disconnected(Phone)if disconnected(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), disconnected(Phone), [holds(disconnected(Phone),Time_From)]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4320). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4320). % Happens(PickUp(Agent1,Phone1),0). % From E: % % happens_at(pickUp(agent1,phone1),0). observe pickUp(agent1, phone1)at 0. % observe([pickUp(agent1,phone1)],0). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4320). % From E: % % directive(delta). directive(delta). % Happens(Dial(Agent1,Phone1,Phone2),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4320). % From E: % % happens_at(dial(agent1,phone1,phone2),1). observe dial(agent1, phone1, phone2)at 1. % observe([dial(agent1,phone1,phone2)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4322). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4322). % Happens(PickUp(Agent2,Phone2),2). % From E: % % happens_at(pickUp(agent2,phone2),2). observe pickUp(agent2, phone2)at 2. % observe([pickUp(agent2,phone2)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4324). %; Gamma % [phone] % HoldsAt(Idle(phone),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4326). % From E: % % holds_at(idle(Phone),0). initially idle(Phone). % initial_state([idle(Phone)]). % "% =================================". % [phone] % !HoldsAt(DialTone(phone),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4326). % From E: % % holds_at(not(dialTone(Phone)),0). initially not dialTone(Phone). % initial_state([not(dialTone(Phone))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4328). % [phone] % !HoldsAt(BusySignal(phone),0). % From E: % % holds_at(not(busySignal(Phone)),0). initially not busySignal(Phone). % initial_state([not(busySignal(Phone))]). % "% =================================". % [phone1,phone2] % !HoldsAt(Ringing(phone1,phone2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4328). % From E: % % holds_at(not(ringing(Phone1,Phone2)),0). initially not ringing(Phone1, Phone2). % initial_state([not(ringing(Phone1,Phone2))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4330). % [phone1,phone2] % !HoldsAt(Connected(phone1,phone2),0). % From E: % % holds_at(not(connected(Phone1,Phone2)),0). initially not connected(Phone1, Phone2). % initial_state([not(connected(Phone1,Phone2))]). % "% =================================". % [phone] % !HoldsAt(Disconnected(phone),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4330). % From E: % % holds_at(not(disconnected(Phone)),0). initially not disconnected(Phone). % initial_state([not(disconnected(Phone))]). % "% =================================". % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4332). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4332). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4335). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4335). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/DefaultLocation.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4364). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4364). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4367). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4367). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4369). % sort device: object % From E: % % subsort(device,object). subsort(device,object). % sort tv: device :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4369). % From E: % % subsort(tv,device). subsort(tv,device). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4371). % sort room % From E: % % sort(room). sort(room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4373). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % tv TV :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4373). % From E: % % t(tv,tv). tv(tv). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4375). % room LivingRoom, Kitchen % From E: % % t(room,livingRoom). room(livingRoom). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4375). % From E: % % t(room,kitchen). room(kitchen). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4377). % event TurnOn(agent,device) % From E: % % event(turnOn(agent,device)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4377). mpred_prop(turnOn(agent,device),action). actions([turnOn/2]). % event Walk(agent,room,room) % From E: % % event(walk(agent,room,room)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4377). events([walk/3]). mpred_prop(walk(agent,room,room),action). actions([walk/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4380). % fluent InRoom(object,room) % From E: % % fluent(inRoom(object,room)). mpred_prop(inRoom(object,room),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4380). fluents([inRoom/2]). % fluent On(device) % From E: % % fluent(on(device)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4380). mpred_prop(on(device),fluent). fluents([on/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4382). % fluent PluggedIn(device) % From E: % % fluent(pluggedIn(device)). mpred_prop(pluggedIn(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4382). fluents([pluggedIn/1]). % fluent BrokenSwitch(device) % From E: % % fluent(brokenSwitch(device)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4382). mpred_prop(brokenSwitch(device),fluent). fluents([brokenSwitch/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4385). % predicate Ab1(device,time) % From E: % % predicate(ab1(device,time)). mpred_prop(ab1(device,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4385). predicates([ab1/2]). % predicate Ab2(room,time) % From E: % % predicate(ab2(room,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4385). mpred_prop(ab2(room,time),predicate). predicates([ab2/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4388). %; Sigma % [agent,room1,room2,time] % Initiates(Walk(agent,room1,room2),InRoom(agent,room2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4390). % From E: % % initiates_at( % walk(Agent,Room1,Room2), % inRoom(Agent,Room2), % Time). % [Time]. walk(Agent, Room1, Room2)initiates inRoom(Agent, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4390). /* initiated(happens(walk(Agent,Room1,Room2), Time_From, Time_Until), inRoom(Agent,Room2), []). */ % "% =================================". % [agent,room1,room2,time] % room1!=% room2 -> % Terminates(Walk(agent,room1,room2),InRoom(agent,room1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4394). % From E: % % '->'( % Room1\=Room2, % terminates_at( % walk(Agent,Room1,Room2), % inRoom(Agent,Room1), % Time)). % [Time]. Room1\=Room2 -> terminates(walk(Agent, Room1, Room2), inRoom(Agent, Room1)). % [agent,device,time] % !Ab1(device,time) -> % Initiates(TurnOn(agent,device),On(device),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4398). % From E: % % '->'( % not(ab1(Device,Time)), % initiates_at( % turnOn(Agent,Device), % on(Device), % Time)). % [Time]. turnOn(Agent, Device)initiates on(Device)at Time if not ab1(Device, Time). /* initiated(happens(turnOn(Agent,Device), Time_From, Time_Until), at(on(Device),Time), [not(ab1(Device,Time))]). */ % "% =================================". %; Delta % [agent,room1,room2,time] % Happens(Walk(agent,room1,room2),time) -> % room1!=room2 & % HoldsAt(InRoom(agent,room1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4403). % From E: % % '->'( % happens_at(walk(Agent,Room1,Room2),Time), % (Room1\=Room2 , % holds_at(inRoom(Agent,Room1),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4403). walk(Agent, Room1, Room2) -> Room1\=Room2, inRoom(Agent, Room1). % [agent,device,time] % Happens(TurnOn(agent,device),time) -> % {room}% HoldsAt(InRoom(agent,room),time) & % HoldsAt(InRoom(device,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4409). % From E: % % exists( % [Room], % '->'( % happens_at(turnOn(Agent,Device),Time), % (holds_at(inRoom(Agent,Room),Time) , % holds_at(inRoom(Device,Room),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4409). exists([Room], if((inRoom(Agent, Room), inRoom(Device, Room)), turnOn(Agent, Device))). % [event1,event2,time] % Happens(event1,time) & % Happens(event2,time) -> % event1=event2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4414). % From E: % % '->'( % (happens_at(Event1,Time) , % happens_at(Event2,Time)), % Event1=Event2). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4414). Event1, Event2 -> Event1=Event2. %; Theta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4420). % Theta: % From E: % % directive(theta). directive(theta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4420). % [device,time] % HoldsAt(BrokenSwitch(device),time) -> Ab1(device,time). % From E: % % '->'( % holds_at(brokenSwitch(Device),Time), % ab1(Device,Time)). % [Time]. if holds_at(brokenSwitch(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4420). /* reactive_rule([holds_at(brokenSwitch(Device),Time)], [ab1(Device,Time)]). */ % "% =================================". % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4420). % From E: % % directive(theta). directive(theta). % [device,time] % !HoldsAt(PluggedIn(device),time) -> Ab1(device,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4420). % From E: % % '->'( % holds_at(not(pluggedIn(Device)),Time), % ab1(Device,Time)). % [Time]. if holds_at(not pluggedIn(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4420). /* reactive_rule([holds_at(not(pluggedIn(Device)),Time)], [ab1(Device,Time)]). */ % "% =================================". %; Psi % [object,room1,room2,time] % HoldsAt(InRoom(object,room1),time) & % HoldsAt(InRoom(object,room2),time) -> % room1=room2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4425). % From E: % % '->'( % (holds_at(inRoom(Object,Room1),Time) , % holds_at(inRoom(Object,Room2),Time)), % Room1=Room2). % [Time]. false not equals(Room1, Room2), inRoom(Object, Room1), inRoom(Object, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4425). /* d_pre([ not(equals(Room1,Room2)), holds(inRoom(Object,Room1),Time_At), holds(inRoom(Object,Room2),Time_At) ]). */ % "% =================================". %; Gamma % [tv] % !HoldsAt(On(tv),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4432). % From E: % % holds_at(not(on(Tv)),0). initially not on(Tv). % initial_state([not(on(Tv))]). % "% =================================". % [tv] % !HoldsAt(BrokenSwitch(tv),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4432). % From E: % % holds_at(not(brokenSwitch(Tv)),0). initially not brokenSwitch(Tv). % initial_state([not(brokenSwitch(Tv))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4434). % [tv] % HoldsAt(PluggedIn(tv),0). % From E: % % holds_at(pluggedIn(Tv),0). initially pluggedIn(Tv). % initial_state([pluggedIn(Tv)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4436). % HoldsAt(InRoom(Nathan,Kitchen),0). % From E: % % holds_at(inRoom(nathan,kitchen),0). initially inRoom(nathan, kitchen). % initial_state([inRoom(nathan,kitchen)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4438). % [time] % !Ab2(LivingRoom,time) -> % {tv}% HoldsAt(InRoom(tv,LivingRoom),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4440). % From E: % % exists( % [Tv], % '->'( % not(ab2(livingRoom,Time)), % holds_at(inRoom(Tv,livingRoom),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4440). exists([Tv], if(holds_at(inRoom(Tv,livingRoom),Time), not(ab2(livingRoom,Time)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4442). %; goal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4444). % {tv} % Happens(TurnOn(Nathan,tv),1). % From E: % % exists( % [Tv], % happens_at(turnOn(nathan,Tv),1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4444). exists([Tv], happens_at(turnOn(nathan,Tv),1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4446). %; for two TVs: %;[tv,time] !HoldsAt(InRoom(tv,Kitchen),time). %;[tv,time] {room} HoldsAt(InRoom(tv,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4450). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4450). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4450). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4450). :- call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4453). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4453). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/Device.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4482). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4482). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4485). % sort agent % From E: % % sort(agent). sort(agent). % sort device :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4485). % From E: % % sort(device). sort(device). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4488). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % device Device1, AntiqueDevice1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4488). % From E: % % t(device,device1). device(device1). % From E: % % t(device,antiqueDevice1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4488). device(antiqueDevice1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4491). % predicate Ab1(device,time) % From E: % % predicate(ab1(device,time)). mpred_prop(ab1(device,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4491). predicates([ab1/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4493). % fluent On(device) % From E: % % fluent(on(device)). mpred_prop(on(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4493). fluents([on/1]). % fluent PluggedIn(device) % From E: % % fluent(pluggedIn(device)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4493). mpred_prop(pluggedIn(device),fluent). fluents([pluggedIn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4495). % fluent BrokenSwitch(device) % From E: % % fluent(brokenSwitch(device)). mpred_prop(brokenSwitch(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4495). fluents([brokenSwitch/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4497). % event TurnOn(agent,device) % From E: % % event(turnOn(agent,device)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4497). mpred_prop(turnOn(agent,device),action). actions([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4499). %; Sigma % [agent,device,time] % !Ab1(device,time) -> % Initiates(TurnOn(agent,device),On(device),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4501). % From E: % % '->'( % not(ab1(Device,Time)), % initiates_at( % turnOn(Agent,Device), % on(Device), % Time)). % [Time]. turnOn(Agent, Device)initiates on(Device)at Time if not ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4501). /* initiated(happens(turnOn(Agent,Device), Time_From, Time_Until), at(on(Device),Time), [not(ab1(Device,Time))]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4507). % Happens(TurnOn(Nathan,Device1),0). % From E: % % happens_at(turnOn(nathan,device1),0). observe turnOn(nathan, device1)at 0. % observe([turnOn(nathan,device1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4509). %; Theta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4511). % Theta: % From E: % % directive(theta). directive(theta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4511). % [device,time] % HoldsAt(BrokenSwitch(device),time) -> Ab1(device,time). % From E: % % '->'( % holds_at(brokenSwitch(Device),Time), % ab1(Device,Time)). % [Time]. if holds_at(brokenSwitch(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4511). /* reactive_rule([holds_at(brokenSwitch(Device),Time)], [ab1(Device,Time)]). */ % "% =================================". % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4511). % From E: % % directive(theta). directive(theta). % [device,time] % !HoldsAt(PluggedIn(device),time) -> Ab1(device,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4511). % From E: % % '->'( % holds_at(not(pluggedIn(Device)),Time), % ab1(Device,Time)). % [Time]. if holds_at(not pluggedIn(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4511). /* reactive_rule([holds_at(not(pluggedIn(Device)),Time)], [ab1(Device,Time)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4513). % Theta: % From E: % % directive(theta). directive(theta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4513). % [time] % Ab1(AntiqueDevice1,time). % From E: % % ab1(antiqueDevice1,Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4513). ab1(antiqueDevice1,Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4515). %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4517). % !HoldsAt(On(Device1),0). % From E: % % holds_at(not(on(device1)),0). initially not on(device1). % initial_state([not(on(device1))]). % "% =================================". % !HoldsAt(BrokenSwitch(Device1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4517). % From E: % % holds_at(not(brokenSwitch(device1)),0). initially not brokenSwitch(device1). % initial_state([not(brokenSwitch(device1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4519). % HoldsAt(PluggedIn(Device1),0). % From E: % % holds_at(pluggedIn(device1),0). initially pluggedIn(device1). % initial_state([pluggedIn(device1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4521). %; added: % [time] % !HoldsAt(On(AntiqueDevice1),time). % From E: % % holds_at(not(on(antiqueDevice1)),Time). % [Time]. not on(antiqueDevice1). % l_int(holds(not(on(antiqueDevice1)),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4523). % [time] % HoldsAt(PluggedIn(AntiqueDevice1),time). % From E: % % holds_at(pluggedIn(antiqueDevice1),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4523). pluggedIn(antiqueDevice1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4525). %; entailed: %; HoldsAt(On(Device1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4528). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4528). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4528). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4531). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4531). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/ErraticDevice.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4560). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4560). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4563). % sort agent % From E: % % sort(agent). sort(agent). % sort device :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4563). % From E: % % sort(device). sort(device). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4566). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % device Device1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4566). % From E: % % t(device,device1). device(device1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4569). % predicate Ab1(device,time) % From E: % % predicate(ab1(device,time)). mpred_prop(ab1(device,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4569). predicates([ab1/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4571). % fluent On(device) % From E: % % fluent(on(device)). mpred_prop(on(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4571). fluents([on/1]). % fluent PluggedIn(device) % From E: % % fluent(pluggedIn(device)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4571). mpred_prop(pluggedIn(device),fluent). fluents([pluggedIn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4573). % fluent BrokenSwitch(device) % From E: % % fluent(brokenSwitch(device)). mpred_prop(brokenSwitch(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4573). fluents([brokenSwitch/1]). % fluent Erratic(device) % From E: % % fluent(erratic(device)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4573). mpred_prop(erratic(device),fluent). fluents([erratic/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4576). % fluent DeterminingFluent(device) % From E: % % fluent(determiningFluent(device)). mpred_prop(determiningFluent(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4576). fluents([determiningFluent/1]). % noninertial DeterminingFluent % From E: % % :-call_pel_directive(noninertial(determiningFluent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4576). :- call_pel_directive(noninertial(determiningFluent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4579). % event TurnOn(agent,device) % From E: % % event(turnOn(agent,device)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4579). mpred_prop(turnOn(agent,device),action). actions([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4581). %; Sigma % [agent,device,time] % !Ab1(device,time) -> % Initiates(TurnOn(agent,device),On(device),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4583). % From E: % % '->'( % not(ab1(Device,Time)), % initiates_at( % turnOn(Agent,Device), % on(Device), % Time)). % [Time]. turnOn(Agent, Device)initiates on(Device)at Time if not ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4583). /* initiated(happens(turnOn(Agent,Device), Time_From, Time_Until), at(on(Device),Time), [not(ab1(Device,Time))]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4589). % Happens(TurnOn(Nathan,Device1),0). % From E: % % happens_at(turnOn(nathan,device1),0). observe turnOn(nathan, device1)at 0. % observe([turnOn(nathan,device1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4591). %; Theta % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4593). % From E: % % directive(theta). directive(theta). % [device,time] % HoldsAt(BrokenSwitch(device),time) -> Ab1(device,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4593). % From E: % % '->'( % holds_at(brokenSwitch(Device),Time), % ab1(Device,Time)). % [Time]. if holds_at(brokenSwitch(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4593). /* reactive_rule([holds_at(brokenSwitch(Device),Time)], [ab1(Device,Time)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4595). % Theta: % From E: % % directive(theta). directive(theta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4595). % [device,time] % HoldsAt(Erratic(device),time) & HoldsAt(DeterminingFluent(device),time) -> % Ab1(device,time). % From E: % % '->'( % (holds_at(erratic(Device),Time) , % holds_at(determiningFluent(Device),Time)), % ab1(Device,Time)). % [Time]. if holds_at(erratic(Device), Time), holds_at(determiningFluent(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4595). /* reactive_rule([ holds_at(erratic(Device),Time), holds_at(determiningFluent(Device),Time) ], [ab1(Device,Time)]). */ % "% =================================". % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4598). % From E: % % directive(theta). directive(theta). % [device,time] % !HoldsAt(PluggedIn(device),time) -> Ab1(device,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4598). % From E: % % '->'( % holds_at(not(pluggedIn(Device)),Time), % ab1(Device,Time)). % [Time]. if holds_at(not pluggedIn(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4598). /* reactive_rule([holds_at(not(pluggedIn(Device)),Time)], [ab1(Device,Time)]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4603). % !HoldsAt(On(Device1),0). % From E: % % holds_at(not(on(device1)),0). initially not on(device1). % initial_state([not(on(device1))]). % "% =================================". % !HoldsAt(BrokenSwitch(Device1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4603). % From E: % % holds_at(not(brokenSwitch(device1)),0). initially not brokenSwitch(device1). % initial_state([not(brokenSwitch(device1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4605). % HoldsAt(Erratic(Device1),0). % From E: % % holds_at(erratic(device1),0). initially erratic(device1). % initial_state([erratic(device1)]). % "% =================================". % HoldsAt(PluggedIn(Device1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4605). % From E: % % holds_at(pluggedIn(device1),0). initially pluggedIn(device1). % initial_state([pluggedIn(device1)]). % "% =================================". %; added: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4609). % HoldsAt(DeterminingFluent(Device1),1). % From E: % % holds_at(determiningFluent(device1),1). holds_at(determiningFluent(device1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4611). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4611). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4611). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4614). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4614). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/DefaultEvent.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4643). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4645). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4645). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4648). % sort agent % From E: % % sort(agent). sort(agent). % sort clock :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4648). % From E: % % sort(clock). sort(clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4651). % fluent Beeping(clock) % From E: % % fluent(beeping(clock)). mpred_prop(beeping(clock),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4651). fluents([beeping/1]). % fluent AlarmTime(clock,time) % From E: % % fluent(alarmTime(clock,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4651). mpred_prop(alarmTime(clock,time),fluent). fluents([alarmTime/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4653). % fluent AlarmOn(clock) % From E: % % fluent(alarmOn(clock)). mpred_prop(alarmOn(clock),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4653). fluents([alarmOn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4655). % event SetAlarmTime(agent,clock,time) % From E: % % event(setAlarmTime(agent,clock,time)). events([setAlarmTime/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4655). mpred_prop(setAlarmTime(agent,clock,time),action). actions([setAlarmTime/3]). % event StartBeeping(clock) % From E: % % event(startBeeping(clock)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4655). mpred_prop(startBeeping(clock),event). events([startBeeping/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4657). % event TurnOnAlarm(agent,clock) % From E: % % event(turnOnAlarm(agent,clock)). events([turnOnAlarm/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4657). mpred_prop(turnOnAlarm(agent,clock),action). actions([turnOnAlarm/2]). % event TurnOffAlarm(agent,clock) % From E: % % event(turnOffAlarm(agent,clock)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4657). events([turnOffAlarm/2]). mpred_prop(turnOffAlarm(agent,clock),action). actions([turnOffAlarm/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4660). % predicate Ab1(clock,time) % From E: % % predicate(ab1(clock,time)). mpred_prop(ab1(clock,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4660). predicates([ab1/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4662). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % clock Clock :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4662). % From E: % % t(clock,clock). clock(clock). %; Sigma % [agent,clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % time1!=time2 -> % Initiates(SetAlarmTime(agent,clock,time2),AlarmTime(clock,time2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4667). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % Time1\=Time2), % initiates_at( % setAlarmTime(Agent,Clock,Time2), % alarmTime(Clock,Time2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4667). alarmTime(Clock, Time1), Time1\=Time2 -> initiates(setAlarmTime(Agent, Clock, Time2), alarmTime(Clock, Time2)). % [agent,clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % time1!=time2 -> % Terminates(SetAlarmTime(agent,clock,time2),AlarmTime(clock,time1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4673). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % Time1\=Time2), % terminates_at( % setAlarmTime(Agent,Clock,Time2), % alarmTime(Clock,Time1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4673). alarmTime(Clock, Time1), Time1\=Time2 -> terminates(setAlarmTime(Agent, Clock, Time2), alarmTime(Clock, Time1)). % [agent,clock,time] % Initiates(TurnOnAlarm(agent,clock),AlarmOn(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4678). % From E: % % initiates_at( % turnOnAlarm(Agent,Clock), % alarmOn(Clock), % Time). % [Time]. turnOnAlarm(Agent, Clock)initiates alarmOn(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4678). /* initiated(happens(turnOnAlarm(Agent,Clock), Time_From, Time_Until), alarmOn(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4680). % [agent,clock,time] % Terminates(TurnOffAlarm(agent,clock),AlarmOn(clock),time). % From E: % % terminates_at( % turnOffAlarm(Agent,Clock), % alarmOn(Clock), % Time). % [Time]. turnOffAlarm(Agent, Clock)terminates alarmOn(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4680). /* terminated(happens(turnOffAlarm(Agent,Clock), Time_From, Time_Until), alarmOn(Clock), []). */ % "% =================================". % [clock,time] % Initiates(StartBeeping(clock),Beeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4684). % From E: % % initiates_at( % startBeeping(Clock), % beeping(Clock), % Time). % [Time]. startBeeping(Clock)initiates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4684). /* initiated(happens(startBeeping(Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4686). % [agent,clock,time] % Terminates(TurnOffAlarm(agent,clock),Beeping(clock),time). % From E: % % terminates_at( % turnOffAlarm(Agent,Clock), % beeping(Clock), % Time). % [Time]. turnOffAlarm(Agent, Clock)terminates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4686). /* terminated(happens(turnOffAlarm(Agent,Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". %; Delta % [clock,time] % HoldsAt(AlarmTime(clock,time),time) & % HoldsAt(AlarmOn(clock),time) & % !Ab1(clock,time) -> % Happens(StartBeeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4691). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time),Time) , % holds_at(alarmOn(Clock),Time) , % not(ab1(Clock,Time))), % happens_at(startBeeping(Clock),Time)). % [Time]. if holds_at(alarmTime(Clock, Time), Time), holds_at(alarmOn(Clock), Time), not ab1(Clock, Time)then happens_at(startBeeping(Clock), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4691). /* reactive_rule([ holds_at(alarmTime(Clock,Time),Time), holds_at(alarmOn(Clock),Time), not(ab1(Clock,Time)) ], [happens_at(startBeeping(Clock),Time)]). */ % "% =================================". % Happens(SetAlarmTime(Nathan,Clock,2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4696). % From E: % % happens_at(setAlarmTime(nathan,clock,2),0). observe setAlarmTime(nathan, clock, 2)at 0. % observe([setAlarmTime(nathan,clock,2)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4698). % Happens(TurnOnAlarm(Nathan,Clock),1). % From E: % % happens_at(turnOnAlarm(nathan,clock),1). observe turnOnAlarm(nathan, clock)at 1. % observe([turnOnAlarm(nathan,clock)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4700). %; Psi % [clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % HoldsAt(AlarmTime(clock,time2),time) -> % time1=time2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4702). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % holds_at(alarmTime(Clock,Time2),Time)), % Time1=Time2). % [Time]. false not equals(Time1, Time2), alarmTime(Clock, Time1), alarmTime(Clock, Time2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4702). /* d_pre([ not(equals(Time1,Time2)), alarmTime(Clock,Time1), alarmTime(Clock,Time2) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4709). % !HoldsAt(AlarmOn(Clock),0). % From E: % % holds_at(not(alarmOn(clock)),0). initially not alarmOn(clock). % initial_state([not(alarmOn(clock))]). % "% =================================". % !HoldsAt(Beeping(Clock),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4709). % From E: % % holds_at(not(beeping(clock)),0). initially not beeping(clock). % initial_state([not(beeping(clock))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4711). % HoldsAt(AlarmTime(Clock,3),0). % From E: % % holds_at(alarmTime(clock,3),0). initially alarmTime(clock, 3). % initial_state([alarmTime(clock,3)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4713). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). % completion Theta Ab1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4713). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4713). :- call_pel_directive(completion(ab1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4716). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4716). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/MethodD.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Method (D) %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4747). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4747). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4750). % sort object % From E: % % sort(object). sort(object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4752). % object A,B % From E: % % t(object,a). object(a). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4752). % From E: % % t(object,b). object(b). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4754). % fluent P(object) % From E: % % fluent(p(object)). mpred_prop(p(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4754). fluents([p/1]). % fluent Q(object) % From E: % % fluent(q(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4754). mpred_prop(q(object),fluent). fluents([q/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4756). % fluent R(object) % From E: % % fluent(r(object)). mpred_prop(r(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4756). fluents([r/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4758). % predicate Ab1(object,time) % From E: % % predicate(ab1(object,time)). mpred_prop(ab1(object,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4758). predicates([ab1/2]). % predicate Ab2(object,time) % From E: % % predicate(ab2(object,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4758). mpred_prop(ab2(object,time),predicate). predicates([ab2/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4761). % [object,time] % HoldsAt(P(object),time) & !Ab1(object,time) -> % HoldsAt(Q(object),time). % From E: % % '->'( % (holds_at(p(Object),Time) , % not(ab1(Object,Time))), % holds_at(q(Object),Time)). % [Time]. if holds_at(p(Object), Time), not ab1(Object, Time)then holds_at(q(Object), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4761). /* reactive_rule([ holds_at(p(Object),Time), not(ab1(Object,Time)) ], [holds_at(q(Object),Time)]). */ % "% =================================". % [object,time] % HoldsAt(R(object),time) & !Ab2(object,time) -> % !HoldsAt(Q(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4766). % From E: % % '->'( % (holds_at(r(Object),Time) , % not(ab2(Object,Time))), % holds_at(not(q(Object)),Time)). % [Time]. if holds_at(r(Object), Time), not ab2(Object, Time)then holds_at(not q(Object), Time). /* reactive_rule([ holds_at(r(Object),Time), not(ab2(Object,Time)) ], [holds_at(not(q(Object)),Time)]). */ % "% =================================". % [object,time] % HoldsAt(R(object),time) -> HoldsAt(P(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4770). % From E: % % '->'( % holds_at(r(Object),Time), % holds_at(p(Object),Time)). % [Time]. if r(Object)then p(Object). % reactive_rule([r(Object)],[p(Object)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4772). % HoldsAt(R(A),0). % From E: % % holds_at(r(a),0). initially r(a). % initial_state([r(a)]). % "% =================================". % HoldsAt(P(B),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4772). % From E: % % holds_at(p(b),0). initially p(b). % initial_state([p(b)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4774). % !HoldsAt(R(B),0). % From E: % % holds_at(not(r(b)),0). initially not r(b). % initial_state([not(r(b))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4776). % Theta: % From E: % % directive(theta). directive(theta). % [object,time] % HoldsAt(R(object),time) -> Ab1(object,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4778). % From E: % % '->'( % holds_at(r(Object),Time), % ab1(Object,Time)). % [Time]. if holds_at(r(Object), Time)then ab1(Object, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4778). /* reactive_rule([holds_at(r(Object),Time)], [ab1(Object,Time)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4780). % range time 0 0 % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4780). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4783). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4783). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4783). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4783). :- call_pel_directive(completion(ab2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/BrokenDevice.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4812). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4812). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4815). % sort agent % From E: % % sort(agent). sort(agent). % sort device :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4815). % From E: % % sort(device). sort(device). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4818). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % device Device1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4818). % From E: % % t(device,device1). device(device1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4821). % predicate Ab1(device,time) % From E: % % predicate(ab1(device,time)). mpred_prop(ab1(device,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4821). predicates([ab1/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4823). % fluent On(device) % From E: % % fluent(on(device)). mpred_prop(on(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4823). fluents([on/1]). % fluent PluggedIn(device) % From E: % % fluent(pluggedIn(device)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4823). mpred_prop(pluggedIn(device),fluent). fluents([pluggedIn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4825). % fluent BrokenSwitch(device) % From E: % % fluent(brokenSwitch(device)). mpred_prop(brokenSwitch(device),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4825). fluents([brokenSwitch/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4827). % event TurnOn(agent,device) % From E: % % event(turnOn(agent,device)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4827). mpred_prop(turnOn(agent,device),action). actions([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4829). %; Sigma % [agent,device,time] % !Ab1(device,time) -> % Initiates(TurnOn(agent,device),On(device),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4831). % From E: % % '->'( % not(ab1(Device,Time)), % initiates_at( % turnOn(Agent,Device), % on(Device), % Time)). % [Time]. turnOn(Agent, Device)initiates on(Device)at Time if not ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4831). /* initiated(happens(turnOn(Agent,Device), Time_From, Time_Until), at(on(Device),Time), [not(ab1(Device,Time))]). */ % "% =================================". %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4837). % Happens(TurnOn(Nathan,Device1),0). % From E: % % happens_at(turnOn(nathan,device1),0). observe turnOn(nathan, device1)at 0. % observe([turnOn(nathan,device1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4839). %; Theta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4841). % Theta: % From E: % % directive(theta). directive(theta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4841). % [device,time] % HoldsAt(BrokenSwitch(device),time) -> Ab1(device,time). % From E: % % '->'( % holds_at(brokenSwitch(Device),Time), % ab1(Device,Time)). % [Time]. if holds_at(brokenSwitch(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4841). /* reactive_rule([holds_at(brokenSwitch(Device),Time)], [ab1(Device,Time)]). */ % "% =================================". % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4841). % From E: % % directive(theta). directive(theta). % [device,time] % !HoldsAt(PluggedIn(device),time) -> Ab1(device,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4841). % From E: % % '->'( % holds_at(not(pluggedIn(Device)),Time), % ab1(Device,Time)). % [Time]. if holds_at(not pluggedIn(Device), Time)then ab1(Device, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4841). /* reactive_rule([holds_at(not(pluggedIn(Device)),Time)], [ab1(Device,Time)]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4846). % !HoldsAt(On(Device1),0). % From E: % % holds_at(not(on(device1)),0). initially not on(device1). % initial_state([not(on(device1))]). % "% =================================". % HoldsAt(BrokenSwitch(Device1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4846). % From E: % % holds_at(brokenSwitch(device1),0). initially brokenSwitch(device1). % initial_state([brokenSwitch(device1)]). % "% =================================". %; added: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4850). % HoldsAt(PluggedIn(Device1),0). % From E: % % holds_at(pluggedIn(device1),0). initially pluggedIn(device1). % initial_state([pluggedIn(device1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4852). %; entailed: %; !HoldsAt(On(Device1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4855). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4855). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4855). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4858). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4858). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter12/MethodB.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Method (D) %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4889). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4889). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4892). % sort object % From E: % % sort(object). sort(object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4894). % object A,B % From E: % % t(object,a). object(a). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4894). % From E: % % t(object,b). object(b). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4896). % fluent P(object) % From E: % % fluent(p(object)). mpred_prop(p(object),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4896). fluents([p/1]). % fluent Q(object) % From E: % % fluent(q(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4896). mpred_prop(q(object),fluent). fluents([q/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4898). % predicate Ab(object,time) % From E: % % predicate(ab(object,time)). mpred_prop(ab(object,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4898). predicates([ab/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4900). % [object,time] % HoldsAt(P(object),time) & !Ab(object,time) -> % HoldsAt(Q(object),time). % From E: % % '->'( % (holds_at(p(Object),Time) , % not(ab(Object,Time))), % holds_at(q(Object),Time)). % [Time]. if holds_at(p(Object), Time), not ab(Object, Time)then holds_at(q(Object), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4900). /* reactive_rule([ holds_at(p(Object),Time), not(ab(Object,Time)) ], [holds_at(q(Object),Time)]). */ % "% =================================". % HoldsAt(P(A),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4903). % From E: % % holds_at(p(a),0). initially p(a). % initial_state([p(a)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4905). % HoldsAt(P(B),0). % From E: % % holds_at(p(b),0). initially p(b). % initial_state([p(b)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4907). % Theta: % From E: % % directive(theta). directive(theta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4907). % Ab(A,0). % From E: % % ab(a,0). ab(a,0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4909). % range time 0 0 % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4909). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4912). % completion Theta Ab % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4912). % From E: % % :-call_pel_directive(completion(ab)). :- call_pel_directive(completion(ab)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter13/ModelFinding.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4940). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4940). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4943). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4945). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4945). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4945). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4948). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4948). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Happens(WakeUp(agent),time) -> !HoldsAt(Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4948). % From E: % % '->'( % happens_at(wakeUp(Agent),Time), % holds_at(not(awake(Agent)),Time)). % [Time]. not awake(Agent)if wakeUp(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4948). /* l_int(holds(not(awake(Agent)),Time_At), [happens(wakeUp(Agent),Time_At,Time_At)]). */ % "% =================================". % agent James :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4950). % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4953). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4953). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter13/Postdiction.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4980). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4980). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4983). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4985). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4985). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4985). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4988). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4988). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Happens(WakeUp(agent),time) -> !HoldsAt(Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4988). % From E: % % '->'( % happens_at(wakeUp(Agent),Time), % holds_at(not(awake(Agent)),Time)). % [Time]. not awake(Agent)if wakeUp(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4988). /* l_int(holds(not(awake(Agent)),Time_At), [happens(wakeUp(Agent),Time_At,Time_At)]). */ % "% =================================". % agent James :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4990). % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4992). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4992). % Happens(WakeUp(James),0). % From E: % % happens_at(wakeUp(james),0). observe wakeUp(james)at 0. % observe([wakeUp(james)],0). % "% =================================". % HoldsAt(Awake(James),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4992). % From E: % % holds_at(awake(james),1). holds_at(awake(james),1). % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4994). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4994). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4997). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',4997). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter13/Deduction2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5024). % option timediff off % From E: % % :-call_pel_directive(option(timediff,off)). :- call_pel_directive(option(timediff, off)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5026). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5026). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5029). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5031). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5031). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5031). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5034). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5034). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5036). % agent James % From E: % % t(agent,james). agent(james). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5036). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5038). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5038). % Happens(WakeUp(James),0). % From E: % % happens_at(wakeUp(james),0). observe wakeUp(james)at 0. % observe([wakeUp(james)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5040). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5040). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5042). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5042). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter13/Deduction1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5069). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5069). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5072). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5074). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5074). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5074). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5077). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5077). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5079). % agent James % From E: % % t(agent,james). agent(james). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5079). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5081). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5081). % Happens(WakeUp(James),0). % From E: % % happens_at(wakeUp(james),0). observe wakeUp(james)at 0. % observe([wakeUp(james)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5083). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5083). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5085). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5085). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter13/Abduction.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5112). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5112). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5115). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5117). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5117). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5117). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5120). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5120). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5122). % agent James % From E: % % t(agent,james). agent(james). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5122). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5124). % HoldsAt(Awake(James),1). % From E: % % holds_at(awake(james),1). holds_at(awake(james),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5126). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5126). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter4/AlarmClock.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5153). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5153). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5156). % sort agent % From E: % % sort(agent). sort(agent). % sort clock :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5156). % From E: % % sort(clock). sort(clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5159). % fluent Beeping(clock) % From E: % % fluent(beeping(clock)). mpred_prop(beeping(clock),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5159). fluents([beeping/1]). % fluent AlarmTime(clock,time) % From E: % % fluent(alarmTime(clock,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5159). mpred_prop(alarmTime(clock,time),fluent). fluents([alarmTime/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5161). % fluent AlarmOn(clock) % From E: % % fluent(alarmOn(clock)). mpred_prop(alarmOn(clock),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5161). fluents([alarmOn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5163). % event SetAlarmTime(agent,clock,time) % From E: % % event(setAlarmTime(agent,clock,time)). events([setAlarmTime/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5163). mpred_prop(setAlarmTime(agent,clock,time),action). actions([setAlarmTime/3]). % event StartBeeping(clock) % From E: % % event(startBeeping(clock)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5163). mpred_prop(startBeeping(clock),event). events([startBeeping/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5165). % event TurnOnAlarm(agent,clock) % From E: % % event(turnOnAlarm(agent,clock)). events([turnOnAlarm/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5165). mpred_prop(turnOnAlarm(agent,clock),action). actions([turnOnAlarm/2]). % event TurnOffAlarm(agent,clock) % From E: % % event(turnOffAlarm(agent,clock)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5165). events([turnOffAlarm/2]). mpred_prop(turnOffAlarm(agent,clock),action). actions([turnOffAlarm/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5168). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % clock Clock :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5168). % From E: % % t(clock,clock). clock(clock). %; Sigma % [agent,clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % time1!=time2 -> % Initiates(SetAlarmTime(agent,clock,time2),AlarmTime(clock,time2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5173). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % Time1\=Time2), % initiates_at( % setAlarmTime(Agent,Clock,Time2), % alarmTime(Clock,Time2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5173). alarmTime(Clock, Time1), Time1\=Time2 -> initiates(setAlarmTime(Agent, Clock, Time2), alarmTime(Clock, Time2)). % [agent,clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % time1!=time2 -> % Terminates(SetAlarmTime(agent,clock,time2),AlarmTime(clock,time1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5179). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % Time1\=Time2), % terminates_at( % setAlarmTime(Agent,Clock,Time2), % alarmTime(Clock,Time1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5179). alarmTime(Clock, Time1), Time1\=Time2 -> terminates(setAlarmTime(Agent, Clock, Time2), alarmTime(Clock, Time1)). % [agent,clock,time] % Initiates(TurnOnAlarm(agent,clock),AlarmOn(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5184). % From E: % % initiates_at( % turnOnAlarm(Agent,Clock), % alarmOn(Clock), % Time). % [Time]. turnOnAlarm(Agent, Clock)initiates alarmOn(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5184). /* initiated(happens(turnOnAlarm(Agent,Clock), Time_From, Time_Until), alarmOn(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5186). % [agent,clock,time] % Terminates(TurnOffAlarm(agent,clock),AlarmOn(clock),time). % From E: % % terminates_at( % turnOffAlarm(Agent,Clock), % alarmOn(Clock), % Time). % [Time]. turnOffAlarm(Agent, Clock)terminates alarmOn(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5186). /* terminated(happens(turnOffAlarm(Agent,Clock), Time_From, Time_Until), alarmOn(Clock), []). */ % "% =================================". % [clock,time] % Initiates(StartBeeping(clock),Beeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5190). % From E: % % initiates_at( % startBeeping(Clock), % beeping(Clock), % Time). % [Time]. startBeeping(Clock)initiates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5190). /* initiated(happens(startBeeping(Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5192). % [agent,clock,time] % Terminates(TurnOffAlarm(agent,clock),Beeping(clock),time). % From E: % % terminates_at( % turnOffAlarm(Agent,Clock), % beeping(Clock), % Time). % [Time]. turnOffAlarm(Agent, Clock)terminates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5192). /* terminated(happens(turnOffAlarm(Agent,Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". %; Delta % [clock,time] % HoldsAt(AlarmTime(clock,time),time) & % HoldsAt(AlarmOn(clock),time) -> % Happens(StartBeeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5197). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time),Time) , % holds_at(alarmOn(Clock),Time)), % happens_at(startBeeping(Clock),Time)). % [Time]. if holds_at(alarmTime(Clock, Time), Time), holds_at(alarmOn(Clock), Time)then happens_at(startBeeping(Clock), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5197). /* reactive_rule([ holds_at(alarmTime(Clock,Time),Time), holds_at(alarmOn(Clock),Time) ], [happens_at(startBeeping(Clock),Time)]). */ % "% =================================". % Happens(SetAlarmTime(Nathan,Clock,2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5201). % From E: % % happens_at(setAlarmTime(nathan,clock,2),0). observe setAlarmTime(nathan, clock, 2)at 0. % observe([setAlarmTime(nathan,clock,2)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5203). % Happens(TurnOnAlarm(Nathan,Clock),1). % From E: % % happens_at(turnOnAlarm(nathan,clock),1). observe turnOnAlarm(nathan, clock)at 1. % observe([turnOnAlarm(nathan,clock)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5205). %; Psi % [clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % HoldsAt(AlarmTime(clock,time2),time) -> % time1=time2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5207). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % holds_at(alarmTime(Clock,Time2),Time)), % Time1=Time2). % [Time]. false not equals(Time1, Time2), alarmTime(Clock, Time1), alarmTime(Clock, Time2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5207). /* d_pre([ not(equals(Time1,Time2)), alarmTime(Clock,Time1), alarmTime(Clock,Time2) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5214). % !HoldsAt(AlarmOn(Clock),0). % From E: % % holds_at(not(alarmOn(clock)),0). initially not alarmOn(clock). % initial_state([not(alarmOn(clock))]). % "% =================================". % !HoldsAt(Beeping(Clock),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5214). % From E: % % holds_at(not(beeping(clock)),0). initially not beeping(clock). % initial_state([not(beeping(clock))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5216). % HoldsAt(AlarmTime(Clock,3),0). % From E: % % holds_at(alarmTime(clock,3),0). initially alarmTime(clock, 3). % initial_state([alarmTime(clock,3)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5218). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5220). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5220). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter4/BankAccountServiceFee.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5249). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5251). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5251). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5254). % sort account % From E: % % sort(account). sort(account). % sort value: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5254). % From E: % % subsort(value,integer). subsort(value,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5257). % account Account1, Account2 % From E: % % t(account,account1). account(account1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5257). % From E: % % t(account,account2). account(account2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5259). % predicate EndOfMonth(time) % From E: % % predicate(endOfMonth(time)). mpred_prop(endOfMonth(time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5259). predicates([endOfMonth/1]). % function ServiceFee(account): value % From E: % % function(serviceFee(account),value). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5259). function(serviceFee(account),value). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5261). % function MinimumBalance(account): value % From E: % % function(minimumBalance(account),value). function(minimumBalance(account),value). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5263). % fluent ServiceFeeCharged(account) % From E: % % fluent(serviceFeeCharged(account)). mpred_prop(serviceFeeCharged(account),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5263). fluents([serviceFeeCharged/1]). % fluent Balance(account,value) % From E: % % fluent(balance(account,value)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5263). mpred_prop(balance(account,value),fluent). fluents([balance/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5266). % event Transfer(account,account,value) % From E: % % event(transfer(account,account,value)). mpred_prop(transfer(account,account,value),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5266). events([transfer/3]). % event MonthlyReset(account) % From E: % % event(monthlyReset(account)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5266). mpred_prop(monthlyReset(account),event). events([monthlyReset/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5268). % event ChargeServiceFee(account) % From E: % % event(chargeServiceFee(account)). mpred_prop(chargeServiceFee(account),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5268). events([chargeServiceFee/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5270). %; Sigma % [account1,account2,value1,value2,value3,value4,time] % HoldsAt(Balance(account1,value1),time) & % HoldsAt(Balance(account2,value2),time) & % value3>0 & % value1>=value3 & % value4=(value2+value3) -> % Initiates(Transfer(account1,account2,value3),Balance(account2,value4),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5272). % From E: % % '->'( % (holds_at(balance(Account1,Value1),Time) , % holds_at(balance(Account2,Value2),Time) , % Value3>0 , % Value1>=Value3 , % Value4=Value2+Value3), % initiates_at( % transfer(Account1,Account2,Value3), % balance(Account2,Value4), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5272). balance(Account1, Value1), balance(Account2, Value2), Value3>0, Value1>=Value3, Value4=Value2+Value3 -> initiates(transfer(Account1, Account2, Value3), balance(Account2, Value4)). % [account1,account2,value1,value2,value3,time] % HoldsAt(Balance(account1,value1),time) & % HoldsAt(Balance(account2,value2),time) & % value3>0 & % value1>=value3 -> % Terminates(Transfer(account1,account2,value3),Balance(account2,value2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5281). % From E: % % '->'( % (holds_at(balance(Account1,Value1),Time) , % holds_at(balance(Account2,Value2),Time) , % Value3>0 , % Value1>=Value3), % terminates_at( % transfer(Account1,Account2,Value3), % balance(Account2,Value2), % Time)). % [Time]. false not (transfer(Account1, Account2, Value3)terminates balance(Account2, Value2)), balance(Account1, Value1), balance(Account2, Value2), comparison(Value3, 0, >), comparison(Value1, Value3, >=). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5281). /* d_pre([ not(terminates(transfer(Account1, Account2, Value3), balance(Account2,Value2))), balance(Account1,Value1), balance(Account2,Value2), comparison(Value3,0,>), comparison(Value1,Value3,>=) ]). */ % "% =================================". % [account1,account2,value1,value2,value3,value4,time] % HoldsAt(Balance(account1,value1),time) & % HoldsAt(Balance(account2,value2),time) & % value3>0 & % value1>=value3 & % value4=(value1-value3) -> % Initiates(Transfer(account1,account2,value3),Balance(account1,value4),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5288). % From E: % % '->'( % (holds_at(balance(Account1,Value1),Time) , % holds_at(balance(Account2,Value2),Time) , % Value3>0 , % Value1>=Value3 , % Value4=Value1-Value3), % initiates_at( % transfer(Account1,Account2,Value3), % balance(Account1,Value4), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5288). balance(Account1, Value1), balance(Account2, Value2), Value3>0, Value1>=Value3, Value4=Value1-Value3 -> initiates(transfer(Account1, Account2, Value3), balance(Account1, Value4)). % [account1,account2,value1,value2,value3,time] % HoldsAt(Balance(account1,value1),time) & % HoldsAt(Balance(account2,value2),time) & % value3>0 & % value1>=value3 -> % Terminates(Transfer(account1,account2,value3),Balance(account1,value1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5296). % From E: % % '->'( % (holds_at(balance(Account1,Value1),Time) , % holds_at(balance(Account2,Value2),Time) , % Value3>0 , % Value1>=Value3), % terminates_at( % transfer(Account1,Account2,Value3), % balance(Account1,Value1), % Time)). % [Time]. false not (transfer(Account1, Account2, Value3)terminates balance(Account1, Value1)), balance(Account1, Value1), balance(Account2, Value2), comparison(Value3, 0, >), comparison(Value1, Value3, >=). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5296). /* d_pre([ not(terminates(transfer(Account1, Account2, Value3), balance(Account1,Value1))), balance(Account1,Value1), balance(Account2,Value2), comparison(Value3,0,>), comparison(Value1,Value3,>=) ]). */ % "% =================================". % [account,time] % Initiates(ChargeServiceFee(account),ServiceFeeCharged(account),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5303). % From E: % % initiates_at( % chargeServiceFee(Account), % serviceFeeCharged(Account), % Time). % [Time]. chargeServiceFee(Account)initiates serviceFeeCharged(Account). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5303). /* initiated(happens(chargeServiceFee(Account), Time_From, Time_Until), serviceFeeCharged(Account), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5305). % [account,time] % Terminates(MonthlyReset(account),ServiceFeeCharged(account),time). % From E: % % terminates_at( % monthlyReset(Account), % serviceFeeCharged(Account), % Time). % [Time]. monthlyReset(Account)terminates serviceFeeCharged(Account). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5305). /* terminated(happens(monthlyReset(Account), Time_From, Time_Until), serviceFeeCharged(Account), []). */ % "% =================================". % [account,value1,value2,time] % HoldsAt(Balance(account,value1),time) & % value2 = (value1-ServiceFee(account)) -> % Initiates(ChargeServiceFee(account), % Balance(account,value2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5309). % From E: % % '->'( % (holds_at(balance(Account,Value1),Time) , % Value2=Value1-serviceFee(Account)), % initiates_at( % chargeServiceFee(Account), % balance(Account,Value2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5309). balance(Account, Value1), Value2=Value1-serviceFee(Account) -> initiates(chargeServiceFee(Account), balance(Account, Value2)). % [account,value,time] % HoldsAt(Balance(account,value),time) -> % Terminates(ChargeServiceFee(account),Balance(account,value),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5316). % From E: % % '->'( % holds_at(balance(Account,Value),Time), % terminates_at( % chargeServiceFee(Account), % balance(Account,Value), % Time)). % [Time]. chargeServiceFee(Account)terminates balance(Account, Value)if balance(Account, Value). /* terminated(happens(chargeServiceFee(Account), Time_From, Time_Until), balance(Account,Value), [holds(balance(Account,Value),Time_From)]). */ % "% =================================". %; Delta % [account,value,time] % HoldsAt(Balance(account,value),time) & % value % Happens(ChargeServiceFee(account),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5321). % From E: % % '->'( % (holds_at(balance(Account,Value),Time) , % '<'( % Value, % minimumBalance(Account)) , % holds_at(not(serviceFeeCharged(Account)),Time)), % happens_at(chargeServiceFee(Account),Time)). % [Time]. false not chargeServiceFee(Account), balance(Account, Value), comparison(Value, minimumBalance(Account), <), not serviceFeeCharged(Account). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5321). /* d_pre([ not(chargeServiceFee(Account)), holds(balance(Account,Value),Time_At), comparison(Value,minimumBalance(Account),<), holds(not(serviceFeeCharged(Account)),Time_At) ]). */ % "% =================================". % [account,time] % EndOfMonth(time) -> % Happens(MonthlyReset(account),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5328). % From E: % % '->'( % endOfMonth(Time), % happens_at(monthlyReset(Account),Time)). % [Time]. if endOfMonth(Time)then happens_at(monthlyReset(Account), Time). /* reactive_rule([endOfMonth(Time)], [happens_at(monthlyReset(Account),Time)]). */ % "% =================================". % Happens(Transfer(Account1,Account2,1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5330). % From E: % % happens_at(transfer(account1,account2,1),0). observe transfer(account1, account2, 1)at 0. % observe([transfer(account1,account2,1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5332). % Happens(Transfer(Account1,Account2,1),0). % From E: % % happens_at(transfer(account1,account2,1),0). observe transfer(account1, account2, 1)at 0. % observe([transfer(account1,account2,1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5334). %; Psi % [account,value1,value2,time] % HoldsAt(Balance(account,value1),time) & % HoldsAt(Balance(account,value2),time) -> % value1=value2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5336). % From E: % % '->'( % (holds_at(balance(Account,Value1),Time) , % holds_at(balance(Account,Value2),Time)), % Value1=Value2). % [Time]. false not equals(Value1, Value2), balance(Account, Value1), balance(Account, Value2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5336). /* d_pre([ not(equals(Value1,Value2)), holds(balance(Account,Value1),Time_At), holds(balance(Account,Value2),Time_At) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5343). % !HoldsAt(ServiceFeeCharged(Account1),0). % From E: % % holds_at(not(serviceFeeCharged(account1)),0). initially not serviceFeeCharged(account1). % initial_state([not(serviceFeeCharged(account1))]). % "% =================================". % !HoldsAt(ServiceFeeCharged(Account2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5343). % From E: % % holds_at(not(serviceFeeCharged(account2)),0). initially not serviceFeeCharged(account2). % initial_state([not(serviceFeeCharged(account2))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5345). % HoldsAt(Balance(Account1,3),0). % From E: % % holds_at(balance(account1,3),0). initially balance(account1, 3). % initial_state([balance(account1,3)]). % "% =================================". % HoldsAt(Balance(Account2,1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5345). % From E: % % holds_at(balance(account2,1),0). initially balance(account2, 1). % initial_state([balance(account2,1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5347). % MinimumBalance(Account1)=3. % From E: % % minimumBalance(account1)=3. minimumBalance(account1,3). % MinimumBalance(Account2)=1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5347). % From E: % % minimumBalance(account2)=1. minimumBalance(account2,1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5349). % ServiceFee(Account1)=1. % From E: % % serviceFee(account1)=1. serviceFee(account1,1). % ServiceFee(Account2)=1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5349). % From E: % % serviceFee(account2)=1. serviceFee(account2,1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5351). % [time] % !EndOfMonth(time). % From E: % % not(endOfMonth(Time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5351). not(endOfMonth(Time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5353). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5355). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range value 1 3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5355). % From E: % % :-call_pel_directive(range(value,1,3)). :- call_pel_directive(range(value, 1, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5357). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Exercises/Counter.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{DeneckerDupreBelleghem:1998, %; author = "Marc Denecker and Daniele Theseider Dupr\'{e} and Kristof Van Belleghem", %; year = "1998", %; title = "An inductive definition approach to ramifications", %; journal = "Link{\"{o}}ping Electronic Articles in Computer and Information Science", %; volume = "3", %; number = "007", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5394). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5394). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5397). % sort counter % From E: % % sort(counter). sort(counter). % counter Counter1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5397). % From E: % % t(counter,counter1). counter(counter1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5400). % event FalseToTrue(counter) % From E: % % event(falseToTrue(counter)). mpred_prop(falseToTrue(counter),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5400). events([falseToTrue/1]). % event TrueToFalse(counter) % From E: % % event(trueToFalse(counter)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5400). mpred_prop(trueToFalse(counter),event). events([trueToFalse/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5403). % fluent Count(counter,integer) % From E: % % fluent(count(counter,integer)). mpred_prop(count(counter,integer),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5403). fluents([count/2]). % fluent True(counter) % From E: % % fluent(true(counter)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5403). mpred_prop(true(counter),fluent). fluents([true/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5405). % fluent InputLine(counter) % From E: % % fluent(inputLine(counter)). mpred_prop(inputLine(counter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5405). fluents([inputLine/1]). % noninertial InputLine % From E: % % :-call_pel_directive(noninertial(inputLine)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5405). :- call_pel_directive(noninertial(inputLine)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5408). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5408). % [counter,time] % !HoldsAt(True(counter),time) & % HoldsAt(InputLine(counter),time) -> % Happens(FalseToTrue(counter),time). % From E: % % '->'( % (holds_at(not(true(Counter)),Time) , % holds_at(inputLine(Counter),Time)), % happens_at(falseToTrue(Counter),Time)). % [Time]. if not true(Counter), inputLine(Counter)then falseToTrue(Counter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5408). /* reactive_rule([not(true(Counter)),inputLine(Counter)], [falseToTrue(Counter)]). */ % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5412). % From E: % % directive(delta). directive(delta). % [counter,time] % HoldsAt(True(counter),time) & % !HoldsAt(InputLine(counter),time) -> % Happens(TrueToFalse(counter),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5414). % From E: % % '->'( % (holds_at(true(Counter),Time) , % holds_at(not(inputLine(Counter)),Time)), % happens_at(trueToFalse(Counter),Time)). % [Time]. if true(Counter), not inputLine(Counter)then trueToFalse(Counter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5414). /* reactive_rule([true(Counter),not(inputLine(Counter))], [trueToFalse(Counter)]). */ % "% =================================". % [counter,time] % Initiates(FalseToTrue(counter),True(counter),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5417). % From E: % % initiates_at( % falseToTrue(Counter), % true(Counter), % Time). % [Time]. falseToTrue(Counter)initiates true(Counter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5417). /* initiated(happens(falseToTrue(Counter), Time_From, Time_Until), true(Counter), []). */ % "% =================================". % [counter,time] % Terminates(TrueToFalse(counter),True(counter),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5419). % From E: % % terminates_at( % trueToFalse(Counter), % true(Counter), % Time). % [Time]. trueToFalse(Counter)terminates true(Counter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5419). /* terminated(happens(trueToFalse(Counter), Time_From, Time_Until), true(Counter), []). */ % "% =================================". % [counter,integer1,integer2,time] % HoldsAt(Count(counter,integer1),time) & % (integer2 = (integer1 + 1)) -> % Initiates(FalseToTrue(counter),Count(counter,integer2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5423). % From E: % % '->'( % (holds_at(count(Counter,Integer1),Time) , % Integer2=Integer1+1), % initiates_at( % falseToTrue(Counter), % count(Counter,Integer2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5423). count(Counter, Integer1), Integer2=Integer1+1 -> initiates(falseToTrue(Counter), count(Counter, Integer2)). % [counter,integer,time] % HoldsAt(Count(counter,integer),time) -> % Terminates(FalseToTrue(counter),Count(counter,integer),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5428). % From E: % % '->'( % holds_at(count(Counter,Integer),Time), % terminates_at( % falseToTrue(Counter), % count(Counter,Integer), % Time)). % [Time]. falseToTrue(Counter)terminates count(Counter, Integer)if count(Counter, Integer). /* terminated(happens(falseToTrue(Counter), Time_From, Time_Until), count(Counter,Integer), [holds(count(Counter,Integer),Time_From)]). */ % "% =================================". % [counter,integer1,integer2,time] % HoldsAt(Count(counter,integer1),time) & % HoldsAt(Count(counter,integer2),time) -> % integer1 = integer2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5432). % From E: % % '->'( % (holds_at(count(Counter,Integer1),Time) , % holds_at(count(Counter,Integer2),Time)), % Integer1=Integer2). % [Time]. false not equals(Integer1, Integer2), count(Counter, Integer1), count(Counter, Integer2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5432). /* d_pre([ not(equals(Integer1,Integer2)), holds(count(Counter,Integer1),Time_At), holds(count(Counter,Integer2),Time_At) ]). */ % "% =================================". % !HoldsAt(True(Counter1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5435). % From E: % % holds_at(not(true(counter1)),0). initially not true(counter1). % initial_state([not(true(counter1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5437). % !HoldsAt(InputLine(Counter1),0). % From E: % % holds_at(not(inputLine(counter1)),0). initially not inputLine(counter1). % initial_state([not(inputLine(counter1))]). % "% =================================". % HoldsAt(InputLine(Counter1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5437). % From E: % % holds_at(inputLine(counter1),1). holds_at(inputLine(counter1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5439). % HoldsAt(InputLine(Counter1),2). % From E: % % holds_at(inputLine(counter1),2). holds_at(inputLine(counter1),2). % HoldsAt(InputLine(Counter1),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5439). % From E: % % holds_at(inputLine(counter1),3). holds_at(inputLine(counter1),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5441). % !HoldsAt(InputLine(Counter1),4). % From E: % % holds_at(not(inputLine(counter1)),4). holds_at(not(inputLine(counter1)),4). % !HoldsAt(InputLine(Counter1),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5441). % From E: % % holds_at(not(inputLine(counter1)),5). holds_at(not(inputLine(counter1)),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5443). % !HoldsAt(InputLine(Counter1),6). % From E: % % holds_at(not(inputLine(counter1)),6). holds_at(not(inputLine(counter1)),6). % HoldsAt(InputLine(Counter1),7). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5443). % From E: % % holds_at(inputLine(counter1),7). holds_at(inputLine(counter1),7). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5445). % HoldsAt(InputLine(Counter1),8). % From E: % % holds_at(inputLine(counter1),8). holds_at(inputLine(counter1),8). % HoldsAt(InputLine(Counter1),9). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5445). % From E: % % holds_at(inputLine(counter1),9). holds_at(inputLine(counter1),9). % HoldsAt(Count(Counter1,0),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5447). % From E: % % holds_at(count(counter1,0),0). initially count(counter1, 0). % initial_state([count(counter1,0)]). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5449). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5452). % range integer 0 6 % From E: % % :-call_pel_directive(range(integer,0,6)). :- call_pel_directive(range(integer, 0, 6)). % range time 0 10 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5452). % From E: % % :-call_pel_directive(range(time,0,10)). :- call_pel_directive(range(time, 0, 10)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5454). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Exercises/TeacherTells.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5482). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5484). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5484). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5487). % sort agent % From E: % % sort(agent). sort(agent). % sort room :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5487). % From E: % % sort(room). sort(room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5489). % sort fact % From E: % % sort(fact). sort(fact). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5491). % agent Teacher, Student % From E: % % t(agent,teacher). agent(teacher). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5491). % From E: % % t(agent,student). agent(student). % room Kitchen, Classroom :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5491). % From E: % % t(room,kitchen). room(kitchen). % From E: % % t(room,classroom). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5491). room(classroom). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5493). % fact Fact1, Fact2 % From E: % % t(fact,fact1). fact(fact1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5493). % From E: % % t(fact,fact2). fact(fact2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5495). % fluent InRoom(agent,room) % From E: % % fluent(inRoom(agent,room)). mpred_prop(inRoom(agent,room),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5495). fluents([inRoom/2]). % fluent ListeningTo(agent,agent) % From E: % % fluent(listeningTo(agent,agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5495). mpred_prop(listeningTo(agent,agent),fluent). fluents([listeningTo/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5497). % fluent Know(agent,fact) % From E: % % fluent(know(agent,fact)). mpred_prop(know(agent,fact),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5497). fluents([know/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5499). % event Tell(agent,agent,fact) % From E: % % event(tell(agent,agent,fact)). events([tell/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5499). mpred_prop(tell(agent,agent,fact),action). actions([tell/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5501). %; Sigma % [agent1,agent2,fact,time] % (% {room} HoldsAt(InRoom(agent1,room),time) & % HoldsAt(InRoom(agent2,room),time)) & % HoldsAt(ListeningTo(agent2,agent1),time) -> % Initiates(Tell(agent1,agent2,fact),Know(agent2,fact),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5503). % From E: % % exists( % [Room], % '->'( % ((holds_at(inRoom(Agent1,Room),Time) , % holds_at(inRoom(Agent2,Room),Time)) , % holds_at(listeningTo(Agent2,Agent1),Time)), % initiates_at( % tell(Agent1,Agent2,Fact), % know(Agent2,Fact), % Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5503). exists([Room], if(initiates(tell(Agent1, Agent2, Fact), know(Agent2, Fact)), ((inRoom(Agent1, Room), inRoom(Agent2, Room)), listeningTo(Agent2, Agent1)))). %; Delta :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5511). % Happens(Tell(Teacher,Student,Fact1),0). % From E: % % happens_at(tell(teacher,student,fact1),0). observe tell(teacher, student, fact1)at 0. % observe([tell(teacher,student,fact1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5513). %; Psi % [agent,room1,room2,time] % HoldsAt(InRoom(agent,room1),time) & % HoldsAt(InRoom(agent,room2),time) -> % room1 = room2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5515). % From E: % % '->'( % (holds_at(inRoom(Agent,Room1),Time) , % holds_at(inRoom(Agent,Room2),Time)), % Room1=Room2). % [Time]. false not equals(Room1, Room2), inRoom(Agent, Room1), inRoom(Agent, Room2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5515). /* d_pre([ not(equals(Room1,Room2)), holds(inRoom(Agent,Room1),Time_At), holds(inRoom(Agent,Room2),Time_At) ]). */ % "% =================================". %; Gamma % [agent,fact] % !HoldsAt(Know(agent,fact),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5522). % From E: % % holds_at(not(know(Agent,Fact)),0). initially not know(Agent, Fact). % initial_state([not(know(Agent,Fact))]). % "% =================================". % [agent1,agent2] % HoldsAt(ListeningTo(agent1,agent2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5522). % From E: % % holds_at(listeningTo(Agent1,Agent2),0). initially listeningTo(Agent1, Agent2). % initial_state([listeningTo(Agent1,Agent2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5524). % [agent] % HoldsAt(InRoom(agent,Classroom),0). % From E: % % holds_at(inRoom(Agent,classroom),0). initially inRoom(Agent, classroom). % initial_state([inRoom(Agent,classroom)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5526). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5528). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5528). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Exercises/MixingPaints.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5557). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5557). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5560). % sort palette % From E: % % sort(palette). sort(palette). % sort color :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5560). % From E: % % sort(color). sort(color). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5563). % palette Palette1 % From E: % % t(palette,palette1). palette(palette1). % color Red, Yellow, Blue, Green :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5563). % From E: % % t(color,red). color(red). % From E: % % t(color,yellow). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5563). color(yellow). % From E: % % t(color,blue). color(blue). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5563). % From E: % % t(color,green). color(green). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5566). % event PlaceOnPalette(palette,color) % From E: % % event(placeOnPalette(palette,color)). mpred_prop(placeOnPalette(palette,color),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5566). events([placeOnPalette/2]). % fluent OnPalette(palette,color) % From E: % % fluent(onPalette(palette,color)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5566). mpred_prop(onPalette(palette,color),fluent). fluents([onPalette/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5569). % [palette,color,time] % !Happens(PlaceOnPalette(palette,Yellow),time) | % !Happens(PlaceOnPalette(palette,Blue),time) -> % Initiates(PlaceOnPalette(palette,color),OnPalette(palette,color),time). % From E: % % '->'( % (not(happens_at(placeOnPalette(Palette,yellow),Time)) ; % not(happens_at(placeOnPalette(Palette,blue),Time))), % initiates_at( % placeOnPalette(Palette,Color), % onPalette(Palette,Color), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5569). false((placeOnPalette(Palette, yellow), placeOnPalette(Palette, blue))) -> initiates(placeOnPalette(Palette, Color), onPalette(Palette, Color)). % [palette,color1,color2,time] % Happens(PlaceOnPalette(palette,Yellow),time) & % color1 = Blue & % color2 = Green -> % Initiates(PlaceOnPalette(palette,color1),OnPalette(palette,color2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5575). % From E: % % '->'( % (happens_at(placeOnPalette(Palette,yellow),Time) , % Color1=blue , % Color2=green), % initiates_at( % placeOnPalette(Palette,Color1), % onPalette(Palette,Color2), % Time)). % [Time]. false not (placeOnPalette(Palette, Color1)initiates onPalette(Palette, Color2)), placeOnPalette(Palette, yellow), equals(Color1, blue), equals(Color2, green). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5575). /* d_pre([ not(initiates(placeOnPalette(Palette,Color1), onPalette(Palette,Color2))), placeOnPalette(Palette,yellow), equals(Color1,blue), equals(Color2,green) ]). */ % "% =================================". % [palette,color1,color2,time] % !(Happens(PlaceOnPalette(palette,Yellow),time) & % Happens(PlaceOnPalette(palette,Blue),time)) & % HoldsAt(OnPalette(palette,color1),time) & % color1 != color2 -> % Terminates(PlaceOnPalette(palette,color2),OnPalette(palette,color1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5581). % From E: % % '->'( % (not( % (happens_at(placeOnPalette(Palette,yellow),Time) , % happens_at(placeOnPalette(Palette,blue),Time))) , % holds_at(onPalette(Palette,Color1),Time) , % Color1\=Color2), % terminates_at( % placeOnPalette(Palette,Color2), % onPalette(Palette,Color1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5581). false((placeOnPalette(Palette, yellow), placeOnPalette(Palette, blue))), onPalette(Palette, Color1), Color1\=Color2 -> terminates(placeOnPalette(Palette, Color2), onPalette(Palette, Color1)). % [palette,color1,color2,time] % Happens(PlaceOnPalette(palette,Yellow),time) & % HoldsAt(OnPalette(palette,color2),time) & % color1 = Blue & % color2 != Green -> % Terminates(PlaceOnPalette(palette,color1),OnPalette(palette,color2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5588). % From E: % % '->'( % (happens_at(placeOnPalette(Palette,yellow),Time) , % holds_at(onPalette(Palette,Color2),Time) , % Color1=blue , % Color2\=green), % terminates_at( % placeOnPalette(Palette,Color1), % onPalette(Palette,Color2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5588). placeOnPalette(Palette, yellow), onPalette(Palette, Color2), Color1=blue, Color2\=green -> terminates(placeOnPalette(Palette, Color1), onPalette(Palette, Color2)). %; state constraint % [palette,color1,color2,time] % HoldsAt(OnPalette(palette,color1),time) & % HoldsAt(OnPalette(palette,color2),time) -> % color1 = color2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5596). % From E: % % '->'( % (holds_at(onPalette(Palette,Color1),Time) , % holds_at(onPalette(Palette,Color2),Time)), % Color1=Color2). % [Time]. false not equals(Color1, Color2), onPalette(Palette, Color1), onPalette(Palette, Color2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5596). /* d_pre([ not(equals(Color1,Color2)), onPalette(Palette,Color1), onPalette(Palette,Color2) ]). */ % "% =================================". %; (1) place green over red :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5602). % HoldsAt(OnPalette(Palette1,Red),0). % From E: % % holds_at(onPalette(palette1,red),0). initially onPalette(palette1, red). % initial_state([onPalette(palette1,red)]). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5602). % From E: % % directive(delta). directive(delta). % Happens(PlaceOnPalette(Palette1,Green),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5602). % From E: % % happens_at(placeOnPalette(palette1,green),0). observe placeOnPalette(palette1, green)at 0. % observe([placeOnPalette(palette1,green)],0). % "% =================================". %; (2) place yellow+blue over green :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5606). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5606). % Happens(PlaceOnPalette(Palette1,Yellow),1). % From E: % % happens_at(placeOnPalette(palette1,yellow),1). observe placeOnPalette(palette1, yellow)at 1. % observe([placeOnPalette(palette1,yellow)],1). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5606). % From E: % % directive(delta). directive(delta). % Happens(PlaceOnPalette(Palette1,Blue),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5606). % From E: % % happens_at(placeOnPalette(palette1,blue),1). observe placeOnPalette(palette1, blue)at 1. % observe([placeOnPalette(palette1,blue)],1). % "% =================================". %; (3) place yellow :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5610). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5610). % Happens(PlaceOnPalette(Palette1,Yellow),2). % From E: % % happens_at(placeOnPalette(palette1,yellow),2). observe placeOnPalette(palette1, yellow)at 2. % observe([placeOnPalette(palette1,yellow)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5612). %; (4) place blue % Delta: % From E: % % directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5612). directive(delta). % Happens(PlaceOnPalette(Palette1,Blue),3). % From E: % % happens_at(placeOnPalette(palette1,blue),3). observe placeOnPalette(palette1, blue)at 3. % observe([placeOnPalette(palette1,blue)],3). % "% =================================". %; (5) place green :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5616). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5616). % Happens(PlaceOnPalette(Palette1,Yellow),4). % From E: % % happens_at(placeOnPalette(palette1,yellow),4). observe placeOnPalette(palette1, yellow)at 4. % observe([placeOnPalette(palette1,yellow)],4). % "% =================================". % Delta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5616). % From E: % % directive(delta). directive(delta). % Happens(PlaceOnPalette(Palette1,Blue),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5616). % From E: % % happens_at(placeOnPalette(palette1,blue),4). observe placeOnPalette(palette1, blue)at 4. % observe([placeOnPalette(palette1,blue)],4). % "% =================================". % completion Delta Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5618). % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). % From E: % % :-call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5618). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5621). % range time 0 5 % From E: % % :-call_pel_directive(range(time,0,5)). :- call_pel_directive(range(time, 0, 5)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5621). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Exercises/SnoozeAlarm.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Example: Alarm Clock with snooze alarm added %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5652). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5652). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5655). % sort agent % From E: % % sort(agent). sort(agent). % sort clock :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5655). % From E: % % sort(clock). sort(clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5658). % fluent Beeping(clock) % From E: % % fluent(beeping(clock)). mpred_prop(beeping(clock),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5658). fluents([beeping/1]). % fluent AlarmTime(clock,time) % From E: % % fluent(alarmTime(clock,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5658). mpred_prop(alarmTime(clock,time),fluent). fluents([alarmTime/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5660). % fluent AlarmOn(clock) % From E: % % fluent(alarmOn(clock)). mpred_prop(alarmOn(clock),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5660). fluents([alarmOn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5662). % event SetAlarmTime(agent,clock,time) % From E: % % event(setAlarmTime(agent,clock,time)). events([setAlarmTime/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5662). mpred_prop(setAlarmTime(agent,clock,time),action). actions([setAlarmTime/3]). % event StartBeeping(clock) % From E: % % event(startBeeping(clock)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5662). mpred_prop(startBeeping(clock),event). events([startBeeping/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5664). % event TurnOnAlarm(agent,clock) % From E: % % event(turnOnAlarm(agent,clock)). events([turnOnAlarm/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5664). mpred_prop(turnOnAlarm(agent,clock),action). actions([turnOnAlarm/2]). % event TurnOffAlarm(agent,clock) % From E: % % event(turnOffAlarm(agent,clock)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5664). events([turnOffAlarm/2]). mpred_prop(turnOffAlarm(agent,clock),action). actions([turnOffAlarm/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5667). % event PressSnooze(agent,clock) % From E: % % event(pressSnooze(agent,clock)). events([pressSnooze/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5667). mpred_prop(pressSnooze(agent,clock),action). actions([pressSnooze/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5669). % agent Nathan % From E: % % t(agent,nathan). agent(nathan). % clock Clock :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5669). % From E: % % t(clock,clock). clock(clock). %; Sigma % [agent,clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % time1!=time2 -> % Initiates(SetAlarmTime(agent,clock,time2),AlarmTime(clock,time2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5674). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % Time1\=Time2), % initiates_at( % setAlarmTime(Agent,Clock,Time2), % alarmTime(Clock,Time2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5674). alarmTime(Clock, Time1), Time1\=Time2 -> initiates(setAlarmTime(Agent, Clock, Time2), alarmTime(Clock, Time2)). % [agent,clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % time1!=time2 -> % Terminates(SetAlarmTime(agent,clock,time2),AlarmTime(clock,time1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5680). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % Time1\=Time2), % terminates_at( % setAlarmTime(Agent,Clock,Time2), % alarmTime(Clock,Time1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5680). alarmTime(Clock, Time1), Time1\=Time2 -> terminates(setAlarmTime(Agent, Clock, Time2), alarmTime(Clock, Time1)). % [agent,clock,time] % Initiates(TurnOnAlarm(agent,clock),AlarmOn(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5685). % From E: % % initiates_at( % turnOnAlarm(Agent,Clock), % alarmOn(Clock), % Time). % [Time]. turnOnAlarm(Agent, Clock)initiates alarmOn(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5685). /* initiated(happens(turnOnAlarm(Agent,Clock), Time_From, Time_Until), alarmOn(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5687). % [agent,clock,time] % Terminates(TurnOffAlarm(agent,clock),AlarmOn(clock),time). % From E: % % terminates_at( % turnOffAlarm(Agent,Clock), % alarmOn(Clock), % Time). % [Time]. turnOffAlarm(Agent, Clock)terminates alarmOn(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5687). /* terminated(happens(turnOffAlarm(Agent,Clock), Time_From, Time_Until), alarmOn(Clock), []). */ % "% =================================". % [clock,time] % Initiates(StartBeeping(clock),Beeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5691). % From E: % % initiates_at( % startBeeping(Clock), % beeping(Clock), % Time). % [Time]. startBeeping(Clock)initiates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5691). /* initiated(happens(startBeeping(Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5693). % [agent,clock,time] % Terminates(TurnOffAlarm(agent,clock),Beeping(clock),time). % From E: % % terminates_at( % turnOffAlarm(Agent,Clock), % beeping(Clock), % Time). % [Time]. turnOffAlarm(Agent, Clock)terminates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5693). /* terminated(happens(turnOffAlarm(Agent,Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". %; added axioms: % [agent,clock,time2,time] % HoldsAt(Beeping(clock),time) & % time2 = time+9 -> % Initiates(PressSnooze(agent,clock),AlarmTime(clock,time2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5698). % From E: % % '->'( % (holds_at(beeping(Clock),Time) , % Time2=Time+9), % initiates_at( % pressSnooze(Agent,Clock), % alarmTime(Clock,Time2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5698). holds_at(beeping(Clock), Time), Time2=Time+9 -> initiates(pressSnooze(Agent, Clock), at(alarmTime(Clock, Time2), Time)). % [agent,clock,time1,time2,time] % HoldsAt(Beeping(clock),time) & % HoldsAt(AlarmTime(clock,time1),time) & % time2 = time+9 & % time1 != time2 -> % Terminates(PressSnooze(agent,clock),AlarmTime(clock,time1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5704). % From E: % % '->'( % (holds_at(beeping(Clock),Time) , % holds_at(alarmTime(Clock,Time1),Time) , % Time2=Time+9 , % Time1\=Time2), % terminates_at( % pressSnooze(Agent,Clock), % alarmTime(Clock,Time1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5704). holds_at(beeping(Clock), Time), holds_at(alarmTime(Clock, Time1), Time), Time2=Time+9, Time1\=Time2 -> terminates(pressSnooze(Agent, Clock), at(alarmTime(Clock, Time1), Time)). % [agent,clock,time] % Terminates(PressSnooze(agent,clock),Beeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5711). % From E: % % terminates_at( % pressSnooze(Agent,Clock), % beeping(Clock), % Time). % [Time]. pressSnooze(Agent, Clock)terminates beeping(Clock). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5711). /* terminated(happens(pressSnooze(Agent,Clock), Time_From, Time_Until), beeping(Clock), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5713). %; Delta % [clock,time] % HoldsAt(AlarmTime(clock,time),time) & % HoldsAt(AlarmOn(clock),time) -> % Happens(StartBeeping(clock),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5715). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time),Time) , % holds_at(alarmOn(Clock),Time)), % happens_at(startBeeping(Clock),Time)). % [Time]. if holds_at(alarmTime(Clock, Time), Time), holds_at(alarmOn(Clock), Time)then happens_at(startBeeping(Clock), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5715). /* reactive_rule([ holds_at(alarmTime(Clock,Time),Time), holds_at(alarmOn(Clock),Time) ], [happens_at(startBeeping(Clock),Time)]). */ % "% =================================". % Happens(SetAlarmTime(Nathan,Clock,2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5719). % From E: % % happens_at(setAlarmTime(nathan,clock,2),0). observe setAlarmTime(nathan, clock, 2)at 0. % observe([setAlarmTime(nathan,clock,2)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5721). % Happens(TurnOnAlarm(Nathan,Clock),1). % From E: % % happens_at(turnOnAlarm(nathan,clock),1). observe turnOnAlarm(nathan, clock)at 1. % observe([turnOnAlarm(nathan,clock)],1). % "% =================================". % Happens(PressSnooze(Nathan,Clock),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5721). % From E: % % happens_at(pressSnooze(nathan,clock),4). observe pressSnooze(nathan, clock)at 4. % observe([pressSnooze(nathan,clock)],4). % "% =================================". %; Psi % [clock,time1,time2,time] % HoldsAt(AlarmTime(clock,time1),time) & % HoldsAt(AlarmTime(clock,time2),time) -> % time1=time2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5726). % From E: % % '->'( % (holds_at(alarmTime(Clock,Time1),Time) , % holds_at(alarmTime(Clock,Time2),Time)), % Time1=Time2). % [Time]. false not equals(Time1, Time2), alarmTime(Clock, Time1), alarmTime(Clock, Time2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5726). /* d_pre([ not(equals(Time1,Time2)), alarmTime(Clock,Time1), alarmTime(Clock,Time2) ]). */ % "% =================================". %; Gamma :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5733). % !HoldsAt(AlarmOn(Clock),0). % From E: % % holds_at(not(alarmOn(clock)),0). initially not alarmOn(clock). % initial_state([not(alarmOn(clock))]). % "% =================================". % !HoldsAt(Beeping(Clock),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5733). % From E: % % holds_at(not(beeping(clock)),0). initially not beeping(clock). % initial_state([not(beeping(clock))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5735). % HoldsAt(AlarmTime(Clock,3),0). % From E: % % holds_at(alarmTime(clock,3),0). initially alarmTime(clock, 3). % initial_state([alarmTime(clock,3)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5737). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5739). % range time 0 15 % From E: % % :-call_pel_directive(range(time,0,15)). :- call_pel_directive(range(time, 0, 15)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5739). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Exercises/TelephoneBugs.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Example: Telephone %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5770). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5770). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5773). % sort agent % From E: % % sort(agent). sort(agent). % sort phone :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5773). % From E: % % sort(phone). sort(phone). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5776). % agent Agent1, Agent2 % From E: % % t(agent,agent1). agent(agent1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5776). % From E: % % t(agent,agent2). agent(agent2). % phone Phone1, Phone2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5776). % From E: % % t(phone,phone1). phone(phone1). % From E: % % t(phone,phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5776). phone(phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5779). % fluent Ringing(phone,phone) % From E: % % fluent(ringing(phone,phone)). mpred_prop(ringing(phone,phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5779). fluents([ringing/2]). % fluent DialTone(phone) % From E: % % fluent(dialTone(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5779). mpred_prop(dialTone(phone),fluent). fluents([dialTone/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5781). % fluent BusySignal(phone) % From E: % % fluent(busySignal(phone)). mpred_prop(busySignal(phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5781). fluents([busySignal/1]). % fluent Idle(phone) % From E: % % fluent(idle(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5781). mpred_prop(idle(phone),fluent). fluents([idle/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5783). % fluent Connected(phone,phone) % From E: % % fluent(connected(phone,phone)). mpred_prop(connected(phone,phone),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5783). fluents([connected/2]). % fluent Disconnected(phone) % From E: % % fluent(disconnected(phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5783). mpred_prop(disconnected(phone),fluent). fluents([disconnected/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5786). % event PickUp(agent,phone) % From E: % % event(pickUp(agent,phone)). events([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5786). mpred_prop(pickUp(agent,phone),action). actions([pickUp/2]). % event SetDown(agent,phone) % From E: % % event(setDown(agent,phone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5786). events([setDown/2]). mpred_prop(setDown(agent,phone),action). actions([setDown/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5788). % event Dial(agent,phone,phone) % From E: % % event(dial(agent,phone,phone)). events([dial/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5788). mpred_prop(dial(agent,phone,phone),action). actions([dial/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5790). %; Sigma % [agent,phone,time] % HoldsAt(Idle(phone),time) -> % Initiates(PickUp(agent,phone),DialTone(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5792). % From E: % % '->'( % holds_at(idle(Phone),Time), % initiates_at( % pickUp(Agent,Phone), % dialTone(Phone), % Time)). % [Time]. pickUp(Agent, Phone)initiates dialTone(Phone)if idle(Phone). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5792). /* initiated(happens(pickUp(Agent,Phone), Time_From, Time_Until), dialTone(Phone), [holds(idle(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Idle(phone),time) -> % Terminates(PickUp(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5797). % From E: % % '->'( % holds_at(idle(Phone),Time), % terminates_at( % pickUp(Agent,Phone), % idle(Phone), % Time)). % [Time]. pickUp(Agent, Phone)terminates idle(Phone)if idle(Phone). /* terminated(happens(pickUp(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(idle(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(DialTone(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5801). % From E: % % '->'( % holds_at(dialTone(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if dialTone(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(dialTone(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(DialTone(phone),time) -> % Terminates(SetDown(agent,phone),DialTone(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5805). % From E: % % '->'( % holds_at(dialTone(Phone),Time), % terminates_at( % setDown(Agent,Phone), % dialTone(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates dialTone(Phone)if dialTone(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), dialTone(Phone), [holds(dialTone(Phone),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Initiates(Dial(agent,phone1,phone2),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5809). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % initiates_at( % dial(Agent,Phone1,Phone2), % ringing(Phone1,Phone2), % Time)). % [Time]. dial(Agent, Phone1, Phone2)initiates ringing(Phone1, Phone2)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5809). /* initiated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), ringing(Phone1,Phone2), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),DialTone(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5814). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % dialTone(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates dialTone(Phone1)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5814). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), dialTone(Phone1), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5819). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(idle(Phone2),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % idle(Phone2), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates idle(Phone2)if dialTone(Phone1), idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5819). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), idle(Phone2), [ holds(dialTone(Phone1),Time_From), holds(idle(Phone2),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % !HoldsAt(Idle(phone2),time) -> % Initiates(Dial(agent,phone1,phone2),BusySignal(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5824). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(not(idle(Phone2)),Time)), % initiates_at( % dial(Agent,Phone1,Phone2), % busySignal(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)initiates busySignal(Phone1)if dialTone(Phone1), not idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5824). /* initiated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), busySignal(Phone1), [ holds(dialTone(Phone1),Time_From), holds(not(idle(Phone2)),Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(DialTone(phone1),time) & % !HoldsAt(Idle(phone2),time) -> % Terminates(Dial(agent,phone1,phone2),DialTone(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5829). % From E: % % '->'( % (holds_at(dialTone(Phone1),Time) , % holds_at(not(idle(Phone2)),Time)), % terminates_at( % dial(Agent,Phone1,Phone2), % dialTone(Phone1), % Time)). % [Time]. dial(Agent, Phone1, Phone2)terminates dialTone(Phone1)if dialTone(Phone1), not idle(Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5829). /* terminated(happens(dial(Agent,Phone1,Phone2), Time_From, Time_Until), dialTone(Phone1), [ holds(dialTone(Phone1),Time_From), holds(not(idle(Phone2)),Time_From) ]). */ % "% =================================". % [agent,phone,time] % HoldsAt(BusySignal(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5834). % From E: % % '->'( % holds_at(busySignal(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if busySignal(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(busySignal(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(BusySignal(phone),time) -> % Terminates(SetDown(agent,phone),BusySignal(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5838). % From E: % % '->'( % holds_at(busySignal(Phone),Time), % terminates_at( % setDown(Agent,Phone), % busySignal(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates busySignal(Phone)if busySignal(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), busySignal(Phone), [holds(busySignal(Phone),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5842). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone1), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone1)if ringing(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone1), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5846). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone2), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone2)if ringing(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Terminates(SetDown(agent,phone1),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5850). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone1), % ringing(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone1)terminates ringing(Phone1, Phone2)if ringing(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone1), Time_From, Time_Until), ringing(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Initiates(PickUp(agent,phone2),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5854). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % initiates_at( % pickUp(Agent,Phone2), % connected(Phone1,Phone2), % Time)). % [Time]. pickUp(Agent, Phone2)initiates connected(Phone1, Phone2)if ringing(Phone1, Phone2). /* initiated(happens(pickUp(Agent,Phone2), Time_From, Time_Until), connected(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) -> % Terminates(PickUp(agent,phone2),Ringing(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5858). % From E: % % '->'( % holds_at(ringing(Phone1,Phone2),Time), % terminates_at( % pickUp(Agent,Phone2), % ringing(Phone1,Phone2), % Time)). % [Time]. pickUp(Agent, Phone2)terminates ringing(Phone1, Phone2)if ringing(Phone1, Phone2). /* terminated(happens(pickUp(Agent,Phone2), Time_From, Time_Until), ringing(Phone1,Phone2), [holds(ringing(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Idle(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5862). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % idle(Phone1), % Time)). % [Time]. setDown(Agent, Phone1)initiates idle(Phone1)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), idle(Phone1), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone1),Disconnected(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5866). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone1), % disconnected(Phone2), % Time)). % [Time]. setDown(Agent, Phone1)initiates disconnected(Phone2)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone1), Time_From, Time_Until), disconnected(Phone2), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Terminates(SetDown(agent,phone1),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5870). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone1), % connected(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone1)terminates connected(Phone1, Phone2)if connected(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone1), Time_From, Time_Until), connected(Phone1,Phone2), [ holds(connected(Phone1,Phone2), Time_From) ]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone2),Idle(phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5874). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone2), % idle(Phone2), % Time)). % [Time]. setDown(Agent, Phone2)initiates idle(Phone2)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone2), Time_From, Time_Until), idle(Phone2), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Initiates(SetDown(agent,phone2),Disconnected(phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5878). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % initiates_at( % setDown(Agent,Phone2), % disconnected(Phone1), % Time)). % [Time]. setDown(Agent, Phone2)initiates disconnected(Phone1)if connected(Phone1, Phone2). /* initiated(happens(setDown(Agent,Phone2), Time_From, Time_Until), disconnected(Phone1), [holds(connected(Phone1,Phone2),Time_From)]). */ % "% =================================". % [agent,phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) -> % Terminates(SetDown(agent,phone2),Connected(phone1,phone2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5882). % From E: % % '->'( % holds_at(connected(Phone1,Phone2),Time), % terminates_at( % setDown(Agent,Phone2), % connected(Phone1,Phone2), % Time)). % [Time]. setDown(Agent, Phone2)terminates connected(Phone1, Phone2)if connected(Phone1, Phone2). /* terminated(happens(setDown(Agent,Phone2), Time_From, Time_Until), connected(Phone1,Phone2), [ holds(connected(Phone1,Phone2), Time_From) ]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Disconnected(phone),time) -> % Initiates(SetDown(agent,phone),Idle(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5886). % From E: % % '->'( % holds_at(disconnected(Phone),Time), % initiates_at( % setDown(Agent,Phone), % idle(Phone), % Time)). % [Time]. setDown(Agent, Phone)initiates idle(Phone)if disconnected(Phone). /* initiated(happens(setDown(Agent,Phone), Time_From, Time_Until), idle(Phone), [holds(disconnected(Phone),Time_From)]). */ % "% =================================". % [agent,phone,time] % HoldsAt(Disconnected(phone),time) -> % Terminates(SetDown(agent,phone),Disconnected(phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5890). % From E: % % '->'( % holds_at(disconnected(Phone),Time), % terminates_at( % setDown(Agent,Phone), % disconnected(Phone), % Time)). % [Time]. setDown(Agent, Phone)terminates disconnected(Phone)if disconnected(Phone). /* terminated(happens(setDown(Agent,Phone), Time_From, Time_Until), disconnected(Phone), [holds(disconnected(Phone),Time_From)]). */ % "% =================================". %; Delta %; (1) Two agents dial each other simultaneously without first %; picking up phone. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5897). % Happens(Dial(Agent1,Phone1,Phone2),0). % From E: % % happens_at(dial(agent1,phone1,phone2),0). observe dial(agent1, phone1, phone2)at 0. % observe([dial(agent1,phone1,phone2)],0). % "% =================================". % Happens(Dial(Agent2,Phone2,Phone1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5897). % From E: % % happens_at(dial(agent2,phone2,phone1),0). observe dial(agent2, phone2, phone1)at 0. % observe([dial(agent2,phone2,phone1)],0). % "% =================================". %; (2) Two agents dial each other simultaneously. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5901). % Happens(PickUp(Agent1,Phone1),1). % From E: % % happens_at(pickUp(agent1,phone1),1). observe pickUp(agent1, phone1)at 1. % observe([pickUp(agent1,phone1)],1). % "% =================================". % Happens(PickUp(Agent2,Phone2),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5901). % From E: % % happens_at(pickUp(agent2,phone2),1). observe pickUp(agent2, phone2)at 1. % observe([pickUp(agent2,phone2)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5903). % Happens(Dial(Agent1,Phone1,Phone2),2). % From E: % % happens_at(dial(agent1,phone1,phone2),2). observe dial(agent1, phone1, phone2)at 2. % observe([dial(agent1,phone1,phone2)],2). % "% =================================". % Happens(Dial(Agent2,Phone2,Phone1),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5903). % From E: % % happens_at(dial(agent2,phone2,phone1),2). observe dial(agent2, phone2, phone1)at 2. % observe([dial(agent2,phone2,phone1)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5905). % Happens(SetDown(Agent1,Phone1),3). % From E: % % happens_at(setDown(agent1,phone1),3). observe setDown(agent1, phone1)at 3. % observe([setDown(agent1,phone1)],3). % "% =================================". % Happens(SetDown(Agent2,Phone2),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5905). % From E: % % happens_at(setDown(agent2,phone2),3). observe setDown(agent2, phone2)at 3. % observe([setDown(agent2,phone2)],3). % "% =================================". %; (3) One agent dials another agent just as the other %; agent picks up the phone. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5910). % Happens(PickUp(Agent1,Phone1),4). % From E: % % happens_at(pickUp(agent1,phone1),4). observe pickUp(agent1, phone1)at 4. % observe([pickUp(agent1,phone1)],4). % "% =================================". % Happens(Dial(Agent1,Phone1,Phone2),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5910). % From E: % % happens_at(dial(agent1,phone1,phone2),5). observe dial(agent1, phone1, phone2)at 5. % observe([dial(agent1,phone1,phone2)],5). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5912). % Happens(PickUp(Agent2,Phone2),5). % From E: % % happens_at(pickUp(agent2,phone2),5). observe pickUp(agent2, phone2)at 5. % observe([pickUp(agent2,phone2)],5). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5914). %; Psi % [phone,time] % !HoldsAt(Ringing(phone,phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5916). % From E: % % holds_at(not(ringing(Phone,Phone)),Time). % [Time]. not ringing(Phone, Phone). % l_int(holds(not(ringing(Phone,Phone)),Time_At),[]). % "% =================================". % [phone1,phone2,time] % HoldsAt(Ringing(phone1,phone2),time) & % phone1!=phone2 -> % !HoldsAt(Ringing(phone2,phone1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5920). % From E: % % '->'( % (holds_at(ringing(Phone1,Phone2),Time) , % Phone1\=Phone2), % holds_at(not(ringing(Phone2,Phone1)),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5920). ringing(Phone1, Phone2), Phone1\=Phone2 -> not(ringing(Phone2, Phone1)). % [phone,time] % !HoldsAt(Connected(phone,phone),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5925). % From E: % % holds_at(not(connected(Phone,Phone)),Time). % [Time]. not connected(Phone, Phone). % l_int(holds(not(connected(Phone,Phone)),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5927). % [phone1,phone2,time] % HoldsAt(Connected(phone1,phone2),time) & % phone1!=phone2 -> % !HoldsAt(Connected(phone2,phone1),time). % From E: % % '->'( % (holds_at(connected(Phone1,Phone2),Time) , % Phone1\=Phone2), % holds_at(not(connected(Phone2,Phone1)),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5927). connected(Phone1, Phone2), Phone1\=Phone2 -> not(connected(Phone2, Phone1)). % mutex Idle, DialTone, BusySignal, Disconnected :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5931). % From E: % % :-call_pel_directive(mutex(idle)). :- call_pel_directive(mutex(idle)). % From E: % % :-call_pel_directive(mutex(dialTone)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5931). :- call_pel_directive(mutex(dialTone)). % From E: % % :-call_pel_directive(mutex(busySignal)). :- call_pel_directive(mutex(busySignal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5931). % From E: % % :-call_pel_directive(mutex(disconnected)). :- call_pel_directive(mutex(disconnected)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5934). % [phone1,phone2,time] % HoldsAt(Idle(phone1),time) -> % !HoldsAt(Ringing(phone1,phone2),time) & % !HoldsAt(Connected(phone1,phone2),time). % From E: % % '->'( % holds_at(idle(Phone1),Time), % (holds_at(not(ringing(Phone1,Phone2)),Time) , % holds_at(not(connected(Phone1,Phone2)),Time))). % [Time]. if idle(Phone1)then not ringing(Phone1, Phone2), not connected(Phone1, Phone2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5934). /* reactive_rule([holds(idle(Phone1),Time_At)], [ holds(not(ringing(Phone1,Phone2)), Time_At4), holds(not(connected(Phone1,Phone2)), Time_At4) ]). */ % "% =================================". %; contradicts (3) above: %;[phone1,phone2,time] %;HoldsAt(DialTone(phone2),time) -> %;!HoldsAt(Ringing(phone1,phone2),time) & %;!HoldsAt(Connected(phone1,phone2),time). %; etc. %; Gamma % [phone] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5949). % HoldsAt(Idle(phone),0). % From E: % % holds_at(idle(Phone),0). initially idle(Phone). % initial_state([idle(Phone)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5951). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5953). % range time 0 6 % From E: % % :-call_pel_directive(range(time,0,6)). :- call_pel_directive(range(time, 0, 6)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5953). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter11/HungryCat.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{WinikoffEtAl:2002, %; author = "Michael Winikoff and Lin Padgham and James Harland and John Thangarajah", %; year = "2002", %; title = "Declarative \& procedural goals in intelligent agent systems", %; editor = "Dieter Fensel and Fausto Giunchiglia and Deborah McGuinness and Mary-Anne Williams", %; booktitle = "\uppercase{P}roceedings of the \uppercase{E}ighth \uppercase{I}nternational \uppercase{C}onference on \uppercase{P}rinciples of \uppercase{K}nowledge \uppercase{R}epresentation and \uppercase{R}easoning", %; pages = "470--481", %; address = "San Francisco", %; publisher = "Morgan Kaufmann", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5993). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5993). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5996). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5996). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5998). % sort food: object % From E: % % subsort(food,object). subsort(food,object). % sort surface :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',5998). % From E: % % sort(surface). sort(surface). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6000). % sort plan % From E: % % sort(plan). sort(plan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6002). % reified sort belief % From E: % % reified_sort(belief). reified_sorts([belief/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6004). % agent Cat % From E: % % t(agent,cat). agent(cat). % surface Floor, Chair, Shelf, Table :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6004). % From E: % % t(surface,floor). surface(floor). % l_events(happens(surface(floor),Time_From,Time_Until),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6004). % From E: % % t(surface,chair). surface(chair). % l_events(happens(surface(chair),Time_From2,Time_Until3),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6004). % From E: % % t(surface,shelf). surface(shelf). % l_events(happens(surface(shelf),Time_From4,Time_Until5),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6004). % From E: % % t(surface,table). surface(table). % l_events(happens(surface(table),Time_From6,Time_Until7),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6006). % food Food1, Food2 % From E: % % t(food,food1). food(food1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6006). % From E: % % t(food,food2). food(food2). % plan P1, P1a, P1b, P2, P2a :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6006). % From E: % % t(plan,p1). plan(p1). % From E: % % t(plan,p1a). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6006). plan(p1a). % From E: % % t(plan,p1b). plan(p1b). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6006). % From E: % % t(plan,p2). plan(p2). % From E: % % t(plan,p2a). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6006). plan(p2a). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6009). % predicate SelectedPlan(agent,belief,plan,time) % From E: % % predicate(selectedPlan(agent,belief,plan,time)). mpred_prop(selectedPlan(agent,belief,plan,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6009). predicates([selectedPlan/4]). % predicate SoundPlan(agent,belief,plan,time) % From E: % % predicate(soundPlan(agent,belief,plan,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6009). mpred_prop(soundPlan(agent,belief,plan,time),predicate). predicates([soundPlan/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6012). % fluent On(object,surface) % From E: % % fluent(on(object,surface)). mpred_prop(on(object,surface),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6012). fluents([on/2]). % fluent Goal(agent,belief) % From E: % % fluent(goal(agent,belief)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6012). mpred_prop(goal(agent,belief),fluent). fluents([goal/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6014). % fluent CanJump(surface,surface) % From E: % % fluent(canJump(surface,surface)). mpred_prop(canJump(surface,surface),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6014). fluents([canJump/2]). % fluent Plan(agent,belief,plan) % From E: % % fluent(plan(agent,belief,plan)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6014). mpred_prop(plan(agent,belief,plan),fluent). fluents([plan/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6016). % fluent Satiated(agent) % From E: % % fluent(satiated(agent)). mpred_prop(satiated(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6016). fluents([satiated/1]). % fluent Believe(agent,belief) % From E: % % fluent(believe(agent,belief)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6016). mpred_prop(believe(agent,belief),fluent). fluents([believe/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6019). % event AddPlan(agent,belief,plan) % From E: % % event(addPlan(agent,belief,plan)). events([addPlan/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6019). mpred_prop(addPlan(agent,belief,plan),action). actions([addPlan/3]). % event DropPlan(agent,belief,plan) % From E: % % event(dropPlan(agent,belief,plan)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6019). events([dropPlan/3]). mpred_prop(dropPlan(agent,belief,plan),action). actions([dropPlan/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6021). % event Jump(agent,surface,surface) % From E: % % event(jump(agent,surface,surface)). events([jump/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6021). mpred_prop(jump(agent,surface,surface),action). actions([jump/3]). % event Move(surface,surface,surface) % From E: % % event(move(surface,surface,surface)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6021). mpred_prop(move(surface,surface,surface),event). events([move/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6023). % event Eat(agent,food) % From E: % % event(eat(agent,food)). events([eat/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6023). mpred_prop(eat(agent,food),action). actions([eat/2]). % event Wait(agent) % From E: % % event(wait(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6023). events([wait/1]). mpred_prop(wait(agent),action). actions([wait/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6026). % belief BSatiated(agent) % From E: % % t( % belief, % bSatiated(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6026). belief(bSatiated(agent)). % belief BCanJump(surface,surface) % From E: % % t( % belief, % bCanJump(surface,surface)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6026). belief(bCanJump(surface,surface)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6028). % belief BOn(object,surface) % From E: % % t( % belief, % bOn(object,surface)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6028). belief(bOn(object,surface)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6030). %; Sigma %; A5 % [agent,belief,plan,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6034). % Initiates(AddPlan(agent,belief,plan),Plan(agent,belief,plan),time). % From E: % % initiates_at( % addPlan(Agent,Belief,Plan), % plan(Agent,Belief,Plan), % Time). % [Time]. addPlan(Agent, Belief, Plan)initiates plan(Agent, Belief, Plan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6034). /* initiated(happens(addPlan(Agent,Belief,Plan), Time_From, Time_Until), plan(Agent,Belief,Plan), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6036). %; A6 % [agent,belief,plan,time] % Terminates(DropPlan(agent,belief,plan),Plan(agent,belief,plan),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6038). % From E: % % terminates_at( % dropPlan(Agent,Belief,Plan), % plan(Agent,Belief,Plan), % Time). % [Time]. dropPlan(Agent, Belief, Plan)terminates plan(Agent, Belief, Plan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6038). /* terminated(happens(dropPlan(Agent,Belief,Plan), Time_From, Time_Until), plan(Agent,Belief,Plan), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6040). % [agent,surface1,surface2,time] % HoldsAt(On(agent,surface1),time) & % HoldsAt(CanJump(surface1,surface2),time) -> % Initiates(Jump(agent,surface1,surface2),On(agent,surface2),time). % From E: % % '->'( % (holds_at(on(Agent,Surface1),Time) , % holds_at(canJump(Surface1,Surface2),Time)), % initiates_at( % jump(Agent,Surface1,Surface2), % on(Agent,Surface2), % Time)). % [Time]. jump(Agent, Surface1, Surface2)initiates on(Agent, Surface2)if on(Agent, Surface1), canJump(Surface1, Surface2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6040). /* initiated(happens(jump(Agent,Surface1,Surface2), Time_From, Time_Until), on(Agent,Surface2), [ holds(on(Agent,Surface1),Time_From), canJump(Surface1,Surface2) ]). */ % "% =================================". % [agent,surface1,surface2,time] % HoldsAt(On(agent,surface1),time) & % HoldsAt(CanJump(surface1,surface2),time) -> % Terminates(Jump(agent,surface1,surface2),On(agent,surface1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6046). % From E: % % '->'( % (holds_at(on(Agent,Surface1),Time) , % holds_at(canJump(Surface1,Surface2),Time)), % terminates_at( % jump(Agent,Surface1,Surface2), % on(Agent,Surface1), % Time)). % [Time]. jump(Agent, Surface1, Surface2)terminates on(Agent, Surface1)if on(Agent, Surface1), canJump(Surface1, Surface2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6046). /* terminated(happens(jump(Agent,Surface1,Surface2), Time_From, Time_Until), on(Agent,Surface1), [ holds(on(Agent,Surface1),Time_From), canJump(Surface1,Surface2) ]). */ % "% =================================". % [surface1,surface2,surface3,time] % Initiates(Move(surface1,surface2,surface3),CanJump(surface1,surface3),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6051). % From E: % % initiates_at( % move(Surface1,Surface2,Surface3), % canJump(Surface1,Surface3), % Time). % [Time]. move(Surface1, Surface2, Surface3)initiates canJump(Surface1, Surface3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6051). /* initiated(happens(move(Surface1,Surface2,Surface3), Time_From, Time_Until), canJump(Surface1,Surface3), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6053). % [surface1,surface2,surface3,time] % Terminates(Move(surface1,surface2,surface3),CanJump(surface1,surface2),time). % From E: % % terminates_at( % move(Surface1,Surface2,Surface3), % canJump(Surface1,Surface2), % Time). % [Time]. move(Surface1, Surface2, Surface3)terminates canJump(Surface1, Surface2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6053). /* terminated(happens(move(Surface1,Surface2,Surface3), Time_From, Time_Until), canJump(Surface1,Surface2), []). */ % "% =================================". % [agent,food,surface,time] % HoldsAt(On(agent,surface),time) & % HoldsAt(On(food,surface),time) -> % Initiates(Eat(agent,food),Satiated(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6057). % From E: % % '->'( % (holds_at(on(Agent,Surface),Time) , % holds_at(on(Food,Surface),Time)), % initiates_at( % eat(Agent,Food), % satiated(Agent), % Time)). % [Time]. eat(Agent, Food)initiates satiated(Agent)if on(Agent, Surface), on(Food, Surface). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6057). /* initiated(happens(eat(Agent,Food), Time_From, Time_Until), satiated(Agent), [ holds(on(Agent,Surface),Time_From), holds(on(Food,Surface),Time_From) ]). */ % "% =================================". % [agent,food,surface,time] % HoldsAt(On(agent,surface),time) & % HoldsAt(On(food,surface),time) -> % Terminates(Eat(agent,food),On(food,surface),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6062). % From E: % % '->'( % (holds_at(on(Agent,Surface),Time) , % holds_at(on(Food,Surface),Time)), % terminates_at( % eat(Agent,Food), % on(Food,Surface), % Time)). % [Time]. eat(Agent, Food)terminates on(Food, Surface)if on(Agent, Surface), on(Food, Surface). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6062). /* terminated(happens(eat(Agent,Food), Time_From, Time_Until), on(Food,Surface), [ holds(on(Agent,Surface),Time_From), holds(on(Food,Surface),Time_From) ]). */ % "% =================================". % [agent,surface1,surface2,belief,time] % HoldsAt(Believe(agent,BOn(agent,surface1)),time) & % HoldsAt(Believe(agent,BCanJump(surface1,surface2)),time) & % (belief = BOn(agent,surface2)) -> % Initiates(Jump(agent,surface1,surface2), % Believe(agent,belief), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6067). % From E: % % '->'( % (holds_at(believe(Agent,bOn(Agent,Surface1)),Time) , % holds_at(believe(Agent,bCanJump(Surface1,Surface2)),Time) , % '='( % Belief, % bOn(Agent,Surface2))), % initiates_at( % jump(Agent,Surface1,Surface2), % believe(Agent,Belief), % Time)). % [Time]. false not (jump(Agent, Surface1, Surface2)initiates believe(Agent, Belief)), believe(Agent, bOn(Agent, Surface1)), believe(Agent, bCanJump(Surface1, Surface2)), equals(Belief, bOn(Agent, Surface2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6067). /* d_pre([ not(initiates(jump(Agent,Surface1,Surface2), believe(Agent,Belief))), believe(Agent,bOn(Agent,Surface1)), believe(Agent,bCanJump(Surface1,Surface2)), equals(Belief,bOn(Agent,Surface2)) ]). */ % "% =================================". % [agent,surface1,surface2,belief,time] % HoldsAt(Believe(agent,BOn(agent,surface1)),time) & % HoldsAt(Believe(agent,BCanJump(surface1,surface2)),time) & % (belief = BOn(agent,surface1)) -> % Terminates(Jump(agent,surface1,surface2), % Believe(agent,belief), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6075). % From E: % % '->'( % (holds_at(believe(Agent,bOn(Agent,Surface1)),Time) , % holds_at(believe(Agent,bCanJump(Surface1,Surface2)),Time) , % '='( % Belief, % bOn(Agent,Surface1))), % terminates_at( % jump(Agent,Surface1,Surface2), % believe(Agent,Belief), % Time)). % [Time]. false not (jump(Agent, Surface1, Surface2)terminates believe(Agent, Belief)), believe(Agent, bOn(Agent, Surface1)), believe(Agent, bCanJump(Surface1, Surface2)), equals(Belief, bOn(Agent, Surface1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6075). /* d_pre([ not(terminates(jump(Agent,Surface1,Surface2), believe(Agent,Belief))), believe(Agent,bOn(Agent,Surface1)), believe(Agent,bCanJump(Surface1,Surface2)), equals(Belief,bOn(Agent,Surface1)) ]). */ % "% =================================". % [agent,surface1,surface2,surface3,belief,time] % (belief = BCanJump(surface1,surface3)) -> % Initiates(Move(surface1,surface2,surface3), % Believe(agent,belief), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6083). % From E: % % '->'( % '='( % Belief, % bCanJump(Surface1,Surface3)), % initiates_at( % move(Surface1,Surface2,Surface3), % believe(Agent,Belief), % Time)). % [Time]. false not (move(Surface1, Surface2, Surface3)initiates believe(Agent, Belief)), equals(Belief, bCanJump(Surface1, Surface3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6083). /* d_pre([ not(initiates(move(Surface1, Surface2, Surface3), believe(Agent,Belief))), equals(Belief,bCanJump(Surface1,Surface3)) ]). */ % "% =================================". % [agent,surface1,surface2,surface3,belief,time] % (belief = BCanJump(surface1,surface2)) -> % Terminates(Move(surface1,surface2,surface3), % Believe(agent,belief), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6089). % From E: % % '->'( % '='( % Belief, % bCanJump(Surface1,Surface2)), % terminates_at( % move(Surface1,Surface2,Surface3), % believe(Agent,Belief), % Time)). % [Time]. false not (move(Surface1, Surface2, Surface3)terminates believe(Agent, Belief)), equals(Belief, bCanJump(Surface1, Surface2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6089). /* d_pre([ not(terminates(move(Surface1, Surface2, Surface3), believe(Agent,Belief))), equals(Belief,bCanJump(Surface1,Surface2)) ]). */ % "% =================================". % [agent,food,surface,belief,time] % HoldsAt(Believe(agent,BOn(agent,surface)),time) & % HoldsAt(Believe(agent,BOn(food,surface)),time) & % (belief = BSatiated(agent)) -> % Initiates(Eat(agent,food),Believe(agent,belief),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6095). % From E: % % '->'( % (holds_at(believe(Agent,bOn(Agent,Surface)),Time) , % holds_at(believe(Agent,bOn(Food,Surface)),Time) , % '='( % Belief, % bSatiated(Agent))), % initiates_at( % eat(Agent,Food), % believe(Agent,Belief), % Time)). % [Time]. false not (eat(Agent, Food)initiates believe(Agent, Belief)), believe(Agent, bOn(Agent, Surface)), believe(Agent, bOn(Food, Surface)), equals(Belief, bSatiated(Agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6095). /* d_pre([ not(initiates(eat(Agent,Food), believe(Agent,Belief))), believe(Agent,bOn(Agent,Surface)), believe(Agent,bOn(Food,Surface)), equals(Belief,bSatiated(Agent)) ]). */ % "% =================================". % [agent,food,surface,belief,time] % HoldsAt(Believe(agent,BOn(agent,surface)),time) & % HoldsAt(Believe(agent,BOn(food,surface)),time) & % (belief = BOn(food,surface)) -> % Terminates(Eat(agent,food),Believe(agent,belief),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6101). % From E: % % '->'( % (holds_at(believe(Agent,bOn(Agent,Surface)),Time) , % holds_at(believe(Agent,bOn(Food,Surface)),Time) , % '='( % Belief, % bOn(Food,Surface))), % terminates_at( % eat(Agent,Food), % believe(Agent,Belief), % Time)). % [Time]. false not (eat(Agent, Food)terminates believe(Agent, Belief)), believe(Agent, bOn(Agent, Surface)), believe(Agent, bOn(Food, Surface)), equals(Belief, bOn(Food, Surface)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6101). /* d_pre([ not(terminates(eat(Agent,Food), believe(Agent,Belief))), believe(Agent,bOn(Agent,Surface)), believe(Agent,bOn(Food,Surface)), equals(Belief,bOn(Food,Surface)) ]). */ % "% =================================". %; Delta %; A7 % [agent,belief,plan,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6110). % HoldsAt(Goal(agent,belief),time) & % !HoldsAt(Believe(agent,belief),time) & % SelectedPlan(agent,belief,plan,time) & % (!{plan1} HoldsAt(Plan(agent,belief,plan1),time)) -> % Happens(AddPlan(agent,belief,plan),time). % From E: % % '->'( % (holds_at(goal(Agent,Belief),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % selectedPlan(Agent,Belief,Plan,Time) , % not( % exists( % [Plan1], % holds_at(plan(Agent,Belief,Plan1),Time)))), % happens_at(addPlan(Agent,Belief,Plan),Time)). % [Time]. if holds_at(goal(Agent, Belief), Time), holds_at(not believe(Agent, Belief), Time), selectedPlan(Agent, Belief, Plan, Time), not holds_at(plan(Agent, Belief, Plan1), Time)then happens_at(addPlan(Agent, Belief, Plan), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6110). /* reactive_rule([ holds_at(goal(Agent,Belief),Time), holds_at(not(believe(Agent,Belief)), Time), selectedPlan(Agent, Belief, Plan, Time), not(holds_at(plan(Agent,Belief,Plan1), Time)) ], [ happens_at(addPlan(Agent,Belief,Plan), Time) ]). */ % "% =================================". %; A8 % [agent,belief,time] % HoldsAt(Plan(agent,belief,P1),time) & % !HoldsAt(Believe(agent,belief),time) & % SoundPlan(agent,belief,P1,time) -> % Happens(Jump(Cat,Floor,Chair),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6117). % From E: % % '->'( % (holds_at(plan(Agent,Belief,p1),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % soundPlan(Agent,Belief,p1,Time)), % happens_at(jump(cat,floor,chair),Time)). % [Time]. if holds_at(plan(Agent, Belief, p1), Time), holds_at(not believe(Agent, Belief), Time), soundPlan(Agent, Belief, p1, Time)then happens_at(jump(cat, floor, chair), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6117). /* reactive_rule([ holds_at(plan(Agent,Belief,p1),Time), holds_at(not(believe(Agent,Belief)), Time), soundPlan(Agent,Belief,p1,Time) ], [happens_at(jump(cat,floor,chair),Time)]). */ % "% =================================". % [agent,belief,time] % HoldsAt(Plan(agent,belief,P1a),time) & % !HoldsAt(Believe(agent,belief),time) & % SoundPlan(agent,belief,P1a,time) -> % Happens(Wait(Cat),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6124). % From E: % % '->'( % (holds_at(plan(Agent,Belief,p1a),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % soundPlan(Agent,Belief,p1a,Time)), % happens_at(wait(cat),Time)). % [Time]. if holds_at(plan(Agent, Belief, p1a), Time), holds_at(not believe(Agent, Belief), Time), soundPlan(Agent, Belief, p1a, Time)then happens_at(wait(cat), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6124). /* reactive_rule([ holds_at(plan(Agent,Belief,p1a),Time), holds_at(not(believe(Agent,Belief)), Time), soundPlan(Agent,Belief,p1a,Time) ], [happens_at(wait(cat),Time)]). */ % "% =================================". % [agent,belief,time] % HoldsAt(Plan(agent,belief,P2),time) & % !HoldsAt(Believe(agent,belief),time) & % SoundPlan(agent,belief,P2,time) -> % Happens(Jump(Cat,Chair,Shelf),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6130). % From E: % % '->'( % (holds_at(plan(Agent,Belief,p2),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % soundPlan(Agent,Belief,p2,Time)), % happens_at(jump(cat,chair,shelf),Time)). % [Time]. if holds_at(plan(Agent, Belief, p2), Time), holds_at(not believe(Agent, Belief), Time), soundPlan(Agent, Belief, p2, Time)then happens_at(jump(cat, chair, shelf), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6130). /* reactive_rule([ holds_at(plan(Agent,Belief,p2),Time), holds_at(not(believe(Agent,Belief)), Time), soundPlan(Agent,Belief,p2,Time) ], [happens_at(jump(cat,chair,shelf),Time)]). */ % "% =================================". %; A9 % [agent,belief,plan,time] % HoldsAt(Plan(agent,belief,plan),time) -> % Happens(DropPlan(agent,belief,plan),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6136). % From E: % % '->'( % holds_at(plan(Agent,Belief,Plan),Time), % happens_at(dropPlan(Agent,Belief,Plan),Time)). % [Time]. dropPlan(Agent, Belief, Plan)if plan(Agent, Belief, Plan). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6136). /* l_events(happens(dropPlan(Agent,Belief,Plan), Time_From, Time_From), [ holds(plan(Agent,Belief,Plan), Time_From) ]). */ % "% =================================". %; A10 % [agent,belief,time] % HoldsAt(Plan(agent,belief,P1),time) & % !HoldsAt(Believe(agent,belief),time) & % SoundPlan(agent,belief,P1,time) -> % Happens(AddPlan(agent,belief,P1a),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6141). % From E: % % '->'( % (holds_at(plan(Agent,Belief,p1),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % soundPlan(Agent,Belief,p1,Time)), % happens_at(addPlan(Agent,Belief,p1a),Time)). % [Time]. if holds_at(plan(Agent, Belief, p1), Time), holds_at(not believe(Agent, Belief), Time), soundPlan(Agent, Belief, p1, Time)then happens_at(addPlan(Agent, Belief, p1a), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6141). /* reactive_rule([ holds_at(plan(Agent,Belief,p1),Time), holds_at(not(believe(Agent,Belief)), Time), soundPlan(Agent,Belief,p1,Time) ], [ happens_at(addPlan(Agent,Belief,p1a), Time) ]). */ % "% =================================". % [agent,belief,time] % HoldsAt(Plan(agent,belief,P1a),time) & % !HoldsAt(Believe(agent,belief),time) & % SoundPlan(agent,belief,P1a,time) -> % Happens(AddPlan(agent,belief,P1b),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6148). % From E: % % '->'( % (holds_at(plan(Agent,Belief,p1a),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % soundPlan(Agent,Belief,p1a,Time)), % happens_at(addPlan(Agent,Belief,p1b),Time)). % [Time]. if holds_at(plan(Agent, Belief, p1a), Time), holds_at(not believe(Agent, Belief), Time), soundPlan(Agent, Belief, p1a, Time)then happens_at(addPlan(Agent, Belief, p1b), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6148). /* reactive_rule([ holds_at(plan(Agent,Belief,p1a),Time), holds_at(not(believe(Agent,Belief)), Time), soundPlan(Agent,Belief,p1a,Time) ], [ happens_at(addPlan(Agent,Belief,p1b), Time) ]). */ % "% =================================". % [agent,belief,time] % HoldsAt(Plan(agent,belief,P2),time) & % !HoldsAt(Believe(agent,belief),time) & % SoundPlan(agent,belief,P2,time) -> % Happens(AddPlan(agent,belief,P2a),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6154). % From E: % % '->'( % (holds_at(plan(Agent,Belief,p2),Time) , % holds_at(not(believe(Agent,Belief)),Time) , % soundPlan(Agent,Belief,p2,Time)), % happens_at(addPlan(Agent,Belief,p2a),Time)). % [Time]. if holds_at(plan(Agent, Belief, p2), Time), holds_at(not believe(Agent, Belief), Time), soundPlan(Agent, Belief, p2, Time)then happens_at(addPlan(Agent, Belief, p2a), Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6154). /* reactive_rule([ holds_at(plan(Agent,Belief,p2),Time), holds_at(not(believe(Agent,Belief)), Time), soundPlan(Agent,Belief,p2,Time) ], [ happens_at(addPlan(Agent,Belief,p2a), Time) ]). */ % "% =================================". %; reactive behavior % [agent,food,surface,time] % !HoldsAt(Satiated(agent),time) & % HoldsAt(On(agent,surface),time) & % HoldsAt(On(food,surface),time) -> % Happens(Eat(agent,food),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6160). % From E: % % '->'( % (holds_at(not(satiated(Agent)),Time) , % holds_at(on(Agent,Surface),Time) , % holds_at(on(Food,Surface),Time)), % happens_at(eat(Agent,Food),Time)). % [Time]. eat(Agent, Food)if not satiated(Agent), on(Agent, Surface), on(Food, Surface). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6160). /* l_events(happens(eat(Agent,Food), Time_From, Time_From), [ holds(not(satiated(Agent)),Time_From), holds(on(Agent,Surface),Time_From), holds(on(Food,Surface),Time_From) ]). */ % "% =================================". %; narrative :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6168). % Happens(Move(Chair,Table,Shelf),2). % From E: % % happens_at(move(chair,table,shelf),2). observe move(chair, table, shelf)at 2. % observe([move(chair,table,shelf)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6170). %; SelectedPlan - plan library %;[agent,belief,plan,time] %;SelectedPlan(agent,belief,plan,time) <-> %;(agent=Cat & belief=BSatiated(Cat) & plan=P1 & time=0) | %;(agent=Cat & belief=BSatiated(Cat) & plan=P2 & time=4). % [agent,belief,plan,time] % SelectedPlan(agent,belief,plan,time) <-> % ({surface1,surface2,surface3,food} % HoldsAt(Believe(agent,BOn(agent,surface1)),time) & % HoldsAt(Believe(agent,BCanJump(surface1,surface2)),time) & % HoldsAt(Believe(agent,BCanJump(surface2,surface3)),time) & % HoldsAt(Believe(agent,BOn(food,surface3)),time) & % belief=BSatiated(agent) & % plan=P1 & % time=0) | % ({surface1,surface2,surface3,food} % HoldsAt(Believe(agent,BOn(agent,surface1)),time) & % HoldsAt(Believe(agent,BCanJump(surface1,surface2)),time) & % HoldsAt(Believe(agent,BCanJump(surface2,surface3)),time) & % HoldsAt(Believe(agent,BOn(food,surface3)),time) & % belief=BSatiated(agent) & % plan=P2 & % time=4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6177). % From E: % % <->( % selectedPlan(Agent,Belief,Plan,Time), % (exists( % [ Surface1, % Surface2, % Surface3, % Food ], % (holds_at(believe(Agent,bOn(Agent,Surface1)),Time) , % holds_at(believe(Agent,bCanJump(Surface1,Surface2)),Time) , % holds_at(believe(Agent,bCanJump(Surface2,Surface3)),Time) , % holds_at(believe(Agent,bOn(Food,Surface3)),Time) , % '='( % Belief, % bSatiated(Agent)) , % Plan=p1 , % Time=0)) ; % exists( % [ Surface18, % Surface29, % Surface310, % Food11 ], % (holds_at(believe(Agent,bOn(Agent,Surface18)),Time) , % holds_at(believe(Agent,bCanJump(Surface18,Surface29)),Time) , % holds_at(believe(Agent,bCanJump(Surface29,Surface310)),Time) , % holds_at(believe(Agent,bOn(Food11,Surface310)),Time) , % '='( % Belief, % bSatiated(Agent)) , % Plan=p2 , % Time=4)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6177). selectedPlan(Agent, Belief, Plan, Time) <-> ( exists([Surface1, Surface2, Surface3, Food], (holds_at(believe(Agent, bOn(Agent, Surface1)), Time), holds_at(believe(Agent, bCanJump(Surface1, Surface2)), Time), holds_at(believe(Agent, bCanJump(Surface2, Surface3)), Time), holds_at(believe(Agent, bOn(Food, Surface3)), Time), Belief=bSatiated(Agent), Plan=p1, Time=0)) ; exists([Surface18, Surface29, Surface310, Food11], (holds_at(believe(Agent, bOn(Agent, Surface18)), Time), holds_at(believe(Agent, bCanJump(Surface18, Surface29)), Time), holds_at(believe(Agent, bCanJump(Surface29, Surface310)), Time), holds_at(believe(Agent, bOn(Food11, Surface310)), Time), Belief=bSatiated(Agent), Plan=p2, Time=4)) ). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6197). %; SoundPlan % [agent,belief,plan,time] % SoundPlan(agent,belief,plan,time) <-> % (plan=P1 -> % HoldsAt(Believe(agent,BCanJump(Floor,Chair)),time) & % HoldsAt(Believe(agent,BCanJump(Chair,Table)),time)) & % ((plan=P1a | plan=P1b) -> % HoldsAt(Believe(agent,BCanJump(Chair,Table)),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6199). % From E: % % <->( % soundPlan(Agent,Belief,Plan,Time), % ('->'( % Plan=p1, % (holds_at(believe(Agent,bCanJump(floor,chair)),Time) , % holds_at(believe(Agent,bCanJump(chair,table)),Time))) , % '->'( % (Plan=p1a ; % Plan=p1b), % holds_at(believe(Agent,bCanJump(chair,table)),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6199). <->(soundPlan(Agent, Belief, Plan, Time), ((Plan=p1->holds_at(believe(Agent, bCanJump(floor, chair)), Time), holds_at(believe(Agent, bCanJump(chair, table)), Time)), (false((not(equals(Plan, p1a)), not(equals(Plan, p1b))))->holds_at(believe(Agent, bCanJump(chair, table)), Time)))). %; Gamma % [agent,belief] % HoldsAt(Goal(agent,belief),0) <-> % (agent=Cat & belief=BSatiated(Cat)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6209). % From E: % % <->( % holds_at(goal(Agent,Belief),0), % (Agent=cat , % '='( % Belief, % bSatiated(cat)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6209). initially(goal(Agent, Belief)) <-> Agent=cat, Belief=bSatiated(cat). % [agent,belief,plan] % !HoldsAt(Plan(agent,belief,plan),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6212). % From E: % % holds_at(not(plan(Agent,Belief,Plan)),0). initially not plan(Agent, Belief, Plan). % initial_state([not(plan(Agent,Belief,Plan))]). % "% =================================". % [object,surface] % HoldsAt(On(object,surface),0) <-> % (object=Cat & surface=Floor) | % (object=Food1 & surface=Table) | % (object=Food2 & surface=Shelf). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6214). % From E: % % <->( % holds_at(on(Object,Surface),0), % ((Object=cat , % Surface=floor) ; % (Object=food1 , % Surface=(table)) ; % (Object=food2 , % Surface=shelf))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6214). initially(on(Object, Surface)) <-> ( Object=cat, Surface=floor ; Object=food1, Surface=(table) ; Object=food2, Surface=shelf ). % [surface1,surface2] % HoldsAt(CanJump(surface1,surface2),0) <-> % (surface1=Floor & surface2=Chair) | % (surface1=Chair & surface2=Table) | % (surface1=Shelf & surface2=Table). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6219). % From E: % % <->( % holds_at(canJump(Surface1,Surface2),0), % ((Surface1=floor , % Surface2=chair) ; % (Surface1=chair , % Surface2=(table)) ; % (Surface1=shelf , % Surface2=(table)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6219). initially(canJump(Surface1, Surface2)) <-> ( Surface1=floor, Surface2=chair ; Surface1=chair, Surface2=(table) ; Surface1=shelf, Surface2=(table) ). % [agent,object,surface] % HoldsAt(Believe(agent,BOn(object,surface)),0) <-> % (agent=Cat & object=Cat & surface=Floor) | % (agent=Cat & object=Food1 & surface=Table). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6226). % From E: % % <->( % holds_at(believe(Agent,bOn(Object,Surface)),0), % ((Agent=cat , % Object=cat , % Surface=floor) ; % (Agent=cat , % Object=food1 , % Surface=(table)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6226). initially(believe(Agent, bOn(Object, Surface))) <-> ( Agent=cat, Object=cat, Surface=floor ; Agent=cat, Object=food1, Surface=(table) ). % [agent,surface1,surface2] % HoldsAt(Believe(agent,BCanJump(surface1,surface2)),0) <-> % (agent=Cat & surface1=Floor & surface2=Chair) | % (agent=Cat & surface1=Chair & surface2=Table) | % (agent=Cat & surface1=Shelf & surface2=Table). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6231). % From E: % % <->( % holds_at(believe(Agent,bCanJump(Surface1,Surface2)),0), % ((Agent=cat , % Surface1=floor , % Surface2=chair) ; % (Agent=cat , % Surface1=chair , % Surface2=(table)) ; % (Agent=cat , % Surface1=shelf , % Surface2=(table)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6231). initially(believe(Agent, bCanJump(Surface1, Surface2))) <-> ( Agent=cat, Surface1=floor, Surface2=chair ; Agent=cat, Surface1=chair, Surface2=(table) ; Agent=cat, Surface1=shelf, Surface2=(table) ). % !HoldsAt(Believe(Cat,BSatiated(Cat)),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6235). % From E: % % holds_at(not(believe(cat,bSatiated(cat))),0). initially not believe(cat, bSatiated(cat)). % initial_state([not(believe(cat,bSatiated(cat)))]). % "% =================================". %; ADDED: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6239). % !HoldsAt(Satiated(Cat),0). % From E: % % holds_at(not(satiated(cat)),0). initially not satiated(cat). % initial_state([not(satiated(cat))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6241). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6243). % range time 0 7 % From E: % % :-call_pel_directive(range(time,0,7)). :- call_pel_directive(range(time, 0, 7)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6243). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2006/Chapter11/Lottery.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{OrtonyCloreCollins:1988, %; author = "Andrew Ortony and Gerald L. Clore and Allan M. Collins", %; year = "1988", %; title = "The Cognitive Structure of Emotions", %; address = "Cambridge", %; publisher = "Cambridge University Press", %; } %; %; @book{Mueller:2006, %; author = "Erik T. Mueller", %; year = "2006", %; title = "Commonsense Reasoning", %; address = "San Francisco", %; publisher = "Morgan Kaufmann/Elsevier", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6280). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6282). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6282). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6285). % sort agent % From E: % % sort(agent). sort(agent). % sort aboutevent :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6285). % From E: % % sort(aboutevent). sort(aboutevent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6287). % sort desirability: integer % From E: % % subsort(desirability,integer). subsort(desirability,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6289). % agent Kate, Lisa % From E: % % t(agent,kate). agent(kate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6289). % From E: % % t(agent,lisa). agent(lisa). % aboutevent WinLotteryKate, WinLotteryLisa :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6289). % From E: % % t(aboutevent,winLotteryKate). aboutevent(winLotteryKate). % From E: % % t(aboutevent,winLotteryLisa). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6289). aboutevent(winLotteryLisa). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6292). % fluent Joy(agent,aboutevent) % From E: % % fluent(joy(agent,aboutevent)). mpred_prop(joy(agent,aboutevent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6292). fluents([joy/2]). % fluent Desirability(agent,agent,aboutevent,desirability) % From E: % % fluent(desirability(agent,agent,aboutevent,desirability)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6292). mpred_prop(desirability(agent,agent,aboutevent,desirability),fluent). fluents([desirability/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6294). % fluent Believe(agent,aboutevent) % From E: % % fluent(believe(agent,aboutevent)). mpred_prop(believe(agent,aboutevent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6294). fluents([believe/2]). % fluent Like(agent,agent) % From E: % % fluent(like(agent,agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6294). mpred_prop(like(agent,agent),fluent). fluents([like/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6296). % fluent HappyFor(agent,agent,aboutevent) % From E: % % fluent(happyFor(agent,agent,aboutevent)). mpred_prop(happyFor(agent,agent,aboutevent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6296). fluents([happyFor/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6298). % event WinLottery(agent) % From E: % % event(winLottery(agent)). events([winLottery/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6298). mpred_prop(winLottery(agent),action). actions([winLottery/1]). % event AddJoy(agent,aboutevent) % From E: % % event(addJoy(agent,aboutevent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6298). events([addJoy/2]). mpred_prop(addJoy(agent,aboutevent),action). actions([addJoy/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6300). % event AddHappyFor(agent,agent,aboutevent) % From E: % % event(addHappyFor(agent,agent,aboutevent)). events([addHappyFor/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6300). mpred_prop(addHappyFor(agent,agent,aboutevent),action). actions([addHappyFor/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6302). %; Sigma % [agent,aboutevent,time] % Initiates(AddJoy(agent,aboutevent),Joy(agent,aboutevent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6304). % From E: % % initiates_at( % addJoy(Agent,Aboutevent), % joy(Agent,Aboutevent), % Time). % [Time]. addJoy(Agent, Aboutevent)initiates joy(Agent, Aboutevent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6304). /* initiated(happens(addJoy(Agent,Aboutevent), Time_From, Time_Until), joy(Agent,Aboutevent), []). */ % "% =================================". % [agent1,agent2,aboutevent,time] % Initiates(AddHappyFor(agent1,agent2,aboutevent), % HappyFor(agent1,agent2,aboutevent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6308). % From E: % % initiates_at( % addHappyFor(Agent1,Agent2,Aboutevent), % happyFor(Agent1,Agent2,Aboutevent), % Time). % [Time]. addHappyFor(Agent1, Agent2, Aboutevent)initiates happyFor(Agent1, Agent2, Aboutevent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6308). /* initiated(happens(addHappyFor(Agent1, Agent2, Aboutevent), Time_From, Time_Until), happyFor(Agent1,Agent2,Aboutevent), []). */ % "% =================================". % [agent1,agent2,aboutevent,time] % (agent1=Kate & aboutevent=WinLotteryKate) | % (agent1=Lisa & aboutevent=WinLotteryLisa) -> % Initiates(WinLottery(agent1),Believe(agent2,aboutevent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6313). % From E: % % '->'( % ((Agent1=kate , % Aboutevent=winLotteryKate) ; % (Agent1=lisa , % Aboutevent=winLotteryLisa)), % initiates_at( % winLottery(Agent1), % believe(Agent2,Aboutevent), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6313). Agent1=kate, Aboutevent=winLotteryKate;Agent1=lisa, Aboutevent=winLotteryLisa -> initiates(winLottery(Agent1), believe(Agent2, Aboutevent)). %; Delta % [agent,aboutevent,desirability,time] % !HoldsAt(Joy(agent,aboutevent),time) & % HoldsAt(Desirability(agent,agent,aboutevent,desirability),time) & % desirability=1 & % HoldsAt(Believe(agent,aboutevent),time) -> % Happens(AddJoy(agent,aboutevent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6319). % From E: % % '->'( % (holds_at(not(joy(Agent,Aboutevent)),Time) , % holds_at(desirability(Agent,Agent,Aboutevent,Desirability),Time) , % Desirability=1 , % holds_at(believe(Agent,Aboutevent),Time)), % happens_at(addJoy(Agent,Aboutevent),Time)). % [Time]. false not addJoy(Agent, Aboutevent), not joy(Agent, Aboutevent), desirability(Agent, Agent, Aboutevent, Desirability), equals(Desirability, 1), believe(Agent, Aboutevent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6319). /* d_pre([ not(addJoy(Agent,Aboutevent)), holds(not(joy(Agent,Aboutevent)),Time_At), desirability(Agent, Agent, Aboutevent, Desirability), equals(Desirability,1), believe(Agent,Aboutevent) ]). */ % "% =================================". % [agent1,agent2,aboutevent,desirability1,desirability2,time] % !HoldsAt(HappyFor(agent1,agent2,aboutevent),time) & % HoldsAt(Desirability(agent1,agent2,aboutevent,desirability1),time) & % desirability1=1 & % HoldsAt(Desirability(agent1,agent1,aboutevent,desirability2),time) & % desirability2=1 & % HoldsAt(Like(agent1,agent2),time) & % HoldsAt(Believe(agent1,aboutevent),time) & % agent1 != agent2 -> % Happens(AddHappyFor(agent1,agent2,aboutevent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6327). % From E: % % '->'( % (holds_at(not(happyFor(Agent1,Agent2,Aboutevent)),Time) , % holds_at(desirability(Agent1,Agent2,Aboutevent,Desirability1),Time) , % Desirability1=1 , % holds_at(desirability(Agent1,Agent1,Aboutevent,Desirability2),Time) , % Desirability2=1 , % holds_at(like(Agent1,Agent2),Time) , % holds_at(believe(Agent1,Aboutevent),Time) , % Agent1\=Agent2), % happens_at(addHappyFor(Agent1,Agent2,Aboutevent),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6327). not(happyFor(Agent1, Agent2, Aboutevent)), desirability(Agent1, Agent2, Aboutevent, Desirability1), Desirability1=1, desirability(Agent1, Agent1, Aboutevent, Desirability2), Desirability2=1, like(Agent1, Agent2), believe(Agent1, Aboutevent), Agent1\=Agent2 -> addHappyFor(Agent1, Agent2, Aboutevent). % Happens(WinLottery(Kate),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6336). % From E: % % happens_at(winLottery(kate),0). observe winLottery(kate)at 0. % observe([winLottery(kate)],0). % "% =================================". %; Psi % [agent1,agent2,aboutevent,desirability1,desirability2,time] % HoldsAt(Desirability(agent1,agent2,aboutevent,desirability1),time) & % HoldsAt(Desirability(agent1,agent2,aboutevent,desirability2),time) -> % desirability1 = desirability2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6341). % From E: % % '->'( % (holds_at(desirability(Agent1,Agent2,Aboutevent,Desirability1),Time) , % holds_at(desirability(Agent1,Agent2,Aboutevent,Desirability2),Time)), % Desirability1=Desirability2). % [Time]. false not equals(Desirability1, Desirability2), desirability(Agent1, Agent2, Aboutevent, Desirability1), desirability(Agent1, Agent2, Aboutevent, Desirability2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6341). /* d_pre([ not(equals(Desirability1,Desirability2)), desirability(Agent1, Agent2, Aboutevent, Desirability1), desirability(Agent1, Agent2, Aboutevent, Desirability2) ]). */ % "% =================================". %; Gamma % [agent,aboutevent] % !HoldsAt(Joy(agent,aboutevent),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6348). % From E: % % holds_at(not(joy(Agent,Aboutevent)),0). initially not joy(Agent, Aboutevent). % initial_state([not(joy(Agent,Aboutevent))]). % "% =================================". % [agent1,agent2,aboutevent] % !HoldsAt(HappyFor(agent1,agent2,aboutevent),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6348). % From E: % % holds_at(not(happyFor(Agent1,Agent2,Aboutevent)),0). initially not happyFor(Agent1, Agent2, Aboutevent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6348). /* initial_state([ not(happyFor(Agent1, Agent2, Aboutevent)) ]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6350). % [aboutevent] % !HoldsAt(Believe(Kate,aboutevent),0). % From E: % % holds_at(not(believe(kate,Aboutevent)),0). initially not believe(kate, Aboutevent). % initial_state([not(believe(kate,Aboutevent))]). % "% =================================". % [aboutevent] % !HoldsAt(Believe(Lisa,aboutevent),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6350). % From E: % % holds_at(not(believe(lisa,Aboutevent)),0). initially not believe(lisa, Aboutevent). % initial_state([not(believe(lisa,Aboutevent))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6352). % [agent1,agent2,time] % HoldsAt(Like(agent1,agent2),time). % From E: % % holds_at(like(Agent1,Agent2),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6352). like(Agent1,Agent2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6354). % [time] % HoldsAt(Desirability(Lisa,Kate,WinLotteryKate,1),time). % From E: % % holds_at(desirability(lisa,kate,winLotteryKate,1),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6354). desirability(lisa,kate,winLotteryKate,1). % [time] % HoldsAt(Desirability(Kate,Kate,WinLotteryKate,1),time). % From E: % % holds_at(desirability(kate,kate,winLotteryKate,1),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6354). desirability(kate,kate,winLotteryKate,1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6356). % [time] % HoldsAt(Desirability(Lisa,Lisa,WinLotteryKate,1),time). % From E: % % holds_at(desirability(lisa,lisa,winLotteryKate,1),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6356). desirability(lisa,lisa,winLotteryKate,1). % [time] % HoldsAt(Desirability(Kate,Kate,WinLotteryLisa,0),time). % From E: % % holds_at(desirability(kate,kate,winLotteryLisa,0),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6356). desirability(kate,kate,winLotteryLisa,0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6358). % [time] % HoldsAt(Desirability(Kate,Lisa,WinLotteryLisa,0),time). % From E: % % holds_at(desirability(kate,lisa,winLotteryLisa,0),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6358). desirability(kate,lisa,winLotteryLisa,0). % [time] % HoldsAt(Desirability(Kate,Kate,WinLotteryLisa,0),time). % From E: % % holds_at(desirability(kate,kate,winLotteryLisa,0),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6358). desirability(kate,kate,winLotteryLisa,0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6360). % [time] % HoldsAt(Desirability(Kate,Lisa,WinLotteryKate,0),time). % From E: % % holds_at(desirability(kate,lisa,winLotteryKate,0),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6360). desirability(kate,lisa,winLotteryKate,0). % [time] % HoldsAt(Desirability(Lisa,Lisa,WinLotteryLisa,0),time). % From E: % % holds_at(desirability(lisa,lisa,winLotteryLisa,0),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6360). desirability(lisa,lisa,winLotteryLisa,0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6362). % [time] % HoldsAt(Desirability(Lisa,Kate,WinLotteryLisa,1),time). % From E: % % holds_at(desirability(lisa,kate,winLotteryLisa,1),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6362). desirability(lisa,kate,winLotteryLisa,1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6364). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6366). % range time 0 3 % From E: % % :-call_pel_directive(range(time,0,3)). :- call_pel_directive(range(time, 0, 3)). % range desirability -1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6366). % From E: % % :-call_pel_directive(range(desirability,-1,1)). :- call_pel_directive(range(desirability, -1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6368). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Manual/Example1a.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; deduction :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6389). % option timediff off % From E: % % :-call_pel_directive(option(timediff,off)). :- call_pel_directive(option(timediff, off)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6391). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6391). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6394). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6396). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6396). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6396). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6399). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6399). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6401). % agent James % From E: % % t(agent,james). agent(james). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6401). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6403). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6403). % Happens(WakeUp(James),0). % From E: % % happens_at(wakeUp(james),0). observe wakeUp(james)at 0. % observe([wakeUp(james)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6405). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6405). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6407). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6407). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Manual/Example1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; deduction :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6427). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6427). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6430). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6432). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6432). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6432). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6435). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6435). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6437). % agent James % From E: % % t(agent,james). agent(james). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6437). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6439). % Delta: % From E: % % directive(delta). directive(delta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6439). % Happens(WakeUp(James),0). % From E: % % happens_at(wakeUp(james),0). observe wakeUp(james)at 0. % observe([wakeUp(james)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6441). % completion Delta Happens % From E: % % :-call_pel_directive(completion(delta)). :- call_pel_directive(completion(delta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6441). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6443). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6443). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Manual/Example4.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6461). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6461). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6464). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6466). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6466). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6466). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6469). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6469). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". % [agent,time] % Happens(WakeUp(agent),time) -> !HoldsAt(Awake(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6469). % From E: % % '->'( % happens_at(wakeUp(Agent),Time), % holds_at(not(awake(Agent)),Time)). % [Time]. not awake(Agent)if wakeUp(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6469). /* l_int(holds(not(awake(Agent)),Time_At), [happens(wakeUp(Agent),Time_At,Time_At)]). */ % "% =================================". % agent James, Jessie :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6471). % From E: % % t(agent,james). agent(james). % From E: % % t(agent,jessie). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6471). agent(jessie). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6473). % !HoldsAt(Awake(James),0). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". % !HoldsAt(Awake(Jessie),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6473). % From E: % % holds_at(not(awake(jessie)),0). initially not awake(jessie). % initial_state([not(awake(jessie))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6475). % HoldsAt(Awake(James),1). % From E: % % holds_at(awake(james),1). holds_at(awake(james),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6477). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6477). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Manual/Example3.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6495). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6495). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6498). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6500). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6500). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6500). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6503). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6503). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6505). % agent James, Jessie % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6505). % From E: % % t(agent,jessie). agent(jessie). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6505). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6507). % HoldsAt(Awake(James),1). % From E: % % holds_at(awake(james),1). holds_at(awake(james),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6509). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6509). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Manual/Example2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6527). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6527). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6530). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6532). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6532). fluents([awake/1]). % event WakeUp(agent) % From E: % % event(wakeUp(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6532). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6535). % [agent,time] % Initiates(WakeUp(agent),Awake(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % awake(Agent), % Time). % [Time]. wakeUp(Agent)initiates awake(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6535). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), awake(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6537). % agent James % From E: % % t(agent,james). agent(james). % !HoldsAt(Awake(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6537). % From E: % % holds_at(not(awake(james)),0). initially not awake(james). % initial_state([not(awake(james))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6539). % HoldsAt(Awake(James),1). % From E: % % holds_at(awake(james),1). holds_at(awake(james),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6541). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6541). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/RunningAndDriving2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6571). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6571). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6574). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6576). % fluent Tired(agent) % From E: % % fluent(tired(agent)). mpred_prop(tired(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6576). fluents([tired/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6578). % event Move(agent) % From E: % % event(move(agent)). events([move/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6578). mpred_prop(move(agent),action). actions([move/1]). % event Run(agent) % From E: % % event(run(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6578). events([run/1]). mpred_prop(run(agent),action). actions([run/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6580). % event Drive(agent) % From E: % % event(drive(agent)). events([drive/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6580). mpred_prop(drive(agent),action). actions([drive/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6582). % [agent,time] % Happens(Move(agent),time) -> % Happens(Run(agent),time) | Happens(Drive(agent),time). % From E: % % '->'( % happens_at(move(Agent),Time), % (happens_at(run(Agent),Time) ; % happens_at(drive(Agent),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6582). move(Agent) -> false((not(run(Agent)), not(drive(Agent)))). % xor Run, Drive :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6585). % From E: % % xor([run,drive]). xor([run,drive]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6588). % [agent,time] % Initiates(Run(agent),Tired(agent),time). % From E: % % initiates_at( % run(Agent), % tired(Agent), % Time). % [Time]. run(Agent)initiates tired(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6588). /* initiated(happens(run(Agent),Time_From,Time_Until), tired(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6590). % agent James % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6592). % !HoldsAt(Tired(James),0). % From E: % % holds_at(not(tired(james)),0). initially not tired(james). % initial_state([not(tired(james))]). % "% =================================". % Happens(Move(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6592). % From E: % % happens_at(move(james),0). observe move(james)at 0. % observe([move(james)],0). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6594). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6596). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/OffOn.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6627). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6627). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6630). % sort agent % From E: % % sort(agent). sort(agent). % sort switch :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6630). % From E: % % sort(switch). sort(switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6633). % fluent On(switch) % From E: % % fluent(on(switch)). mpred_prop(on(switch),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6633). fluents([on/1]). % fluent Off(switch) % From E: % % fluent(off(switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6633). mpred_prop(off(switch),fluent). fluents([off/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6635). % event TurnOn(agent,switch) % From E: % % event(turnOn(agent,switch)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6635). mpred_prop(turnOn(agent,switch),action). actions([turnOn/2]). % event TurnOff(agent,switch) % From E: % % event(turnOff(agent,switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6635). events([turnOff/2]). mpred_prop(turnOff(agent,switch),action). actions([turnOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6638). % noninertial Off % From E: % % :-call_pel_directive(noninertial(off)). :- call_pel_directive(noninertial(off)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6640). % [switch,time] % HoldsAt(Off(switch),time) <-> !HoldsAt(On(switch),time). % From E: % % <->( % holds_at(off(Switch),Time), % holds_at(not(on(Switch)),Time)). % [Time]. not on(Switch)if off(Switch). % l_int(holds(not(on(Switch)),Time_At),[off(Switch)]). % "% =================================". if not on(Switch)then off(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6640). /* reactive_rule([holds(not(on(Switch)),Time_At3)], [off(Switch)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6642). % [agent,switch,time] % Initiates(TurnOn(agent,switch),On(switch),time). % From E: % % initiates_at( % turnOn(Agent,Switch), % on(Switch), % Time). % [Time]. turnOn(Agent, Switch)initiates on(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6642). /* initiated(happens(turnOn(Agent,Switch), Time_From, Time_Until), on(Switch), []). */ % "% =================================". % [agent,switch,time] % Terminates(TurnOff(agent,switch),On(switch),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6642). % From E: % % terminates_at( % turnOff(Agent,Switch), % on(Switch), % Time). % [Time]. turnOff(Agent, Switch)terminates on(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6642). /* terminated(happens(turnOff(Agent,Switch), Time_From, Time_Until), on(Switch), []). */ % "% =================================". % agent James :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6644). % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6646). % switch Switch1 % From E: % % t(switch,switch1). switch(switch1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6648). % !HoldsAt(On(Switch1),0). % From E: % % holds_at(not(on(switch1)),0). initially not on(switch1). % initial_state([not(on(switch1))]). % "% =================================". % Happens(TurnOn(James,Switch1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6648). % From E: % % happens_at(turnOn(james,switch1),0). observe turnOn(james, switch1)at 0. % observe([turnOn(james,switch1)],0). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6650). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6652). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/TV2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6683). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6683). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6686). % sort agent % From E: % % sort(agent). sort(agent). % sort switch :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6686). % From E: % % sort(switch). sort(switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6688). % sort tv % From E: % % sort(tv). sort(tv). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6690). % function TVOf(switch): tv % From E: % % function(tVOf(switch),tv). function(tVOf(switch),tv). % fluent SwitchOn(switch) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6690). % From E: % % fluent(switchOn(switch)). mpred_prop(switchOn(switch),fluent). fluents([switchOn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6692). % fluent TVOn(tv) % From E: % % fluent(tVOn(tv)). mpred_prop(tVOn(tv),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6692). fluents([tVOn/1]). % fluent PluggedIn(tv) % From E: % % fluent(pluggedIn(tv)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6692). mpred_prop(pluggedIn(tv),fluent). fluents([pluggedIn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6694). % event TurnOn(agent,switch) % From E: % % event(turnOn(agent,switch)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6694). mpred_prop(turnOn(agent,switch),action). actions([turnOn/2]). % event TurnOff(agent,switch) % From E: % % event(turnOff(agent,switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6694). events([turnOff/2]). mpred_prop(turnOff(agent,switch),action). actions([turnOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6697). % [agent,switch,time] % Initiates(TurnOn(agent,switch),SwitchOn(switch),time). % From E: % % initiates_at( % turnOn(Agent,Switch), % switchOn(Switch), % Time). % [Time]. turnOn(Agent, Switch)initiates switchOn(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6697). /* initiated(happens(turnOn(Agent,Switch), Time_From, Time_Until), switchOn(Switch), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6699). % [agent,switch,tv,time] % TVOf(switch)=tv & HoldsAt(PluggedIn(tv),time) -> % Initiates(TurnOn(agent,switch),TVOn(tv),time). % From E: % % '->'( % (tVOf(Switch)=Tv , % holds_at(pluggedIn(Tv),Time)), % initiates_at( % turnOn(Agent,Switch), % tVOn(Tv), % Time)). % [Time]. turnOn(Agent, Switch)initiates tVOn(Tv)if tVOf(Switch, Tv), pluggedIn(Tv). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6699). /* initiated(happens(turnOn(Agent,Switch), Time_From, Time_Until), tVOn(Tv), [tVOf(Switch,Tv),pluggedIn(Tv)]). */ % "% =================================". % agent James :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6702). % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6704). % switch Switch1 % From E: % % t(switch,switch1). switch(switch1). % tv TV1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6704). % From E: % % t(tv,tv1). tv(tv1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6707). % TVOf(Switch1)=TV1. % From E: % % tVOf(switch1)=tv1. tVOf(switch1,tv1). % !HoldsAt(PluggedIn(TV1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6707). % From E: % % holds_at(not(pluggedIn(tv1)),0). initially not pluggedIn(tv1). % initial_state([not(pluggedIn(tv1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6709). % !HoldsAt(SwitchOn(Switch1),0). % From E: % % holds_at(not(switchOn(switch1)),0). initially not switchOn(switch1). % initial_state([not(switchOn(switch1))]). % "% =================================". % !HoldsAt(TVOn(TV1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6709). % From E: % % holds_at(not(tVOn(tv1)),0). initially not tVOn(tv1). % initial_state([not(tVOn(tv1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6711). % Happens(TurnOn(James,Switch1),0). % From E: % % happens_at(turnOn(james,switch1),0). observe turnOn(james, switch1)at 0. % observe([turnOn(james,switch1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6713). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6713). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/Approve.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; example of concurrent events with cumulative or canceling effects %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6747). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6747). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6750). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6752). % event ApproveOf(agent,agent) % From E: % % event(approveOf(agent,agent)). events([approveOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6752). mpred_prop(approveOf(agent,agent),action). actions([approveOf/2]). % event DisapproveOf(agent,agent) % From E: % % event(disapproveOf(agent,agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6752). events([disapproveOf/2]). mpred_prop(disapproveOf(agent,agent),action). actions([disapproveOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6754). % fluent Happy(agent) % From E: % % fluent(happy(agent)). mpred_prop(happy(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6754). fluents([happy/1]). % fluent Confused(agent) % From E: % % fluent(confused(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6754). mpred_prop(confused(agent),fluent). fluents([confused/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6757). % [agent1,agent2,time] % !Happens(DisapproveOf(agent1,agent2),time) -> % Initiates(ApproveOf(agent1,agent2),Happy(agent2),time). % From E: % % '->'( % not(happens_at(disapproveOf(Agent1,Agent2),Time)), % initiates_at( % approveOf(Agent1,Agent2), % happy(Agent2), % Time)). % [Time]. approveOf(Agent1, Agent2)initiates happy(Agent2)if not disapproveOf(Agent1, Agent2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6757). /* initiated(happens(approveOf(Agent1,Agent2), Time_From, Time_Until), happy(Agent2), [not(disapproveOf(Agent1,Agent2))]). */ % "% =================================". % [agent1,agent2,time] % !Happens(ApproveOf(agent1,agent2),time) -> % Terminates(DisapproveOf(agent1,agent2),Happy(agent2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6762). % From E: % % '->'( % not(happens_at(approveOf(Agent1,Agent2),Time)), % terminates_at( % disapproveOf(Agent1,Agent2), % happy(Agent2), % Time)). % [Time]. disapproveOf(Agent1, Agent2)terminates happy(Agent2)if not approveOf(Agent1, Agent2). /* terminated(happens(disapproveOf(Agent1,Agent2), Time_From, Time_Until), happy(Agent2), [not(approveOf(Agent1,Agent2))]). */ % "% =================================". % [agent1,agent2,time] % Happens(DisapproveOf(agent1,agent2),time) -> % Initiates(ApproveOf(agent1,agent2),Confused(agent2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6766). % From E: % % '->'( % happens_at(disapproveOf(Agent1,Agent2),Time), % initiates_at( % approveOf(Agent1,Agent2), % confused(Agent2), % Time)). % [Time]. approveOf(Agent1, Agent2)initiates confused(Agent2)if disapproveOf(Agent1, Agent2). /* initiated(happens(approveOf(Agent1,Agent2), Time_From, Time_Until), confused(Agent2), [ happens(disapproveOf(Agent1,Agent2), Time_From, Time_Until) ]). */ % "% =================================". % agent James, Peter :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6768). % From E: % % t(agent,james). agent(james). % From E: % % t(agent,peter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6768). agent(peter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6771). % [agent] % !HoldsAt(Happy(agent),0) & !HoldsAt(Confused(agent),0). % From E: % % (holds_at(not(happy(Agent)),0) , % holds_at(not(confused(Agent)),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6771). initially(not(happy(Agent))), initially(not(confused(Agent))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6773). % Happens(ApproveOf(Peter,James),0). % From E: % % happens_at(approveOf(peter,james),0). observe approveOf(peter, james)at 0. % observe([approveOf(peter,james)],0). % "% =================================". % Happens(DisapproveOf(Peter,James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6773). % From E: % % happens_at(disapproveOf(peter,james),0). observe disapproveOf(peter, james)at 0. % observe([disapproveOf(peter,james)],0). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6775). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6778). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6778). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/Leaf.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6810). % option trajectory on % From E: % % :-call_pel_directive(option(trajectory,on)). :- call_pel_directive(option(trajectory, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6812). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6812). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6815). % sort object % From E: % % sort(object). sort(object). % sort height: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6815). % From E: % % subsort(height,integer). subsort(height,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6818). % fluent Height(object,height) % From E: % % fluent(height(object,height)). mpred_prop(height(object,height),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6818). fluents([height/2]). % fluent Falling(object) % From E: % % fluent(falling(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6818). mpred_prop(falling(object),fluent). fluents([falling/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6820). % event StartFalling(object) % From E: % % event(startFalling(object)). mpred_prop(startFalling(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6820). events([startFalling/1]). % event HitsGround(object) % From E: % % event(hitsGround(object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6820). mpred_prop(hitsGround(object),event). events([hitsGround/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6823). % [object,height1,height2,time] % HoldsAt(Height(object,height1),time) & % HoldsAt(Height(object,height2),time) -> % height1=height2. % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % holds_at(height(Object,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), height(Object, Height1), height(Object, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6823). /* d_pre([ not(equals(Height1,Height2)), holds(height(Object,Height1),Time_At), holds(height(Object,Height2),Time_At) ]). */ % "% =================================". % [object,time] % Initiates(StartFalling(object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6829). % From E: % % initiates_at( % startFalling(Object), % falling(Object), % Time). % [Time]. startFalling(Object)initiates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6829). /* initiated(happens(startFalling(Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6831). % [object,height,time] % Releases(StartFalling(object),Height(object,height),time). % From E: % % releases_at( % startFalling(Object), % height(Object,Height), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6831). releases(startFalling(Object),height(Object,Height)). % [object,height1,height2,offset,time] % HoldsAt(Height(object,height1),time) & % height2=height1-offset -> % Trajectory(Falling(object),time,Height(object,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6835). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % Height2=Height1-Offset), % trajectory( % falling(Object), % Time, Time, % height(Object,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6835). holds_at(height(Object, Height1), Time), Height2=Height1-Offset -> trajectory(falling(Object), Time, height(Object, Height2), Offset). % [object,time] % HoldsAt(Falling(object),time) & % HoldsAt(Height(object,0),time) -> % Happens(HitsGround(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6840). % From E: % % '->'( % (holds_at(falling(Object),Time) , % holds_at(height(Object,0),Time)), % happens_at(hitsGround(Object),Time)). % [Time]. hitsGround(Object)if falling(Object), height(Object, 0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6840). /* l_events(happens(hitsGround(Object), Time_From, Time_From), [ holds(falling(Object),Time_From), holds(height(Object,0),Time_From) ]). */ % "% =================================". %;[object,height1,height2,time] %;HoldsAt(Height(object,height1),time) & %;height1 != height2 -> %;Terminates(HitsGround(object),Height(object,height2),time). % [object,height,time] % HoldsAt(Height(object,height),time) -> % Initiates(HitsGround(object),Height(object,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6849). % From E: % % '->'( % holds_at(height(Object,Height),Time), % initiates_at( % hitsGround(Object), % height(Object,Height), % Time)). % [Time]. hitsGround(Object)initiates height(Object, Height)if height(Object, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6849). /* initiated(happens(hitsGround(Object), Time_From, Time_Until), height(Object,Height), [holds(height(Object,Height),Time_From)]). */ % "% =================================". % [object,time] % Terminates(HitsGround(object),Falling(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6854). % From E: % % terminates_at( % hitsGround(Object), % falling(Object), % Time). % [Time]. hitsGround(Object)terminates falling(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6854). /* terminated(happens(hitsGround(Object), Time_From, Time_Until), falling(Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6856). % object Leaf % From E: % % t(object,leaf). object(leaf). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6858). % !HoldsAt(Falling(Leaf),0). % From E: % % holds_at(not(falling(leaf)),0). initially not falling(leaf). % initial_state([not(falling(leaf))]). % "% =================================". % HoldsAt(Height(Leaf,4),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6858). % From E: % % holds_at(height(leaf,4),0). initially height(leaf, 4). % initial_state([height(leaf,4)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6860). % Happens(StartFalling(Leaf),2). % From E: % % happens_at(startFalling(leaf),2). observe startFalling(leaf)at 2. % observe([startFalling(leaf)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6862). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6864). % range time 0 7 % From E: % % :-call_pel_directive(range(time,0,7)). :- call_pel_directive(range(time, 0, 7)). % range offset 1 4 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6864). % From E: % % :-call_pel_directive(range(offset,1,4)). :- call_pel_directive(range(offset, 1, 4)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6866). % range height 0 4 % From E: % % :-call_pel_directive(range(height,0,4)). :- call_pel_directive(range(height, 0, 4)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/RunningAndDriving1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6897). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6897). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6900). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6902). % fluent Tired(agent) % From E: % % fluent(tired(agent)). mpred_prop(tired(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6902). fluents([tired/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6904). % event Move(agent) % From E: % % event(move(agent)). events([move/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6904). mpred_prop(move(agent),action). actions([move/1]). % event Run(agent) % From E: % % event(run(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6904). events([run/1]). mpred_prop(run(agent),action). actions([run/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6906). % event Drive(agent) % From E: % % event(drive(agent)). events([drive/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6906). mpred_prop(drive(agent),action). actions([drive/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6908). % [agent,time] % Happens(Move(agent),time) -> % Happens(Run(agent),time) | Happens(Drive(agent),time). % From E: % % '->'( % happens_at(move(Agent),Time), % (happens_at(run(Agent),Time) ; % happens_at(drive(Agent),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6908). move(Agent) -> false((not(run(Agent)), not(drive(Agent)))). % xor Run, Drive :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6911). % From E: % % xor([run,drive]). xor([run,drive]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6914). % [agent,time] % Initiates(Run(agent),Tired(agent),time). % From E: % % initiates_at( % run(Agent), % tired(Agent), % Time). % [Time]. run(Agent)initiates tired(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6914). /* initiated(happens(run(Agent),Time_From,Time_Until), tired(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6916). % agent James % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6918). % !HoldsAt(Tired(James),0). % From E: % % holds_at(not(tired(james)),0). initially not tired(james). % initial_state([not(tired(james))]). % "% =================================". % Happens(Move(James),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6918). % From E: % % happens_at(move(james),0). observe move(james)at 0. % observe([move(james)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6920). % HoldsAt(Tired(James),1). % From E: % % holds_at(tired(james),1). holds_at(tired(james),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6922). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6922). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/TV1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6954). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6954). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6957). % sort agent % From E: % % sort(agent). sort(agent). % sort switch :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6957). % From E: % % sort(switch). sort(switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6959). % sort tv % From E: % % sort(tv). sort(tv). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6961). % function TVOf(switch): tv % From E: % % function(tVOf(switch),tv). function(tVOf(switch),tv). % fluent SwitchOn(switch) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6961). % From E: % % fluent(switchOn(switch)). mpred_prop(switchOn(switch),fluent). fluents([switchOn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6963). % fluent TVOn(tv) % From E: % % fluent(tVOn(tv)). mpred_prop(tVOn(tv),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6963). fluents([tVOn/1]). % fluent PluggedIn(tv) % From E: % % fluent(pluggedIn(tv)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6963). mpred_prop(pluggedIn(tv),fluent). fluents([pluggedIn/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6965). % event TurnOn(agent,switch) % From E: % % event(turnOn(agent,switch)). events([turnOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6965). mpred_prop(turnOn(agent,switch),action). actions([turnOn/2]). % event TurnOff(agent,switch) % From E: % % event(turnOff(agent,switch)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6965). events([turnOff/2]). mpred_prop(turnOff(agent,switch),action). actions([turnOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6968). % [agent,switch,time] % Initiates(TurnOn(agent,switch),SwitchOn(switch),time). % From E: % % initiates_at( % turnOn(Agent,Switch), % switchOn(Switch), % Time). % [Time]. turnOn(Agent, Switch)initiates switchOn(Switch). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6968). /* initiated(happens(turnOn(Agent,Switch), Time_From, Time_Until), switchOn(Switch), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6970). % [agent,switch,tv,time] % TVOf(switch)=tv & HoldsAt(PluggedIn(tv),time) -> % Initiates(TurnOn(agent,switch),TVOn(tv),time). % From E: % % '->'( % (tVOf(Switch)=Tv , % holds_at(pluggedIn(Tv),Time)), % initiates_at( % turnOn(Agent,Switch), % tVOn(Tv), % Time)). % [Time]. turnOn(Agent, Switch)initiates tVOn(Tv)if tVOf(Switch, Tv), pluggedIn(Tv). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6970). /* initiated(happens(turnOn(Agent,Switch), Time_From, Time_Until), tVOn(Tv), [tVOf(Switch,Tv),pluggedIn(Tv)]). */ % "% =================================". % agent James :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6973). % From E: % % t(agent,james). agent(james). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6975). % switch Switch1 % From E: % % t(switch,switch1). switch(switch1). % tv TV1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6975). % From E: % % t(tv,tv1). tv(tv1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6978). % TVOf(Switch1)=TV1. % From E: % % tVOf(switch1)=tv1. tVOf(switch1,tv1). % HoldsAt(PluggedIn(TV1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6978). % From E: % % holds_at(pluggedIn(tv1),0). initially pluggedIn(tv1). % initial_state([pluggedIn(tv1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6980). % !HoldsAt(SwitchOn(Switch1),0). % From E: % % holds_at(not(switchOn(switch1)),0). initially not switchOn(switch1). % initial_state([not(switchOn(switch1))]). % "% =================================". % !HoldsAt(TVOn(TV1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6980). % From E: % % holds_at(not(tVOn(tv1)),0). initially not tVOn(tv1). % initial_state([not(tVOn(tv1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6982). % Happens(TurnOn(James,Switch1),0). % From E: % % happens_at(turnOn(james,switch1),0). observe turnOn(james, switch1)at 0. % observe([turnOn(james,switch1)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6984). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',6984). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/RouletteWheel.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7016). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7016). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7019). % sort wheel % From E: % % sort(wheel). sort(wheel). % sort value: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7019). % From E: % % subsort(value,integer). subsort(value,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7022). % fluent WheelValueDeterminingFluent(wheel,value) % From E: % % fluent(wheelValueDeterminingFluent(wheel,value)). mpred_prop(wheelValueDeterminingFluent(wheel,value),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7022). fluents([wheelValueDeterminingFluent/2]). % fluent WheelValue(wheel,value) % From E: % % fluent(wheelValue(wheel,value)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7022). mpred_prop(wheelValue(wheel,value),fluent). fluents([wheelValue/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7024). % noninertial WheelValueDeterminingFluent % From E: % % :-call_pel_directive(noninertial(wheelValueDeterminingFluent)). :- call_pel_directive(noninertial(wheelValueDeterminingFluent)). % event Spin(wheel) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7024). % From E: % % event(spin(wheel)). mpred_prop(spin(wheel),event). events([spin/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7027). % [wheel,value1,value2,time] % HoldsAt(WheelValue(wheel,value1),time) & % HoldsAt(WheelValue(wheel,value2),time) -> % value1=value2. % From E: % % '->'( % (holds_at(wheelValue(Wheel,Value1),Time) , % holds_at(wheelValue(Wheel,Value2),Time)), % Value1=Value2). % [Time]. false not equals(Value1, Value2), wheelValue(Wheel, Value1), wheelValue(Wheel, Value2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7027). /* d_pre([ not(equals(Value1,Value2)), holds(wheelValue(Wheel,Value1),Time_At), holds(wheelValue(Wheel,Value2),Time_At) ]). */ % "% =================================". % [wheel,value1,value2,time] % HoldsAt(WheelValueDeterminingFluent(wheel,value1),time) & % HoldsAt(WheelValueDeterminingFluent(wheel,value2),time) -> % value1=value2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7033). % From E: % % '->'( % (holds_at(wheelValueDeterminingFluent(Wheel,Value1),Time) , % holds_at(wheelValueDeterminingFluent(Wheel,Value2),Time)), % Value1=Value2). % [Time]. false not equals(Value1, Value2), wheelValueDeterminingFluent(Wheel, Value1), wheelValueDeterminingFluent(Wheel, Value2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7033). /* d_pre([ not(equals(Value1,Value2)), wheelValueDeterminingFluent(Wheel,Value1), wheelValueDeterminingFluent(Wheel,Value2) ]). */ % "% =================================". % [wheel,value,time] % HoldsAt(WheelValueDeterminingFluent(wheel,value),time) -> % Initiates(Spin(wheel),WheelValue(wheel,value),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7038). % From E: % % '->'( % holds_at(wheelValueDeterminingFluent(Wheel,Value),Time), % initiates_at( % spin(Wheel), % wheelValue(Wheel,Value), % Time)). % [Time]. spin(Wheel)initiates wheelValue(Wheel, Value)if wheelValueDeterminingFluent(Wheel, Value). /* initiated(happens(spin(Wheel),Time_From,Time_Until), wheelValue(Wheel,Value), [wheelValueDeterminingFluent(Wheel,Value)]). */ % "% =================================". % [wheel,value1,value2,time] % HoldsAt(WheelValue(wheel,value1),time) & % HoldsAt(WheelValueDeterminingFluent(wheel,value2),time) & % value1!=value2 -> % Terminates(Spin(wheel),WheelValue(wheel,value1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7042). % From E: % % '->'( % (holds_at(wheelValue(Wheel,Value1),Time) , % holds_at(wheelValueDeterminingFluent(Wheel,Value2),Time) , % Value1\=Value2), % terminates_at( % spin(Wheel), % wheelValue(Wheel,Value1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7042). wheelValue(Wheel, Value1), wheelValueDeterminingFluent(Wheel, Value2), Value1\=Value2 -> terminates(spin(Wheel), wheelValue(Wheel, Value1)). % [wheel,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7048). % {value} % HoldsAt(WheelValueDeterminingFluent(wheel,value),time). % From E: % % exists( % [Value], % holds_at(wheelValueDeterminingFluent(Wheel,Value),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7048). exists([Value], wheelValueDeterminingFluent(Wheel,Value)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7050). % wheel Wheel % From E: % % t(wheel,wheel). wheel(wheel). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7052). % HoldsAt(WheelValue(Wheel,7),0). % From E: % % holds_at(wheelValue(wheel,7),0). initially wheelValue(wheel, 7). % initial_state([wheelValue(wheel,7)]). % "% =================================". % Happens(Spin(Wheel),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7052). % From E: % % happens_at(spin(wheel),0). observe spin(wheel)at 0. % observe([spin(wheel)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7054). % HoldsAt(WheelValueDeterminingFluent(Wheel,7),1). % From E: % % holds_at(wheelValueDeterminingFluent(wheel,7),1). holds_at(wheelValueDeterminingFluent(wheel,7),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7056). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7058). % range value 7 10 % From E: % % :-call_pel_directive(range(value,7,10)). :- call_pel_directive(range(value, 7, 10)). % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7058). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7060). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Mueller2004b/PickUp.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @inproceedings{Mueller:2004b, %; author = "Erik T. Mueller", %; year = "2004", %; title = "A tool for satisfiability-based commonsense reasoning in the event calculus", %; editor = "Valerie Barr and Zdravko Markov", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}eventeenth \uppercase{I}nternational \uppercase{F}lorida \uppercase{A}rtificial \uppercase{I}ntelligence \uppercase{R}esearch \uppercase{S}ociety \uppercase{C}onference", %; pages = "147--152", %; address = "Menlo Park, CA", %; publisher = "AAAI Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7091). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7091). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7094). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7094). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7096). % sort physobj: object % From E: % % subsort(physobj,object). subsort(physobj,object). % sort location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7096). % From E: % % sort(location). sort(location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7099). % fluent At(object,location) % From E: % % fluent(at_loc(object,location)). mpred_prop(at_loc(object,location),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7099). fluents([at_loc/2]). % fluent Holding(agent,physobj) % From E: % % fluent(holding(agent,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7099). mpred_prop(holding(agent,physobj),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7101). % event PickUp(agent,physobj) % From E: % % event(pickUp(agent,physobj)). events([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7101). mpred_prop(pickUp(agent,physobj),action). actions([pickUp/2]). % event SetDown(agent,physobj) % From E: % % event(setDown(agent,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7101). events([setDown/2]). mpred_prop(setDown(agent,physobj),action). actions([setDown/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7103). % event Move(agent,location,location) % From E: % % event(move(agent,location,location)). events([move/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7103). mpred_prop(move(agent,location,location),action). actions([move/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7105). %; state constraints % [agent,location,physobj,time] % HoldsAt(At(agent,location),time) & % HoldsAt(Holding(agent,physobj),time) -> % HoldsAt(At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7107). % From E: % % '->'( % (holds_at(at_loc(Agent,Location),Time) , % holds_at(holding(Agent,Physobj),Time)), % holds_at(at_loc(Physobj,Location),Time)). % [Time]. at_loc(Physobj, Location)if at_loc(Agent, Location), holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7107). /* l_int(holds(at_loc(Physobj,Location),Time_At), [ holds(at_loc(Agent,Location),Time_At), holds(holding(Agent,Physobj),Time_At) ]). */ % "% =================================". % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % HoldsAt(At(object,location2),time) -> % location1=location2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7113). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % holds_at(at_loc(Object,Location2),Time)), % Location1=Location2). % [Time]. false not equals(Location1, Location2), at_loc(Object, Location1), at_loc(Object, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7113). /* d_pre([ not(equals(Location1,Location2)), holds(at_loc(Object,Location1),Time_At), holds(at_loc(Object,Location2),Time_At) ]). */ % "% =================================". %; effect axioms % [agent,location1,location2,time] % Initiates(Move(agent,location1,location2),At(agent,location2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7119). % From E: % % initiates_at( % move(Agent,Location1,Location2), % at_loc(Agent,Location2), % Time). % [Time]. move(Agent, Location1, Location2)initiates at_loc(Agent, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7119). /* initiated(happens(move(Agent,Location1,Location2), Time_From, Time_Until), at_loc(Agent,Location2), []). */ % "% =================================". % [agent,location1,location2,time] % Terminates(Move(agent,location1,location2),At(agent,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7123). % From E: % % terminates_at( % move(Agent,Location1,Location2), % at_loc(Agent,Location1), % Time). % [Time]. move(Agent, Location1, Location2)terminates at_loc(Agent, Location1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7123). /* terminated(happens(move(Agent,Location1,Location2), Time_From, Time_Until), at_loc(Agent,Location1), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7125). % [agent,physobj,time] % Initiates(PickUp(agent,physobj),Holding(agent,physobj),time). % From E: % % initiates_at( % pickUp(Agent,Physobj), % holding(Agent,Physobj), % Time). % [Time]. pickUp(Agent, Physobj)initiates holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7125). /* initiated(happens(pickUp(Agent,Physobj), Time_From, Time_Until), holding(Agent,Physobj), []). */ % "% =================================". % [agent,physobj,time] % Terminates(SetDown(agent,physobj),Holding(agent,physobj),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7129). % From E: % % terminates_at( % setDown(Agent,Physobj), % holding(Agent,Physobj), % Time). % [Time]. setDown(Agent, Physobj)terminates holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7129). /* terminated(happens(setDown(Agent,Physobj), Time_From, Time_Until), holding(Agent,Physobj), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7131). %; preconditions % [agent,location1,location2,time] % Happens(Move(agent,location1,location2),time) -> % HoldsAt(At(agent,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7133). % From E: % % '->'( % happens_at(move(Agent,Location1,Location2),Time), % holds_at(at_loc(Agent,Location1),Time)). % [Time]. at_loc(Agent, Location1)if move(Agent, Location1, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7133). /* l_int(holds(at_loc(Agent,Location1),Time_At), [ happens(move(Agent,Location1,Location2), Time_At, Time_At) ]). */ % "% =================================". % [agent,physobj,time] % Happens(PickUp(agent,physobj),time) -> % {location}% HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7138). % From E: % % exists( % [Location], % '->'( % happens_at(pickUp(Agent,Physobj),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7138). exists([Location], if((at_loc(Agent, Location), at_loc(Physobj, Location)), pickUp(Agent, Physobj))). %; releases % [agent,physobj,location,time] % Releases(PickUp(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7144). % From E: % % releases_at( % pickUp(Agent,Physobj), % at_loc(Physobj,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7144). releases(pickUp(Agent,Physobj), at_loc(Physobj,Location)). % [agent,physobj,location,time] % HoldsAt(At(agent,location),time) -> % Initiates(SetDown(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7148). % From E: % % '->'( % holds_at(at_loc(Agent,Location),Time), % initiates_at( % setDown(Agent,Physobj), % at_loc(Physobj,Location), % Time)). % [Time]. setDown(Agent, Physobj)initiates at_loc(Physobj, Location)if at_loc(Agent, Location). /* initiated(happens(setDown(Agent,Physobj), Time_From, Time_Until), at_loc(Physobj,Location), [holds(at_loc(Agent,Location),Time_From)]). */ % "% =================================". %;[agent,physobj,location1,location2,time] %;HoldsAt(At(agent,location1),time) & %;location1 != location2 -> %;Terminates(SetDown(agent,physobj),At(physobj,location2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7156). % agent James % From E: % % t(agent,james). agent(james). % physobj Coin :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7156). % From E: % % t(physobj,coin). physobj(coin). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7158). % location L1, L2, L3, L4 % From E: % % t(location,l1). location(l1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7158). % From E: % % t(location,l2). location(l2). % From E: % % t(location,l3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7158). location(l3). % From E: % % t(location,l4). location(l4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7160). % !HoldsAt(Holding(James,Coin),0). % From E: % % holds_at(not(holding(james,coin)),0). initially not holding(james, coin). % initial_state([not(holding(james,coin))]). % "% =================================". % HoldsAt(At(Coin,L4),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7160). % From E: % % holds_at(at_loc(coin,l4),0). initially at_loc(coin, l4). % initial_state([at_loc(coin,l4)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7162). % HoldsAt(At(James,L1),0). % From E: % % holds_at(at_loc(james,l1),0). initially at_loc(james, l1). % initial_state([at_loc(james,l1)]). % "% =================================". % Happens(Move(James,L1,L2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7162). % From E: % % happens_at(move(james,l1,l2),0). observe move(james, l1, l2)at 0. % observe([move(james,l1,l2)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7164). % Happens(Move(James,L2,L3),1). % From E: % % happens_at(move(james,l2,l3),1). observe move(james, l2, l3)at 1. % observe([move(james,l2,l3)],1). % "% =================================". % Happens(Move(James,L3,L4),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7164). % From E: % % happens_at(move(james,l3,l4),2). observe move(james, l3, l4)at 2. % observe([move(james,l3,l4)],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7166). % Happens(PickUp(James,Coin),3). % From E: % % happens_at(pickUp(james,coin),3). observe pickUp(james, coin)at 3. % observe([pickUp(james,coin)],3). % "% =================================". % Happens(Move(James,L4,L3),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7166). % From E: % % happens_at(move(james,l4,l3),4). observe move(james, l4, l3)at 4. % observe([move(james,l4,l3)],4). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7168). % Happens(Move(James,L3,L2),5). % From E: % % happens_at(move(james,l3,l2),5). observe move(james, l3, l2)at 5. % observe([move(james,l3,l2)],5). % "% =================================". % Happens(SetDown(James,Coin),6). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7168). % From E: % % happens_at(setDown(james,coin),6). observe setDown(james, coin)at 6. % observe([setDown(james,coin)],6). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7170). % Happens(Move(James,L2,L3),7). % From E: % % happens_at(move(james,l2,l3),7). observe move(james, l2, l3)at 7. % observe([move(james,l2,l3)],7). % "% =================================". % Happens(Move(James,L3,L4),8). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7170). % From E: % % happens_at(move(james,l3,l4),8). observe move(james, l3, l4)at 8. % observe([move(james,l3,l4)],8). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7172). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7175). % range time 0 9 % From E: % % :-call_pel_directive(range(time,0,9)). :- call_pel_directive(range(time, 0, 9)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7175). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/FrankEtAl2003/Story1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{FrankEtAl:2003, %; author = "Stefan L. Frank and Mathieu Koppen and Leo G. M. Noordman and Wietske Vonk", %; year = "2003", %; title = "Modeling knowledge-based inferences in story comprehension", %; journal = "Cognitive Science", %; volume = "27", %; pages = "875--910", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7205). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7207). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7207). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7210). % sort agent % From E: % % sort(agent). sort(agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7212). % load examples/FrankEtAl2003/FrankEtAl.e % From E: % % :-call_pel_directive(load('examples/FrankEtAl2003/FrankEtAl.e')). :- call_pel_directive(load('examples/FrankEtAl2003/FrankEtAl.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7214). % agent Bob, Jilly % From E: % % t(agent,bob). agent(bob). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7214). % From E: % % t(agent,jilly). agent(jilly). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7216). % !HoldsAt(Raining(),0). % From E: % % holds_at(not(raining()),0). initially not raining. % initial_state([not(raining)]). % "% =================================". % !HoldsAt(SunShining(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7216). % From E: % % holds_at(not(sunShining()),0). initially not sunShining. % initial_state([not(sunShining)]). % "% =================================". % (HoldsAt(PlaySoccer(Bob),1) & HoldsAt(PlaySoccer(Jilly),1)) | % (HoldsAt(PlayHideAndSeek(Bob),1) & HoldsAt(PlayHideAndSeek(Jilly),1)) | % (HoldsAt(PlayComputerGame(Bob),1) & HoldsAt(PlayComputerGame(Jilly),1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7218). % From E: % % ((holds_at(playSoccer(bob),1) , % holds_at(playSoccer(jilly),1)) ; % (holds_at(playHideAndSeek(bob),1) , % holds_at(playHideAndSeek(jilly),1)) ; % (holds_at(playComputerGame(bob),1) , % holds_at(playComputerGame(jilly),1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7218). ( holds_at(playSoccer(bob), 1), holds_at(playSoccer(jilly), 1) ; holds_at(playHideAndSeek(bob), 1), holds_at(playHideAndSeek(jilly), 1) ; holds_at(playComputerGame(bob), 1), holds_at(playComputerGame(jilly), 1) ). % HoldsAt(Win(Bob),1) | HoldsAt(Win(Jilly),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7222). % From E: % % (holds_at(win(bob),1) ; % holds_at(win(jilly),1)). false not holds_at(win(bob), 1), not holds_at(win(jilly), 1). % d_pre([not(holds_at(win(bob),1)),not(holds_at(win(jilly),1))]). % "% =================================". % range time 0 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7224). % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7226). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/FrankEtAl2003/FrankEtAl.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{FrankEtAl:2003, %; author = "Stefan L. Frank and Mathieu Koppen and Leo G. M. Noordman and Wietske Vonk", %; year = "2003", %; title = "Modeling knowledge-based inferences in story comprehension", %; journal = "Cognitive Science", %; volume = "27", %; pages = "875--910", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7255). % fluent SunShining() % From E: % % fluent(sunShining()). fluents([sunShining/0]). % fluent Raining() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7255). % From E: % % fluent(raining()). fluents([raining/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7257). % fluent Outside(agent) % From E: % % fluent(outside(agent)). mpred_prop(outside(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7257). fluents([outside/1]). % fluent PlaySoccer(agent) % From E: % % fluent(playSoccer(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7257). mpred_prop(playSoccer(agent),fluent). fluents([playSoccer/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7259). % fluent PlayHideAndSeek(agent) % From E: % % fluent(playHideAndSeek(agent)). mpred_prop(playHideAndSeek(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7259). fluents([playHideAndSeek/1]). % fluent PlayComputerGame(agent) % From E: % % fluent(playComputerGame(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7259). mpred_prop(playComputerGame(agent),fluent). fluents([playComputerGame/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7261). % fluent PlayWithDog(agent) % From E: % % fluent(playWithDog(agent)). mpred_prop(playWithDog(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7261). fluents([playWithDog/1]). % fluent Win(agent) % From E: % % fluent(win(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7261). mpred_prop(win(agent),fluent). fluents([win/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7264). % noninertial Outside, PlaySoccer, PlayHideAndSeek, PlayComputerGame % From E: % % :-call_pel_directive(noninertial(outside)). :- call_pel_directive(noninertial(outside)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7264). % From E: % % :-call_pel_directive(noninertial(playSoccer)). :- call_pel_directive(noninertial(playSoccer)). % From E: % % :-call_pel_directive(noninertial(playHideAndSeek)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7264). :- call_pel_directive(noninertial(playHideAndSeek)). % From E: % % :-call_pel_directive(noninertial(playComputerGame)). :- call_pel_directive(noninertial(playComputerGame)). % noninertial PlayWithDog, Win :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7264). % From E: % % :-call_pel_directive(noninertial(playWithDog)). :- call_pel_directive(noninertial(playWithDog)). % From E: % % :-call_pel_directive(noninertial(win)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7264). :- call_pel_directive(noninertial(win)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7267). % xor PlaySoccer, PlayHideAndSeek, PlayComputerGame, PlayWithDog % From E: % % xor([playSoccer,playHideAndSeek,playComputerGame,playWithDog]). xor([playSoccer,playHideAndSeek,playComputerGame,playWithDog]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7269). % [agent,time] % HoldsAt(PlaySoccer(agent),time) -> % HoldsAt(Outside(agent),time). % From E: % % '->'( % holds_at(playSoccer(Agent),Time), % holds_at(outside(Agent),Time)). % [Time]. if playSoccer(Agent)then outside(Agent). % reactive_rule([playSoccer(Agent)],[outside(Agent)]). % "% =================================". % [agent,time] % HoldsAt(PlaySoccer(agent),time) -> % ({agent1} agent1!=agent & HoldsAt(PlaySoccer(agent1),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7274). % From E: % % '->'( % holds_at(playSoccer(Agent),Time), % exists( % [Agent1], % (Agent1\=Agent , % holds_at(playSoccer(Agent1),Time)))). % [Time]. playSoccer(Agent) -> exists([Agent1], (Agent1\=Agent, playSoccer(Agent1))). % [agent,time] % HoldsAt(PlayHideAndSeek(agent),time) -> % ({agent1} agent1!=agent & HoldsAt(PlayHideAndSeek(agent1),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7278). % From E: % % '->'( % holds_at(playHideAndSeek(Agent),Time), % exists( % [Agent1], % (Agent1\=Agent , % holds_at(playHideAndSeek(Agent1),Time)))). % [Time]. playHideAndSeek(Agent) -> exists([Agent1], (Agent1\=Agent, playHideAndSeek(Agent1))). % [agent,time] % HoldsAt(PlayComputerGame(agent),time) -> % !HoldsAt(Outside(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7282). % From E: % % '->'( % holds_at(playComputerGame(Agent),Time), % holds_at(not(outside(Agent)),Time)). % [Time]. if playComputerGame(Agent)then not outside(Agent). /* reactive_rule([playComputerGame(Agent)], [not(outside(Agent))]). */ % "% =================================". % [agent,time] % HoldsAt(Win(agent),time) -> % (HoldsAt(PlaySoccer(agent),time) | % HoldsAt(PlayHideAndSeek(agent),time) | % (HoldsAt(PlayComputerGame(agent),time) & % ({agent1} agent1!=agent & HoldsAt(PlayComputerGame(agent1),time)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7286). % From E: % % '->'( % holds_at(win(Agent),Time), % (holds_at(playSoccer(Agent),Time) ; % holds_at(playHideAndSeek(Agent),Time) ; % (holds_at(playComputerGame(Agent),Time) , % exists( % [Agent1], % (Agent1\=Agent , % holds_at(playComputerGame(Agent1),Time)))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7286). win(Agent) -> ( playSoccer(Agent) ; playHideAndSeek(Agent) ; playComputerGame(Agent), exists([Agent1], (Agent1\=Agent, playComputerGame(Agent1))) ). % [agent,time] % HoldsAt(PlaySoccer(agent),time) & % HoldsAt(Win(agent),time) -> % !HoldsAt(PlaySoccer(agent),time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7293). % From E: % % '->'( % (holds_at(playSoccer(Agent),Time) , % holds_at(win(Agent),Time)), % holds_at(not(playSoccer(Agent)),Time+1)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7293). holds_at(playSoccer(Agent), Time), holds_at(win(Agent), Time) -> holds_at(not(playSoccer(Agent)), Time+1). % [agent,time] % HoldsAt(PlayHideAndSeek(agent),time) & % HoldsAt(Win(agent),time) -> % !HoldsAt(PlayHideAndSeek(agent),time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7298). % From E: % % '->'( % (holds_at(playHideAndSeek(Agent),Time) , % holds_at(win(Agent),Time)), % holds_at(not(playHideAndSeek(Agent)),Time+1)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7298). holds_at(playHideAndSeek(Agent), Time), holds_at(win(Agent), Time) -> holds_at(not(playHideAndSeek(Agent)), Time+1). % [agent,time] % HoldsAt(PlayComputerGame(agent),time) & % HoldsAt(Win(agent),time) -> % !HoldsAt(PlayComputerGame(agent),time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7303). % From E: % % '->'( % (holds_at(playComputerGame(Agent),Time) , % holds_at(win(Agent),Time)), % holds_at(not(playComputerGame(Agent)),Time+1)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7303). holds_at(playComputerGame(Agent), Time), holds_at(win(Agent), Time) -> holds_at(not(playComputerGame(Agent)), Time+1). % [agent,time] % HoldsAt(Win(agent),time) -> % HoldsAt(PlaySoccer(agent),time-1) | % HoldsAt(PlayHideAndSeek(agent),time-1) | % HoldsAt(PlayComputerGame(agent),time-1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7308). % From E: % % '->'( % holds_at(win(Agent),Time), % (holds_at(playSoccer(Agent),Time-1) ; % holds_at(playHideAndSeek(Agent),Time-1) ; % holds_at(playComputerGame(Agent),Time-1))). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7308). holds_at(win(Agent), Time) -> ( holds_at(playSoccer(Agent), Time-1) ; holds_at(playHideAndSeek(Agent), Time-1) ; holds_at(playComputerGame(Agent), Time-1) ). % [agent,time] % HoldsAt(PlaySoccer(agent),time) -> % !HoldsAt(Raining(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7314). % From E: % % '->'( % holds_at(playSoccer(Agent),Time), % holds_at(not(raining()),Time)). % [Time]. if playSoccer(Agent)then not raining. % reactive_rule([playSoccer(Agent)],[not(raining)]). % "% =================================". % [agent,time] % HoldsAt(Win(agent),time) -> % !({agent1} agent1!=agent & HoldsAt(Win(agent1),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7318). % From E: % % '->'( % holds_at(win(Agent),Time), % not( % exists( % [Agent1], % (Agent1\=Agent , % holds_at(win(Agent1),Time))))). % [Time]. win(Agent) -> not(( Agent1\=Agent, win(Agent1) )). % [agent1,agent2,time] % HoldsAt(PlayHideAndSeek(agent1),time) & % HoldsAt(PlayHideAndSeek(agent2),time) -> % ((HoldsAt(Outside(agent1),time) & HoldsAt(Outside(agent2),time)) | % (!HoldsAt(Outside(agent1),time) & !HoldsAt(Outside(agent2),time))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7322). % From E: % % '->'( % (holds_at(playHideAndSeek(Agent1),Time) , % holds_at(playHideAndSeek(Agent2),Time)), % ((holds_at(outside(Agent1),Time) , % holds_at(outside(Agent2),Time)) ; % (holds_at(not(outside(Agent1)),Time) , % holds_at(not(outside(Agent2)),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7322). playHideAndSeek(Agent1), playHideAndSeek(Agent2) -> ( outside(Agent1), outside(Agent2) ; not(outside(Agent1)), not(outside(Agent2)) ). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/GiunchigliaEtAl2004/MonkeyPrediction.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Giunchiglia:2004, %; author = "Enrico Giunchiglia and Joohyung Lee and Vladimir Lifschitz and Norman C. McCain and Hudson Turner", %; year = "2004", %; title = "Nonmonotonic causal theories", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "49--104", %; } %; %; deduction :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7356). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7356). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7358). % load examples/GiunchigliaEtAl2004/MonkeyBananas.e % From E: % % :-call_pel_directive(load('examples/GiunchigliaEtAl2004/MonkeyBananas.e')). :- call_pel_directive(load('examples/GiunchigliaEtAl2004/MonkeyBananas.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7360). % HoldsAt(At(Monkey,L1),0). % From E: % % holds_at(at_loc(monkey,l1),0). initially at_loc(monkey, l1). % initial_state([at_loc(monkey,l1)]). % "% =================================". % HoldsAt(At(Bananas,L2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7360). % From E: % % holds_at(at_loc(bananas,l2),0). initially at_loc(bananas, l2). % initial_state([at_loc(bananas,l2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7362). % HoldsAt(At(Box,L3),0). % From E: % % holds_at(at_loc(box,l3),0). initially at_loc(box, l3). % initial_state([at_loc(box,l3)]). % "% =================================". % Happens(Walk(L3),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7362). % From E: % % happens_at(walk(l3),0). observe walk(l3)at 0. % observe([walk(l3)],0). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7364). % Happens(PushBox(L2),1). % From E: % % happens_at(pushBox(l2),1). observe pushBox(l2)at 1. % observe([pushBox(l2)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7366). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7368). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7368). % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/GiunchigliaEtAl2004/MonkeyPlanning.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Giunchiglia:2004, %; author = "Enrico Giunchiglia and Joohyung Lee and Vladimir Lifschitz and Norman C. McCain and Hudson Turner", %; year = "2004", %; title = "Nonmonotonic causal theories", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "49--104", %; } %; %; planning :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7400). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7400). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7402). % load examples/GiunchigliaEtAl2004/MonkeyBananas.e % From E: % % :-call_pel_directive(load('examples/GiunchigliaEtAl2004/MonkeyBananas.e')). :- call_pel_directive(load('examples/GiunchigliaEtAl2004/MonkeyBananas.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7404). % HoldsAt(At(Monkey,L1),0). % From E: % % holds_at(at_loc(monkey,l1),0). initially at_loc(monkey, l1). % initial_state([at_loc(monkey,l1)]). % "% =================================". % HoldsAt(At(Bananas,L2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7404). % From E: % % holds_at(at_loc(bananas,l2),0). initially at_loc(bananas, l2). % initial_state([at_loc(bananas,l2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7406). % HoldsAt(At(Box,L3),0). % From E: % % holds_at(at_loc(box,l3),0). initially at_loc(box, l3). % initial_state([at_loc(box,l3)]). % "% =================================". % HoldsAt(HasBananas(),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7406). % From E: % % holds_at(hasBananas(),4). holds_at(hasBananas,4). %; PLAN Happens(Walk(L3),0). %; PLAN Happens(PushBox(L2),1). %; PLAN Happens(ClimbOn(),2). %; PLAN Happens(GraspBananas(),3). %; one event at a time % [event1,event2,time] % Happens(event1,time) & Happens(event2,time) -> % event1=event2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7414). % From E: % % '->'( % (happens_at(Event1,Time) , % happens_at(Event2,Time)), % Event1=Event2). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7414). Event1, Event2 -> Event1=Event2. % range time 0 4 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7417). % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7419). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/GiunchigliaEtAl2004/MonkeyPostdiction.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Giunchiglia:2004, %; author = "Enrico Giunchiglia and Joohyung Lee and Vladimir Lifschitz and Norman C. McCain and Hudson Turner", %; year = "2004", %; title = "Nonmonotonic causal theories", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "49--104", %; } %; %; postdiction :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7450). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7450). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7452). % load examples/GiunchigliaEtAl2004/MonkeyBananas.e % From E: % % :-call_pel_directive(load('examples/GiunchigliaEtAl2004/MonkeyBananas.e')). :- call_pel_directive(load('examples/GiunchigliaEtAl2004/MonkeyBananas.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7454). % HoldsAt(At(Monkey,L1),0). % From E: % % holds_at(at_loc(monkey,l1),0). initially at_loc(monkey, l1). % initial_state([at_loc(monkey,l1)]). % "% =================================". % HoldsAt(At(Bananas,L2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7454). % From E: % % holds_at(at_loc(bananas,l2),0). initially at_loc(bananas, l2). % initial_state([at_loc(bananas,l2)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7456). % Happens(Walk(L3),0). % From E: % % happens_at(walk(l3),0). observe walk(l3)at 0. % observe([walk(l3)],0). % "% =================================". % Happens(PushBox(L2),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7456). % From E: % % happens_at(pushBox(l2),1). observe pushBox(l2)at 1. % observe([pushBox(l2)],1). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7458). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7461). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7461). % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/GiunchigliaEtAl2004/MonkeyBananas.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Giunchiglia:2004, %; author = "Enrico Giunchiglia and Joohyung Lee and Vladimir Lifschitz and Norman C. McCain and Hudson Turner", %; year = "2004", %; title = "Nonmonotonic causal theories", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "49--104", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7491). % sort object % From E: % % sort(object). sort(object). % sort location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7491). % From E: % % sort(location). sort(location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7494). % object Monkey, Bananas, Box % From E: % % t(object,monkey). object(monkey). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7494). % From E: % % t(object,bananas). object(bananas). % From E: % % t(object,box). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7494). object(box). % location L1, L2, L3 % From E: % % t(location,l1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7494). location(l1). % From E: % % t(location,l2). location(l2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7494). % From E: % % t(location,l3). location(l3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7497). % fluent At(object,location) % From E: % % fluent(at_loc(object,location)). mpred_prop(at_loc(object,location),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7497). fluents([at_loc/2]). % fluent OnBox() % From E: % % fluent(onBox()). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7497). fluents([onBox/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7499). % fluent HasBananas() % From E: % % fluent(hasBananas()). fluents([hasBananas/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7501). % event Walk(location) % From E: % % event(walk(location)). mpred_prop(walk(location),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7501). events([walk/1]). % event PushBox(location) % From E: % % event(pushBox(location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7501). mpred_prop(pushBox(location),event). events([pushBox/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7503). % event ClimbOn() % From E: % % event(climbOn()). events([climbOn/0]). % event ClimbOff() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7503). % From E: % % event(climbOff()). events([climbOff/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7505). % event GraspBananas() % From E: % % event(graspBananas()). events([graspBananas/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7507). % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % HoldsAt(At(object,location2),time) -> % location1=location2. % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % holds_at(at_loc(Object,Location2),Time)), % Location1=Location2). % [Time]. false not equals(Location1, Location2), at_loc(Object, Location1), at_loc(Object, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7507). /* d_pre([ not(equals(Location1,Location2)), holds(at_loc(Object,Location1),Time_At), holds(at_loc(Object,Location2),Time_At) ]). */ % "% =================================". % [object,location,time] % object=% Monkey -> % Initiates(Walk(location),At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7513). % From E: % % '->'( % Object=monkey, % initiates_at( % walk(Location), % at_loc(Object,Location), % Time)). % [Time]. false not (walk(Location)initiates at_loc(Object, Location)), equals(Object, monkey). /* d_pre([ not(initiates(walk(Location), at_loc(Object,Location))), equals(Object,monkey) ]). */ % "% =================================". % [object,location1,location2,time] % object=% Monkey & % HoldsAt(At(object,location1),time) -> % Terminates(Walk(location2),At(object,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7517). % From E: % % '->'( % (Object=monkey , % holds_at(at_loc(Object,Location1),Time)), % terminates_at( % walk(Location2), % at_loc(Object,Location1), % Time)). % [Time]. false not (walk(Location2)terminates at_loc(Object, Location1)), equals(Object, monkey), at_loc(Object, Location1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7517). /* d_pre([ not(terminates(walk(Location2), at_loc(Object,Location1))), equals(Object,monkey), holds(at_loc(Object,Location1),Time_At) ]). */ % "% =================================". % [location,time] % Happens(Walk(location),time) -> % !HoldsAt(At(Monkey,location),time) & % !HoldsAt(OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7522). % From E: % % '->'( % happens_at(walk(Location),Time), % (holds_at(not(at_loc(monkey,Location)),Time) , % holds_at(not(onBox()),Time))). % [Time]. if walk(Location)then not at_loc(monkey, Location), not onBox. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7522). /* reactive_rule([ happens(walk(Location), Time_From, Time_Until) ], [ holds(not(at_loc(monkey,Location)),Time_At), holds(not(onBox),Time_At) ]). */ % "% =================================". % [location,time] % HoldsAt(HasBananas(),time) & % HoldsAt(At(Monkey,location),time) -> % HoldsAt(At(Bananas,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7527). % From E: % % '->'( % (holds_at(hasBananas(),Time) , % holds_at(at_loc(monkey,Location),Time)), % holds_at(at_loc(bananas,Location),Time)). % [Time]. at_loc(bananas, Location)if hasBananas, at_loc(monkey, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7527). /* l_int(holds(at_loc(bananas,Location),Time_At), [ holds(hasBananas,Time_At), holds(at_loc(monkey,Location),Time_At) ]). */ % "% =================================". % [object,location,time] % object=% Box | object=Monkey -> % Initiates(PushBox(location),At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7532). % From E: % % '->'( % (Object=box ; % Object=monkey), % initiates_at( % pushBox(Location), % at_loc(Object,Location), % Time)). % [Time]. false((not(equals(Object, box)), not(equals(Object, monkey)))) -> initiates(pushBox(Location), at_loc(Object, Location)). % [object,location1,location2,time] % (object=Box | object=Monkey) & % HoldsAt(At(object,location1),time) -> % Terminates(PushBox(location2),At(object,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7536). % From E: % % '->'( % ((Object=box ; % Object=monkey) , % holds_at(at_loc(Object,Location1),Time)), % terminates_at( % pushBox(Location2), % at_loc(Object,Location1), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7536). false((not(equals(Object, box)), not(equals(Object, monkey)))), at_loc(Object, Location1) -> terminates(pushBox(Location2), at_loc(Object, Location1)). % [location,time] % Happens(PushBox(location),time) -> % ({location1} % HoldsAt(At(Box,location1),time) & % HoldsAt(At(Monkey,location1),time)) & % !HoldsAt(At(Monkey,location),time) & % !HoldsAt(OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7541). % From E: % % '->'( % happens_at(pushBox(Location),Time), % (exists( % [Location1], % (holds_at(at_loc(box,Location1),Time) , % holds_at(at_loc(monkey,Location1),Time))) , % holds_at(not(at_loc(monkey,Location)),Time) , % holds_at(not(onBox()),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7541). pushBox(Location) -> exists([Location1], (at_loc(box, Location1), at_loc(monkey, Location1))), not(at_loc(monkey, Location)), not(onBox). % [time] % Initiates(ClimbOn(),OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7547). % From E: % % initiates_at(climbOn(),onBox(),Time). % [Time]. climbOn initiates onBox. % initiated(happens(climbOn,Time_From,Time_Until),onBox,[]). % "% =================================". % [time] % Happens(ClimbOn(),time) -> % !HoldsAt(OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7551). % From E: % % '->'( % happens_at(climbOn(),Time), % holds_at(not(onBox()),Time)). % [Time]. not onBox if climbOn. /* l_int(holds(not(onBox),Time_At), [happens(climbOn,Time_At,Time_At)]). */ % "% =================================". % [time] % Terminates(ClimbOff(),OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7553). % From E: % % terminates_at(climbOff(),onBox(),Time). % [Time]. climbOff terminates onBox. % terminated(happens(climbOff,Time_From,Time_Until),onBox,[]). % "% =================================". % [time] % Happens(ClimbOff(),time) -> % HoldsAt(OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7557). % From E: % % '->'( % happens_at(climbOff(),Time), % holds_at(onBox(),Time)). % [Time]. onBox if climbOff. /* l_int(holds(onBox,Time_At), [happens(climbOff,Time_At,Time_At)]). */ % "% =================================". % [time] % Initiates(GraspBananas(),HasBananas(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7559). % From E: % % initiates_at(graspBananas(),hasBananas(),Time). % [Time]. graspBananas initiates hasBananas. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7559). /* initiated(happens(graspBananas,Time_From,Time_Until), hasBananas, []). */ % "% =================================". % [object,location,time] % object=% Bananas -> % Releases(GraspBananas(),At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7563). % From E: % % '->'( % Object=bananas, % releases_at( % graspBananas(), % at_loc(Object,Location), % Time)). % [Time]. false not releases(graspBananas, at_loc(Object, Location)), equals(Object, bananas). /* d_pre([ not(releases(graspBananas,at_loc(Object,Location))), equals(Object,bananas) ]). */ % "% =================================". % [time] % Happens(GraspBananas(),time) -> % ({location1} % HoldsAt(At(Bananas,location1),time) & % HoldsAt(At(Monkey,location1),time)) & % HoldsAt(OnBox(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7567). % From E: % % '->'( % happens_at(graspBananas(),Time), % (exists( % [Location1], % (holds_at(at_loc(bananas,Location1),Time) , % holds_at(at_loc(monkey,Location1),Time))) , % holds_at(onBox(),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7567). graspBananas -> exists([Location1], (at_loc(bananas, Location1), at_loc(monkey, Location1))), onBox. % [time] % HoldsAt(OnBox(),time) -> % {location1}% HoldsAt(At(Box,location1),time) & % HoldsAt(At(Monkey,location1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7574). % From E: % % exists( % [Location1], % '->'( % holds_at(onBox(),Time), % (holds_at(at_loc(box,Location1),Time) , % holds_at(at_loc(monkey,Location1),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7574). exists([Location1], if((at_loc(box, Location1), at_loc(monkey, Location1)), onBox)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Antoniou1997/Student.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; conflicting defaults: method (D) %; \fullciteA[p. 157]{Antoniou:1997} %; %; @book{Antoniou:1997, %; author = "Grigoris Antoniou", %; year = "1997", %; title = "Nonmonotonic Reasoning", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7607). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7607). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7610). % sort x % From E: % % sort(x). sort(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7612). % predicate Adult(x) % From E: % % predicate(adult(x)). mpred_prop(adult(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7612). predicates([adult/1]). % predicate Student(x) % From E: % % predicate(student(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7612). mpred_prop(student(x),predicate). predicates([student/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7614). % predicate Employed(x) % From E: % % predicate(employed(x)). mpred_prop(employed(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7614). predicates([employed/1]). % predicate Ab1(x) % From E: % % predicate(ab1(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7614). mpred_prop(ab1(x),predicate). predicates([ab1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7616). % predicate Ab2(x) % From E: % % predicate(ab2(x)). mpred_prop(ab2(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7616). predicates([ab2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7618). % x Mary % From E: % % t(x,mary). x(mary). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7620). % Student(Mary). % From E: % % student(mary). student(mary). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7622). % [x] % Adult(x) & !Ab1(x) -> Employed(x). % From E: % % '->'( % (adult(X) , % not(ab1(X))), % employed(X)). if adult(X), not ab1(X)then employed(X). % reactive_rule([adult(X),not(ab1(X))],[employed(X)]). % "% =================================". % [x] % Student(x) & !Ab2(x) -> !Employed(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7622). % From E: % % '->'( % (student(X) , % not(ab2(X))), % not(employed(X))). if student(X), not ab2(X)then not employed(X). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7622). /* reactive_rule([student(X),not(ab2(X))], [not(employed(X))]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7624). % [x] % Student(x) -> Adult(x). % From E: % % '->'( % student(X), % adult(X)). if student(X)then adult(X). % reactive_rule([student(X)],[adult(X)]). % "% =================================". % Theta: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7624). % From E: % % directive(theta). directive(theta). % [x] % Student(x) -> Ab1(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7624). % From E: % % '->'( % student(X), % ab1(X)). if student(X)then ab1(X). % reactive_rule([student(X)],[ab1(X)]). % "% =================================". % range time 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7626). % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7628). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7630). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7630). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7630). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7630). :- call_pel_directive(completion(ab2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Antoniou1997/Dropout.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; dealing with conflicting defaults by adding conditions %; to one of the conflicting rules %; \fullciteA[p. 56]{Antoniou:1997} %; %; @book{Antoniou:1997, %; author = "Grigoris Antoniou", %; year = "1997", %; title = "Nonmonotonic Reasoning", %; address = "Cambridge, MA", %; publisher = "MIT Press", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7663). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7663). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7666). % sort x % From E: % % sort(x). sort(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7668). % predicate Dropout(x) % From E: % % predicate(dropout(x)). mpred_prop(dropout(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7668). predicates([dropout/1]). % predicate Adult(x) % From E: % % predicate(adult(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7668). mpred_prop(adult(x),predicate). predicates([adult/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7670). % predicate Employed(x) % From E: % % predicate(employed(x)). mpred_prop(employed(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7670). predicates([employed/1]). % predicate Ab1(x) % From E: % % predicate(ab1(x)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7670). mpred_prop(ab1(x),predicate). predicates([ab1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7672). % predicate Ab2(x) % From E: % % predicate(ab2(x)). mpred_prop(ab2(x),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7672). predicates([ab2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7674). % x Bill % From E: % % t(x,bill). x(bill). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7676). % Dropout(Bill). % From E: % % dropout(bill). dropout(bill). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7678). % [x] % Dropout(x) & !Ab1(x) -> Adult(x). % From E: % % '->'( % (dropout(X) , % not(ab1(X))), % adult(X)). if dropout(X), not ab1(X)then adult(X). % reactive_rule([dropout(X),not(ab1(X))],[adult(X)]). % "% =================================". % [x] % Adult(x) & !Dropout(x) & !Ab2(x) -> Employed(x). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7678). % From E: % % '->'( % (adult(X) , % not(dropout(X)) , % not(ab2(X))), % employed(X)). if adult(X), not dropout(X), not ab2(X)then employed(X). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7678). /* reactive_rule([adult(X),not(dropout(X)),not(ab2(X))], [employed(X)]). */ % "% =================================". % range time 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7680). % From E: % % :-call_pel_directive(range(time,0,0)). :- call_pel_directive(range(time, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7682). % range offset 1 1 % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7684). % completion Theta Ab1 % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7684). % From E: % % :-call_pel_directive(completion(ab1)). :- call_pel_directive(completion(ab1)). % completion Theta Ab2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7684). % From E: % % :-call_pel_directive(completion(theta)). :- call_pel_directive(completion(theta)). % From E: % % :-call_pel_directive(completion(ab2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7684). :- call_pel_directive(completion(ab2)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1999/Happy.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @incollection{Shanahan:1999, %; author = "Shanahan, Murray", %; year = "1999", %; title = "The Event Calculus explained", %; editor = "Michael J. Wooldridge and Manuela M. Veloso", %; booktitle = "Artificial Intelligence Today: Recent Trends and Developments", %; series = "Lecture Notes in Computer Science", %; volume = "1600", %; pages = "409--430", %; address = "Berlin", %; publisher = "Springer", %; } %; %; deduction %; %; modifications from Shanahan's formulation: %; InitiallyN -> !HoldsAt %; InitiallyP -> HoldsAt %; timestamps %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7725). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7725). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7728). % sort person % From E: % % sort(person). sort(person). % event Feed(person) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7728). % From E: % % event(feed(person)). mpred_prop(feed(person),event). events([feed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7730). % event Clothe(person) % From E: % % event(clothe(person)). mpred_prop(clothe(person),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7730). events([clothe/1]). % fluent Happy(person) % From E: % % fluent(happy(person)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7730). mpred_prop(happy(person),fluent). fluents([happy/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7732). % fluent Hungry(person) % From E: % % fluent(hungry(person)). mpred_prop(hungry(person),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7732). fluents([hungry/1]). % fluent Cold(person) % From E: % % fluent(cold(person)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7732). mpred_prop(cold(person),fluent). fluents([cold/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7734). % noninertial Happy % From E: % % :-call_pel_directive(noninertial(happy)). :- call_pel_directive(noninertial(happy)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7736). % [person,time] % HoldsAt(Happy(person),time) <-> % !HoldsAt(Hungry(person),time) & % !HoldsAt(Cold(person),time). % From E: % % <->( % holds_at(happy(Person),Time), % (holds_at(not(hungry(Person)),Time) , % holds_at(not(cold(Person)),Time))). % [Time]. if happy(Person)then not hungry(Person), not cold(Person). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7736). /* reactive_rule([holds(happy(Person),Time_At)], [ holds(not(hungry(Person)),Time_At3), holds(not(cold(Person)),Time_At3) ]). */ % "% =================================". happy(Person)if not hungry(Person), not cold(Person). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7736). /* l_int(holds(happy(Person),Time_At4), [ holds(not(hungry(Person)),Time_At4), holds(not(cold(Person)),Time_At4) ]). */ % "% =================================". % [person,time] % Terminates(Feed(person),Hungry(person),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7742). % From E: % % terminates_at( % feed(Person), % hungry(Person), % Time). % [Time]. feed(Person)terminates hungry(Person). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7742). /* terminated(happens(feed(Person),Time_From,Time_Until), hungry(Person), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7744). % [person,time] % Terminates(Clothe(person),Cold(person),time). % From E: % % terminates_at( % clothe(Person), % cold(Person), % Time). % [Time]. clothe(Person)terminates cold(Person). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7744). /* terminated(happens(clothe(Person), Time_From, Time_Until), cold(Person), []). */ % "% =================================". % person Fred :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7746). % From E: % % t(person,fred). person(fred). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7749). % HoldsAt(Hungry(Fred),0). % From E: % % holds_at(hungry(fred),0). initially hungry(fred). % initial_state([hungry(fred)]). % "% =================================". % !HoldsAt(Cold(Fred),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7749). % From E: % % holds_at(not(cold(fred)),0). initially not cold(fred). % initial_state([not(cold(fred))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7751). % Happens(Feed(Fred),1). % From E: % % happens_at(feed(fred),1). observe feed(fred)at 1. % observe([feed(fred)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7753). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7755). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7755). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1999/ThielscherCircuit.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Thielscher:1997, %; author = "Michael Thielscher", %; year = "1997", %; title = "Ramification and causality", %; journal = "Artificial Intelligence", %; volume = "89", %; pages = "317--364", %; } %; %; @incollection{Shanahan:1999, %; author = "Shanahan, Murray", %; year = "1999", %; title = "The Event Calculus explained", %; editor = "Michael J. Wooldridge and Manuela M. Veloso", %; booktitle = "Artificial Intelligence Today: Recent Trends and Developments", %; series = "Lecture Notes in Computer Science", %; volume = "1600", %; pages = "409--430", %; address = "Berlin", %; publisher = "Springer", %; } %; %; deduction %; %; modifications from Shanahan's formulation: %; timestamps %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7803). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7803). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7805). % load foundations/ECCausal.e % From E: % % :-call_pel_directive(load('foundations/ECCausal.e')). :- call_pel_directive(load('foundations/ECCausal.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7807). % event LightOn() % From E: % % event(lightOn()). events([lightOn/0]). % event Close1() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7807). % From E: % % event(close1()). events([close1/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7809). % event Open2() % From E: % % event(open2()). events([open2/0]). % event CloseRelay() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7809). % From E: % % event(closeRelay()). events([closeRelay/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7812). % fluent Light() % From E: % % fluent(light()). fluents([light/0]). % fluent Switch1() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7812). % From E: % % fluent(switch1()). fluents([switch1/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7814). % fluent Switch2() % From E: % % fluent(switch2()). fluents([switch2/0]). % fluent Switch3() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7814). % From E: % % fluent(switch3()). fluents([switch3/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7816). % fluent Relay() % From E: % % fluent(relay()). fluents([relay/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7818). % [time] % Stopped(Light(),time) & % Initiated(Switch1(),time) & % Initiated(Switch2(),time) -> % Happens(LightOn(),time). % From E: % % '->'( % (stopped(light(),Time) , % initiated(switch1(),Time) , % initiated(switch2(),Time)), % happens_at(lightOn(),Time)). % [Time]. if stopped(light, Time), initiated(switch1, Time), initiated(switch2, Time)then happens_at(lightOn, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7818). /* reactive_rule([ stopped(light,Time), initiated(switch1,Time), initiated(switch2,Time) ], [happens_at(lightOn,Time)]). */ % "% =================================". % [time] % Started(Switch2(),time) & % Initiated(Relay(),time) -> % Happens(Open2(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7825). % From E: % % '->'( % (started(switch2(),Time) , % initiated(relay(),Time)), % happens_at(open2(),Time)). % [Time]. if started(switch2, Time), initiated(relay, Time)then happens_at(open2, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7825). /* reactive_rule([started(switch2,Time),initiated(relay,Time)], [happens_at(open2,Time)]). */ % "% =================================". % [time] % Stopped(Relay(),time) & % Initiated(Switch1(),time) & % Initiated(Switch3(),time) -> % Happens(CloseRelay(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7830). % From E: % % '->'( % (stopped(relay(),Time) , % initiated(switch1(),Time) , % initiated(switch3(),Time)), % happens_at(closeRelay(),Time)). % [Time]. if stopped(relay, Time), initiated(switch1, Time), initiated(switch3, Time)then happens_at(closeRelay, Time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7830). /* reactive_rule([ stopped(relay,Time), initiated(switch1,Time), initiated(switch3,Time) ], [happens_at(closeRelay,Time)]). */ % "% =================================". % [time] % Initiates(LightOn(),Light(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7834). % From E: % % initiates_at(lightOn(),light(),Time). % [Time]. lightOn initiates light. % initiated(happens(lightOn,Time_From,Time_Until),light,[]). % "% =================================". % [time] % Terminates(Open2(),Switch2(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7836). % From E: % % terminates_at(open2(),switch2(),Time). % [Time]. open2 terminates switch2. % terminated(happens(open2,Time_From,Time_Until),switch2,[]). % "% =================================". % [time] % Initiates(CloseRelay(),Relay(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7838). % From E: % % initiates_at(closeRelay(),relay(),Time). % [Time]. closeRelay initiates relay. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7838). /* initiated(happens(closeRelay,Time_From,Time_Until), relay, []). */ % "% =================================". % [time] % Initiates(Close1(),Switch1(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7840). % From E: % % initiates_at(close1(),switch1(),Time). % [Time]. close1 initiates switch1. % initiated(happens(close1,Time_From,Time_Until),switch1,[]). % "% =================================". % !HoldsAt(Switch1(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7842). % From E: % % holds_at(not(switch1()),0). initially not switch1. % initial_state([not(switch1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7844). % HoldsAt(Switch2(),0). % From E: % % holds_at(switch2(),0). initially switch2. % initial_state([switch2]). % "% =================================". % HoldsAt(Switch3(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7844). % From E: % % holds_at(switch3(),0). initially switch3. % initial_state([switch3]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7846). % !HoldsAt(Relay(),0). % From E: % % holds_at(not(relay()),0). initially not relay. % initial_state([not(relay)]). % "% =================================". % !HoldsAt(Light(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7846). % From E: % % holds_at(not(light()),0). initially not light. % initial_state([not(light)]). % "% =================================". % Happens(Close1(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7848). % From E: % % happens_at(close1(),0). observe close1 at 0. % observe([close1],0). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7850). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7853). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7853). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1999/CoinToss.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Kartha:1994, %; author = "G. Neelakantan Kartha", %; year = "1994", %; title = "Two counterexamples related to \uppercase{B}aker's approach to the frame problem", %; journal = "Artificial Intelligence", %; volume = "69", %; number = "1--2", %; pages = "379--391", %; } %; %; @incollection{Shanahan:1999, %; author = "Shanahan, Murray", %; year = "1999", %; title = "The Event Calculus explained", %; editor = "Michael J. Wooldridge and Manuela M. Veloso", %; booktitle = "Artificial Intelligence Today: Recent Trends and Developments", %; series = "Lecture Notes in Computer Science", %; volume = "1600", %; pages = "409--430", %; address = "Berlin", %; publisher = "Springer", %; } %; %; model finding %; %; modifications from Shanahan's formulation: %; InitiallyP -> HoldsAt %; pruning of models irrelevant to example %; timestamps %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7904). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7904). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7907). % event Toss() % From E: % % event(toss()). events([toss/0]). % fluent ItsHeads() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7907). % From E: % % fluent(itsHeads()). fluents([itsHeads/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7909). % fluent Heads() % From E: % % fluent(heads()). fluents([heads/0]). % noninertial ItsHeads :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7909). % From E: % % :-call_pel_directive(noninertial(itsHeads)). :- call_pel_directive(noninertial(itsHeads)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7912). % [time] % HoldsAt(ItsHeads(),time) -> Initiates(Toss(),Heads(),time). % From E: % % '->'( % holds_at(itsHeads(),Time), % initiates_at(toss(),heads(),Time)). % [Time]. toss initiates heads if itsHeads. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7912). /* initiated(happens(toss,Time_From,Time_Until), heads, [itsHeads]). */ % "% =================================". % [time] % !HoldsAt(ItsHeads(),time) -> Terminates(Toss(),Heads(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7912). % From E: % % '->'( % holds_at(not(itsHeads()),Time), % terminates_at(toss(),heads(),Time)). % [Time]. toss terminates heads if not itsHeads. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7912). /* terminated(happens(toss,Time_From,Time_Until), heads, [not(itsHeads)]). */ % "% =================================". % HoldsAt(Heads(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7914). % From E: % % holds_at(heads(),0). initially heads. % initial_state([heads]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7916). % Happens(Toss(),1). % From E: % % happens_at(toss(),1). observe toss at 1. % observe([toss],1). % "% =================================". % Happens(Toss(),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7916). % From E: % % happens_at(toss(),2). observe toss at 2. % observe([toss],2). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7918). % Happens(Toss(),3). % From E: % % happens_at(toss(),3). observe toss at 3. % observe([toss],3). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7920). %; prune models irrelevant to example: % HoldsAt(ItsHeads(),0). % From E: % % holds_at(itsHeads(),0). initially itsHeads. % initial_state([itsHeads]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7922). % HoldsAt(ItsHeads(),4). % From E: % % holds_at(itsHeads(),4). holds_at(itsHeads,4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7924). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7926). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7926). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1999/ChessBoard.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; due to Raymond Reiter %; %; @inproceedings{KarthaLifschitz:1994, %; author = "G. Neelakantan Kartha and Vladimir Lifschitz", %; year = "1994", %; title = "Actions with indirect effects (preliminary report)", %; editor = "Jon Doyle and Erik Sandewall and Pietro Torasso", %; booktitle = "\uppercase{P}roceedings of the \uppercase{F}ourth \uppercase{I}nternational \uppercase{C}onference on \uppercase{P}rinciples of \uppercase{K}nowledge \uppercase{R}epresentation and \uppercase{R}easoning", %; pages = "341--350", %; address = "San Francisco", %; publisher = "Morgan Kaufmann", %; } %; %; @incollection{Shanahan:1999, %; author = "Shanahan, Murray", %; year = "1999", %; title = "The Event Calculus explained", %; editor = "Michael J. Wooldridge and Manuela M. Veloso", %; booktitle = "Artificial Intelligence Today: Recent Trends and Developments", %; series = "Lecture Notes in Computer Science", %; volume = "1600", %; pages = "409--430", %; address = "Berlin", %; publisher = "Springer", %; } %; %; model finding %; %; modifications from Shanahan's formulation: %; InitiallyN -> !HoldsAt %; pruning of models irrelevant to example %; timestamps %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7980). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7980). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7983). % event Throw() % From E: % % event(throw()). events([throw/0]). % fluent ItsBlack() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7983). % From E: % % fluent(itsBlack()). fluents([itsBlack/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7985). % fluent ItsWhite() % From E: % % fluent(itsWhite()). fluents([itsWhite/0]). % fluent OnBlack() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7985). % From E: % % fluent(onBlack()). fluents([onBlack/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7987). % fluent OnWhite() % From E: % % fluent(onWhite()). fluents([onWhite/0]). % noninertial ItsBlack, ItsWhite :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7987). % From E: % % :-call_pel_directive(noninertial(itsBlack)). :- call_pel_directive(noninertial(itsBlack)). % From E: % % :-call_pel_directive(noninertial(itsWhite)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7987). :- call_pel_directive(noninertial(itsWhite)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7990). % [time] % HoldsAt(ItsWhite(),time) -> % Initiates(Throw(),OnWhite(),time). % From E: % % '->'( % holds_at(itsWhite(),Time), % initiates_at(throw(),onWhite(),Time)). % [Time]. throw initiates onWhite if itsWhite. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7990). /* initiated(happens(throw,Time_From,Time_Until), onWhite, [itsWhite]). */ % "% =================================". % [time] % HoldsAt(ItsBlack(),time) -> % Initiates(Throw(),OnBlack(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7995). % From E: % % '->'( % holds_at(itsBlack(),Time), % initiates_at(throw(),onBlack(),Time)). % [Time]. throw initiates onBlack if itsBlack. /* initiated(happens(throw,Time_From,Time_Until), onBlack, [itsBlack]). */ % "% =================================". % [time] % HoldsAt(ItsWhite(),time) | HoldsAt(ItsBlack(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7997). % From E: % % (holds_at(itsWhite(),Time) ; % holds_at(itsBlack(),Time)). % [Time]. false not itsWhite, not itsBlack. % d_pre([not(itsWhite),not(itsBlack)]). % "% =================================". % !HoldsAt(OnWhite(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',7999). % From E: % % holds_at(not(onWhite()),0). initially not onWhite. % initial_state([not(onWhite)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8001). % !HoldsAt(OnBlack(),0). % From E: % % holds_at(not(onBlack()),0). initially not onBlack. % initial_state([not(onBlack)]). % "% =================================". % Happens(Throw(),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8001). % From E: % % happens_at(throw(),1). observe throw at 1. % observe([throw],1). % "% =================================". %; prune models irrelevant to example: :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8005). % HoldsAt(ItsWhite(),0). % From E: % % holds_at(itsWhite(),0). initially itsWhite. % initial_state([itsWhite]). % "% =================================". % HoldsAt(ItsBlack(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8005). % From E: % % holds_at(itsBlack(),0). initially itsBlack. % initial_state([itsBlack]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8007). % HoldsAt(ItsWhite(),2). % From E: % % holds_at(itsWhite(),2). holds_at(itsWhite,2). % HoldsAt(ItsBlack(),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8007). % From E: % % holds_at(itsBlack(),2). holds_at(itsBlack,2). % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8009). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8012). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8012). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/Shanahan1999/RussianTurkey.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @book{Sandewall:1994, %; author = "Sandewall, Erik", %; year = "1994", %; title = "Features and Fluents: The Representation of Knowledge about Dynamical Systems", %; volume = "I", %; address = "Oxford", %; publisher = "Oxford University Press", %; } %; %; @incollection{Shanahan:1999, %; author = "Shanahan, Murray", %; year = "1999", %; title = "The Event Calculus explained", %; editor = "Michael J. Wooldridge and Manuela M. Veloso", %; booktitle = "Artificial Intelligence Today: Recent Trends and Developments", %; series = "Lecture Notes in Computer Science", %; volume = "1600", %; pages = "409--430", %; address = "Berlin", %; publisher = "Springer", %; } %; %; model finding %; %; modifications from Shanahan's formulation: %; InitiallyP -> HoldsAt %; added [time] Terminates(Shoot(),Loaded(),time). %; added !HoldsAt(Loaded(),0) to prune models %; timestamps %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8063). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8063). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8066). % event Load() % From E: % % event(load()). events([load/0]). % event Shoot() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8066). % From E: % % event(shoot()). events([shoot/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8068). % event Spin() % From E: % % event(spin()). events([spin/0]). % fluent Loaded() :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8068). % From E: % % fluent(loaded()). fluents([loaded/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8070). % fluent Alive() % From E: % % fluent(alive()). fluents([alive/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8072). % [time] % Initiates(Load(),Loaded(),time). % From E: % % initiates_at(load(),loaded(),Time). % [Time]. load initiates loaded. % initiated(happens(load,Time_From,Time_Until),loaded,[]). % "% =================================". % [time] % HoldsAt(Loaded(),time) -> Terminates(Shoot(),Alive(),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8072). % From E: % % '->'( % holds_at(loaded(),Time), % terminates_at(shoot(),alive(),Time)). % [Time]. shoot terminates alive if loaded. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8072). /* terminated(happens(shoot,Time_From,Time_Until), alive, [holds(loaded,Time_From)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8074). % [time] % Releases(Spin(),Loaded(),time). % From E: % % releases_at(spin(),loaded(),Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8074). releases(spin,loaded). % [time] % Terminates(Shoot(),Loaded(),time). % From E: % % terminates_at(shoot(),loaded(),Time). % [Time]. shoot terminates loaded. % terminated(happens(shoot,Time_From,Time_Until),loaded,[]). % "% =================================". % HoldsAt(Alive(),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8076). % From E: % % holds_at(alive(),0). initially alive. % initial_state([alive]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8078). % !HoldsAt(Loaded(),0). % From E: % % holds_at(not(loaded()),0). initially not loaded. % initial_state([not(loaded)]). % "% =================================". % Happens(Load(),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8078). % From E: % % happens_at(load(),1). observe load at 1. % observe([load],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8080). % Happens(Spin(),2). % From E: % % happens_at(spin(),2). observe spin at 2. % observe([spin],2). % "% =================================". % Happens(Shoot(),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8080). % From E: % % happens_at(shoot(),3). observe shoot at 3. % observe([shoot],3). % "% =================================". % completion Happens :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8082). % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8085). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range offset 1 1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8085). % From E: % % :-call_pel_directive(range(offset,1,1)). :- call_pel_directive(range(offset, 1, 1)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest4.2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8115). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8117). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8117). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8119). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8121). % human Homer % From E: % % t(human,homer). human(homer). % elephant Jumbo :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8121). % From E: % % t(elephant,jumbo). elephant(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8124). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8124). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8126). % Species(Jumbo)=ElephantSpecies. % From E: % % species(jumbo)=elephantSpecies. species(jumbo,elephantSpecies). % Adult(Jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8126). % From E: % % adult(jumbo). adult(jumbo). % !HoldsAt(Opened(GateAO),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8128). % From E: % % holds_at(not(opened(gateAO)),0). initially not opened(gateAO). % initial_state([not(opened(gateAO))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8130). % {position} % HoldsAt(Pos(Homer,position),0) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),0) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8130). exists([Position], (initially(pos(homer, Position)), outside(loc(Position)))). % {position} % HoldsAt(Pos(Jumbo,position),0) & CageA=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(jumbo,Position),0) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8130). exists([Position], (initially(pos(jumbo, Position)), cageA(loc(Position)))). % {position} % HoldsAt(Pos(Homer,position),5) & CageA=Loc(position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8132). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),5) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8132). exists([Position], (holds_at(pos(homer, Position), 5), cageA(loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8134). % {position} % HoldsAt(Pos(Jumbo,position),5) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(jumbo,Position),5) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8134). exists([Position], (holds_at(pos(jumbo, Position), 5), outside(loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8136). % [animal,time] % !HoldsAt(Mounted(Homer,animal),time). % From E: % % holds_at(not(mounted(homer,Animal)),Time). % [Time]. not mounted(homer, Animal). % l_int(holds(not(mounted(homer,Animal)),Time_At),[]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8138). % [human] % HoldsAt(PosDeterminingFluent(human,1),5). % From E: % % holds_at(posDeterminingFluent(Human,1),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8138). holds_at(posDeterminingFluent(Human,1),5). % [event,animal] % !HoldsAt(DoneBy(event,animal),5). % From E: % % holds_at(not(doneBy(Event,Animal)),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8138). holds_at(not(doneBy(Event,Animal)),5). %;HoldsAt(Pos(Homer,7),0). %;HoldsAt(Pos(Jumbo,4),0). %;Happens(Move(Jumbo,3),0). %;Happens(Open(Homer,GateAO),0). %;Happens(Move(Homer,4),1). %;Happens(Move(Jumbo,1),1). %;Happens(Move(Jumbo,3),2). %;Happens(Mount(Homer,Jumbo),2). %;Happens(Move(Jumbo,4),3). %;!Happens(Move(Homer,2),3). %;Happens(Move(Jumbo,7),4). %;!Happens(Mount(Homer,Jumbo),3). %;!Happens(Mount(Homer,Jumbo),4). %;[position] !Happens(Move(Homer,position),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8156). % range time 0 5 % From E: % % :-call_pel_directive(range(time,0,5)). :- call_pel_directive(range(time, 0, 5)). % range position 1 8 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8156). % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8158). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8160). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest5.1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8189). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8191). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8191). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8193). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8195). % human Homer % From E: % % t(human,homer). human(homer). % elephant Jumbo :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8195). % From E: % % t(elephant,jumbo). elephant(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8197). % horse Silver % From E: % % t(horse,silver). horse(silver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8199). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8199). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8201). % Species(Jumbo)=ElephantSpecies. % From E: % % species(jumbo)=elephantSpecies. species(jumbo,elephantSpecies). % Adult(Jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8201). % From E: % % adult(jumbo). adult(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8203). % Species(Silver)=HorseSpecies. % From E: % % species(silver)=horseSpecies. species(silver,horseSpecies). % Adult(Silver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8203). % From E: % % adult(silver). adult(silver). % {position} :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8207). % !HoldsAt(Pos(Homer,position),0) & % HoldsAt(Pos(Jumbo,position),0) & % HoldsAt(Pos(Homer,position),1) & % !HoldsAt(Pos(Jumbo,position),1). % From E: % % exists( % [Position], % (holds_at(not(pos(homer,Position)),0) , % holds_at(pos(jumbo,Position),0) , % holds_at(pos(homer,Position),1) , % holds_at(not(pos(jumbo,Position)),1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8207). exists([Position], (initially(not(pos(homer, Position))), initially(pos(jumbo, Position)), holds_at(pos(homer, Position), 1), holds_at(not(pos(jumbo, Position)), 1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8211). % HoldsAt(Mounted(Homer,Silver),0). % From E: % % holds_at(mounted(homer,silver),0). initially mounted(homer, silver). % initial_state([mounted(homer,silver)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8213). % option manualrelease on % From E: % % :-call_pel_directive(option(manualrelease,on)). :- call_pel_directive(option(manualrelease, on)). % [human, animal] % !ReleasedAt(Mounted(human, animal),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8213). % From E: % % not(released_at(mounted(Human,Animal),0)). not(released_at(mounted(Human,Animal),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8215). % [gate] % !ReleasedAt(Opened(gate),0). % From E: % % not(released_at(opened(Gate),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8215). not(released_at(opened(Gate),0)). % [position] % ReleasedAt(Pos(Homer,position),0). % From E: % % released_at(pos(homer,Position),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8215). released_at(pos(homer,Position),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8217). % [position] % !ReleasedAt(Pos(Jumbo,position),0). % From E: % % not(released_at(pos(jumbo,Position),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8217). not(released_at(pos(jumbo,Position),0)). % [position] % !ReleasedAt(Pos(Silver,position),0). % From E: % % not(released_at(pos(silver,Position),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8217). not(released_at(pos(silver,Position),0)). % [human] % HoldsAt(PosDeterminingFluent(human,1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8219). % From E: % % holds_at(posDeterminingFluent(Human,1),1). holds_at(posDeterminingFluent(Human,1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8221). % [event,animal] % !HoldsAt(DoneBy(event,animal),1). % From E: % % holds_at(not(doneBy(Event,Animal)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8221). holds_at(not(doneBy(Event,Animal)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8223). %;HoldsAt(Opened(GateAO),0). %;HoldsAt(Pos(Homer,3),0). %;HoldsAt(Pos(Jumbo,2),0). %;HoldsAt(Pos(Silver,3),0). %;Happens(Move(Jumbo,4),0). %;Happens(ThrowOff(Silver,Homer),0). %;HoldsAt(PosDeterminingFluent(Homer,2),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8231). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range position 1 8 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8231). % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8233). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest3.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8262). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8264). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8264). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8266). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8268). % human Homer % From E: % % t(human,homer). human(homer). % dog Snoopy :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8268). % From E: % % t(dog,snoopy). dog(snoopy). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8271). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8271). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8273). % Species(Snoopy)=DogSpecies. % From E: % % species(snoopy)=dogSpecies. species(snoopy,dogSpecies). % Adult(Snoopy). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8273). % From E: % % adult(snoopy). adult(snoopy). % !HoldsAt(Opened(GateAO),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8275). % From E: % % holds_at(not(opened(gateAO)),0). initially not opened(gateAO). % initial_state([not(opened(gateAO))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8277). % {position} % HoldsAt(Pos(Homer,position),0) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),0) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8277). exists([Position], (initially(pos(homer, Position)), outside(loc(Position)))). % {position} % HoldsAt(Pos(Snoopy,position),0) & CageA=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(snoopy,Position),0) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8277). exists([Position], (initially(pos(snoopy, Position)), cageA(loc(Position)))). % {position} % HoldsAt(Pos(Homer,position),2) & CageA=Loc(position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8279). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),2) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8279). exists([Position], (holds_at(pos(homer, Position), 2), cageA(loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8281). % {position} % HoldsAt(Pos(Snoopy,position),2) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(snoopy,Position),2) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8281). exists([Position], (holds_at(pos(snoopy, Position), 2), outside(loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8283). % [human] % HoldsAt(PosDeterminingFluent(human,1),2). % From E: % % holds_at(posDeterminingFluent(Human,1),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8283). holds_at(posDeterminingFluent(Human,1),2). % [event,animal] % !HoldsAt(DoneBy(event,animal),2). % From E: % % holds_at(not(doneBy(Event,Animal)),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8283). holds_at(not(doneBy(Event,Animal)),2). % range time 0 2 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8285). % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8287). % range position 1 8 % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). % range offset 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8287). % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooWorld.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8317). % sort position: integer % From E: % % subsort(position,integer). subsort(position,integer). % sort location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8317). % From E: % % sort(location). sort(location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8319). % sort cage: location % From E: % % subsort(cage,location). subsort(cage,location). % sort gate :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8319). % From E: % % sort(gate). sort(gate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8321). % sort animal % From E: % % sort(animal). sort(animal). % sort elephant: animal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8321). % From E: % % subsort(elephant,animal). subsort(elephant,animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8323). % sort horse: animal % From E: % % subsort(horse,animal). subsort(horse,animal). % sort dog: animal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8323). % From E: % % subsort(dog,animal). subsort(dog,animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8325). % sort human: animal % From E: % % subsort(human,animal). subsort(human,animal). % sort species :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8325). % From E: % % sort(species). sort(species). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8328). % function Loc(position): location % From E: % % function(loc(position),location). function(loc(position),location). % function Side1(gate): position :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8328). % From E: % % function(side1(gate),position). function(side1(gate),position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8330). % function Side2(gate): position % From E: % % function(side2(gate),position). function(side2(gate),position). % function Species(animal): species :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8330). % From E: % % function(species(animal),species). function(species(animal),species). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8333). % predicate Accessible(position,position,time) % From E: % % predicate(accessible(position,position,time)). mpred_prop(accessible(position,position,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8333). predicates([accessible/3]). % predicate Adult(animal) % From E: % % predicate(adult(animal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8333). mpred_prop(adult(animal),predicate). predicates([adult/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8335). % predicate Large(animal) % From E: % % predicate(large(animal)). mpred_prop(large(animal),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8335). predicates([large/1]). % predicate LargeSpecies(species) % From E: % % predicate(largeSpecies(species)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8335). mpred_prop(largeSpecies(species),predicate). predicates([largeSpecies/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8337). % predicate Neighbor(position,position) % From E: % % predicate(neighbor(position,position)). mpred_prop(neighbor(position,position),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8337). predicates([neighbor/2]). % predicate Sides(position,position,gate) % From E: % % predicate(sides(position,position,gate)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8337). mpred_prop(sides(position,position,gate),predicate). predicates([sides/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8340). % event Close(human,gate) % From E: % % event(close(human,gate)). mpred_prop(close(human,gate),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8340). events([close/2]). % event GetOff(human,animal) % From E: % % event(getOff(human,animal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8340). mpred_prop(getOff(human,animal),event). events([getOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8342). % event Mount(human,animal) % From E: % % event(mount(human,animal)). mpred_prop(mount(human,animal),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8342). events([mount/2]). % event Move(animal,position) % From E: % % event(move(animal,position)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8342). mpred_prop(move(animal,position),event). events([move/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8344). % event Open(human,gate) % From E: % % event(open(human,gate)). mpred_prop(open(human,gate),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8344). events([open/2]). % event ThrowOff(animal,human) % From E: % % event(throwOff(animal,human)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8344). mpred_prop(throwOff(animal,human),event). events([throwOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8347). % fluent AbnormalEncroachment(human) % From E: % % fluent(abnormalEncroachment(human)). mpred_prop(abnormalEncroachment(human),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8347). fluents([abnormalEncroachment/1]). % noninertial AbnormalEncroachment % From E: % % :-call_pel_directive(noninertial(abnormalEncroachment)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8347). :- call_pel_directive(noninertial(abnormalEncroachment)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8349). % fluent DoneBy(event,animal) % From E: % % fluent(doneBy(event,animal)). mpred_prop(doneBy(event,animal),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8349). fluents([doneBy/2]). % noninertial DoneBy % From E: % % :-call_pel_directive(noninertial(doneBy)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8349). :- call_pel_directive(noninertial(doneBy)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8351). % fluent Mounted(human,animal) % From E: % % fluent(mounted(human,animal)). mpred_prop(mounted(human,animal),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8351). fluents([mounted/2]). % fluent MountFails(human) % From E: % % fluent(mountFails(human)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8351). mpred_prop(mountFails(human),fluent). fluents([mountFails/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8353). % noninertial MountFails % From E: % % :-call_pel_directive(noninertial(mountFails)). :- call_pel_directive(noninertial(mountFails)). % fluent Moves(animal) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8353). % From E: % % fluent(moves(animal)). mpred_prop(moves(animal),fluent). fluents([moves/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8355). % noninertial Moves % From E: % % :-call_pel_directive(noninertial(moves)). :- call_pel_directive(noninertial(moves)). % fluent Opened(gate) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8355). % From E: % % fluent(opened(gate)). mpred_prop(opened(gate),fluent). fluents([opened/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8357). % fluent Pos(animal,position) % From E: % % fluent(pos(animal,position)). mpred_prop(pos(animal,position),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8357). fluents([pos/2]). % fluent PosDeterminingFluent(human,position) % From E: % % fluent(posDeterminingFluent(human,position)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8357). mpred_prop(posDeterminingFluent(human,position),fluent). fluents([posDeterminingFluent/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8359). % noninertial PosDeterminingFluent % From E: % % :-call_pel_directive(noninertial(posDeterminingFluent)). :- call_pel_directive(noninertial(posDeterminingFluent)). % fluent ThrowOffFails(animal,human) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8359). % From E: % % fluent(throwOffFails(animal,human)). mpred_prop(throwOffFails(animal,human),fluent). fluents([throwOffFails/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8361). % noninertial ThrowOffFails % From E: % % :-call_pel_directive(noninertial(throwOffFails)). :- call_pel_directive(noninertial(throwOffFails)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8363). % species HumanSpecies, ElephantSpecies, HorseSpecies, DogSpecies % From E: % % t(species,humanSpecies). species(humanSpecies). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8363). % From E: % % t(species,elephantSpecies). species(elephantSpecies). % From E: % % t(species,horseSpecies). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8363). species(horseSpecies). % From E: % % t(species,dogSpecies). species(dogSpecies). % location Outside :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8363). % From E: % % t(location,outside). location(outside). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8366). % LargeSpecies(HumanSpecies). % From E: % % largeSpecies(humanSpecies). largeSpecies(humanSpecies). % LargeSpecies(ElephantSpecies). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8366). % From E: % % largeSpecies(elephantSpecies). largeSpecies(elephantSpecies). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8368). % LargeSpecies(HorseSpecies). % From E: % % largeSpecies(horseSpecies). largeSpecies(horseSpecies). % !LargeSpecies(DogSpecies). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8368). % From E: % % not(largeSpecies(dogSpecies)). not(largeSpecies(dogSpecies)). % [event,animal,time] % HoldsAt(DoneBy(event,animal),time) <-> % (Happens(event,time) & % (({gate} event=Close(animal,gate)) | % ({animal1} event=GetOff(animal,animal1))| % ({animal1} event=Mount(animal,animal1))| % ({position} event=Move(animal,position))| % ({gate} event=Open(animal,gate)) | % ({human1} event=ThrowOff(animal,human1)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8372). % From E: % % <->( % holds_at(doneBy(Event,Animal),Time), % (happens_at(Event,Time) , % (exists( % [Gate], % '='( % Event, % close(Animal,Gate))) ; % exists( % [Animal1], % '='( % Event, % getOff(Animal,Animal1))) ; % exists( % [Animal15], % '='( % Event, % mount(Animal,Animal15))) ; % exists( % [Position], % '='( % Event, % move(Animal,Position))) ; % exists( % [Gate7], % '='( % Event, % open(Animal,Gate7))) ; % exists( % [Human1], % '='( % Event, % throwOff(Animal,Human1)))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8372). doneBy(Event, Animal) <-> Event, ( exists([Gate], Event=close(Animal, Gate)) ; exists([Animal1], Event=getOff(Animal, Animal1)) ; exists([Animal15], Event=mount(Animal, Animal15)) ; exists([Position], Event=move(Animal, Position)) ; exists([Gate7], Event=open(Animal, Gate7)) ; exists([Human1], Event=throwOff(Animal, Human1)) ). % [event1,event2,animal,time] % HoldsAt(DoneBy(event1,animal),time) & % HoldsAt(DoneBy(event2,animal),time) -> % event1=event2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8382). % From E: % % '->'( % (holds_at(doneBy(Event1,Animal),Time) , % holds_at(doneBy(Event2,Animal),Time)), % Event1=Event2). % [Time]. false not equals(Event1, Event2), doneBy(Event1, Animal), doneBy(Event2, Animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8382). /* d_pre([ not(equals(Event1,Event2)), doneBy(Event1,Animal), doneBy(Event2,Animal) ]). */ % "% =================================". % [animal] % Large(animal) <-> (Adult(animal) & LargeSpecies(Species(animal))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8385). % From E: % % <->( % large(Animal), % (adult(Animal) , % largeSpecies(species(Animal)))). if large(Animal)then adult(Animal), largeSpecies(species(Animal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8385). /* reactive_rule([large(Animal)], [adult(Animal),largeSpecies(species(Animal))]). */ % "% =================================". if adult(Animal), largeSpecies(species(Animal))then large(Animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8385). /* reactive_rule([adult(Animal),largeSpecies(species(Animal))], [large(Animal)]). */ % "% =================================". % [position] % {position1} % position1!=% position & Neighbor(position,position1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8387). % From E: % % exists( % [Position1], % (Position1\=Position , % neighbor(Position,Position1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8387). exists([Position1], (Position1\=Position, neighbor(Position, Position1))). % [position] % !Neighbor(position,position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8389). % From E: % % not(neighbor(Position,Position)). not(neighbor(Position,Position)). % [position1,position2] % Neighbor(position1,position2) -> % Neighbor(position2,position1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8393). % From E: % % '->'( % neighbor(Position1,Position2), % neighbor(Position2,Position1)). if neighbor(Position1, Position2)then neighbor(Position2, Position1). /* reactive_rule([neighbor(Position1,Position2)], [neighbor(Position2,Position1)]). */ % "% =================================". % [cage] % cage!=% Outside. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8395). % From E: % % Cage\=outside. Cage\=outside. % [position1,position2,gate] % Sides(position1,position2,gate) <-> % ((Side1(gate)=position1 & % Side2(gate)=position2) | % (Side2(gate)=position1 & % Side1(gate)=position2)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8399). % From E: % % <->( % sides(Position1,Position2,Gate), % ((side1(Gate)=Position1 , % side2(Gate)=Position2) ; % (side2(Gate)=Position1 , % side1(Gate)=Position2))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8399). sides(Position1, Position2, Gate) <-> ( side1(Gate, Position1), side2(Gate, Position2) ; side2(Gate, Position1), side1(Gate, Position2) ). % [gate] % Loc(Side1(gate))!=Loc(Side2(gate)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8404). % From E: % % '\='( % loc(side1(Gate)), % loc(side2(Gate))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8404). loc(side1(Gate))\=loc(side2(Gate)). % [position1,position2,gate1,gate2] % Sides(position1,position2,gate1) & % Sides(position1,position2,gate2) -> % gate1=gate2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8408). % From E: % % '->'( % (sides(Position1,Position2,Gate1) , % sides(Position1,Position2,Gate2)), % Gate1=Gate2). false not equals(Gate1, Gate2), sides(Position1, Position2, Gate1), sides(Position1, Position2, Gate2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8408). /* d_pre([ not(equals(Gate1,Gate2)), sides(Position1,Position2,Gate1), sides(Position1,Position2,Gate2) ]). */ % "% =================================". % [position1,position2,gate] % Sides(position1,position2,gate) -> % Neighbor(position1,position2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8413). % From E: % % '->'( % sides(Position1,Position2,Gate), % neighbor(Position1,Position2)). if sides(Position1, Position2, Gate)then neighbor(Position1, Position2). /* reactive_rule([sides(Position1,Position2,Gate)], [neighbor(Position1,Position2)]). */ % "% =================================". % [position1,position2] % Loc(position1) != Loc(position2) & % Neighbor(position1,position2) -> :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8417). % {gate}% Sides(position1,position2,gate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8419). % From E: % % exists( % [Gate], % '->'( % ('\='( % loc(Position1), % loc(Position2)) , % neighbor(Position1,Position2)), % sides(Position1,Position2,Gate))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8419). exists([Gate], (loc(Position1)\=loc(Position2), neighbor(Position1, Position2)->sides(Position1, Position2, Gate))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8421). % [animal,position1,position2,time] % HoldsAt(Pos(animal,position1),time) & % HoldsAt(Pos(animal,position2),time) -> % position1=position2. % From E: % % '->'( % (holds_at(pos(Animal,Position1),Time) , % holds_at(pos(Animal,Position2),Time)), % Position1=Position2). % [Time]. false not equals(Position1, Position2), pos(Animal, Position1), pos(Animal, Position2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8421). /* d_pre([ not(equals(Position1,Position2)), holds(pos(Animal,Position1),Time_At), holds(pos(Animal,Position2),Time_At) ]). */ % "% =================================". % [animal,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8427). % {position} % HoldsAt(Pos(animal,position),time). % From E: % % exists( % [Position], % holds_at(pos(Animal,Position),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8427). exists([Position], pos(Animal,Position)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8429). % [animal1,animal2,position,time] % (animal1!=animal2 & % Large(animal1) & % Large(animal2) & % HoldsAt(Pos(animal1,position),time) & % HoldsAt(Pos(animal2,position),time)) -> % (({human} human=animal1 & HoldsAt(Mounted(human,animal2),time)) | % ({human} human=animal2 & HoldsAt(Mounted(human,animal1),time))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8429). % From E: % % '->'( % (Animal1\=Animal2 , % large(Animal1) , % large(Animal2) , % holds_at(pos(Animal1,Position),Time) , % holds_at(pos(Animal2,Position),Time)), % (exists( % [Human], % (Human=Animal1 , % holds_at(mounted(Human,Animal2),Time))) ; % exists( % [Human5], % (Human5=Animal2 , % holds_at(mounted(Human5,Animal1),Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8429). Animal1\=Animal2, large(Animal1), large(Animal2), pos(Animal1, Position), pos(Animal2, Position) -> ( exists([Human], (Human=Animal1, mounted(Human, Animal2))) ; exists([Human5], (Human5=Animal2, mounted(Human5, Animal1))) ). % [human,position1,position2,time] % HoldsAt(PosDeterminingFluent(human,position1),time) & % HoldsAt(PosDeterminingFluent(human,position2),time) -> % position1=position2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8439). % From E: % % '->'( % (holds_at(posDeterminingFluent(Human,Position1),Time) , % holds_at(posDeterminingFluent(Human,Position2),Time)), % Position1=Position2). % [Time]. false not equals(Position1, Position2), posDeterminingFluent(Human, Position1), posDeterminingFluent(Human, Position2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8439). /* d_pre([ not(equals(Position1,Position2)), posDeterminingFluent(Human,Position1), posDeterminingFluent(Human,Position2) ]). */ % "% =================================". % [animal,position,time] % Initiates(Move(animal,position),Pos(animal,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8444). % From E: % % initiates_at( % move(Animal,Position), % pos(Animal,Position), % Time). % [Time]. move(Animal, Position)initiates pos(Animal, Position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8444). /* initiated(happens(move(Animal,Position), Time_From, Time_Until), pos(Animal,Position), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8446). % [animal,position1,position2,time] % HoldsAt(Pos(animal,position1),time) -> % Terminates(Move(animal,position2),Pos(animal,position1),time). % From E: % % '->'( % holds_at(pos(Animal,Position1),Time), % terminates_at( % move(Animal,Position2), % pos(Animal,Position1), % Time)). % [Time]. move(Animal, Position2)terminates pos(Animal, Position1)if pos(Animal, Position1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8446). /* terminated(happens(move(Animal,Position2), Time_From, Time_Until), pos(Animal,Position1), [holds(pos(Animal,Position1),Time_From)]). */ % "% =================================". % [animal,position,time] % Happens(Move(animal,position),time) -> % !HoldsAt(Pos(animal,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8451). % From E: % % '->'( % happens_at(move(Animal,Position),Time), % holds_at(not(pos(Animal,Position)),Time)). % [Time]. not pos(Animal, Position)if move(Animal, Position). /* l_int(holds(not(pos(Animal,Position)),Time_At), [ happens(move(Animal,Position), Time_At, Time_At) ]). */ % "% =================================". % [human,position,time] % Happens(Move(human,position),time) -> % !{animal} HoldsAt(Mounted(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8455). % From E: % % '->'( % happens_at(move(Human,Position),Time), % not( % exists( % [Animal], % holds_at(mounted(Human,Animal),Time)))). % [Time]. not mounted(Human, Animal)if move(Human, Position). /* l_int(holds(not(mounted(Human,Animal)),Time_At), [ happens(move(Human,Position), Time_At, Time_At) ]). */ % "% =================================". % [human,gate,time] % Initiates(Open(human,gate),Opened(gate),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8459). % From E: % % initiates_at( % open(Human,Gate), % opened(Gate), % Time). % [Time]. open(Human, Gate)initiates opened(Gate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8459). /* initiated(happens(open(Human,Gate), Time_From, Time_Until), opened(Gate), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8461). % [human,gate,time] % Happens(Open(human,gate),time) -> % !HoldsAt(Opened(gate),time) & % (!{animal} HoldsAt(Mounted(human,animal),time)) & % ({position} % (Side1(gate)=position | Side2(gate)=position) & % HoldsAt(Pos(human,position),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8461). % From E: % % '->'( % happens_at(open(Human,Gate),Time), % (holds_at(not(opened(Gate)),Time) , % not( % exists( % [Animal], % holds_at(mounted(Human,Animal),Time))) , % exists( % [Position], % ((side1(Gate)=Position ; % side2(Gate)=Position) , % holds_at(pos(Human,Position),Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8461). open(Human, Gate) -> not(opened(Gate)), not(mounted(Human, Animal)), exists([Position], (false((not(side1(Gate, Position)), not(side2(Gate, Position)))), pos(Human, Position))). % [human,gate,time] % Terminates(Close(human,gate),Opened(gate),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8470). % From E: % % terminates_at( % close(Human,Gate), % opened(Gate), % Time). % [Time]. close(Human, Gate)terminates opened(Gate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8470). /* terminated(happens(close(Human,Gate), Time_From, Time_Until), opened(Gate), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8472). % [human,gate,time] % Happens(Close(human,gate),time) -> % HoldsAt(Opened(gate),time) & % (!{animal} HoldsAt(Mounted(human,animal),time)) & % {position}% % (Side1(gate)=position | Side2(gate)=position) & % HoldsAt(Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8476). % From E: % % exists( % [Position], % '->'( % happens_at(close(Human,Gate),Time), % (holds_at(opened(Gate),Time) , % not( % exists( % [Animal], % holds_at(mounted(Human,Animal),Time))) , % (side1(Gate)=Position ; % side2(Gate)=Position) , % holds_at(pos(Human,Position),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8476). exists([Position], (close(Human, Gate)->opened(Gate), not(mounted(Human, Animal)), false((not(side1(Gate, Position)), not(side2(Gate, Position)))), pos(Human, Position))). % [human,animal,position,time] % HoldsAt(Mounted(human,animal),time) & % HoldsAt(Pos(animal,position),time) -> % HoldsAt(Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8481). % From E: % % '->'( % (holds_at(mounted(Human,Animal),Time) , % holds_at(pos(Animal,Position),Time)), % holds_at(pos(Human,Position),Time)). % [Time]. pos(Human, Position)if mounted(Human, Animal), pos(Animal, Position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8481). /* l_int(holds(pos(Human,Position),Time_At), [ holds(mounted(Human,Animal),Time_At), holds(pos(Animal,Position),Time_At) ]). */ % "% =================================". % [animal,time] % HoldsAt(Moves(animal),time) <-> % ({position} % HoldsAt(Pos(animal,position),time) & % !HoldsAt(Pos(animal,position),time+1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8486). % From E: % % <->( % holds_at(moves(Animal),Time), % exists( % [Position], % (holds_at(pos(Animal,Position),Time) , % holds_at(not(pos(Animal,Position)),Time+1)))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8486). holds_at(moves(Animal), Time) <-> exists([Position], (holds_at(pos(Animal, Position), Time), holds_at(not(pos(Animal, Position)), Time+1))). % [human,time] % HoldsAt(MountFails(human),time) <-> % ({animal} % Happens(Mount(human,animal),time) & % HoldsAt(Moves(animal),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8492). % From E: % % <->( % holds_at(mountFails(Human),Time), % exists( % [Animal], % (happens_at(mount(Human,Animal),Time) , % holds_at(moves(Animal),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8492). mountFails(Human) <-> exists([Animal], (mount(Human, Animal), moves(Animal))). % [human,animal,position,time] % !HoldsAt(Moves(animal),time) -> % Releases(Mount(human,animal),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8498). % From E: % % '->'( % holds_at(not(moves(Animal)),Time), % releases_at( % mount(Human,Animal), % pos(Human,Position), % Time)). % [Time]. if not moves(Animal)then releases(mount(Human, Animal), pos(Human, Position)). /* reactive_rule([not(moves(Animal))], [ releases(mount(Human,Animal), pos(Human,Position)) ]). */ % "% =================================". % [human,animal,time] % !HoldsAt(Moves(animal),time) -> % Initiates(Mount(human,animal),Mounted(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8502). % From E: % % '->'( % holds_at(not(moves(Animal)),Time), % initiates_at( % mount(Human,Animal), % mounted(Human,Animal), % Time)). % [Time]. mount(Human, Animal)initiates mounted(Human, Animal)if not moves(Animal). /* initiated(happens(mount(Human,Animal), Time_From, Time_Until), mounted(Human,Animal), [not(moves(Animal))]). */ % "% =================================". % [human,animal,position,time] % HoldsAt(Pos(animal,position),time) & % HoldsAt(Moves(animal),time) -> % Initiates(Mount(human,animal),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8506). % From E: % % '->'( % (holds_at(pos(Animal,Position),Time) , % holds_at(moves(Animal),Time)), % initiates_at( % mount(Human,Animal), % pos(Human,Position), % Time)). % [Time]. mount(Human, Animal)initiates pos(Human, Position)if pos(Animal, Position), moves(Animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8506). /* initiated(happens(mount(Human,Animal), Time_From, Time_Until), pos(Human,Position), [ holds(pos(Animal,Position),Time_From), moves(Animal) ]). */ % "% =================================". % [human,animal,position,time] % HoldsAt(Pos(human,position),time) & % HoldsAt(Moves(animal),time) -> % Terminates(Mount(human,animal),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8511). % From E: % % '->'( % (holds_at(pos(Human,Position),Time) , % holds_at(moves(Animal),Time)), % terminates_at( % mount(Human,Animal), % pos(Human,Position), % Time)). % [Time]. mount(Human, Animal)terminates pos(Human, Position)if pos(Human, Position), moves(Animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8511). /* terminated(happens(mount(Human,Animal), Time_From, Time_Until), pos(Human,Position), [ holds(pos(Human,Position),Time_From), moves(Animal) ]). */ % "% =================================". % [human,animal,time] % Happens(Mount(human,animal),time) -> % Large(animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8516). % From E: % % '->'( % happens_at(mount(Human,Animal),Time), % large(Animal)). % [Time]. if mount(Human, Animal)then large(Animal). /* reactive_rule([ happens(mount(Human,Animal), Time_From, Time_Until) ], [large(Animal)]). */ % "% =================================". % [human,animal,time] % HoldsAt(Mounted(human,animal),time) -> % Large(animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8520). % From E: % % '->'( % holds_at(mounted(Human,Animal),Time), % large(Animal)). % [Time]. if mounted(Human, Animal)then large(Animal). /* reactive_rule([holds(mounted(Human,Animal),Time_At)], [large(Animal)]). */ % "% =================================". % [human1,human2,time] % Happens(Mount(human1,human2),time) -> % !Large(human1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8524). % From E: % % '->'( % happens_at(mount(Human1,Human2),Time), % not(large(Human1))). % [Time]. if mount(Human1, Human2)then not large(Human1). /* reactive_rule([ happens(mount(Human1,Human2), Time_From, Time_Until) ], [not(large(Human1))]). */ % "% =================================". % [human1,human2,time] % HoldsAt(Mounted(human1,human2),time) -> % !Large(human1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8528). % From E: % % '->'( % holds_at(mounted(Human1,Human2),Time), % not(large(Human1))). % [Time]. if mounted(Human1, Human2)then not large(Human1). /* reactive_rule([holds(mounted(Human1,Human2),Time_At)], [not(large(Human1))]). */ % "% =================================". % [human,animal,time] % Happens(Mount(human,animal),time) -> % !{human1} human1!=human & HoldsAt(Mounted(human1,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8532). % From E: % % '->'( % happens_at(mount(Human,Animal),Time), % not( % exists( % [Human1], % (Human1\=Human , % holds_at(mounted(Human1,Animal),Time))))). % [Time]. mount(Human, Animal) -> not(( Human1\=Human, mounted(Human1, Animal) )). % [human1,human2,animal,time] % HoldsAt(Mounted(human1,animal),time) & % HoldsAt(Mounted(human2,animal),time) -> % human1=human2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8536). % From E: % % '->'( % (holds_at(mounted(Human1,Animal),Time) , % holds_at(mounted(Human2,Animal),Time)), % Human1=Human2). % [Time]. false not equals(Human1, Human2), mounted(Human1, Animal), mounted(Human2, Animal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8536). /* d_pre([ not(equals(Human1,Human2)), holds(mounted(Human1,Animal),Time_At), holds(mounted(Human2,Animal),Time_At) ]). */ % "% =================================". % [human,animal,time] % Happens(Mount(human,animal),time) -> % !{human1} human1!=human & HoldsAt(Mounted(human1,human),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8541). % From E: % % '->'( % happens_at(mount(Human,Animal),Time), % not( % exists( % [Human1], % (Human1\=Human , % holds_at(mounted(Human1,Human),Time))))). % [Time]. mount(Human, Animal) -> not(( Human1\=Human, mounted(Human1, Human) )). % [human1,human2,time] % Happens(Mount(human1,human2),time) -> % {animal}% HoldsAt(Mounted(human2,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8545). % From E: % % exists( % [Animal], % '->'( % happens_at(mount(Human1,Human2),Time), % holds_at(mounted(Human2,Animal),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8545). exists([Animal], if(mounted(Human2,Animal),mount(Human1,Human2))). % [human1,human2,time] % HoldsAt(Mounted(human1,human2),time) -> % !{animal} HoldsAt(Mounted(human2,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8549). % From E: % % '->'( % holds_at(mounted(Human1,Human2),Time), % not( % exists( % [Animal], % holds_at(mounted(Human2,Animal),Time)))). % [Time]. not mounted(Human2, Animal)if mounted(Human1, Human2). /* l_int(holds(not(mounted(Human2,Animal)),Time_At), [holds(mounted(Human1,Human2),Time_At)]). */ % "% =================================". % [human,animal,time] % Happens(Mount(human,animal),time) -> % !{animal1} HoldsAt(Mounted(human,animal1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8553). % From E: % % '->'( % happens_at(mount(Human,Animal),Time), % not( % exists( % [Animal1], % holds_at(mounted(Human,Animal1),Time)))). % [Time]. not mounted(Human, Animal1)if mount(Human, Animal). /* l_int(holds(not(mounted(Human,Animal1)),Time_At), [ happens(mount(Human,Animal), Time_At, Time_At) ]). */ % "% =================================". % [human,animal,time] % !HoldsAt(Moves(animal),time) -> % Terminates(GetOff(human,animal),Mounted(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8557). % From E: % % '->'( % holds_at(not(moves(Animal)),Time), % terminates_at( % getOff(Human,Animal), % mounted(Human,Animal), % Time)). % [Time]. getOff(Human, Animal)terminates mounted(Human, Animal)if not moves(Animal). /* terminated(happens(getOff(Human,Animal), Time_From, Time_Until), mounted(Human,Animal), [not(moves(Animal))]). */ % "% =================================". % [human,animal,position,time] % !HoldsAt(Moves(animal),time) & % HoldsAt(PosDeterminingFluent(human,position),time) -> % Initiates(GetOff(human,animal),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8561). % From E: % % '->'( % (holds_at(not(moves(Animal)),Time) , % holds_at(posDeterminingFluent(Human,Position),Time)), % initiates_at( % getOff(Human,Animal), % pos(Human,Position), % Time)). % [Time]. getOff(Human, Animal)initiates pos(Human, Position)if not moves(Animal), posDeterminingFluent(Human, Position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8561). /* initiated(happens(getOff(Human,Animal), Time_From, Time_Until), pos(Human,Position), [ not(moves(Animal)), posDeterminingFluent(Human,Position) ]). */ % "% =================================". % [human,animal,position,time] % !HoldsAt(Moves(animal),time) & % HoldsAt(Pos(human,position),time) -> % Terminates(GetOff(human,animal),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8566). % From E: % % '->'( % (holds_at(not(moves(Animal)),Time) , % holds_at(pos(Human,Position),Time)), % terminates_at( % getOff(Human,Animal), % pos(Human,Position), % Time)). % [Time]. getOff(Human, Animal)terminates pos(Human, Position)if not moves(Animal), pos(Human, Position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8566). /* terminated(happens(getOff(Human,Animal), Time_From, Time_Until), pos(Human,Position), [ not(moves(Animal)), holds(pos(Human,Position),Time_From) ]). */ % "% =================================". % [human,animal,position1,position2,time] % !HoldsAt(Moves(animal),time) & % HoldsAt(Pos(human,position1),time) & % position1!=position2 -> % Terminates(GetOff(human,animal),Pos(human,position2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8571). % From E: % % '->'( % (holds_at(not(moves(Animal)),Time) , % holds_at(pos(Human,Position1),Time) , % Position1\=Position2), % terminates_at( % getOff(Human,Animal), % pos(Human,Position2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8571). not(moves(Animal)), pos(Human, Position1), Position1\=Position2 -> terminates(getOff(Human, Animal), pos(Human, Position2)). % [human,animal,time] % Happens(GetOff(human,animal),time) -> % HoldsAt(Mounted(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8577). % From E: % % '->'( % happens_at(getOff(Human,Animal),Time), % holds_at(mounted(Human,Animal),Time)). % [Time]. mounted(Human, Animal)if getOff(Human, Animal). /* l_int(holds(mounted(Human,Animal),Time_At), [ happens(getOff(Human,Animal), Time_At, Time_At) ]). */ % "% =================================". % [animal1,human,time] % HoldsAt(ThrowOffFails(animal1,human),time) <-> % ({position,animal2} % animal2!=human & % HoldsAt(PosDeterminingFluent(human,position),time) & % Large(animal2) & % HoldsAt(Pos(animal2,position),time+1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8581). % From E: % % <->( % holds_at(throwOffFails(Animal1,Human),Time), % exists( % [ Position, % Animal2 ], % (Animal2\=Human , % holds_at(posDeterminingFluent(Human,Position),Time) , % large(Animal2) , % holds_at(pos(Animal2,Position),Time+1)))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8581). holds_at(throwOffFails(Animal1, Human), Time) <-> exists([Position, Animal2], (Animal2\=Human, holds_at(posDeterminingFluent(Human, Position), Time), large(Animal2), holds_at(pos(Animal2, Position), Time+1))). % [animal,human,position,time] % HoldsAt(PosDeterminingFluent(human,position),time) & % !HoldsAt(ThrowOffFails(animal,human),time) -> % Initiates(ThrowOff(animal,human),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8589). % From E: % % '->'( % (holds_at(posDeterminingFluent(Human,Position),Time) , % holds_at(not(throwOffFails(Animal,Human)),Time)), % initiates_at( % throwOff(Animal,Human), % pos(Human,Position), % Time)). % [Time]. throwOff(Animal, Human)initiates pos(Human, Position)if posDeterminingFluent(Human, Position), not throwOffFails(Animal, Human). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8589). /* initiated(happens(throwOff(Animal,Human), Time_From, Time_Until), pos(Human,Position), [ posDeterminingFluent(Human,Position), not(throwOffFails(Animal,Human)) ]). */ % "% =================================". % [animal,human,position,time] % HoldsAt(Pos(human,position),time) & % !HoldsAt(ThrowOffFails(animal,human),time) -> % Terminates(ThrowOff(animal,human),Pos(human,position),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8594). % From E: % % '->'( % (holds_at(pos(Human,Position),Time) , % holds_at(not(throwOffFails(Animal,Human)),Time)), % terminates_at( % throwOff(Animal,Human), % pos(Human,Position), % Time)). % [Time]. throwOff(Animal, Human)terminates pos(Human, Position)if pos(Human, Position), not throwOffFails(Animal, Human). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8594). /* terminated(happens(throwOff(Animal,Human), Time_From, Time_Until), pos(Human,Position), [ holds(pos(Human,Position),Time_From), not(throwOffFails(Animal,Human)) ]). */ % "% =================================". % [animal,human,position1,position2,time] % !HoldsAt(ThrowOffFails(animal,human),time) & % HoldsAt(Pos(human,position1),time) & % !HoldsAt(PosDeterminingFluent(human,position2),time) & % position1!=position2 -> % Terminates(ThrowOff(animal,human),Pos(human,position2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8599). % From E: % % '->'( % (holds_at(not(throwOffFails(Animal,Human)),Time) , % holds_at(pos(Human,Position1),Time) , % holds_at(not(posDeterminingFluent(Human,Position2)),Time) , % Position1\=Position2), % terminates_at( % throwOff(Animal,Human), % pos(Human,Position2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8599). not(throwOffFails(Animal, Human)), pos(Human, Position1), not(posDeterminingFluent(Human, Position2)), Position1\=Position2 -> terminates(throwOff(Animal, Human), pos(Human, Position2)). % [human,time] % (!{animal} Happens(ThrowOff(animal,human),time) | % Happens(GetOff(human,animal),time)) -> % HoldsAt(PosDeterminingFluent(human,1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8606). % From E: % % '->'( % not( % exists( % [Animal], % (happens_at(throwOff(Animal,Human),Time) ; % happens_at(getOff(Human,Animal),Time)))), % holds_at(posDeterminingFluent(Human,1),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8606). not(false((not(throwOff(Animal, Human)), not(getOff(Human, Animal))))) -> posDeterminingFluent(Human, 1). % [human,position,animal1,animal2,time] % HoldsAt(PosDeterminingFluent(human,position),time) & % HoldsAt(ThrowOffFails(animal1,human),time) & % HoldsAt(Pos(animal2,position),time) -> % Initiates(ThrowOff(animal1,human),Mounted(human,animal2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8611). % From E: % % '->'( % (holds_at(posDeterminingFluent(Human,Position),Time) , % holds_at(throwOffFails(Animal1,Human),Time) , % holds_at(pos(Animal2,Position),Time)), % initiates_at( % throwOff(Animal1,Human), % mounted(Human,Animal2), % Time)). % [Time]. throwOff(Animal1, Human)initiates mounted(Human, Animal2)if posDeterminingFluent(Human, Position), throwOffFails(Animal1, Human), pos(Animal2, Position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8611). /* initiated(happens(throwOff(Animal1,Human), Time_From, Time_Until), mounted(Human,Animal2), [ posDeterminingFluent(Human,Position), throwOffFails(Animal1,Human), holds(pos(Animal2,Position),Time_From) ]). */ % "% =================================". % [human,animal,time] % !HoldsAt(ThrowOffFails(animal,human),time) -> % Terminates(ThrowOff(animal,human),Mounted(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8617). % From E: % % '->'( % holds_at(not(throwOffFails(Animal,Human)),Time), % terminates_at( % throwOff(Animal,Human), % mounted(Human,Animal), % Time)). % [Time]. throwOff(Animal, Human)terminates mounted(Human, Animal)if not throwOffFails(Animal, Human). /* terminated(happens(throwOff(Animal,Human), Time_From, Time_Until), mounted(Human,Animal), [not(throwOffFails(Animal,Human))]). */ % "% =================================". % [animal,human,time] % Happens(ThrowOff(animal,human),time) -> % HoldsAt(Mounted(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8621). % From E: % % '->'( % happens_at(throwOff(Animal,Human),Time), % holds_at(mounted(Human,Animal),Time)). % [Time]. mounted(Human, Animal)if throwOff(Animal, Human). /* l_int(holds(mounted(Human,Animal),Time_At), [ happens(throwOff(Animal,Human), Time_At, Time_At) ]). */ % "% =================================". % [animal,human,time] % Happens(ThrowOff(animal,human),time) -> % !Happens(GetOff(human,animal),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8625). % From E: % % '->'( % happens_at(throwOff(Animal,Human),Time), % not(happens_at(getOff(Human,Animal),Time))). % [Time]. if throwOff(Animal, Human)then not getOff(Human, Animal). /* reactive_rule([ happens(throwOff(Animal,Human), Time_From, Time_Until) ], [not(getOff(Human,Animal))]). */ % "% =================================". % [animal,human,time] % Happens(GetOff(human,animal),time) -> % !Happens(ThrowOff(animal,human),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8629). % From E: % % '->'( % happens_at(getOff(Human,Animal),Time), % not(happens_at(throwOff(Animal,Human),Time))). % [Time]. if getOff(Human, Animal)then not throwOff(Animal, Human). /* reactive_rule([ happens(getOff(Human,Animal), Time_From, Time_Until) ], [not(throwOff(Animal,Human))]). */ % "% =================================". % [position1,position2,time] % Accessible(position1,position2,time) <-> % (Neighbor(position1,position2) & % !{gate} Sides(position1,position2,gate) & % !HoldsAt(Opened(gate),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8633). % From E: % % <->( % accessible(Position1,Position2,Time), % not( % exists( % [Gate], % (neighbor(Position1,Position2) , % sides(Position1,Position2,Gate) , % holds_at(not(opened(Gate)),Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8633). accessible(Position1, Position2, Time) <-> false((neighbor(Position1, Position2), sides(Position1, Position2, Gate), not(holds_at(opened(Gate), Time)))). % [animal,position1,position2,time] % (position1!=position2 & % HoldsAt(Pos(animal,position1),time) & % HoldsAt(Pos(animal,position2),time+1)) -> % Accessible(position1,position2,time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8639). % From E: % % '->'( % (Position1\=Position2 , % holds_at(pos(Animal,Position1),Time) , % holds_at(pos(Animal,Position2),Time+1)), % accessible(Position1,Position2,Time)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8639). Position1\=Position2, holds_at(pos(Animal, Position1), Time), holds_at(pos(Animal, Position2), Time+1) -> accessible(Position1, Position2, Time). % [human,time] % HoldsAt(AbnormalEncroachment(human),time) <-> % (HoldsAt(MountFails(human),time) | % ({position,animal1,animal2} % HoldsAt(PosDeterminingFluent(human,position),time) & % !HoldsAt(ThrowOffFails(animal2,human),time) & % Happens(ThrowOff(animal2,human),time) & % animal1!=human & % Large(animal1) & % HoldsAt(Pos(animal1,position),time) & % !HoldsAt(Pos(animal1,position),time+1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8645). % From E: % % <->( % holds_at(abnormalEncroachment(Human),Time), % (holds_at(mountFails(Human),Time) ; % exists( % [ Position, % Animal1, % Animal2 ], % (holds_at(posDeterminingFluent(Human,Position),Time) , % holds_at(not(throwOffFails(Animal2,Human)),Time) , % happens_at(throwOff(Animal2,Human),Time) , % Animal1\=Human , % large(Animal1) , % holds_at(pos(Animal1,Position),Time) , % holds_at(not(pos(Animal1,Position)),Time+1))))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8645). holds_at(abnormalEncroachment(Human), Time) <-> ( holds_at(mountFails(Human), Time) ; exists([Position, Animal1, Animal2], (holds_at(posDeterminingFluent(Human, Position), Time), holds_at(not(throwOffFails(Animal2, Human)), Time), happens_at(throwOff(Animal2, Human), Time), Animal1\=Human, large(Animal1), holds_at(pos(Animal1, Position), Time), holds_at(not(pos(Animal1, Position)), Time+1))) ). % [animal1,animal2,position,time] % HoldsAt(Pos(animal1,position),time) & % !HoldsAt(Pos(animal1,position),time+1) & % !HoldsAt(Pos(animal2,position),time) & % HoldsAt(Pos(animal2,position),time+1) -> % (!Large(animal1) | % !Large(animal2) | % ({human} human=animal2 & HoldsAt(AbnormalEncroachment(human),time))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8657). % From E: % % '->'( % (holds_at(pos(Animal1,Position),Time) , % holds_at(not(pos(Animal1,Position)),Time+1) , % holds_at(not(pos(Animal2,Position)),Time) , % holds_at(pos(Animal2,Position),Time+1)), % (not(large(Animal1)) ; % not(large(Animal2)) ; % exists( % [Human], % (Human=Animal2 , % holds_at(abnormalEncroachment(Human),Time))))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8657). holds_at(pos(Animal1, Position), Time), holds_at(not(pos(Animal1, Position)), Time+1), holds_at(not(pos(Animal2, Position)), Time), holds_at(pos(Animal2, Position), Time+1) -> ( not(large(Animal1)) ; not(large(Animal2)) ; exists([Human], (Human=Animal2, holds_at(abnormalEncroachment(Human), Time))) ). % [animal1,animal2,position1,position2,time] % animal1!=% animal2 & % Large(animal1) & Large(animal2) & % HoldsAt(Pos(animal1,position1),time) & % HoldsAt(Pos(animal1,position2),time+1) & % HoldsAt(Pos(animal2,position1),time) & % HoldsAt(Pos(animal2,position2),time+1) -> % !{gate} Sides(position1,position2,gate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8666). % From E: % % '->'( % (Animal1\=Animal2 , % large(Animal1) , % large(Animal2) , % holds_at(pos(Animal1,Position1),Time) , % holds_at(pos(Animal1,Position2),Time+1) , % holds_at(pos(Animal2,Position1),Time) , % holds_at(pos(Animal2,Position2),Time+1)), % not( % exists( % [Gate], % sides(Position1,Position2,Gate)))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8666). Animal1\=Animal2, large(Animal1), large(Animal2), holds_at(pos(Animal1, Position1), Time), holds_at(pos(Animal1, Position2), Time+1), holds_at(pos(Animal2, Position1), Time), holds_at(pos(Animal2, Position2), Time+1) -> not(sides(Position1, Position2, Gate)). % [animal1,animal2,position1,position2,time] % animal1!=% animal2 & % Large(animal1) & Large(animal2) & % HoldsAt(Pos(animal1,position1),time) & % HoldsAt(Pos(animal1,position2),time+1) & % HoldsAt(Pos(animal2,position2),time) & % HoldsAt(Pos(animal2,position1),time+1) -> % !{gate} Sides(position1,position2,gate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8675). % From E: % % '->'( % (Animal1\=Animal2 , % large(Animal1) , % large(Animal2) , % holds_at(pos(Animal1,Position1),Time) , % holds_at(pos(Animal1,Position2),Time+1) , % holds_at(pos(Animal2,Position2),Time) , % holds_at(pos(Animal2,Position1),Time+1)), % not( % exists( % [Gate], % sides(Position1,Position2,Gate)))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8675). Animal1\=Animal2, large(Animal1), large(Animal2), holds_at(pos(Animal1, Position1), Time), holds_at(pos(Animal1, Position2), Time+1), holds_at(pos(Animal2, Position2), Time), holds_at(pos(Animal2, Position1), Time+1) -> not(sides(Position1, Position2, Gate)). % [gate,position1,position2,time] % HoldsAt(Opened(gate),time) & % !HoldsAt(Opened(gate),time+1) & % Sides(position1,position2,gate) -> % !{animal} % HoldsAt(Pos(animal,position1),time) & % HoldsAt(Pos(animal,position2),time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8684). % From E: % % '->'( % (holds_at(opened(Gate),Time) , % holds_at(not(opened(Gate)),Time+1) , % sides(Position1,Position2,Gate)), % not( % exists( % [Animal], % (holds_at(pos(Animal,Position1),Time) , % holds_at(pos(Animal,Position2),Time+1))))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8684). holds_at(opened(Gate), Time), holds_at(not(opened(Gate)), Time+1), sides(Position1, Position2, Gate) -> not(( holds_at(pos(Animal, Position1), Time), holds_at(pos(Animal, Position2), Time+1) )). % gate GateAO :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8690). % From E: % % t(gate,gateAO). gate(gateAO). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8692). % cage CageA % From E: % % t(cage,cageA). cage(cageA). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8694). % Loc(1)=CageA. % From E: % % loc(1)=cageA. loc(1,cageA). % Loc(2)=CageA. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8694). % From E: % % loc(2)=cageA. loc(2,cageA). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8696). % Loc(3)=CageA. % From E: % % loc(3)=cageA. loc(3,cageA). % Loc(4)=CageA. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8696). % From E: % % loc(4)=cageA. loc(4,cageA). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8698). % Loc(5)=Outside. % From E: % % loc(5)=outside. loc(5,outside). % Loc(6)=Outside. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8698). % From E: % % loc(6)=outside. loc(6,outside). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8700). % Loc(7)=Outside. % From E: % % loc(7)=outside. loc(7,outside). % Loc(8)=Outside. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8700). % From E: % % loc(8)=outside. loc(8,outside). % [position1,position2] % Neighbor(position1,position2) <-> % ((position1=1 & position2=2) | % (position1=1 & position2=3) | % (position1=1 & position2=4) | % (position1=2 & position2=3) | % (position1=2 & position2=4) | % (position1=3 & position2=4) | % (position1=5 & position2=6) | % (position1=5 & position2=7) | % (position1=5 & position2=8) | % (position1=6 & position2=7) | % (position1=6 & position2=8) | % (position1=7 & position2=8) | % (position2=1 & position1=2) | % (position2=1 & position1=3) | % (position2=1 & position1=4) | % (position2=2 & position1=3) | % (position2=2 & position1=4) | % (position2=3 & position1=4) | % (position2=5 & position1=6) | % (position2=5 & position1=7) | % (position2=5 & position1=8) | % (position2=6 & position1=7) | % (position2=6 & position1=8) | % (position2=7 & position1=8) | % (position1=4 & position2=7) | % (position2=4 & position1=7)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8704). % From E: % % <->( % neighbor(Position1,Position2), % ((Position1=1 , % Position2=2) ; % (Position1=1 , % Position2=3) ; % (Position1=1 , % Position2=4) ; % (Position1=2 , % Position2=3) ; % (Position1=2 , % Position2=4) ; % (Position1=3 , % Position2=4) ; % (Position1=5 , % Position2=6) ; % (Position1=5 , % Position2=7) ; % (Position1=5 , % Position2=8) ; % (Position1=6 , % Position2=7) ; % (Position1=6 , % Position2=8) ; % (Position1=7 , % Position2=8) ; % (Position2=1 , % Position1=2) ; % (Position2=1 , % Position1=3) ; % (Position2=1 , % Position1=4) ; % (Position2=2 , % Position1=3) ; % (Position2=2 , % Position1=4) ; % (Position2=3 , % Position1=4) ; % (Position2=5 , % Position1=6) ; % (Position2=5 , % Position1=7) ; % (Position2=5 , % Position1=8) ; % (Position2=6 , % Position1=7) ; % (Position2=6 , % Position1=8) ; % (Position2=7 , % Position1=8) ; % (Position1=4 , % Position2=7) ; % (Position2=4 , % Position1=7))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8704). neighbor(Position1, Position2) <-> ( Position1=1, Position2=2 ; Position1=1, Position2=3 ; Position1=1, Position2=4 ; Position1=2, Position2=3 ; Position1=2, Position2=4 ; Position1=3, Position2=4 ; Position1=5, Position2=6 ; Position1=5, Position2=7 ; Position1=5, Position2=8 ; Position1=6, Position2=7 ; Position1=6, Position2=8 ; Position1=7, Position2=8 ; Position2=1, Position1=2 ; Position2=1, Position1=3 ; Position2=1, Position1=4 ; Position2=2, Position1=3 ; Position2=2, Position1=4 ; Position2=3, Position1=4 ; Position2=5, Position1=6 ; Position2=5, Position1=7 ; Position2=5, Position1=8 ; Position2=6, Position1=7 ; Position2=6, Position1=8 ; Position2=7, Position1=8 ; Position1=4, Position2=7 ; Position2=4, Position1=7 ). % Side1(GateAO)=4. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8731). % From E: % % side1(gateAO)=4. side1(gateAO,4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8733). % Side2(GateAO)=7. % From E: % % side2(gateAO)=7. side2(gateAO,7). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8735). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest4.1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8762). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8764). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8764). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8766). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8768). % human Homer % From E: % % t(human,homer). human(homer). % elephant Jumbo :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8768). % From E: % % t(elephant,jumbo). elephant(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8771). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8771). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8773). % Species(Jumbo)=ElephantSpecies. % From E: % % species(jumbo)=elephantSpecies. species(jumbo,elephantSpecies). % Adult(Jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8773). % From E: % % adult(jumbo). adult(jumbo). % !HoldsAt(Opened(GateAO),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8775). % From E: % % holds_at(not(opened(gateAO)),0). initially not opened(gateAO). % initial_state([not(opened(gateAO))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8777). % {position} % HoldsAt(Pos(Homer,position),0) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),0) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8777). exists([Position], (initially(pos(homer, Position)), outside(loc(Position)))). % {position} % HoldsAt(Pos(Jumbo,position),0) & CageA=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(jumbo,Position),0) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8777). exists([Position], (initially(pos(jumbo, Position)), cageA(loc(Position)))). % {position} % HoldsAt(Pos(Homer,position),4) & CageA=Loc(position). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8779). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),4) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8779). exists([Position], (holds_at(pos(homer, Position), 4), cageA(loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8781). % {position} % HoldsAt(Pos(Jumbo,position),4) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(jumbo,Position),4) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8781). exists([Position], (holds_at(pos(jumbo, Position), 4), outside(loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8783). % [human] % HoldsAt(PosDeterminingFluent(human,1),4). % From E: % % holds_at(posDeterminingFluent(Human,1),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8783). holds_at(posDeterminingFluent(Human,1),4). % [event,animal] % !HoldsAt(DoneBy(event,animal),4). % From E: % % holds_at(not(doneBy(Event,Animal)),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8783). holds_at(not(doneBy(Event,Animal)),4). %; ccalc.2.0b.8.3 single model %;HoldsAt(Pos(Homer,7),0). %;HoldsAt(Pos(Jumbo,2),0). %;Happens(Move(Jumbo,4),0). %;Happens(Open(Homer,GateAO),0). %;Happens(Mount(Homer,Jumbo),1). %;Happens(ThrowOff(Jumbo,Homer),2). %;HoldsAt(PosDeterminingFluent(Homer,1),2). %;Happens(Move(Jumbo,7),3). %;Happens(Mount(Homer,Jumbo),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8797). % range time 0 4 % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). % range position 1 8 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8797). % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8799). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8828). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8830). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8830). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8832). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8834). % human Homer % From E: % % t(human,homer). human(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8836). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8836). % From E: % % adult(homer). adult(homer). % !HoldsAt(Opened(GateAO),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8838). % From E: % % holds_at(not(opened(gateAO)),0). initially not opened(gateAO). % initial_state([not(opened(gateAO))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8840). % {position} % HoldsAt(Pos(Homer,position),0) & Outside=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),0) , % '='( % outside, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8840). exists([Position], (initially(pos(homer, Position)), outside(loc(Position)))). % {position} % HoldsAt(Pos(Homer,position),2) & CageA=Loc(position). % From E: % % exists( % [Position], % (holds_at(pos(homer,Position),2) , % '='( % cageA, % loc(Position)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8840). exists([Position], (holds_at(pos(homer, Position), 2), cageA(loc(Position)))). % [human] % HoldsAt(PosDeterminingFluent(human,1),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8842). % From E: % % holds_at(posDeterminingFluent(Human,1),2). holds_at(posDeterminingFluent(Human,1),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8844). % [event,animal] % !HoldsAt(DoneBy(event,animal),2). % From E: % % holds_at(not(doneBy(Event,Animal)),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8844). holds_at(not(doneBy(Event,Animal)),2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8846). % range time 0 2 % From E: % % :-call_pel_directive(range(time,0,2)). :- call_pel_directive(range(time, 0, 2)). % range position 1 8 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8846). % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8848). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest6.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8877). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8879). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8879). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8881). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8883). % human Homer % From E: % % t(human,homer). human(homer). % elephant Jumbo :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8883). % From E: % % t(elephant,jumbo). elephant(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8886). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8886). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8888). % Species(Jumbo)=ElephantSpecies. % From E: % % species(jumbo)=elephantSpecies. species(jumbo,elephantSpecies). % Adult(Jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8888). % From E: % % adult(jumbo). adult(jumbo). % HoldsAt(Mounted(Homer,Jumbo),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8890). % From E: % % holds_at(mounted(homer,jumbo),0). initially mounted(homer, jumbo). % initial_state([mounted(homer,jumbo)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8892). % HoldsAt(Pos(Jumbo,1),0). % From E: % % holds_at(pos(jumbo,1),0). initially pos(jumbo, 1). % initial_state([pos(jumbo,1)]). % "% =================================". % Happens(ThrowOff(Jumbo,Homer),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8892). % From E: % % happens_at(throwOff(jumbo,homer),0). observe throwOff(jumbo, homer)at 0. % observe([throwOff(jumbo,homer)],0). % "% =================================". % option manualrelease on :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8894). % From E: % % :-call_pel_directive(option(manualrelease,on)). :- call_pel_directive(option(manualrelease, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8894). % [human, animal] % !ReleasedAt(Mounted(human, animal),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8896). % From E: % % not(released_at(mounted(Human,Animal),0)). not(released_at(mounted(Human,Animal),0)). % [gate] % !ReleasedAt(Opened(gate),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8896). % From E: % % not(released_at(opened(Gate),0)). not(released_at(opened(Gate),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8898). % [position] % ReleasedAt(Pos(Homer,position),0). % From E: % % released_at(pos(homer,Position),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8898). released_at(pos(homer,Position),0). % [position] % !ReleasedAt(Pos(Jumbo,position),0). % From E: % % not(released_at(pos(jumbo,Position),0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8898). not(released_at(pos(jumbo,Position),0)). % [human] % HoldsAt(PosDeterminingFluent(human,1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8900). % From E: % % holds_at(posDeterminingFluent(Human,1),1). holds_at(posDeterminingFluent(Human,1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8902). % [event,animal] % !HoldsAt(DoneBy(event,animal),1). % From E: % % holds_at(not(doneBy(Event,Animal)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8902). holds_at(not(doneBy(Event,Animal)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8904). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range position 1 8 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8904). % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8906). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest1.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8935). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8937). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8937). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8939). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8941). % human Homer % From E: % % t(human,homer). human(homer). % elephant Jumbo :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8941). % From E: % % t(elephant,jumbo). elephant(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8944). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8944). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8946). % Species(Jumbo)=ElephantSpecies. % From E: % % species(jumbo)=elephantSpecies. species(jumbo,elephantSpecies). % Adult(Jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8946). % From E: % % adult(jumbo). adult(jumbo). % !HoldsAt(Opened(GateAO),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8948). % From E: % % holds_at(not(opened(gateAO)),0). initially not opened(gateAO). % initial_state([not(opened(gateAO))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8950). % HoldsAt(Pos(Homer,6),0). % From E: % % holds_at(pos(homer,6),0). initially pos(homer, 6). % initial_state([pos(homer,6)]). % "% =================================". % [time] % HoldsAt(Pos(Jumbo,1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8950). % From E: % % holds_at(pos(jumbo,1),Time). % [Time]. pos(jumbo, 1). % l_int(holds(pos(jumbo,1),Time_At),[]). % "% =================================". %; goal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8954). % HoldsAt(Mounted(Homer,Jumbo),4). % From E: % % holds_at(mounted(homer,jumbo),4). holds_at(mounted(homer,jumbo),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8956). %;ABDUCE %;Happens(Move(Homer,7),0). %;Happens(Open(Homer,GateAO),1). %;Happens(Move(Homer,4),2). %;Happens(Mount(Homer,Jumbo),3). % [human] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8962). % HoldsAt(PosDeterminingFluent(human,1),4). % From E: % % holds_at(posDeterminingFluent(Human,1),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8962). holds_at(posDeterminingFluent(Human,1),4). % [event,animal] % !HoldsAt(DoneBy(event,animal),4). % From E: % % holds_at(not(doneBy(Event,Animal)),4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8962). holds_at(not(doneBy(Event,Animal)),4). % range time 0 4 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8964). % From E: % % :-call_pel_directive(range(time,0,4)). :- call_pel_directive(range(time, 0, 4)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8966). % range position 1 8 % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). % range offset 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8966). % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8969). % option timediff off % From E: % % :-call_pel_directive(option(timediff,off)). :- call_pel_directive(option(timediff, off)). % option modeldiff on :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8969). % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: examples/AkmanEtAl2004/ZooTest5.2.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Akman:2004, %; author = "Varol Akman and Selim T. Erdogan and Joohyung Lee and Vladimir Lifschitz and Hudson Turner", %; year = "2004", %; title = "Representing the zoo world and the traffic world in the language of the causal calculator", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "105--140", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',8999). % option encoding 3 % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9001). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9001). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9003). % load examples/AkmanEtAl2004/ZooWorld.e % From E: % % :-call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :- call_pel_directive(load('examples/AkmanEtAl2004/ZooWorld.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9005). % human Homer % From E: % % t(human,homer). human(homer). % elephant Jumbo :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9005). % From E: % % t(elephant,jumbo). elephant(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9007). % horse Silver % From E: % % t(horse,silver). horse(silver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9009). % Species(Homer)=HumanSpecies. % From E: % % species(homer)=humanSpecies. species(homer,humanSpecies). % Adult(Homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9009). % From E: % % adult(homer). adult(homer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9011). % Species(Jumbo)=ElephantSpecies. % From E: % % species(jumbo)=elephantSpecies. species(jumbo,elephantSpecies). % Adult(Jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9011). % From E: % % adult(jumbo). adult(jumbo). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9013). % Species(Silver)=HorseSpecies. % From E: % % species(silver)=horseSpecies. species(silver,horseSpecies). % Adult(Silver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9013). % From E: % % adult(silver). adult(silver). % {position} :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9017). % !HoldsAt(Pos(Homer,position),0) & % HoldsAt(Pos(Jumbo,position),0) & % HoldsAt(Pos(Homer,position),1) & % !HoldsAt(Pos(Jumbo,position),1). % From E: % % exists( % [Position], % (holds_at(not(pos(homer,Position)),0) , % holds_at(pos(jumbo,Position),0) , % holds_at(pos(homer,Position),1) , % holds_at(not(pos(jumbo,Position)),1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9017). exists([Position], (initially(not(pos(homer, Position))), initially(pos(jumbo, Position)), holds_at(pos(homer, Position), 1), holds_at(not(pos(jumbo, Position)), 1))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9021). % [animal,time] % !Happens(ThrowOff(animal,Homer),time). % From E: % % not(happens_at(throwOff(Animal,homer),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9021). not(throwOff(Animal,homer)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9023). % [human] % HoldsAt(PosDeterminingFluent(human,1),1). % From E: % % holds_at(posDeterminingFluent(Human,1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9023). holds_at(posDeterminingFluent(Human,1),1). % [event,animal] % !HoldsAt(DoneBy(event,animal),1). % From E: % % holds_at(not(doneBy(Event,Animal)),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9023). holds_at(not(doneBy(Event,Animal)),1). %;HoldsAt(Opened(GateAO),0). %;HoldsAt(Pos(Homer,3),0). %;HoldsAt(Pos(Jumbo,2),0). %;HoldsAt(Pos(Silver,7),0). %;Happens(Move(Jumbo,4),0). %;Happens(Move(Silver,8),0). %;Happens(Mount(Homer,Jumbo),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9034). % range time 0 1 % From E: % % :-call_pel_directive(range(time,0,1)). :- call_pel_directive(range(time, 0, 1)). % range position 1 8 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9034). % From E: % % :-call_pel_directive(range(position,1,8)). :- call_pel_directive(range(position, 1, 8)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9036). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). %; End of file. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e',9038). % From E: % % :-call_pel_directive(translate(ending,'/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e.lps')). :- call_pel_directive(translate(ending, '/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test_examples.e.lps')).