public static void QRDecomposition()
{
SquareMatrix A = new SquareMatrix(new double[, ] {
{ 1, -2, 3 },
{ 2, -5, 12 },
{ 0, 2, -10 }
});
ColumnVector b = new ColumnVector(2, 8, -4);
SquareQRDecomposition qrd = A.QRDecomposition();
ColumnVector x = qrd.Solve(b);
PrintMatrix("x", x);
SquareMatrix Q = qrd.QMatrix;
SquareMatrix R = qrd.RMatrix;
PrintMatrix("QR", Q * R);
PrintMatrix("Q Q^T", Q.MultiplySelfByTranspose());
SquareMatrix AI = qrd.Inverse();
PrintMatrix("A^{-1}", AI);
PrintMatrix("A^{-1} A", AI * A);
}
public void SquareRandomMatrixQRDecomposition()
{
for (int d = 1; d <= 100; d += 11)
{
Console.WriteLine("d={0}", d);
SquareMatrix M = CreateSquareRandomMatrix(d);
// QR decompose the matrix.
SquareQRDecomposition QRD = M.QRDecomposition();
// The dimension should be right.
Assert.IsTrue(QRD.Dimension == M.Dimension);
// Test that the decomposition works.
SquareMatrix Q = QRD.QMatrix;
SquareMatrix R = QRD.RMatrix;
Assert.IsTrue(TestUtilities.IsNearlyEqual(Q * R, M));
// Check that the inverse works.
SquareMatrix MI = QRD.Inverse();
Assert.IsTrue(TestUtilities.IsNearlyEqual(M * MI, UnitMatrix.OfDimension(d)));
// Test that a solution works.
ColumnVector t = new ColumnVector(d);
for (int i = 0; i < d; i++)
{
t[i] = i;
}
ColumnVector s = QRD.Solve(t);
Assert.IsTrue(TestUtilities.IsNearlyEqual(M * s, t));
}
}
public void doWork()
{
matrix.Fill((j, i) => array[i, j]);
SquareQRDecomposition qr = matrix.QRDecomposition();
SquareLUDecomposition lu = matrix.LUDecomposition();
ColumnVector qrresult = qr.Solve(vector);
ColumnVector luresult = lu.Solve(vector);
ColumnVector c6 = matrix.Column(6);
RowVector r2 = matrix.Row(2);
SquareMatrix inv = matrix.Inverse();
ColumnVector result = new ColumnVector(inv.Dimension);
for (int i = 0; i < matrix.Dimension; ++i)
{
for (int j = 0; j < matrix.Dimension; ++j)
{
result[i] += matrix[i, j] * qrresult[j];
}
}
}
public static QuadraticInterpolationModel Construct(double[][] points, double[] values)
{
int m = points.Length;
int d = points[0].Length;
// find the minimum point, use it as the origin
int iMin = 0; double fMin = values[0];
for (int i = 1; i < values.Length; i++)
{
if (values[i] < fMin)
{
iMin = i; fMin = values[i];
}
}
SquareMatrix A = new SquareMatrix(m);
int c = 0;
for (int r = 0; r < m; r++)
{
A[r, 0] = 1.0;
}
for (int i = 0; i < d; i++)
{
c++;
for (int r = 0; r < m; r++)
{
A[r, c] = points[r][i] - points[iMin][i];
}
}
for (int i = 0; i < d; i++)
{
for (int j = 0; j <= i; j++)
{
c++;
for (int r = 0; r < m; r++)
{
A[r, c] = (points[r][i] - points[iMin][i]) * (points[r][j] - points[iMin][j]);
}
}
}
ColumnVector b = new ColumnVector(values);
SquareQRDecomposition QR = A.QRDecomposition();
ColumnVector a = QR.Solve(b);
QuadraticInterpolationModel model = new QuadraticInterpolationModel();
model.d = d;
model.origin = points[iMin];
model.f0 = a[0];
model.g = new double[d];
c = 0;
for (int i = 0; i < d; i++)
{
c++;
model.g[i] = a[c];
}
model.h = new double[d][];
for (int i = 0; i < d; i++)
{
model.h[i] = new double[d];
}
for (int i = 0; i < d; i++)
{
for (int j = 0; j <= i; j++)
{
c++;
if (i == j)
{
model.h[i][j] = 2.0 * a[c];
}
else
{
model.h[i][j] = a[c];
model.h[j][i] = a[c];
}
}
}
return(model);
}