FunctionOneScalarVariable.cs

using System.Collections.Generic;
using System.Numerics;
using System.Threading.Tasks;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Objects;
using Waher.Script.Objects.VectorSpaces;
 
namespace Waher.Script.Model
{
    public abstract class FunctionOneScalarVariable : FunctionOneVariable
    {
        public FunctionOneScalarVariable(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override IElement Evaluate(IElement Argument, Variables Variables)
        {
            if (Argument.IsScalar)
            {
                object Obj = Argument.AssociatedObjectValue;
 
                if (Obj is double d)
                    return this.EvaluateScalar(d, Variables);
 
                if (Obj is Complex z)
                    return this.EvaluateScalar(z, Variables);
 
                if (Obj is bool b)
                    return this.EvaluateScalar(b, Variables);
 
                if (Obj is string s)
                    return this.EvaluateScalar(s, Variables);
 
                if (Argument is Measurement Measurement)
                    return this.EvaluateScalar(Measurement, Variables);
 
                if (Argument.AssociatedObjectValue is IPhysicalQuantity PhysicalQuantity)
                    return this.EvaluateScalar(PhysicalQuantity.ToPhysicalQuantity(), Variables);
 
                return this.EvaluateScalar(Argument, Variables);
            }
            else
            {
                if (Argument is IVector Vector)
                {
                    LinkedList<IElement> Elements = new LinkedList<IElement>();
                    int i, c = Vector.Dimension;
 
                    if (Vector is DoubleVector dv)
                    {
                        double[] v = dv.Values;
                        for (i = 0; i < c; i++)
                            Elements.AddLast(this.EvaluateScalar(v[i], Variables));
                    }
                    else if (Vector is ComplexVector cv)
                    {
                        Complex[] v = cv.Values;
                        for (i = 0; i < c; i++)
                            Elements.AddLast(this.EvaluateScalar(v[i], Variables));
                    }
                    else if (Vector is BooleanVector bv)
                    {
                        bool[] v = bv.Values;
                        for (i = 0; i < c; i++)
                            Elements.AddLast(this.EvaluateScalar(v[i], Variables));
                    }
                    else
                    {
                        foreach (IElement E in Vector.ChildElements)
                            Elements.AddLast(this.Evaluate(E, Variables));
                    }
 
                    return Argument.Encapsulate(Elements, this);
                }
                else
                {
                    LinkedList<IElement> Elements = new LinkedList<IElement>();
 
                    foreach (IElement E in Argument.ChildElements)
                        Elements.AddLast(this.Evaluate(E, Variables));
 
                    return Argument.Encapsulate(Elements, this);
                }
            }
        }
 
        public virtual IElement EvaluateScalar(IElement Argument, Variables Variables)
        {
            object Value = Argument.AssociatedObjectValue;
 
            if (Expression.TryConvert(Value, out string s))
                return this.EvaluateScalar(s, Variables);
            else if (Expression.TryConvert(Value, out double d))
                return this.EvaluateScalar(d, Variables);
            else if (Expression.TryConvert(Value, out bool b))
                return this.EvaluateScalar(b, Variables);
            else if (Expression.TryConvert(Value, out Complex z))
                return this.EvaluateScalar(z, Variables);
            else if (Expression.TryConvert(Value, out Integer i))
                return this.EvaluateScalar((double)i.Value, Variables);
            else if (Expression.TryConvert(Value, out RationalNumber q))
                return this.EvaluateScalar(q.ToDouble(), Variables);
            else
                throw new ScriptRuntimeException("Type of scalar not supported.", this);
        }
 
        public virtual IElement EvaluateScalar(double Argument, Variables Variables)
        {
            throw new ScriptRuntimeException("Double-valued arguments not supported.", this);
        }
 
        public virtual IElement EvaluateScalar(Complex Argument, Variables Variables)
        {
            throw new ScriptRuntimeException("Complex-valued arguments not supported.", this);
        }
 
        public virtual IElement EvaluateScalar(bool Argument, Variables Variables)
        {
            throw new ScriptRuntimeException("Boolean-valued arguments not supported.", this);
        }
 
        public virtual IElement EvaluateScalar(string Argument, Variables Variables)
        {
            throw new ScriptRuntimeException("String-valued arguments not supported.", this);
        }
 
        public virtual IElement EvaluateScalar(PhysicalQuantity Argument, Variables Variables)
        {
            return this.EvaluateScalar(Argument.Magnitude, Variables);
        }
 
        public virtual IElement EvaluateScalar(Measurement Argument, Variables Variables)
        {
            return this.EvaluateScalar(Argument.Magnitude, Variables);
        }
 
        public override async Task<IElement> EvaluateAsync(IElement Argument, Variables Variables)
        {
            if (Argument.IsScalar)
            {
                object Obj = Argument.AssociatedObjectValue;
 
                if (Obj is double d)
                    return await this.EvaluateScalarAsync(d, Variables);
 
                if (Obj is Complex z)
                    return await this.EvaluateScalarAsync(z, Variables);
 
                if (Obj is bool b)
                    return await this.EvaluateScalarAsync(b, Variables);
 
                if (Obj is string s)
                    return await this.EvaluateScalarAsync(s, Variables);
 
                if (Argument is Measurement Measurement)
                    return await this.EvaluateScalarAsync(Measurement, Variables);
 
                if (Argument.AssociatedObjectValue is IPhysicalQuantity PhysicalQuantity)
                    return await this.EvaluateScalarAsync(PhysicalQuantity.ToPhysicalQuantity(), Variables);
 
                return await this.EvaluateScalarAsync(Argument, Variables);
            }
            else
            {
                if (Argument is IVector Vector)
                {
                    LinkedList<IElement> Elements = new LinkedList<IElement>();
                    int i, c = Vector.Dimension;
 
                    if (Vector is DoubleVector dv)
                    {
                        double[] v = dv.Values;
                        for (i = 0; i < c; i++)
                            Elements.AddLast(await this.EvaluateScalarAsync(v[i], Variables));
                    }
                    else if (Vector is ComplexVector cv)
                    {
                        Complex[] v = cv.Values;
                        for (i = 0; i < c; i++)
                            Elements.AddLast(await this .EvaluateScalarAsync(v[i], Variables));
                    }
                    else if (Vector is BooleanVector bv)
                    {
                        bool[] v = bv.Values;
                        for (i = 0; i < c; i++)
                            Elements.AddLast(await this .EvaluateScalarAsync(v[i], Variables));
                    }
                    else
                    {
                        foreach (IElement E in Vector.ChildElements)
                            Elements.AddLast(await this.EvaluateAsync(E, Variables));
                    }
 
                    return Argument.Encapsulate(Elements, this);
                }
                else
                {
                    LinkedList<IElement> Elements = new LinkedList<IElement>();
 
                    foreach (IElement E in Argument.ChildElements)
                        Elements.AddLast(await this.EvaluateAsync(E, Variables));
 
                    return Argument.Encapsulate(Elements, this);
                }
            }
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(IElement Argument, Variables Variables)
        {
            object Value = Argument.AssociatedObjectValue;
 
            if (Expression.TryConvert(Value, out string s))
                return this.EvaluateScalarAsync(s, Variables);
            else if (Expression.TryConvert(Value, out double d))
                return this.EvaluateScalarAsync(d, Variables);
            else if (Expression.TryConvert(Value, out bool b))
                return this.EvaluateScalarAsync(b, Variables);
            else if (Expression.TryConvert(Value, out Complex z))
                return this.EvaluateScalarAsync(z, Variables);
            else if (Expression.TryConvert(Value, out Integer i))
                return this.EvaluateScalarAsync((double)i.Value, Variables);
            else if (Expression.TryConvert(Value, out RationalNumber q))
                return this.EvaluateScalarAsync(q.ToDouble(), Variables);
            else
                throw new ScriptRuntimeException("Type of scalar not supported.", this);
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(double Argument, Variables Variables)
        {
            return Task.FromResult(this.EvaluateScalar(Argument, Variables));
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(Complex Argument, Variables Variables)
        {
            return Task.FromResult(this.EvaluateScalar(Argument, Variables));
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(bool Argument, Variables Variables)
        {
            return Task.FromResult(this.EvaluateScalar(Argument, Variables));
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(string Argument, Variables Variables)
        {
            return Task.FromResult(this.EvaluateScalar(Argument, Variables));
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(PhysicalQuantity Argument, Variables Variables)
        {
            return Task.FromResult(this.EvaluateScalar(Argument, Variables));
        }
 
        public virtual Task<IElement> EvaluateScalarAsync(Measurement Argument, Variables Variables)
        {
            return Task.FromResult(this.EvaluateScalar(Argument, Variables));
        }
 
    }
}