ToMatrix.cs

using System;
using System.Collections.Generic;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Model;
 
namespace Waher.Script.Operators.Matrices
{
    public class ToMatrix : NullCheckUnaryOperator
    {
        public ToMatrix(ScriptNode Operand, bool NullCheck, int Start, int Length, Expression Expression)
            : base(Operand, NullCheck, Start, Length, Expression)
        {
        }
 
        public override IElement Evaluate(IElement Operand, Variables Variables)
        {
            return this.ConvertToMatrix(Operand);
        }
 
        private IElement ConvertToMatrix(IElement Operand)
        { 
            if (this.nullCheck && Operand.AssociatedObjectValue is null)
                return Operand;
 
            if (Operand is IMatrix)
                return Operand;
 
            if (Operand is IVector V)
                return MatrixDefinition.Encapsulate(V.VectorElements, 1, V.Dimension, this);
 
            if (Operand is ISet S)
            {
                ICollection<IElement> Elements = S.ChildElements;
                return MatrixDefinition.Encapsulate(Elements, 1, Elements.Count, this);
            }
 
            if (Operand is IToMatrix ToMatrix)
                return ToMatrix.ToMatrix();
 
            if (Operand?.AssociatedObjectValue is IToMatrix ToMatrix2)
                return ToMatrix2.ToMatrix();
 
            return MatrixDefinition.Encapsulate(new IElement[] { Operand }, 1, 1, this);
        }
 
        public override PatternMatchResult PatternMatch(IElement CheckAgainst, Dictionary<string, IElement> AlreadyFound)
        {
            return this.op.PatternMatch(this.ConvertToMatrix(CheckAgainst), AlreadyFound);
        }
    }
}