% Suppress singleton warnings :- set_flag(variable_names, on). % Load the interpreter :- ["interpreter/online57.ecl"]. % Load the domain model :- ["model.ecl"]. % Load the controls (ie, Golog procedures and reward functions) :- ["control.ecl"]. % Load the environment simulator :- ["envsim.ecl"]. % Turn off the dynamic flag, so that tracer window will work :- set_flag(all_dynamic, off). % Define some compound queries manual(Duration):- sim_reset, ["reward1.ecl"], online(allocResManual(Duration) : nil, s0, inf, Pol, V), retract(reward(_, _)), sim_print_stats. auto(Duration):- sim_reset, ["reward1.ecl"], online(allocResAuto(Duration) : nil, s0, inf, Pol, V), retract(reward(_, _)), sim_print_stats. optimal(Duration):- sim_reset, ["reward2.ecl"], online(allocResOpt(Duration) : nil, s0, inf, Pol, V), retract(reward(_, _)), sim_print_stats. % Finally, give a hint! :- nl, nl, write("To run, please call one of these:\n manual(10000). auto(10000). optimal(10000). "), nl, nl. % Start simulation runs :- ["simcalls.ecl"].