Ones.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects.Matrices;
 
namespace Waher.Script.Functions.Matrices
{
    public class Ones : FunctionTwoScalarVariables
    {
        public Ones(ScriptNode Rows, ScriptNode Columns, int Start, int Length, Expression Expression)
            : base(Rows, Columns, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Ones);
 
        public override string[] DefaultArgumentNames => new string[] { "Rows", "Columns" };
 
        public override bool UpgradeScalarsToSameSet => true;
 
        public override IElement EvaluateScalar(double Argument1, double Argument2, Variables Variables)
        {
            int Rows = (int)Argument1;
            if (Rows != Argument1 || Rows <= 0)
                throw new ScriptRuntimeException("Rows must be a positive integer.", this);
 
            int Columns = (int)Argument2;
            if (Columns != Argument2 || Columns <= 0)
                throw new ScriptRuntimeException("Columns must be a positive integer.", this);
 
            double[,] E = new double[Rows, Columns];
            int i, j;
 
            for (i = 0; i < Rows; i++)
            {
                for (j = 0; j < Columns; j++)
                    E[i, j] = 1;
            }
 
            return new DoubleMatrix(E);
        }
    }
}