initial commit for 3d

zhuminjie · Sep 16, 2021 · 0992dd9 · 0992dd9
1 parent d072b60
commit 0992dd9
Show file tree

Hide file tree

Showing 16 changed files with 1,771 additions and 2 deletions.
diff --git a/SRC/Makefile b/SRC/Makefile
@@ -648,6 +648,7 @@ ELE_LIBS   =  $(FE)/element/Element.o \
 	$(FE)/element/tetrahedron/FourNodeTetrahedron.o \
 	$(FE)/element/absorbentBoundaries/LysmerTriangle.o \
 	$(FE)/element/absorbentBoundaries/ASDAbsorbingBoundary2D.o \
+	$(FE)/element/absorbentBoundaries/ASDAbsorbingBoundary3D.o \
 	$(FE)/element/UWelements/EmbeddedBeamInterfaceL.o \
 	$(FE)/element/UWelements/EmbeddedBeamInterfaceP.o \
 	$(FE)/element/UWelements/EmbeddedEPBeamInterface.o \

diff --git a/SRC/actor/objectBroker/FEM_ObjectBrokerAllClasses.cpp b/SRC/actor/objectBroker/FEM_ObjectBrokerAllClasses.cpp
@@ -307,6 +307,7 @@
 #include "CEqElement/ASDEmbeddedNodeElement.h"
 
 #include "absorbentBoundaries/ASDAbsorbingBoundary2D.h"
+#include "absorbentBoundaries/ASDAbsorbingBoundary3D.h"
 
 #include "LinearCrdTransf2d.h"
 #include "LinearCrdTransf3d.h"
@@ -905,6 +906,9 @@ FEM_ObjectBrokerAllClasses::getNewElement(int classTag)
     case ELE_TAG_ASDAbsorbingBoundary2D:
       return new ASDAbsorbingBoundary2D();
 
+    case ELE_TAG_ASDAbsorbingBoundary3D:
+      return new ASDAbsorbingBoundary3D();
+
     default:
       opserr << "FEM_ObjectBrokerAllClasses::getNewElement - ";
       opserr << " - no Element type exists for class tag " ;

diff --git a/SRC/classTags.h b/SRC/classTags.h
@@ -791,6 +791,7 @@
 #define ELE_TAG_MasonPan3D                    216
 #define ELE_TAG_ASDEmbeddedNodeElement             217  // Massimo Petracca (ASDEA)
 #define ELE_TAG_ASDAbsorbingBoundary2D             218  // Massimo Petracca (ASDEA)
+#define ELE_TAG_ASDAbsorbingBoundary3D             219  // Massimo Petracca (ASDEA)
 #define ELE_TAG_ExternalElement           99990
 
 

diff --git a/SRC/element/TclElementCommands.cpp b/SRC/element/TclElementCommands.cpp
@@ -163,6 +163,7 @@ extern void *OPS_ShellANDeS(void);
 extern void *OPS_FourNodeTetrahedron(void);
 extern void *OPS_LysmerTriangle(void);
 extern void *OPS_ASDAbsorbingBoundary2D(void); // Massimo Petracca (ASDEA)
+extern void *OPS_ASDAbsorbingBoundary3D(void); // Massimo Petracca (ASDEA)
 extern void *OPS_TwoNodeLink(void);
 extern void *OPS_LinearElasticSpring(void);
 extern void *OPS_Inerter(void);
@@ -1279,6 +1280,17 @@ TclModelBuilderElementCommand(ClientData clientData, Tcl_Interp *interp,
       }
   }
 
+  else if (strcmp(argv[1], "ASDAbsorbingBoundary3D") == 0) {
+      void *theEle = OPS_ASDAbsorbingBoundary3D();
+      if (theEle != 0) {
+    theElement = (Element*)theEle;
+      } else {
+    opserr<<"tclelementcommand -- unable to create element of type : "
+    <<argv[1]<<endln;
+    return TCL_ERROR;
+      }
+  }
+
   else if (strcmp(argv[1], "FourNodeTetrahedron") == 0) {
       void *theEle = OPS_FourNodeTetrahedron();
       if (theEle != 0)