setRate(X):- retract(requestRate(_)), assert(requestRate(X)), sim_set_request_rate(X). % Ready! doBatchSimulation(_):- sim_print_info, /* Small model: 300 requests each */ setRate(60), callEachStrategyTenTimes(18000), setRate(70), callEachStrategyTenTimes(21000), setRate(80), callEachStrategyTenTimes(24000), setRate(90), callEachStrategyTenTimes(27000), setRate(120), callEachStrategyTenTimes(36000), setRate(150), callEachStrategyTenTimes(45000), setRate(180), callEachStrategyTenTimes(54000), /* Big model: 750 requests each */ % setRate(20), % callEachStrategyTenTimes(15000), % setRate(30), % callEachStrategyTenTimes(22500), % setRate(40), % callEachStrategyTenTimes(30000), % setRate(50), % callEachStrategyTenTimes(37500), % setRate(60), % callEachStrategyTenTimes(45000), sim_print_info. % Set! callEachStrategyTenTimes(Duration):- % Manual sim_print_params(0), ["reward1.ecl"], sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResManual(Duration) : nil, s0, inf, _, _), sim_print_stats, retract(reward(_, _)), % Automated sim_print_params(1), ["reward1.ecl"], sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, retract(reward(_, _)), % Optimal sim_print_params(2), ["reward2.ecl"], sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, sim_reset, online(allocResAuto(Duration) : nil, s0, inf, _, _), sim_print_stats, retract(reward(_, _)). % GO........! % (Won't be back for at least half a day) :- doBatchSimulation(bla).