remove unused

HyperElasticity/Integration_Lib.pro

-/*
-  Integration  method
-    GradGrad
-    CurlCurl
-*/
-
-
-Integration {
-  { Name GradGrad ;
-    Case { {Type Gauss ;
-        Case {
-          { GeoElement Point       ; NumberOfPoints  1 ; }
-          { GeoElement Line        ; NumberOfPoints  4 ; }
-          { GeoElement Triangle    ; NumberOfPoints  4 ; }
-          { GeoElement Quadrangle  ; NumberOfPoints  4 ; }
-          { GeoElement Tetrahedron ; NumberOfPoints  4 ; }
-          { GeoElement Hexahedron  ; NumberOfPoints  6 ; }
-          { GeoElement Prism       ; NumberOfPoints  9 ; } }
-      }
-    }
-  }
-  { Name CurlCurl ;
-    Case { {Type Gauss ;
-        Case {
-          { GeoElement Point       ; NumberOfPoints  1 ; }
-          { GeoElement Line        ; NumberOfPoints  4 ; }
-          { GeoElement Triangle    ; NumberOfPoints  4 ; }
-          { GeoElement Quadrangle  ; NumberOfPoints  4 ; }
-          { GeoElement Tetrahedron ; NumberOfPoints  4 ; }
-          { GeoElement Hexahedron  ; NumberOfPoints  6 ; }
-          { GeoElement Prism       ; NumberOfPoints  9 ; } }
-      }
-    }
-  }
-}
-
-/* --------------------------------------------------------------------------*/

HyperElasticity/Jacobian_Lib.pro

-/*
-  Jacobian methods
-    Vol
-*/
-
-/* I N P U T
-   ---------
-
-  GlobalGroup :
-  -----------
-    DomainInf                Regions with Spherical Shell Transformation
-
-  Parameters :
-  ----------
-    Val_Rint, Val_Rext       Inner and outer radius of the Spherical Shell
-                             of DomainInf
-
-*/
-
-/* --------------------------------------------------------------------------*/
-
-
-
-
-
-Group {
-  DefineGroup[ DomainInf ] ;
-  DefineVariable[ Val_Rint, Val_Rext ] ;
-}
-
-
-
-/* --------------------------------------------------------------------------*/
-
-
-
-
-Jacobian {
-  { Name Vol ;
-    Case { { Region DomainInf ;
-             Jacobian VolSphShell {Val_Rint, Val_Rext} ; }
-           { Region All ; Jacobian Vol ; }
-    }
-  }
-  { Name JSur ;
-    Case {
-      { Region All ; Jacobian Sur ; }
-    }
-  }
-  { Name JLin ;
-    Case {
-      { Region All ; Jacobian Lin ; }
-    }
-  }
-}
-
-
-
-/* --------------------------------------------------------------------------*/

HyperElasticity/Total_Lagrangian.pro

-//=====================================================================
-
-FunctionSpace {
-  For i In {1:3}
-    { Name H_u~{i} ; Type Form0 ;
-      BasisFunction {
-        { Name sn~{i} ; NameOfCoef un~{i} ; Function BF_Node ;
-          Support Region[ { Domain_Mecha} ] ; Entity NodesOf[ All ] ; }
-      }
-      Constraint {
-      { NameOfCoef un~{i} ;
-        EntityType NodesOf ; NameOfConstraint Displacement~{i} ; }
-      }
-    }
-  EndFor    
-}
-
-Formulation {
-  { Name Total_Lagrangian ; Type FemEquation ;
-    Quantity {
-      For i In {1:3}
-        { Name u~{i}  ; Type Local ; NameOfSpace H_u~{i} ; }
-      EndFor
-    }
-    Equation {
-      // The right-hand side
-      //===================
-      For i In {1:3}
-        Galerkin { [ P~{i}[ (TensorDiag[1., 1., 1.] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] , {d u~{i}} ] ;
-          In Domain_Mecha; Jacobian Vol; Integration GradGrad; }
-        For j In {1:3}          
-          Galerkin { [ C_Tot~{j}~{i}[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] * Dof{d u~{i}}, {d u~{j}} ] ;
-            In Domain_Mecha ; Jacobian Vol ; Integration GradGrad ; }
-          Galerkin { [-C_Tot~{j}~{i}[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] * {d u~{i}}, {d u~{j}} ] ;
-            In Domain_Mecha ; Jacobian Vol ; Integration GradGrad ; }
-        EndFor
-      EndFor
-          
-        Galerkin { [ - CompX[ -force_ext[] ] , {u~{1}} ] ;
-        In Domain_Mecha; Jacobian Vol; Integration GradGrad; }
-        Galerkin { [ - CompY[ -force_ext[] ] , {u~{2}} ] ;
-          In Domain_Mecha; Jacobian Vol; Integration GradGrad; }
-        Galerkin { [ - CompZ[ -force_ext[] ] , {u~{3}} ] ;
-          In Domain_Mecha; Jacobian Vol; Integration GradGrad; }
-
-    }
-  }
-}
-
-PostProcessing {
-  { Name Total_Lagrangian ; NameOfFormulation Total_Lagrangian ;
-    NameOfSystem Sys_Mec;
-    PostQuantity {
-      { Name u ; Value{ Term{ [ Vector[ {u~{1}}, {u~{2}}, {u~{3}} ]];
-	    In Domain_Mecha ; Jacobian Vol ; } } }
-      { Name um ; Value{ Term{ [ Norm[ Vector[ {u~{1}}, {u~{2}}, {u~{3}} ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name ux  ; Value{ Term{ [ {u~{1}} ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name uy  ; Value{ Term{ [ {u~{2}} ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name uz  ; Value{ Term{ [ {u~{3}} ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-
-      { Name PK2_xx; Value{ Term { [ CompXX[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_xy; Value{ Term { [ CompXY[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_xz; Value{ Term { [ CompXZ[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_yx; Value{ Term { [ CompYX[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_yy; Value{ Term { [ CompYY[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_yz; Value{ Term { [ CompYZ[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_zx; Value{ Term { [ CompZX[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_zy; Value{ Term { [ CompZY[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name PK2_zz; Value{ Term { [ CompZZ[PK2[ (TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }        
-      
-      { Name F_tot_xx  ; Value { Term { [ CompXX[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_xy  ; Value { Term { [ CompXY[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_xz  ; Value { Term { [ CompXZ[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_yx  ; Value { Term { [ CompYX[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_yy  ; Value { Term { [ CompYY[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_yz  ; Value { Term { [ CompYZ[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_zx  ; Value { Term { [ CompZX[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_zy  ; Value { Term { [ CompZY[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-      { Name F_tot_zz  ; Value { Term { [ CompZZ[(TensorDiag[1.0, 1.0, 1.0] + TensorV[{d u~{1}}, {d u~{2}}, {d u~{3}} ] ) ] ] ;
-            In Domain_Mecha  ; Jacobian Vol; } } }
-    }
-  }
-}