PhysicalQuantities.cs

using System;
using Waher.Script.Abstraction.Sets;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Units;
 
namespace Waher.Script.Objects
{
    public sealed class PhysicalQuantities : Field, IOrderedSet
    {
        private static readonly int hashCode = typeof(PhysicalQuantities).FullName.GetHashCode();
 
        public PhysicalQuantities()
        {
        }
 
        public override ICommutativeRingWithIdentityElement One
        {
            get { return PhysicalQuantity.OneElement; }
        }
 
        public override IAbelianGroupElement Zero
        {
            get { return PhysicalQuantity.ZeroElement; }
        }
 
        public override bool Contains(IElement Element)
        {
            return Element is PhysicalQuantity;
        }
 
        public override bool Equals(object obj)
        {
            return obj is PhysicalQuantities;
        }
 
        public override int GetHashCode()
        {
            return hashCode;
        }
 
        public int Compare(IElement x, IElement y)
        {
            PhysicalQuantity d1 = (PhysicalQuantity)x;
            PhysicalQuantity d2 = (PhysicalQuantity)y;
 
            if (Unit.TryConvert(d2.Magnitude, d2.Unit, d1.Unit, out double Magnitude2))
                return d1.Magnitude.CompareTo(Magnitude2);
            else
                throw new ScriptException("Incompatible units.");
        }
    }
}