165 lines
4.3 KiB
C
165 lines
4.3 KiB
C
/*---------------------------------------------------------------------------*\
|
|
========= |
|
|
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
|
\\ / O peration |
|
|
\\ / A nd | Copyright (C) 2011-2013 OpenFOAM Foundation
|
|
\\/ M anipulation |
|
|
-------------------------------------------------------------------------------
|
|
License
|
|
This file is part of OpenFOAM.
|
|
|
|
OpenFOAM is free software: you can redistribute it and/or modify it
|
|
under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
|
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
\*---------------------------------------------------------------------------*/
|
|
|
|
#include "scalarMatrices.H"
|
|
#include "vector.H"
|
|
#include "IFstream.H"
|
|
|
|
using namespace Foam;
|
|
|
|
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
|
// Main program:
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
SquareMatrix<scalar> hmm(3);
|
|
|
|
hmm[0][0] = -3.0;
|
|
hmm[0][1] = 10.0;
|
|
hmm[0][2] = -4.0;
|
|
hmm[1][0] = 2.0;
|
|
hmm[1][1] = 3.0;
|
|
hmm[1][2] = 10.0;
|
|
hmm[2][0] = 2.0;
|
|
hmm[2][1] = 6.0;
|
|
hmm[2][2] = 1.0;
|
|
|
|
//Info<< hmm << endl << hmm - 2.0*(-hmm) << endl;
|
|
Info<< max(hmm) << endl;
|
|
Info<< min(hmm) << endl;
|
|
|
|
SquareMatrix<scalar> hmm2(3, 3, 1.0);
|
|
|
|
hmm = hmm2;
|
|
|
|
Info<< hmm << endl;
|
|
|
|
SquareMatrix<scalar> hmm3(Sin);
|
|
|
|
Info<< hmm3 << endl;
|
|
|
|
SquareMatrix<scalar> hmm4;
|
|
|
|
hmm4 = hmm2;
|
|
|
|
Info<< hmm4 << endl;
|
|
|
|
SquareMatrix<scalar> hmm5;
|
|
|
|
hmm4 = hmm5;
|
|
Info<< hmm5 << endl;
|
|
|
|
{
|
|
scalarSquareMatrix squareMatrix(3, 3, 0);
|
|
|
|
squareMatrix[0][0] = 4;
|
|
squareMatrix[0][1] = 12;
|
|
squareMatrix[0][2] = -16;
|
|
squareMatrix[1][0] = 12;
|
|
squareMatrix[1][1] = 37;
|
|
squareMatrix[1][2] = -43;
|
|
squareMatrix[2][0] = -16;
|
|
squareMatrix[2][1] = -43;
|
|
squareMatrix[2][2] = 98;
|
|
|
|
Info<< nl << "Square Matrix = " << squareMatrix << endl;
|
|
|
|
scalarDiagonalMatrix rhs(3, 0);
|
|
rhs[0] = 1;
|
|
rhs[1] = 2;
|
|
rhs[2] = 3;
|
|
|
|
LUsolve(squareMatrix, rhs);
|
|
|
|
Info<< "Decomposition = " << squareMatrix << endl;
|
|
Info<< "Solution = " << rhs << endl;
|
|
}
|
|
|
|
{
|
|
scalarSymmetricSquareMatrix symmMatrix(4, 4, 0);
|
|
|
|
symmMatrix(0, 0) = 3.44854;
|
|
|
|
symmMatrix(1, 0) = -2.70766;
|
|
symmMatrix(1, 1) = 5.49922;
|
|
|
|
symmMatrix(2, 0) = -0.96245;
|
|
symmMatrix(2, 1) = 2.40948;
|
|
symmMatrix(2, 2) = 1.56918;
|
|
|
|
symmMatrix(3, 0) = 1.95912;
|
|
symmMatrix(3, 1) = -3.46118;
|
|
symmMatrix(3, 2) = -1.01410;
|
|
symmMatrix(3, 3) = 3.24753;
|
|
|
|
Info<< "Symmetric Square Matrix = " << symmMatrix << endl;
|
|
|
|
Info<< "Inverse = " << inv(symmMatrix) << endl;
|
|
Info<< "Determinant = " << det(symmMatrix) << endl;
|
|
|
|
scalarSymmetricSquareMatrix symmMatrix2(symmMatrix);
|
|
LUDecompose(symmMatrix2);
|
|
|
|
Info<< "Inverse = " << invDecomposed(symmMatrix2) << endl;
|
|
Info<< "Determinant = " << detDecomposed(symmMatrix2) << endl;
|
|
|
|
scalarDiagonalMatrix rhs(4, 0);
|
|
rhs[0] = 1;
|
|
rhs[1] = 2;
|
|
rhs[2] = 3;
|
|
rhs[3] = 4;
|
|
|
|
LUsolve(symmMatrix, rhs);
|
|
|
|
Info<< "Decomposition = " << symmMatrix << endl;
|
|
Info<< "Solution = " << rhs << endl;
|
|
}
|
|
|
|
{
|
|
IFstream str("datafile");
|
|
scalarSymmetricSquareMatrix symmMatrix(str);
|
|
Info<< "Symmetric Square Matrix = " << symmMatrix << endl;
|
|
|
|
Info<< "Inverse = " << inv(symmMatrix) << endl;
|
|
Info<< "Determinant (ans = 0.24130) = " << det(symmMatrix) << endl;
|
|
|
|
scalarDiagonalMatrix rhs(4, 0);
|
|
rhs[0] = 1;
|
|
rhs[1] = 2;
|
|
rhs[2] = 3;
|
|
rhs[3] = 4;
|
|
|
|
LUsolve(symmMatrix, rhs);
|
|
Info<< "Solution = " << rhs << endl;
|
|
}
|
|
|
|
Info<< "\nEnd\n" << endl;
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
// ************************************************************************* //
|