include/opencascade/FEmTool_ProfileMatrix.hxx

0001 // Created on: 1997-10-29
0002 // Created by: Roman BORISOV
0003 // Copyright (c) 1997-1999 Matra Datavision
0004 // Copyright (c) 1999-2014 OPEN CASCADE SAS
0005 //
0006 // This file is part of Open CASCADE Technology software library.
0007 //
0008 // This library is free software; you can redistribute it and/or modify it under
0009 // the terms of the GNU Lesser General Public License version 2.1 as published
0010 // by the Free Software Foundation, with special exception defined in the file
0011 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
0012 // distribution for complete text of the license and disclaimer of any warranty.
0013 //
0014 // Alternatively, this file may be used under the terms of Open CASCADE
0015 // commercial license or contractual agreement.
0016
0017 #ifndef _FEmTool_ProfileMatrix_HeaderFile
0018 #define _FEmTool_ProfileMatrix_HeaderFile
0019
0020 #include <Standard.hxx>
0021
0022 #include <TColStd_Array2OfInteger.hxx>
0023 #include <TColStd_HArray1OfReal.hxx>
0024 #include <TColStd_HArray1OfInteger.hxx>
0025 #include <FEmTool_SparseMatrix.hxx>
0026 #include <TColStd_Array1OfInteger.hxx>
0027 #include <Standard_Real.hxx>
0028 #include <Standard_Integer.hxx>
0029 #include <math_Vector.hxx>
0030
0031
0032 class FEmTool_ProfileMatrix;
0033 DEFINE_STANDARD_HANDLE(FEmTool_ProfileMatrix, FEmTool_SparseMatrix)
0034
0035 //! Symmetric Sparse ProfileMatrix useful  for 1D Finite
0036 //! Element methods
0037 class FEmTool_ProfileMatrix : public FEmTool_SparseMatrix
0038 {
0039
0040 public:
0041
0042
0043   Standard_EXPORT FEmTool_ProfileMatrix(const TColStd_Array1OfInteger& FirstIndexes);
0044
0045   Standard_EXPORT void Init (const Standard_Real Value) Standard_OVERRIDE;
0046
0047   Standard_EXPORT Standard_Real& ChangeValue (const Standard_Integer I, const Standard_Integer J) Standard_OVERRIDE;
0048
0049   //! To make a Factorization of <me>
0050   Standard_EXPORT Standard_Boolean Decompose() Standard_OVERRIDE;
0051
0052   //! Direct Solve of AX = B
0053   Standard_EXPORT void Solve (const math_Vector& B, math_Vector& X) const Standard_OVERRIDE;
0054
0055   //! Make Preparation to iterative solve
0056   Standard_EXPORT Standard_Boolean Prepare() Standard_OVERRIDE;
0057
0058   //! Iterative solve  of AX = B
0059   Standard_EXPORT void Solve (const math_Vector& B, const math_Vector& Init, math_Vector& X, math_Vector& Residual, const Standard_Real Tolerance = 1.0e-8, const Standard_Integer NbIterations = 50) const Standard_OVERRIDE;
0060
0061   //! returns the product of a SparseMatrix by a vector.
0062   //! An exception is raised if the dimensions are different
0063   Standard_EXPORT void Multiplied (const math_Vector& X, math_Vector& MX) const Standard_OVERRIDE;
0064
0065   //! returns the row range of a matrix.
0066   Standard_EXPORT Standard_Integer RowNumber() const Standard_OVERRIDE;
0067
0068   //! returns the column range of the matrix.
0069   Standard_EXPORT Standard_Integer ColNumber() const Standard_OVERRIDE;
0070
0071   Standard_EXPORT Standard_Boolean IsInProfile (const Standard_Integer i, const Standard_Integer j) const;
0072
0073   Standard_EXPORT void OutM() const;
0074
0075   Standard_EXPORT void OutS() const;
0076
0077
0078
0079
0080   DEFINE_STANDARD_RTTIEXT(FEmTool_ProfileMatrix,FEmTool_SparseMatrix)
0081
0082 protected:
0083
0084
0085
0086
0087 private:
0088
0089
0090   TColStd_Array2OfInteger profile;
0091   Handle(TColStd_HArray1OfReal) ProfileMatrix;
0092   Handle(TColStd_HArray1OfReal) SMatrix;
0093   Handle(TColStd_HArray1OfInteger) NextCoeff;
0094   Standard_Boolean IsDecomp;
0095
0096
0097 };
0098
0099
0100
0101
0102
0103
0104
0105 #endif // _FEmTool_ProfileMatrix_HeaderFile