Branch data     Line data    Source code

       1                 :            : /* *****************************************************************
       2                 :            :     MESQUITE -- The Mesh Quality Improvement Toolkit
       3                 :            : 
       4                 :            :     Copyright 2006 Sandia National Laboratories.  Developed at the
       5                 :            :     University of Wisconsin--Madison under SNL contract number
       6                 :            :     624796.  The U.S. Government and the University of Wisconsin
       7                 :            :     retain certain rights to this software.
       8                 :            : 
       9                 :            :     This library is free software; you can redistribute it and/or
      10                 :            :     modify it under the terms of the GNU Lesser General Public
      11                 :            :     License as published by the Free Software Foundation; either
      12                 :            :     version 2.1 of the License, or (at your option) any later version.
      13                 :            : 
      14                 :            :     This library is distributed in the hope that it will be useful,
      15                 :            :     but WITHOUT ANY WARRANTY; without even the implied warranty of
      16                 :            :     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      17                 :            :     Lesser General Public License for more details.
      18                 :            : 
      19                 :            :     You should have received a copy of the GNU Lesser General Public License
      20                 :            :     (lgpl.txt) along with this library; if not, write to the Free Software
      21                 :            :     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
      22                 :            : 
      23                 :            :     (2006) [email protected]
      24                 :            : 
      25                 :            :   ***************************************************************** */
      26                 :            : 
      27                 :            : /** \file TSquared.cpp
      28                 :            :  *  \brief
      29                 :            :  *  \author Jason Kraftcheck
      30                 :            :  */
      31                 :            : 
      32                 :            : #include "Mesquite.hpp"
      33                 :            : #include "TSquared.hpp"
      34                 :            : #include "MsqMatrix.hpp"
      35                 :            : #include "TMPCommon.hpp"
      36                 :            : #include "TMPDerivs.hpp"
      37                 :            : 
      38                 :            : namespace MBMesquite
      39                 :            : {
      40                 :            : 
      41                 :          2 : std::string TSquared::get_name() const
      42                 :            : {
      43         [ +  - ]:          2 :     return "TSquared";
      44                 :            : }
      45                 :            : 
      46         [ -  + ]:         18 : TSquared::~TSquared() {}
      47                 :            : 
      48                 :            : template < unsigned DIM >
      49                 :    2672632 : static inline bool eval( const MsqMatrix< DIM, DIM >& T, double& result )
      50                 :            : {
      51                 :    2672632 :     result = sqr_Frobenius( T );
      52                 :    2672632 :     return true;
      53                 :            : }
      54                 :            : 
      55                 :            : template < unsigned DIM >
      56                 :      16924 : static inline bool grad( const MsqMatrix< DIM, DIM >& T, double& result, MsqMatrix< DIM, DIM >& wrt_T )
      57                 :            : {
      58                 :      16924 :     result = sqr_Frobenius( T );
      59                 :      16924 :     wrt_T  = 2 * T;
      60                 :      16924 :     return true;
      61                 :            : }
      62                 :            : 
      63                 :            : template < unsigned DIM >
      64                 :          0 : static inline bool hess( const MsqMatrix< DIM, DIM >& T, double& result, MsqMatrix< DIM, DIM >& deriv_wrt_T,
      65                 :            :                          MsqMatrix< DIM, DIM >* second_wrt_T )
      66                 :            : {
      67                 :          0 :     result      = sqr_Frobenius( T );
      68                 :          0 :     deriv_wrt_T = 2 * T;
      69                 :          0 :     set_scaled_I( second_wrt_T, 2.0 );
      70                 :          0 :     return true;
      71                 :            : }
      72                 :            : 
      73                 :    5379112 : TMP_T_TEMPL_IMPL_COMMON( TSquared )
      74                 :            : 
      75                 :            : }  // namespace MBMesquite