using System;

namespace Science.Mathematics.VectorCalculus
{
    public class ArcLength
    {
        private Velocity v;
        private double from1, to1, result;
        public ArcLength(Path c, double from, double to)
        {
            v = new Velocity(c, 0.0);
            from1 = from;
            to1 = to;
        }
        public void Compute()
        {
            Function.ToLastType<double, double> del
                = new Function.ToLastType<double, double>(ff);
            IntegrationMidpoint obj = new IntegrationMidpoint(del, from1, to1);
            obj.Compute();
            result = obj.Result;
        }
        private double ff(double t)
        {
            v.At = t;
            v.Compute();
            return v.Speed;
        }
        public double From
        {
            set { from1 = value; }
        }
        public double To
        {
            set { to1 = value; }
        }
        public double Result
        {
            get { return result; }
        }                 
    }
}