DoubleVectors.cs

using System;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
 
namespace Waher.Script.Objects.VectorSpaces
{
    public sealed class DoubleVectors : VectorSpace
    {
        private DoubleVector zero = null;
        private readonly int dimension;
 
        public DoubleVectors(int Dimension)
        {
            this.dimension = Dimension;
        }
 
        public int Dimension => this.dimension;
 
        public override IField ScalarField
        {
            get { return DoubleNumbers.Instance; }
        }
 
        public override IAbelianGroupElement Zero
        {
            get 
            {
                if (this.zero is null)
                    this.zero = new DoubleVector(new double[this.dimension]);
                
                return this.zero;
            }
        }
 
        public override bool Contains(IElement Element)
        {
            if (!(Element is DoubleVector v))
                return false;
 
            return v.Dimension == this.dimension;
        }
 
        public override bool Equals(object obj)
        {
            return (obj is DoubleVectors v && v.dimension == this.dimension);
        }
 
        public override int GetHashCode()
        {
            return this.dimension.GetHashCode();
        }
 
    }
}