Chaste Release::3.1
QuadraturePointsGroup.cpp
00001 /*
00002 
00003 Copyright (c) 2005-2012, University of Oxford.
00004 All rights reserved.
00005 
00006 University of Oxford means the Chancellor, Masters and Scholars of the
00007 University of Oxford, having an administrative office at Wellington
00008 Square, Oxford OX1 2JD, UK.
00009 
00010 This file is part of Chaste.
00011 
00012 Redistribution and use in source and binary forms, with or without
00013 modification, are permitted provided that the following conditions are met:
00014  * Redistributions of source code must retain the above copyright notice,
00015    this list of conditions and the following disclaimer.
00016  * Redistributions in binary form must reproduce the above copyright notice,
00017    this list of conditions and the following disclaimer in the documentation
00018    and/or other materials provided with the distribution.
00019  * Neither the name of the University of Oxford nor the names of its
00020    contributors may be used to endorse or promote products derived from this
00021    software without specific prior written permission.
00022 
00023 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
00024 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00025 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
00026 ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
00027 LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
00028 CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
00029 GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
00030 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
00031 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
00032 OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00033 
00034 */
00035 
00036 #include "QuadraturePointsGroup.hpp"
00037 
00038 template<unsigned DIM>
00039 QuadraturePointsGroup<DIM>::QuadraturePointsGroup(TetrahedralMesh<DIM,DIM>& rMesh,
00040                           GaussianQuadratureRule<DIM>& rQuadRule)
00041 {
00042     mNumElements = rMesh.GetNumElements();
00043     mNumQuadPointsPerElement = rQuadRule.GetNumQuadPoints();
00044     data.resize(mNumElements*mNumQuadPointsPerElement, zero_vector<double>(DIM));
00045 
00046     // Loop over elements
00047     for (unsigned elem_index=0; elem_index<rMesh.GetNumElements(); elem_index++)
00048     {
00049         Element<DIM,DIM>& r_elem = *(rMesh.GetElement(elem_index));
00050 
00051         c_vector<double, DIM+1> linear_phi;
00052         for (unsigned quad_index=0; quad_index<rQuadRule.GetNumQuadPoints(); quad_index++)
00053         {
00054             const ChastePoint<DIM>& quadrature_point = rQuadRule.rGetQuadPoint(quad_index);
00055 
00056             LinearBasisFunction<DIM>::ComputeBasisFunctions(quadrature_point, linear_phi);
00057 
00058             // Interpolate to calculate quadrature point
00059             c_vector<double,DIM> X = zero_vector<double>(DIM);
00060             for (unsigned node_index=0; node_index<DIM+1; node_index++)
00061             {
00062                 X += linear_phi(node_index)*rMesh.GetNode( r_elem.GetNodeGlobalIndex(node_index) )->rGetLocation();
00063             }
00064 
00065             // Save the quadrature point
00066             assert(elem_index<mNumElements);
00067             assert(quad_index<mNumQuadPointsPerElement);
00068             data[ elem_index*mNumQuadPointsPerElement + quad_index ] = X;
00069         }
00070     }
00071 }
00072 
00073 template<unsigned DIM>
00074 c_vector<double,DIM>& QuadraturePointsGroup<DIM>::Get(unsigned elementIndex, unsigned quadIndex)
00075 {
00076     assert(elementIndex<mNumElements);
00077     assert(quadIndex<mNumQuadPointsPerElement);
00078     return data[ elementIndex*mNumQuadPointsPerElement + quadIndex ];
00079 }
00080 
00081 template<unsigned DIM>
00082 c_vector<double,DIM>& QuadraturePointsGroup<DIM>::Get(unsigned i)
00083 {
00084     assert(i < mNumElements*mNumQuadPointsPerElement);
00085     return data[i];
00086 }
00087 
00088 template<unsigned DIM>
00089 unsigned QuadraturePointsGroup<DIM>::GetNumElements() const
00090 {
00091     return mNumElements;
00092 }
00093 
00094 template<unsigned DIM>
00095 unsigned QuadraturePointsGroup<DIM>::GetNumQuadPointsPerElement() const
00096 {
00097     return mNumQuadPointsPerElement;
00098 }
00099 
00100 template<unsigned DIM>
00101 unsigned QuadraturePointsGroup<DIM>::Size() const
00102 {
00103     return mNumElements*mNumQuadPointsPerElement;
00104 }
00105 
00107 // Explicit instantiation
00109 
00110 template class QuadraturePointsGroup<1>;
00111 template class QuadraturePointsGroup<2>;
00112 template class QuadraturePointsGroup<3>;