mirror of https://github.com/mosra/magnum.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
2.1 KiB
69 lines
2.1 KiB
/* |
|
Copyright © 2010, 2011, 2012 Vladimír Vondruš <mosra@centrum.cz> |
|
|
|
This file is part of Magnum. |
|
|
|
Magnum is free software: you can redistribute it and/or modify |
|
it under the terms of the GNU Lesser General Public License version 3 |
|
only, as published by the Free Software Foundation. |
|
|
|
Magnum 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 Lesser General Public License version 3 for more details. |
|
*/ |
|
|
|
#include <TestSuite/Tester.h> |
|
|
|
#include "Math/Matrix.h" |
|
#include "Math/Algorithms/GaussJordan.h" |
|
|
|
namespace Magnum { namespace Math { namespace Algorithms { namespace Test { |
|
|
|
class GaussJordanTest: public Corrade::TestSuite::Tester { |
|
public: |
|
explicit GaussJordanTest(); |
|
|
|
void singular(); |
|
void invert(); |
|
}; |
|
|
|
typedef Matrix<4, float> Matrix4; |
|
|
|
GaussJordanTest::GaussJordanTest() { |
|
addTests(&GaussJordanTest::singular, |
|
&GaussJordanTest::invert); |
|
} |
|
|
|
void GaussJordanTest::singular() { |
|
Matrix4 a(1.0f, 2.0f, 3.0f, 4.0f, |
|
2.0f, 3.0f, -7.0f, 11.0f, |
|
2.0f, 4.0f, 6.0f, 8.0f, |
|
1.0f, 2.0f, 7.0f, 40.0f); |
|
RectangularMatrix<4, 1, float> t; |
|
|
|
CORRADE_VERIFY(!GaussJordan::inPlaceTransposed(a, t)); |
|
} |
|
|
|
void GaussJordanTest::invert() { |
|
Matrix4 a(3.0f, 5.0f, 8.0f, 4.0f, |
|
4.0f, 4.0f, 7.0f, 3.0f, |
|
7.0f, -1.0f, 8.0f, 0.0f, |
|
9.0f, 4.0f, 5.0f, 9.0f); |
|
|
|
Matrix4 expectedInverse(-60/103.0f, 71/103.0f, -4/103.0f, 3/103.0f, |
|
-66/103.0f, 109/103.0f, -25/103.0f, -7/103.0f, |
|
177/412.0f, -97/206.0f, 53/412.0f, -7/206.0f, |
|
259/412.0f, -185/206.0f, 31/412.0f, 27/206.0f); |
|
|
|
Matrix4 a2(a); |
|
Matrix4 inverse(Matrix4::Identity); |
|
CORRADE_VERIFY(GaussJordan::inPlace(a2, inverse)); |
|
|
|
CORRADE_COMPARE(inverse, expectedInverse); |
|
CORRADE_COMPARE(a*inverse, Matrix4()); |
|
} |
|
|
|
}}}} |
|
|
|
CORRADE_TEST_MAIN(Magnum::Math::Algorithms::Test::GaussJordanTest)
|
|
|