phpOMS/tests/Math/Matrix/SingularValueDecompositionTest.php

<?php
/**
 * Orange Management
 *
 * PHP Version 7.2
 *
 * @package    tests
 * @copyright  Dennis Eichhorn
 * @license    OMS License 1.0
 * @version    1.0.0
 * @link       http://website.orange-management.de
 */

namespace phpOMS\tests\Math\Matrix;

use phpOMS\Math\Matrix\Matrix;
use phpOMS\Math\Matrix\SingularValueDecomposition;

class SingularValueDecompositionTest extends \PHPUnit\Framework\TestCase
{
    public function testDecomposition()
    {
        $A = new Matrix();
        $A->setMatrix([
            [2, -2, 1],
            [5, 1, 4],
        ]);

        $svd = new SingularValueDecomposition($A);

        self::assertEquals(2, $svd->rank());

        self::assertEquals([
            [-0.3092, -0.9510],
            [-0.9510, -0.3092],
        ], $svd->getU()->toArray(), '', 0.2);

        self::assertEquals([
            [6.7751, 0, 0],
            [0, 2.2578, 0],
            [0, 0, 0],
        ], $svd->getS()->toArray(), '', 0.2);

        self::assertEquals([
            [-0.7931, -0.1576, -0.5883],
            [-0.0491, 0.9794, -0.1961],
            [-0.6071, 0.1267, 0.7845],
        ], $svd->getV()->toArray(), '', 0.2);
    }

    public function testComposition()
    {
        $A = new Matrix();
        $A->setMatrix([
            [2, -2, 1],
            [5, 1, 4],
        ]);

        $svd = new SingularValueDecomposition($A);

        self::assertEquals(
            $A->toArray(),
            $svd->getU()
                ->mult($svd->getS())
                ->mult($svd->getV()->transpose())
                ->toArray(),
            '', 0.2
        );
    }
}