Function TclModelBuilder_addKikuchiBearing

SRC/element/TclElementCommands.cpp:2664–3110

}

int TclModelBuilder_addKikuchiBearing(ClientData clientData,
    Tcl_Interp *interp, int argc, TCL_Char **argv, Domain *theTclDomain,
    TclModelBuilder *theTclBuilder)
{

  // ensure the destructor has not been called
  if (theTclBuilder == 0)  {
    opserr << "WARNING builder has been destroyed - KikuchiBearing\n";    
    return TCL_ERROR;
  }

  //3-dim, 6dof
  int ndm = theTclBuilder->getNDM();
  int ndf = theTclBuilder->getNDF();

  if (ndm != 3 || ndf != 6) {
    opserr << "ndm=" << ndm << ", ndf=" << ndf << endln;
    opserr << "WARNING KikuchiBearing command only works when ndm is 3 and ndf is 6" << endln;
    return TCL_ERROR;
  }

  //arguments (necessary)
  int eleTag;
  int iNode;
  int jNode;

  //arguments (necessary, input with -???)
  int shape;
  double size;
  double totalRubber;
  int nMSS;
  int matMSSTag;
  UniaxialMaterial *matMSS;
  int nMNS;
  int matMNSTag;
  UniaxialMaterial *matMNS;

  //arguments (optional, input with -???)
  double totalHeight = -1.0; //default: Norm(I->J)
  double limDisp = -1.0; //default: INF
  double lambda = -1.0; //default: INF
  Vector oriX(0); //default: local-x Vec(I->J)
  Vector oriYp(3); oriYp(0) = 0.0; oriYp(1) = 1.0; oriYp(2) = 0.0; //default: global-Y
  double mass = 0.0;
  bool ifPDInput = true;
  bool ifTilt = true;
  double adjCi = 0.5;
  double adjCj = 0.5;
  bool ifBalance = false;
  double limFo = -1.0; //default: INF
  double limFi = -1.0; //default: INF
  int nIter = 1;

  // input comfirmation
  int recvShape  = 0;
  int recvSize   = 0;
  int recvHeight = 0;
  int recvNMSS  = 0;