Function TclCommand_addHFiber

SRC/runtime/commands/modeling/section.cpp:1387–1440

add Hfiber to fiber section

// add Hfiber to fiber section
int
TclCommand_addHFiber(ClientData clientData, Tcl_Interp *interp, int argc,
                     TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  BasicModelBuilder* builder = static_cast<BasicModelBuilder*>(clientData);


  SectionBuilder* fiberSectionRepr = findSectionBuilder(builder, interp, argc, argv);
  if (fiberSectionRepr == nullptr) {
    opserr << OpenSees::PromptValueError << "cannot retrieve section\n";
    return TCL_ERROR;
  }

  // make sure at least one other argument to contain patch type
  if (argc < 5) {
    opserr << OpenSees::PromptValueError << "invalid num args: Hfiber yLoc zLoc area matTag\n";
    return TCL_ERROR;
  }


  int matHTag;
  double yHLoc, zHLoc, Harea;

  if (Tcl_GetDouble(interp, argv[1], &yHLoc) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "invalid yLoc: Hfiber yLoc zLoc area matTag\n";
    return TCL_ERROR;
  }
  if (Tcl_GetDouble(interp, argv[2], &zHLoc) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "invalid zLoc: Hfiber yLoc zLoc area matTag\n";
    return TCL_ERROR;
  }
  if (Tcl_GetDouble(interp, argv[3], &Harea) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "invalid area: Hfiber yLoc zLoc area matTag\n";
    return TCL_ERROR;
  }

  if (Tcl_GetInt(interp, argv[4], &matHTag) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "invalid matTag: Hfiber yLoc zLoc area matTag\n";
    return TCL_ERROR;
  }

  Vector fiberHPosition(2);
  fiberHPosition(0) = yHLoc;
  fiberHPosition(1) = zHLoc;

  // add patch to section builder
  int error = fiberSectionRepr->addHFiber(0, matHTag, Harea, fiberHPosition);

  if (error)
    return TCL_ERROR;

  return TCL_OK;
}

// add layers of reinforcing bars to fiber section