Function specifyAnalysis

SRC/runtime/commands/analysis/analysis.cpp:98–145

command invoked to build an Analysis object

// command invoked to build an Analysis object
//
static int
specifyAnalysis(ClientData clientData, Tcl_Interp *interp, Tcl_Size argc,
                TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  BasicAnalysisBuilder *builder = (BasicAnalysisBuilder*)clientData;

  if (argc < 2) {
    opserr << OpenSees::PromptValueError 
           << "need to specify an analysis type (Static, Transient)\n";
    return TCL_ERROR;
  }

  int argi = 1;

  if (strcmp(argv[argi], "-linear") == 0) {
    if (argc < 3) {
      opserr << OpenSees::PromptValueError << "need to specify an analysis type (Static, Transient)\n";
      return TCL_ERROR;
    }
    Tcl_Eval(interp, "algorithm Linear\n"
                     "test FixedNumIter 1\n"
    );
    argi++;
  }
  if (strcmp(argv[argi], "Static") == 0) {
    builder->setStaticAnalysis();
    return TCL_OK;

  } else if (strcmp(argv[argi], "Transient") == 0) {
    builder->setTransientAnalysis();
    return TCL_OK;
  }

  else if (((strcmp(argv[1], "VariableTimeStepTransient") == 0) ||
          (strcmp(argv[1], "TransientWithVariableTimeStep") == 0) ||
          (strcmp(argv[1], "VariableTransient") == 0))) {
    opserr << "Unimplemented\n";
    return TCL_ERROR;

  } else {
    opserr << OpenSees::PromptValueError << "Analysis type '" << argv[1]
      << "' does not exists (Static or Transient only). \n";
    return TCL_ERROR;
  }

  return TCL_OK;
}

//
// Command invoked to build the model, i.e. to invoke analyze()