Ones.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects.VectorSpaces;
 
namespace Waher.Script.Functions.Vectors
{
    public class Ones : FunctionOneScalarVariable
    {
        public Ones(ScriptNode Dimension, int Start, int Length, Expression Expression)
            : base(Dimension, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Ones);
 
        public override IElement EvaluateScalar(double Argument, Variables Variables)
        {
            int N = (int)Argument;
 
            if (N != Argument || N < 0)
                throw new ScriptRuntimeException("Dimension must be a non-negative integer.", this);
 
            double[] E = new double[N];
            int i;
 
            for (i = 0; i < N; i++)
                E[i] = 1;
 
            return new DoubleVector(E);
        }
    }
}