[Overview][Constants][Types][Classes][Procedures and functions][Index] |
Return sum and sum of squares of values.
Source position: math.pp line 457
procedure SumsAndSquares( |
const data: array of Single; |
var sum: Float; |
var sumofsquares: Float |
); |
const data: PSingle; |
const N: Integer; |
var sum: Float; |
var sumofsquares: Float |
); |
const data: array of Double; |
var sum: Float; |
var sumofsquares: Float |
); |
const data: PDouble; |
const N: Integer; |
var sum: Float; |
var sumofsquares: Float |
); |
const data: array of Extended; |
var sum: Float; |
var sumofsquares: Float |
); |
const data: PExtended; |
const N: Integer; |
var sum: Float; |
var sumofsquares: Float |
); |
sumsandsquares calculates the sum of the values and the sum of the squares of the values in the data array and returns the results in sum and sumofsquares.
The second form of the function accepts a pointer to an array of N values.
None.
|
Return sum of values |
|
|
Return sum of squares of values |
|
|
Return total variance of values |
|
|
Return variance of values |
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; s,ss : 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); SumsAndSquares(ExArray,S,SS); Writeln('Sum : ',S:8:4); Writeln('Sum squares : ',SS:8:4); SumsAndSquares(@ExArray[1],100,S,SS); Writeln('Sum (b) : ',S:8:4); Writeln('Sum squares (b) : ',SS:8:4); end.