Skip to content

    SumOfSquares

    Return sum of squares of values.

    Declaration

    Source position: math.pp line 772

    function SumOfSquares(const data: Array of Single) : Float;

    function SumOfSquares(const data: PSingle; const N: Integer) : Float;

    function SumOfSquares(const data: Array of Double) : Float;

    function SumOfSquares(const data: PDouble; const N: Integer) : Float;

    function SumOfSquares(const data: Array of Extended) : Float;

    function SumOfSquares(const data: PExtended; const N: Integer) : Float;

    Description

    Sumofsquares returns the sum of the squares of the values in the data array.

    The second form of the function accepts a pointer to an array of N values.

    Errors

    None.

    See also

    Name Description
    sum Return sum of values.
    sumsandsquares Return sum and sum of squares of values.
    totalvariance Return total variance of values.
    variance Return variance of values.

    Example

    Program Example45;

{ Program to demonstrate the SumOfSquares function. }
{ @ should return typed pointer }
{$T+}

Uses math;

Var
  I : 1..100;
  ExArray : Array[1..100] of Float;

begin
  Randomize;
  for I:=low(ExArray) to high(ExArray) do
    ExArray[i]:=(Random-Random)*100;
  Writeln('Max             : ',MaxValue(ExArray):8:4);
  Writeln('Min             : ',MinValue(ExArray):8:4);
  Writeln('Sum squares     : ',SumOfSquares(ExArray):8:4);
  Writeln('Sum squares (b) : ',SumOfSquares(@ExArray[1],100):8:4);
end.