Merge pull request #619 from Xiaodong-Ji-THU/master

add a new InertiaTruss element
zhuminjie · Oct 4, 2021 · 4ff0314 · 4ff0314
2 parents 0ba9f78 + 9af2556
commit 4ff0314
Show file tree

Hide file tree

Showing 12 changed files with 1,187 additions and 2 deletions.
diff --git a/SRC/actor/objectBroker/FEM_ObjectBrokerAllClasses.cpp b/SRC/actor/objectBroker/FEM_ObjectBrokerAllClasses.cpp
@@ -217,6 +217,7 @@
 #include "truss/TrussSection.h"
 #include "truss/CorotTruss.h"
 #include "truss/CorotTrussSection.h"
+#include "truss/InertiaTruss.h"
 #include "zeroLength/ZeroLength.h"
 #include "zeroLength/ZeroLengthSection.h"
 #include "zeroLength/ZeroLengthContact2D.h"
@@ -662,7 +663,10 @@ FEM_ObjectBrokerAllClasses::getNewElement(int classTag)
       return new CorotTruss(); 
 
     case ELE_TAG_CorotTrussSection:  
-      return new CorotTrussSection(); 	     
+      return new CorotTrussSection(); 
+
+	case ELE_TAG_InertiaTruss:
+		return new InertiaTruss();
 
     case ELE_TAG_ZeroLength:  
       return new ZeroLength(); 	     

diff --git a/SRC/classTags.h b/SRC/classTags.h
@@ -794,6 +794,7 @@
 #define ELE_TAG_MasonPan12                    215
 #define ELE_TAG_MasonPan3D                    216
 #define ELE_TAG_ASDEmbeddedNodeElement             217  // Massimo Petracca (ASDEA)
+#define ELE_TAG_InertiaTruss              218	//Added by Xiaodong Ji, Yuhao Cheng, Yue Yu
 #define ELE_TAG_ExternalElement           99990
 
 

diff --git a/SRC/element/TclElementCommands.cpp b/SRC/element/TclElementCommands.cpp
@@ -151,6 +151,8 @@ extern void *OPS_ElastomericBearingBoucWenMod3d(void);
 extern void *OPS_PFEMElement2DBubble(const ID &info);
 extern void *OPS_PFEMElement2Dmini(const ID &info);
 extern void *OPS_PFEMElement2D();
+extern void* OPS_InertiaTrussElement(void);     //Added by Xiaodong Ji, Yuhao Cheng, Yue Yu
+
 #if defined(_HAVE_LHNMYS) || defined(OPSDEF_ELEMENT_LHNMYS)
 extern void* OPS_BeamColumn2DwLHNMYS(void);
 extern void* OPS_Beam2dDamage(void);
@@ -1534,6 +1536,18 @@ TclModelBuilderElementCommand(ClientData clientData, Tcl_Interp *interp,
   }
   //Xinlong Du
 
+
+  else if ((strcmp(argv[1], "InertiaTruss") == 0)) {
+
+  void* theEle = OPS_InertiaTrussElement();
+  if (theEle != 0)
+      theElement = (Element*)theEle;
+  else {
+      opserr << "tclelementcommand -- unable to create element of type : " << argv[1] << endln;
+      return TCL_ERROR;
+  }
+  }
+
   // if one of the above worked
   if (theElement != 0) {
     if (theTclDomain->addElement(theElement) == false) {