/* Distributed under the Apache License, Version 2.0.
   See accompanying NOTICE file for details.*/

#include "MVRunner.h"
#include "MVGenerator.h"

using namespace pulse::study::multiplex_ventilation;

int main(int argc, char* argv[])
{
  try
  {
    // LOAD TEST
    //for (int i = 0; i < 2000; i++)
    //{
    //  std::cout << "Creating patient " << i << std::endl;
    //  PulseController* pc = new PulseController("./test/multiplex_patient_" + cdm::to_string(i) + ".log", ".");
    //  if (!pc->SerializeFromFile("./test_results/multiplex_ventilation/solo_states/comp=0.01_peep=10_pip=55_imp=0.3_FiO2=0.21.json", eSerializationFormat::JSON))
    //  {
    //    std::cerr << "Unable to load file " << std::endl;
    //    return 1;
    //  }
    //  pc->GetEngineTracker().GetDataRequestManager().SetResultsFilename("./test/multiplex_patient_" + cdm::to_string(i) + ".csv");
    //  pc->GetEngineTracker().GetDataRequestManager().CreatePhysiologyDataRequest("PulmonaryCompliance", VolumePerPressureUnit::L_Per_cmH2O);
    //  pc->GetEngineTracker().SetupRequests();
    //  pc->AdvanceModelTime();
    //  delete(pc);
    //}
    //return 0;

    std::string mode = ""; // Default is to run the manual else below
    if (argc <= 1)
    {
      // Adjust comments to run the mode you want
      //mode = "genData";
      //mode = "manual";
      mode = "gensimlist";
    }
    else
    {
      mode = argv[1];
      //mode = "genData";
    };
    // convert string to back to lower case
    std::for_each(mode.begin(), mode.end(), [](char& c) { c = ::tolower(c); });
    if (mode == "gendata")
    {
      //DeleteDirectory(SoloDir, true);
      MVGenerator mvg("./test_results/multiplex_ventilation/MultiplexVentilationDataGen.log");
      return !mvg.Run(Dir::Solo, Dir::Base+"solo_ventilated_states_list.json");
    }
    else if (mode == "sim_list")
    {
      if (argc != 3)
      {
        std::cerr << "Please provide a SimulationListData json file" << std::endl;
        return 1;
      }
      MVRunner mvr("./test_results/multiplex_ventilation/MultiplexVentilationRunner.log");
      return !mvr.Run(argv[2], MVRunner::Mode::StepFiO2);
    }
    else if (mode == "single")
    {
      pulse::study::bind::multiplex_ventilation::SimulationData sim;
      sim.set_id(42);
      sim.set_outputbasefilename("./test_results/multiplex_ventilation/mvpy");
      // Use these ventilator settings
      sim.set_respirationrate_per_min(20);
      sim.set_ieratio(0.5);
      sim.set_pip_cmh2o(25);
      sim.set_peep_cmh2o(10);
      sim.set_fio2(0.21);
      // Add Patient 0
      auto p0 = sim.add_patientcomparisons()->mutable_multiplexventilation();
      p0->set_id(0);
      p0->set_compliance_ml_per_cmh2o(30);
      p0->set_resistance_cmh2o_s_per_l(5);
      p0->set_impairmentfraction(0.5);
      // Add Patient 1);
      auto p1 = sim.add_patientcomparisons()->mutable_multiplexventilation();
      p1->set_id(1);
      p1->set_compliance_ml_per_cmh2o(22);
      p1->set_resistance_cmh2o_s_per_l(5);
      p1->set_impairmentfraction(0.7);
      MVRunner::StepSimulationFiO2(sim);
    }
    else if (mode == "gensimlist")
    {
      MVRunner mvr("./test_results/multiplex_ventilation/MultiplexVentilationRunner.log");
      pulse::study::bind::multiplex_ventilation::SimulationListData muliplexSimList;
      muliplexSimList.set_outputrootdir(Dir::Base);
      pulse::study::bind::multiplex_ventilation::SimulationListData soloSimList;
      soloSimList.set_outputrootdir(Dir::Base);
      // Loop parameters
      int minCompliance_mL_Per_cmH2O = 10;
      int maxCompliance_mL_Per_cmH2O = 50;
      int stepCompliance_mL_Per_cmH2O = 10;
      int minPEEP_cmH2O = 10;
      int maxPEEP_cmH2O = 20;
      int stepPEEP_cmH2O = 5;
      int minImpairment_percent = 30; //=0.3 mild
      int maxImpairment_percent = 90; //=0.9 severe
      int stepImpairment0_percent = 10; //=0.1
      int stepImpairment1_percent = 10; //=0.1

      // Settings
      double breathRate_bpm = 20.0;
      double IERatio = 0.5;
      double FiO2 = 0.21;
      SEScalarPressureTimePerVolume resistance;
      resistance.SetValue(5, PressureTimePerVolumeUnit::cmH2O_s_Per_L);
      double resistance_cmH2O_s_Per_mL = resistance.GetValue(PressureTimePerVolumeUnit::cmH2O_s_Per_mL);

      unsigned int sid = 0; // solo id
      unsigned int mid = 0; // multiplex id
      unsigned int ignored = 0;
      std::set<std::string> soloNames;
      std::set<std::string> multiplexNames;

      // PEEP loop
      for (int PEEP_cmH2O = minPEEP_cmH2O; PEEP_cmH2O <= maxPEEP_cmH2O; PEEP_cmH2O += stepPEEP_cmH2O)
      {
        // Patient0 compliance loop
        for (int driveCompliance_mL_Per_cmH2O = minCompliance_mL_Per_cmH2O; driveCompliance_mL_Per_cmH2O <= maxCompliance_mL_Per_cmH2O; driveCompliance_mL_Per_cmH2O += stepCompliance_mL_Per_cmH2O)
        {
          // RC circuit charging equation
          // Assume tube resistances are negligable
          double breathPeriod_s = 60.0 / breathRate_bpm;
          double inspiratoryPeriod_s = IERatio * breathPeriod_s / (1.f + IERatio);

          double targetTidalVolume_mL = 6.0 * 75.3; /// \todo What's the best way to get the ideal body weight from the patient?

          int PIP_cmH2O = int(targetTidalVolume_mL / (driveCompliance_mL_Per_cmH2O * (1.0 - exp(-inspiratoryPeriod_s / (resistance_cmH2O_s_Per_mL * driveCompliance_mL_Per_cmH2O)))) + PEEP_cmH2O);

          // Red bounds
          double lowestTargetTidalVolume_mL = 4.5 * 75.3;
          double highestTargetTidalVolume_mL = 7.5 * 75.3;

          // Appriximate, assuming fully charged and discharged each cycle/breath
          double minSetCompliance_mL_Per_cmH2O = lowestTargetTidalVolume_mL / (PIP_cmH2O - PEEP_cmH2O);
          double maxSetCompliance_mL_Per_cmH2O = highestTargetTidalVolume_mL / (PIP_cmH2O - PEEP_cmH2O);

          // Intelligently sweep the space set by red bounds
          int stepCompliance_mL_Per_cmH2O = 1;
          minSetCompliance_mL_Per_cmH2O -= (stepCompliance_mL_Per_cmH2O * 3);
          minSetCompliance_mL_Per_cmH2O = MAX(minSetCompliance_mL_Per_cmH2O, minCompliance_mL_Per_cmH2O);
          maxSetCompliance_mL_Per_cmH2O += (stepCompliance_mL_Per_cmH2O * 3);
          maxSetCompliance_mL_Per_cmH2O = MIN(maxSetCompliance_mL_Per_cmH2O, maxCompliance_mL_Per_cmH2O);

          int numComplianceIterations = (int)MAX((driveCompliance_mL_Per_cmH2O - minSetCompliance_mL_Per_cmH2O) / stepCompliance_mL_Per_cmH2O,
            (maxSetCompliance_mL_Per_cmH2O - driveCompliance_mL_Per_cmH2O) / stepCompliance_mL_Per_cmH2O) + 1;
          numComplianceIterations *= 2;

          // Move each compliance very other step
          bool moveCompliance0 = true;
          int compliance0_mL_Per_cmH2O = driveCompliance_mL_Per_cmH2O;
          int compliance1_mL_Per_cmH2O = driveCompliance_mL_Per_cmH2O;
          for (int complianceIterator = 0; complianceIterator < numComplianceIterations; complianceIterator++)
          {
            if (complianceIterator != 0)
            {
              if (moveCompliance0)
              {
                compliance0_mL_Per_cmH2O += stepCompliance_mL_Per_cmH2O;
                moveCompliance0 = false;
                if (compliance0_mL_Per_cmH2O > maxCompliance_mL_Per_cmH2O)
                {
                  compliance0_mL_Per_cmH2O = maxCompliance_mL_Per_cmH2O;
                  continue;
                }
              }
              else
              {
                compliance1_mL_Per_cmH2O -= stepCompliance_mL_Per_cmH2O;
                moveCompliance0 = true;
                if (compliance1_mL_Per_cmH2O < minCompliance_mL_Per_cmH2O)
                {
                  compliance1_mL_Per_cmH2O = minCompliance_mL_Per_cmH2O;
                  continue;
                }
              }
            }

            for (int impairment0_percent = minImpairment_percent; impairment0_percent <= maxImpairment_percent; impairment0_percent += stepImpairment0_percent)
            {
              float impairment0 = float(impairment0_percent) / 100.0f;

              for (int impairment1_percent = minImpairment_percent; impairment1_percent <= maxImpairment_percent; impairment1_percent += stepImpairment1_percent)
              {
                float impairment1 = float(impairment1_percent) / 100.0f;

                //////////////////////////////////////////////////////////////
                // Set up our single patients on their own ventilator cases //
                //////////////////////////////////////////////////////////////

                std::string sBaseName0 = "peep=" + std::to_string(PEEP_cmH2O) +
                  "_pip=" + std::to_string(PIP_cmH2O) +
                  "_comp=" + std::to_string(compliance0_mL_Per_cmH2O) +
                  "_imp=" + pulse::cdm::to_string(impairment0) + "/";
                if(soloNames.find(sBaseName0) == soloNames.end())
                {
                  auto sim = soloSimList.add_simulations();
                  sim->set_id(sid++);
                  sim->set_outputbasefilename(Dir::Results + sBaseName0);
                  // Ventilator Settings
                  sim->set_respirationrate_per_min(breathRate_bpm);
                  sim->set_ieratio(IERatio);
                  sim->set_pip_cmh2o(PIP_cmH2O);
                  sim->set_peep_cmh2o(PEEP_cmH2O);
                  sim->set_fio2(FiO2);
                  // Patient 0
                  auto p0 = sim->add_patientcomparisons();
                  auto ps0 = p0->mutable_multiplexventilation();
                  ps0->set_compliance_ml_per_cmh2o(compliance0_mL_Per_cmH2O);
                  ps0->set_resistance_cmh2o_s_per_l(resistance.GetValue(PressureTimePerVolumeUnit::cmH2O_s_Per_L));
                  ps0->set_impairmentfraction(impairment0);
                  soloNames.insert(sBaseName0);
                }

                std::string sBaseName1 = "peep=" + std::to_string(PEEP_cmH2O) +
                  "_pip=" + std::to_string(PIP_cmH2O) +
                  "_comp=" + std::to_string(compliance1_mL_Per_cmH2O) +
                  "_imp=" + pulse::cdm::to_string(impairment1) + "/";
                if (soloNames.find(sBaseName1) == soloNames.end())
                {
                  auto sim = soloSimList.add_simulations();
                  sim->set_id(sid++);
                  sim->set_outputbasefilename(Dir::Results + sBaseName1);
                  // Ventilator Settings
                  sim->set_respirationrate_per_min(breathRate_bpm);
                  sim->set_ieratio(IERatio);
                  sim->set_pip_cmh2o(PIP_cmH2O);
                  sim->set_peep_cmh2o(PEEP_cmH2O);
                  sim->set_fio2(FiO2);
                  // Patient 0
                  auto p0 = sim->add_patientcomparisons();
                  auto ps0 = p0->mutable_multiplexventilation();
                  ps0->set_compliance_ml_per_cmh2o(compliance1_mL_Per_cmH2O);
                  ps0->set_resistance_cmh2o_s_per_l(resistance.GetValue(PressureTimePerVolumeUnit::cmH2O_s_Per_L));
                  ps0->set_impairmentfraction(impairment1);
                  soloNames.insert(sBaseName1);
                }

                ///////////////////////////////////////////
                // Setup our Multiplex ventilation Cases //
                ///////////////////////////////////////////

                std::string mBaseName = "peep=" + std::to_string(PEEP_cmH2O) +
                  "_pip=" + std::to_string(PIP_cmH2O) +
                  "_c0=" + std::to_string(compliance0_mL_Per_cmH2O) +
                  "_c1=" + std::to_string(compliance1_mL_Per_cmH2O) +
                  "_i0=" + pulse::cdm::to_string(impairment0) +
                  "_i1=" + pulse::cdm::to_string(impairment1) + "/";
                std::string inverted = "peep=" + std::to_string(PEEP_cmH2O) +
                  "_pip=" + std::to_string(PIP_cmH2O) +
                  "_c0=" + std::to_string(compliance0_mL_Per_cmH2O) +
                  "_c1=" + std::to_string(compliance1_mL_Per_cmH2O) +
                  "_i0=" + pulse::cdm::to_string(impairment0) +
                  "_i1=" + pulse::cdm::to_string(impairment1) + "/";
                if (multiplexNames.find(mBaseName) != multiplexNames.end())
                {
                  std::cout << "Will already run a simulation for " << mBaseName << std::endl;
                  continue;
                }
                if ((compliance0_mL_Per_cmH2O == compliance1_mL_Per_cmH2O) && multiplexNames.find(inverted) != multiplexNames.end())
                {
                  ignored++;
                  //std::cout << "Impairment inversion found in " << inverted << std::endl;
                  //std::cout << "Will already run a simulation for " << baseName << std::endl;
                  continue;
                }
                multiplexNames.insert(mBaseName);
                auto sim = muliplexSimList.add_simulations();
                sim->set_id(mid++);
                sim->set_outputbasefilename(Dir::Results + mBaseName);
                // Ventilator Settings
                sim->set_respirationrate_per_min(breathRate_bpm);
                sim->set_ieratio(IERatio);
                sim->set_pip_cmh2o(PIP_cmH2O);
                sim->set_peep_cmh2o(PEEP_cmH2O);
                sim->set_fio2(FiO2);
                // Patient 0
                auto p0 = sim->add_patientcomparisons();
                auto ps0 = p0->mutable_multiplexventilation();
                ps0->set_compliance_ml_per_cmh2o(compliance0_mL_Per_cmH2O);
                ps0->set_resistance_cmh2o_s_per_l(resistance.GetValue(PressureTimePerVolumeUnit::cmH2O_s_Per_L));
                ps0->set_impairmentfraction(impairment0);
                // Patient 1
                auto p1 = sim->add_patientcomparisons();
                auto ps1 = p1->mutable_multiplexventilation();
                ps1->set_compliance_ml_per_cmh2o(compliance1_mL_Per_cmH2O);
                ps1->set_resistance_cmh2o_s_per_l(resistance.GetValue(PressureTimePerVolumeUnit::cmH2O_s_Per_L));
                ps1->set_impairmentfraction(impairment1);
              }
            }
          }
        }
      }

      // Run the new simlists
      // Flags to run paired patients and/or a single patient, used for run selection faster in data analysis
      if (true)
      {
        std::cout << "Generated " << sid << " solo simulations" << std::endl;
        return !mvr.Run(soloSimList, MVRunner::Mode::StepFiO2, "solo_simlist_results.json");
      }
      if (true)
      {
        std::cout << "Generated " << mid << " multiplex simulations, threw out " << ignored << std::endl;
        return !mvr.Run(muliplexSimList, MVRunner::Mode::StepFiO2, "multiplex_simlist_results.json");
      }
    }
    else // Manual
    {
      Logger logger("./test_results/multiplex_ventilation/manual.log");
      pulse::study::bind::multiplex_ventilation::SimulationData sim;
      sim.set_respirationrate_per_min(MVGenerator::DefaultRespirationRate_Per_Min());
      sim.set_ieratio(MVGenerator::DefaultIERatio());

      std::vector<std::string> patients;
      // If FiO2, the file will not be found and we will generate the patient initial state
      // And the FiO2 will be computed
      patients.push_back("comp=25_peep=18_pip=36_imp=0.6_FiO2=0.0");
      patients.push_back("comp=35_peep=20_pip=32_imp=0.9_FiO2=0.0");
      patients.push_back("comp=35_peep=18_pip=30_imp=0.3_FiO2=0.0");
      patients.push_back("comp=40_peep=12_pip=23_imp=0.9_FiO2=0.0");

      double soloRunTime_s = 120;

      std::vector<std::string> names;
      std::vector<double> pips_cmH2O;
      std::vector<double> peeps_cmH2O;
      std::vector<double> FiO2s;
      std::vector<std::string> solo_patient_base_paths;
      std::string combined_name = "";
      std::ofstream plots;
      unsigned int iter = 0;

      // Figure out the name
      for (std::string patient : patients)
      {
        double pip_cmH2O;
        double peep_cmH2O;
        double FiO2;
        std::string name;
        patient = Dir::Solo + patient + ".json";
        ExtractVentilatorSettings(patient, name, pip_cmH2O, peep_cmH2O, FiO2);
        combined_name += name;
        if (iter != patients.size() - 1)
        {
          combined_name += "+";
        }
        iter++;
      }

      // The combined name is too long for more than 2 patients
      // This can be commented out if you have 2 patients
      combined_name = "manual";

      // Run solo patients
      iter = 0;
      for (std::string patient : patients)
      {
        double pip_cmH2O;
        double peep_cmH2O;
        double FiO2;
        std::string name;
        patient = Dir::Solo + patient + ".json";
        ExtractVentilatorSettings(patient, name, pip_cmH2O, peep_cmH2O, FiO2);

        if (!FileExists(patient))
        {
          logger.Info("Generating initial patient state");
          double comp;
          double imp;
          ExtractInitialConditions(patient, comp, imp);
          pulse::study::bind::multiplex_ventilation::PatientStateData pData;
          pData.set_compliance_ml_per_cmh2o(comp);
          pData.set_resistance_cmh2o_s_per_l(MVGenerator::DefaultResistance_cmH2O_s_Per_L());
          pData.set_impairmentfraction(imp);
          pData.set_respirationrate_per_min(MVGenerator::DefaultRespirationRate_Per_Min());
          pData.set_ieratio(MVGenerator::DefaultIERatio());
          pData.set_pip_cmh2o(pip_cmH2O);
          pData.set_peep_cmh2o(peep_cmH2O);
          MVGenerator::GenerateStabilizedPatient(pData, true);
          if (FiO2 == 0)
          {
            patient = pData.statefile();
            patients[iter] = patient;
            FiO2 = pData.fio2();
          }
          else
          {
            // Let's make sure the FiO2 came out to the same 
            logger.Info("Expected FiO2 : " + pulse::cdm::to_string(FiO2));
            logger.Info("Computed FiO2 : " + pulse::cdm::to_string(pData.fio2()));
            if (!FileExists(patient))
            {
              logger.Error("Could not generate the solo state with the same FiO2");
              return 1;
            }
          }
        }

        std::string solo_patient_base_path = Dir::Results + combined_name +
          "/pip=" +  pulse::cdm::to_string(pip_cmH2O) +
          "_peep=" + pulse::cdm::to_string(peep_cmH2O) +
          "_FiO2=" + pulse::cdm::to_string(FiO2) + "_solo_patient_" + std::to_string(iter);

        MVEngine::RunSoloState(patient, solo_patient_base_path, soloRunTime_s, logger);

        sim.add_patientcomparisons()->mutable_soloventilation()->set_statefile(patient);

        plots << solo_patient_base_path << "Results.csv\n";

        names.push_back(name);
        pips_cmH2O.push_back(pip_cmH2O);
        peeps_cmH2O.push_back(peep_cmH2O);
        FiO2s.push_back(FiO2);
        solo_patient_base_paths.push_back(solo_patient_base_path);

        iter++;
      }

      plots.open(Dir::Results + combined_name + "/plot_pairs.config");

      iter = 0;
      for (std::string solo_patient_base_path : solo_patient_base_paths)
      {
        if (iter == solo_patient_base_paths.size() - 1)
        {
          plots << solo_patient_base_path << "Results.csv\n";
        }
        else
        {
          plots << solo_patient_base_path << "Results.csv, ";
        }

        iter++;
      }

      // Run combined patients with each ventilator setting
      iter = 0;
      for (std::string patient : patients)
      {
        std::string name = names.at(iter);
        double pip_cmH2O = pips_cmH2O.at(iter);
        double peep_cmH2O = peeps_cmH2O.at(iter);
        double FiO2 = FiO2s.at(iter);

        std::string sim_base_path = Dir::Results + combined_name +
          "/pip=" +  pulse::cdm::to_string(pip_cmH2O) +
          "_peep=" + pulse::cdm::to_string(peep_cmH2O) +
          "_FiO2=" + pulse::cdm::to_string(FiO2) + "_";
        sim.set_outputbasefilename(sim_base_path);

        sim.set_pip_cmh2o(pip_cmH2O);
        sim.set_peep_cmh2o(peep_cmH2O);
        sim.set_fio2(FiO2);

        MVRunner::RunSimulationToStableSpO2(sim);

        unsigned int iter2 = 0;
        for (std::string patient : patients)
        {
          if (iter2 == patients.size() - 1)
          {
            plots << sim_base_path << "multiplex_patient_" << iter2 << "_results.csv\n";
          }
          else
          {
            plots << sim_base_path << "multiplex_patient_" << iter2 << "_results.csv, ";
          }
          iter2++;
        }

        iter++;
      }

      // Run combined patients with average ventilator settings
      double pipAvg_cmH2O = 0.0;
      double peepAvg_cmH2O = 0.0;
      double FiO2Avg = 0.0;
      iter = 0;
      for (std::string patient : patients)
      {
        pipAvg_cmH2O += pips_cmH2O.at(iter);
        peepAvg_cmH2O += peeps_cmH2O.at(iter);
        FiO2Avg += FiO2s.at(iter);
        iter++;
      }
      pipAvg_cmH2O /= double(iter);
      peepAvg_cmH2O /= double(iter);
      FiO2Avg /= double(iter);

      std::string sim_base_path = Dir::Results + combined_name +
        "/pip="  + pulse::cdm::to_string(pipAvg_cmH2O) +
        "_peep=" + pulse::cdm::to_string(peepAvg_cmH2O) +
        "_FiO2=" + pulse::cdm::to_string(FiO2Avg) + "_";
      sim.set_outputbasefilename(sim_base_path);
      sim.set_pip_cmh2o(pipAvg_cmH2O);
      sim.set_peep_cmh2o(peepAvg_cmH2O);
      sim.set_fio2(FiO2Avg);
      MVRunner::RunSimulationToStableSpO2(sim);

      unsigned int iter2 = 0;
      for (std::string patient : patients)
      {
        if (iter2 == patients.size() - 1)
        {
          plots << sim_base_path << "multiplex_patient_" << iter2 << "_results.csv\n";
        }
        else
        {
          plots << sim_base_path << "multiplex_patient_" << iter2 << "_results.csv, ";
        }
        iter2++;
      }

      plots.close();
    }
  }
  catch (std::exception ex)
  {
    std::cerr << ex.what() << std::endl;
    return 1;
  }
  return 0;
}
