//---------------------------------------------------------------------------
void __fastcall TMForm::SimulateAExecute(TObject *Sender)
{
if(!mRR)
{
return;
}
try
{
//Setup selection list
StringList list = GetCheckedSpecies();
string selected = list.AsString();
mRR->setTimeCourseSelectionList(selected);
Log(rr::lInfo)<<"Currently selected species: "<<mRR->getTimeCourseSelectionList().AsString();
mRR->simulateEx(mStartTimeE->GetValue(), *mEndTimeE, mNrOfSimulationPointsE->GetValue());
RoadRunnerData data = mRR->getSimulationResult();
string resultFileName(rr::joinPath(mRR->getTempFolder(), mRR->getModelName()));
resultFileName = rr::changeFileExtensionTo(resultFileName, ".csv");
Log(rr::lInfo)<<"Saving result to file: "<<resultFileName;
ofstream fs(resultFileName.c_str());
fs << data;
fs.close();
Plot(data);
}
catch(const rr::Exception& e)
{
Log(rr::lInfo)<<"RoadRunner exception: "<<e.what();
}
}
char* rrp_cc getNamesFromParameterList(RRParametersHandle handle)
{
start_try
Parameters* paras = castToParameters(handle);
StringList aList;
for(int i = 0; i < paras->count(); i++)
{
aList.add((*paras)[i]->getName());
}
return createText(aList.AsString().c_str());
catch_ptr_macro
}
