Function OPS_getStrain

SRC/interpreter/OpenSeesCommandsTcl.cpp:123–135

int OPS_getStrain(ClientData clientData, Tcl_Interp *interp, int argc,   TCL_Char **argv) {

  double strain = 0.0;

  if (theTestingUniaxialMaterial !=0) {
    strain = theTestingUniaxialMaterial->getStrain();
    sprintf(interp->result,"%.10e",strain);
    return TCL_OK;
  } else {
    Tcl_SetResult(interp, "WARNING no active UniaxialMaterial - use testUniaxialMaterial command", TCL_STATIC);    
    return TCL_ERROR;
  }
}

int OPS_getStress(ClientData clientData, Tcl_Interp *interp, int argc,   TCL_Char **argv) {