ComplexVectors.cs

using System;
using System.Numerics;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
 
namespace Waher.Script.Objects.VectorSpaces
{
    public sealed class ComplexVectors : VectorSpace
    {
        private static readonly ComplexNumbers scalarField = new ComplexNumbers();
 
        private ComplexVector zero = null;
        private readonly int dimension;
 
        public ComplexVectors(int Dimension)
        {
            this.dimension = Dimension;
        }
 
        public int Dimension => this.dimension;
 
        public override IField ScalarField
        {
            get { return scalarField; }
        }
 
        public override IAbelianGroupElement Zero
        {
            get
            {
                if (this.zero is null)
                {
                    Complex[] v = new Complex[this.dimension];
                    int i;
 
                    for (i = 0; i < this.dimension; i++)
                        v[i] = Complex.Zero;
 
                    this.zero = new ComplexVector(v);
                }
 
                return this.zero;
            }
        }
 
        public override bool Contains(IElement Element)
        {
            if (Element is ComplexVector v)
                return v.Dimension == this.dimension;
            else
                return false;
        }
 
        public override bool Equals(object obj)
        {
            return (obj is ComplexVectors v && v.dimension == this.dimension);
        }
 
        public override int GetHashCode()
        {
            return this.dimension.GetHashCode();
        }
 
    }
}