Inverse.cs

using System.Numerics;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Script.Functions.Matrices
{
    public class Inverse : FunctionOneScalarVariable
    {
        public Inverse(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Inverse);
 
        public override string[] Aliases
        {
            get { return new string[] { "inv", "invert" }; }
        }
 
        public override IElement Evaluate(IElement Argument, Variables Variables)
        {
            if (Argument is IRingElement E)
            {
                E = E.Invert();
                if (!(E is null))
                    return E;
            }
 
            return base.Evaluate(Argument, Variables);
        }
 
        public override IElement EvaluateScalar(double Argument, Variables Variables)
        {
            return new DoubleNumber(1.0 / Argument);
        }
 
        public override IElement EvaluateScalar(Complex Argument, Variables Variables)
        {
            return new ComplexNumber(Complex.Reciprocal(Argument));
        }
    }
}