DoubleMatrices.cs

using System;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
 
namespace Waher.Script.Objects.Matrices
{
    public sealed class DoubleMatrices : Ring
    {
        private DoubleMatrix zero = null;
        private readonly int rows;
        private readonly int columns;
 
        public DoubleMatrices(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)
                    this.zero = new DoubleMatrix(new double[this.rows, this.columns]);
 
                return this.zero;
            }
        }
 
        public override bool IsCommutative
        {
            get { return this.columns == 1 && this.rows == 1; }
        }
 
        public override bool Contains(IElement Element)
        {
            if (Element is DoubleMatrix M)
                return M.Rows == this.rows && M.Columns == this.columns;
            else
                return false;
        }
 
        public override bool Equals(object obj)
        {
            return (obj is DoubleMatrices S && S.rows == this.rows && S.columns == this.columns);
        }
 
        public override int GetHashCode()
        {
            return this.rows.GetHashCode() ^ (this.columns.GetHashCode() << 16);
        }
 
    }
}