Example: ComplexSparseMatrix

The matrix product of two complex sparse matrices is computed using a method from the ComplexSparseMatrix class. The one-norm of the result is also computed. The matrix and its norm are printed.

using System;
using Imsl.Math;

public class ComplexSparseMatrixEx1
{
    public static void  Main(String[] args)
    {
        ComplexSparseMatrix b = new ComplexSparseMatrix(6, 6);
        b.Set(0, 0, new Complex(10.0, -3.0));
        b.Set(1, 1, new Complex(10.0, 0.0));
        b.Set(1, 2, new Complex(-3.0, 2.0));
        b.Set(1, 3, new Complex(-1.0, -1.0));
        b.Set(2, 2, new Complex(15.0, 5.0));
        b.Set(3, 0, new Complex(-2.0, 0.0));
        b.Set(3, 3, new Complex(10.0, 1.0));
        b.Set(3, 4, new Complex(-1.0, -2.0));
        b.Set(4, 0, new Complex(-1.0, 0.0));
        b.Set(4, 3, new Complex(-5.0, 7.0));
        b.Set(4, 4, new Complex(1.0, -3.0));
        b.Set(4, 5, new Complex(-3.0, 0.0));
        b.Set(5, 0, new Complex(-1.0, 4.0));
        b.Set(5, 1, new Complex(-2.0, 1.0));
        b.Set(5, 5, new Complex(6.0, -5.0));
        
        
        ComplexSparseMatrix c = new ComplexSparseMatrix(6, 3);
        c.Set(0, 0, new Complex(5.0, 0.0));
        c.Set(1, 2, new Complex(-3.0, -4.0));
        c.Set(2, 0, new Complex(1.0, 2.0));
        c.Set(2, 2, new Complex(7.0, 1.0));
        c.Set(3, 0, new Complex(2.0, -7.0));
        c.Set(4, 1, new Complex(-5.0, 2.0));
        c.Set(4, 2, new Complex(2.0, 1.0));
        c.Set(5, 2, new Complex(4.0, 0.0));
        
        // A = b * c
        ComplexSparseMatrix A = ComplexSparseMatrix.Multiply(b, c);
        
        // Get the one norm of matrix A
        Console.Out.WriteLine("The 1-norm of the matrix is " 
            + A.OneNorm());
        
        ComplexSparseMatrix.SparseArray sa = A.ToSparseArray();
        
        Console.Out.WriteLine("row  column  value");
        for (int i = 0; i < sa.NumberOfRows; i++)
        {
            for (int j = 0; j < sa.Index[i].Length; j++)
            {
                Console.Out.WriteLine(" " + i + "     " 
                    + sa.Index[i][j] + "     " + "(" 
                    + Complex.Real(sa.Values[i][j]) 
                    + "," + Complex.Imag(sa.Values[i][j]) + ")");
            }
        }
    }
}

Output

The 1-norm of the matrix is 253.937005114344
row  column  value
 0     0     (50,-15)
 1     0     (-16,1)
 1     2     (-53,-29)
 2     0     (5,35)
 2     2     (100,50)
 3     0     (17,-68)
 3     1     (9,8)
 3     2     (0,-5)
 4     0     (34,49)
 4     1     (1,17)
 4     2     (-7,-5)
 5     0     (-5,20)
 5     2     (34,-15)