[Overview][Constants][Types][Classes][Procedures and functions][Index]

Reference for unit 'Math' (#rtl)

SumOfSquares

Return sum of squares of values

Declaration

Source position: math.pp line 447

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

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.