ComplexMatrices.cs

using System;
using System.Numerics;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
 
namespace Waher.Script.Objects.Matrices
{
    public sealed class ComplexMatrices : Ring
    {
        private ComplexMatrix zero = null;
        private readonly int rows;
        private readonly int columns;
 
        public ComplexMatrices(int Rows, int Columns)
        {
            this.rows = Rows;
            this.columns = Columns;
        }
 
        public int Rows => this.rows;
 
        public int Columns => this.columns;
 
        public override IAbelianGroupElement Zero
        {
            get
            {
                if (this.zero is null)
                {
                    Complex[,] v = new Complex[this.rows, this.columns];
                    int x, y;
 
                    for (y = 0; y < this.rows; y++)
                    {
                        for (x = 0; x < this.columns; x++)
                            v[y, x] = Complex.Zero;
                    }
 
                    this.zero = new ComplexMatrix(v);
                }
 
                return this.zero;
            }
        }
 
        public override bool IsCommutative
        {
            get { return this.columns == 1 && this.rows == 1; }
        }
 
        public override bool Contains(IElement Element)
        {
            if (Element is ComplexMatrix M)
                return M.Rows == this.rows && M.Columns == this.columns;
            else
                return false;
        }
 
        public override bool Equals(object obj)
        {
            return (obj is ComplexMatrices S && S.rows == this.rows && S.columns == this.columns);
        }
 
        public override int GetHashCode()
        {
            return this.rows.GetHashCode() ^ (this.columns.GetHashCode() << 16);
        }
 
    }
}