Function analyzeModel

SRC/runtime/commands/analysis/analysis.cpp:151–233

Command invoked to build the model, i.e. to invoke analyze() on the Analysis object

// on the Analysis object
//
static int
analyzeModel(ClientData clientData, Tcl_Interp *interp, Tcl_Size argc,
             TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  BasicAnalysisBuilder *builder = (BasicAnalysisBuilder*)clientData;

  int result = 0;
  int commit = BasicAnalysisBuilder::Increment
             | BasicAnalysisBuilder::Iterate 
             | BasicAnalysisBuilder::Commit;
  
  for (int i=2; i<argc; i++) {
    if (strcmp(argv[i], "-operation") == 0) {
      if (argc < i+2) {
        opserr << OpenSees::PromptValueError << "operation key requires argument\n";
        return TCL_ERROR;
      }
      i++;
      if (strcmp(argv[i], "commit") == 0) {
        commit = BasicAnalysisBuilder::Commit;
      }
      else if (strcmp(argv[i], "increment") == 0) {
        commit = BasicAnalysisBuilder::Increment;
      }
      else if (strcmp(argv[i], "iteration") == 0) {
        commit = BasicAnalysisBuilder::Iterate;
      }
    }
  }

  switch (builder->CurrentAnalysisFlag) {
    case BasicAnalysisBuilder::STATIC_ANALYSIS: {
      int numIncr;
      if (argc < 2) {
        opserr << OpenSees::PromptValueError << "static analysis: analysis numIncr?\n";
        return TCL_ERROR;
      }

      if (Tcl_GetInt(interp, argv[1], &numIncr) != TCL_OK)
        return TCL_ERROR;

      result = builder->analyze(numIncr, 0.0, commit);
      break;
    }
    case BasicAnalysisBuilder::TRANSIENT_ANALYSIS: {
      double dT;
      int numIncr;
      if (argc < 3) {
        opserr << OpenSees::PromptValueError << "transient analysis: analysis numIncr? deltaT?\n";
        return TCL_ERROR;
      }
      if (Tcl_GetInt(interp, argv[1], &numIncr) != TCL_OK)
        return TCL_ERROR;
      if (Tcl_GetDouble(interp, argv[2], &dT) != TCL_OK)
        return TCL_ERROR;

      if (argc == 6) {