examples/cpp/exec-dvfs/s4u-exec-dvfs.cpp

   1 /* Copyright (c) 2007-2023. The SimGrid Team. All rights reserved.          */
   2
   3 /* This program is free software; you can redistribute it and/or modify it
   4  * under the terms of the license (GNU LGPL) which comes with this package. */
   5
   6 #include "simgrid/s4u.hpp"
   7
   8 XBT_LOG_NEW_DEFAULT_CATEGORY(test, "Pstate properties test");
   9 namespace sg4 = simgrid::s4u;
  10
  11 static int dvfs()
  12 {
  13   double workload = 100E6;
  14   sg4::Host* host = sg4::this_actor::get_host();
  15
  16   unsigned long nb = host->get_pstate_count();
  17   XBT_INFO("Count of Processor states=%lu", nb);
  18
  19   XBT_INFO("Current power peak=%f", host->get_speed());
  20
  21   // Run a Computation
  22   sg4::this_actor::execute(workload);
  23
  24   double exec_time = sg4::Engine::get_clock();
  25   XBT_INFO("Computation1 duration: %.2f", exec_time);
  26
  27   // Change power peak
  28   unsigned long new_pstate = 2;
  29
  30   XBT_INFO("Changing power peak value to %f (at index %lu)", host->get_pstate_speed(new_pstate), new_pstate);
  31
  32   host->set_pstate(new_pstate);
  33
  34   XBT_INFO("Current power peak=%f", host->get_speed());
  35
  36   // Run a second Computation
  37   sg4::this_actor::execute(workload);
  38
  39   exec_time = sg4::Engine::get_clock() - exec_time;
  40   XBT_INFO("Computation2 duration: %.2f", exec_time);
  41
  42   // Verify that the default pstate is set to 0
  43   host = sg4::Host::by_name_or_null("MyHost2");
  44   XBT_INFO("Count of Processor states=%lu", host->get_pstate_count());
  45
  46   XBT_INFO("Current power peak=%f", host->get_speed());
  47   return 0;
  48 }
  49
  50 int main(int argc, char* argv[])
  51 {
  52   sg4::Engine e(&argc, argv);
  53
  54   xbt_assert(argc == 2, "Usage: %s platform_file\n\tExample: %s ../platforms/energy_platform.xml\n", argv[0], argv[0]);
  55
  56   e.load_platform(argv[1]);
  57
  58   sg4::Actor::create("dvfs_test", e.host_by_name("MyHost1"), dvfs);
  59   sg4::Actor::create("dvfs_test", e.host_by_name("MyHost2"), dvfs);
  60
  61   e.run();
  62
  63   XBT_INFO("Total simulation time: %e", sg4::Engine::get_clock());
  64
  65   return 0;
  66 }