SubtractElementWise.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Script.Operators.Arithmetics
{
    public class SubtractElementWise : BinaryElementWiseOperator, IDifferentiable
    {
        public SubtractElementWise(ScriptNode Left, ScriptNode Right, int Start, int Length, Expression Expression)
            : base(Left, Right, Start, Length, Expression)
        {
        }
 
        public override IElement EvaluateScalar(IElement Left, IElement Right, Variables Variables)
        {
            if (Left.AssociatedObjectValue is double DL && Right.AssociatedObjectValue is double DR)
                return new DoubleNumber(DL - DR);
            else
                return Subtract.EvaluateSubtraction(Left, Right, this);
        }
 
        public ScriptNode Differentiate(string VariableName, Variables Variables)
        {
            if (this.left is IDifferentiable Left &&
                this.right is IDifferentiable Right)
            {
                return new SubtractElementWise(
                    Left.Differentiate(VariableName, Variables),
                    Right.Differentiate(VariableName, Variables),
                    this.Start, this.Length, this.Expression);
            }
            else
                throw new ScriptRuntimeException("Terms not differentiable.", this);
        }
 
    }
}