SumSqD(Values: Array): Decimal;
SumSqD(Values: System.Array): decimal;
Values. Массив десятичных чисел большой точности.
Метод SumSqD возвращает сумму квадратов десятичных чисел большой точности.
Необходимо использовать массив значений типа Variant.
Функция корректно работает как с одномерными, так и с двумерными массивами.
Для получения суммы элементов массива десятичных чисел большой точности используйте метод IMath.SumD.
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: Decimal;
Arr: Array[4] Of Variant;
Begin
Arr[0] := -5m;
Arr[1] := 15.08m;
Arr[2] := 30.12m;
Arr[3] := 5.94m;
r := Math.SumSqD(Arr);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведена сумма квадратов элементов массива, равная «1194.9044».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
r: Decimal;
Math: MathClass = New MathClass();
Arr: Array[4] Of object;
Begin
Arr[0] := -5m;
Arr[1] := 15.08m;
Arr[2] := 30.12m;
Arr[3] := 5.94m;
r := Math.SumSqD(Arr);
System.Diagnostics.Debug.WriteLine(r);
End Sub;
См. также: