MOOCHO Version of the Day
NLPInterfacePack_ExampleBasisSystem.cpp
00001 // @HEADER
00002 // ***********************************************************************
00003 // 
00004 // Moocho: Multi-functional Object-Oriented arCHitecture for Optimization
00005 //                  Copyright (2003) Sandia Corporation
00006 // 
00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00008 // license for use of this work by or on behalf of the U.S. Government.
00009 // 
00010 // Redistribution and use in source and binary forms, with or without
00011 // modification, are permitted provided that the following conditions are
00012 // met:
00013 //
00014 // 1. Redistributions of source code must retain the above copyright
00015 // notice, this list of conditions and the following disclaimer.
00016 //
00017 // 2. Redistributions in binary form must reproduce the above copyright
00018 // notice, this list of conditions and the following disclaimer in the
00019 // documentation and/or other materials provided with the distribution.
00020 //
00021 // 3. Neither the name of the Corporation nor the names of the
00022 // contributors may be used to endorse or promote products derived from
00023 // this software without specific prior written permission.
00024 //
00025 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
00026 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00027 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
00028 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
00029 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
00030 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
00031 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
00032 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
00033 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
00034 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
00035 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00036 //
00037 // Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov) 
00038 // 
00039 // ***********************************************************************
00040 // @HEADER
00041 
00042 #include "NLPInterfacePack_ExampleBasisSystem.hpp"
00043 #include "AbstractLinAlgPack_MatrixSymDiagStd.hpp"
00044 #include "AbstractLinAlgPack_MatrixComposite.hpp"
00045 #include "AbstractLinAlgPack_VectorStdOps.hpp"
00046 #include "Teuchos_AbstractFactoryStd.hpp"
00047 #include "Teuchos_dyn_cast.hpp"
00048 #include "Teuchos_Assert.hpp"
00049 
00050 namespace NLPInterfacePack {
00051  
00052 ExampleBasisSystem::ExampleBasisSystem(
00053   const VectorSpace::space_ptr_t       &space_x
00054   ,const Range1D                       &var_dep
00055   ,const Range1D                       &var_indep
00056   )
00057   :BasisSystemComposite(
00058     space_x
00059     ,var_dep
00060     ,var_indep
00061     ,space_x->sub_space(var_dep)
00062     ,Teuchos::rcp(
00063       new Teuchos::AbstractFactoryStd<MatrixOpNonsing,MatrixSymDiagStd>())       // C
00064     ,Teuchos::rcp(
00065       new Teuchos::AbstractFactoryStd<MatrixSymOp,MatrixSymDiagStd>())           // D'*D
00066     ,Teuchos::rcp(
00067       new Teuchos::AbstractFactoryStd<MatrixSymOpNonsing,MatrixSymDiagStd>())    // S
00068     ,Teuchos::rcp(
00069       new Teuchos::AbstractFactoryStd<MatrixOp,MatrixSymDiagStd>())              // D
00070     )
00071 {}
00072   
00073 void ExampleBasisSystem::initialize(
00074   const VectorSpace::space_ptr_t       &space_x
00075   ,const Range1D                       &var_dep
00076   ,const Range1D                       &var_indep
00077   )
00078 {
00079   namespace mmp = MemMngPack;
00080   TEUCHOS_TEST_FOR_EXCEPTION(
00081     space_x.get() == NULL, std::invalid_argument
00082     ,"ExampleBasisSystem::initialize(...) : Error, space_x must be specified!"
00083     );
00084   BasisSystemComposite::initialize(
00085     space_x
00086     ,var_dep
00087     ,var_indep
00088     ,space_x->sub_space(var_dep)
00089     ,Teuchos::rcp(new Teuchos::AbstractFactoryStd<MatrixOpNonsing,MatrixSymDiagStd>())      // C
00090     ,Teuchos::rcp(new Teuchos::AbstractFactoryStd<MatrixSymOp,MatrixSymDiagStd>())          // D'*D
00091     ,Teuchos::rcp(new Teuchos::AbstractFactoryStd<MatrixSymOpNonsing,MatrixSymDiagStd>())   // S
00092     ,Teuchos::rcp(new Teuchos::AbstractFactoryStd<MatrixOp,MatrixSymDiagStd>())             // D
00093     );
00094 }
00095 
00096 void ExampleBasisSystem::update_D(
00097   const MatrixOpNonsing   &C
00098   ,const MatrixOp         &N
00099   ,MatrixOp               *D
00100   ,EMatRelations          mat_rel
00101   ) const
00102 {
00103   using Teuchos::dyn_cast;
00104 
00105   TEUCHOS_TEST_FOR_EXCEPTION(
00106     D == NULL, std::logic_error
00107     ,"ExampleBasisSystem::update_D(...): Error!" );
00108 
00109   const MatrixSymDiagStd
00110     &C_aggr = dyn_cast<const MatrixSymDiagStd>(C),
00111     &N_aggr = dyn_cast<const MatrixSymDiagStd>(N);
00112   MatrixSymDiagStd
00113     &D_sym_diag = dyn_cast<MatrixSymDiagStd>(*D);
00114   if( D_sym_diag.rows() != C.rows() )
00115     D_sym_diag.initialize(
00116       this->space_x()->sub_space(this->var_dep())->create_member()
00117       );
00118   AbstractLinAlgPack::ele_wise_divide(                           // D_diag = - N_diag ./ C_diag
00119     -1.0, N_aggr.diag(), C_aggr.diag(), &D_sym_diag.diag() );  // ...
00120 }
00121 
00122 } // end namespace NLPInterfacePack
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Friends