%
%   $Id$
%   This file is part of the FPC documentation.
%   Copyright (C) 2000 by Florian Klaempfl
%
%   The FPC documentation is free text; you can redistribute it and/or
%   modify it under the terms of the GNU Library General Public License as
%   published by the Free Software Foundation; either version 2 of the
%   License, or (at your option) any later version.
%
%   The FPC Documentation is distributed in the hope that it will be useful,
%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%   Library General Public License for more details.
%
%   You should have received a copy of the GNU Library General Public
%   License along with the FPC documentation; see the file COPYING.LIB.  If not,
%   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
%   Boston, MA 02111-1307, USA.
%
\chapter{The MATH unit}
\FPCexampledir{mathex}

This chapter describes the \file{math} unit. The \var{math} unit
was initially written by Florian Kl\"ampfl. It provides mathematical
functions which aren't covered by the system unit.

This chapter starts out with a definition of all types and constants
that are defined, after which an overview is presented of the available 
functions, grouped by category, and the last part contains a 
complete explanation of each function.

The following things must be taken into account when using this unit:
\begin{enumerate}
\item This unit is compiled in Object Pascal mode so all
\var{integers} are 32 bit.
\item Some overloaded functions exist for data arrays of integers and
floats. When using the address operator (\var{@}) to pass an array of 
data to such a function, make sure the address is typecasted to the 
right type, or turn on the 'typed address operator' feature. failing to
do so, will cause the compiler not be able to decide which function you 
want to call.
\end{enumerate}

\section{Constants and types}

The following types are defined in the \file{math} unit:
\begin{verbatim}
Type
  Float = Extended;
  PFloat = ^FLoat
\end{verbatim}
All calculations are done with the Float type. This allows to
recompile the unit with a different float type to obtain a
desired precision. The pointer type is used in functions that accept
an array of values of arbitrary length.
\begin{verbatim}
Type
   TPaymentTime = (PTEndOfPeriod,PTStartOfPeriod);
\end{verbatim}
\var{TPaymentTime} is used in the financial calculations.
\begin{verbatim}
Type
   EInvalidArgument = Class(EMathError);
\end{verbatim}
The \var{EInvalidArgument} exception is used to report invalid arguments.

\section{Function list by category}
What follows is a listing of the available functions, grouped by category.
For each function there is a reference to the page where you can find the
function.
\subsection{Min/max determination}
Functions to determine the minimum or maximum of numbers:
\begin{funclist}
\funcref{max}{Maximum of 2 values}
\funcref{maxIntValue}{Maximum of an array of integer values}
\funcref{maxvalue}{Maximum of an array of values}
\funcref{min}{Minimum of 2 values}
\funcref{minIntValue}{Minimum of an array of integer values}
\funcref{minvalue}{Minimum of an array of values}
\end{funclist}
\subsection{Angle conversion}
\begin{funclist}
\funcref{cycletorad}{convert cycles to radians}
\funcref{degtograd}{convert degrees to grads}
\funcref{degtorad}{convert degrees to radians}
\funcref{gradtodeg}{convert grads to degrees}
\funcref{gradtorad}{convert grads to radians}
\funcref{radtocycle}{convert radians to cycles}
\funcref{radtodeg}{convert radians to degrees}
\funcref{radtograd}{convert radians to grads}
\end{funclist}
\subsection{Trigoniometric functions}
\begin{funclist}
\funcref{arccos}{calculate reverse cosine}
\funcref{arcsin}{calculate reverse sine}
\funcref{arctan2}{calculate reverse tangent}
\funcref{cotan}{calculate cotangent}
\procref{sincos}{calculate sine and cosine}
\funcref{tan}{calculate tangent}
\end{funclist}
\subsection{Hyperbolic functions}
\begin{funclist}
\funcref{arcosh}{caculate reverse hyperbolic cosine}
\funcref{arsinh}{caculate reverse hyperbolic sine}
\funcref{artanh}{caculate reverse hyperbolic tangent}
\funcref{cosh}{calculate hyperbolic cosine}
\funcref{sinh}{calculate hyperbolic sine}
\funcref{tanh}{calculate hyperbolic tangent}
\end{funclist}
\subsection{Exponential and logarithmic functions}
\begin{funclist}
\funcref{intpower}{Raise float to integer power}
\funcref{ldexp}{Calculate $2^p x$}
\funcref{lnxp1}{calculate \var{log(x+1)}}
\funcref{log10}{calculate 10-base log}
\funcref{log2}{calculate 2-base log}
\funcref{logn}{calculate N-base log}
\funcref{power}{raise float to arbitrary power}
\end{funclist}
\subsection{Number converting}
\begin{funclist}
\funcref{ceil}{Round to infinity}
\funcref{floor}{Round to minus infinity}
\procref{frexp}{Return mantissa and exponent}
\end{funclist}
\subsection{Statistical functions}
\begin{funclist}
\funcref{mean}{Mean of values}
\procref{meanandstddev}{Mean and standard deviation of values}
\procref{momentskewkurtosis}{Moments, skew and kurtosis}
\funcref{popnstddev}{Population standarddeviation }
\funcref{popnvariance}{Population variance}
\funcref{randg}{Gaussian distributed randum value}
\funcref{stddev}{Standard deviation}
\funcref{sum}{Sum of values}
\funcref{sumofsquares}{Sum of squared values}
\procref{sumsandsquares}{Sum of values and squared values}
\funcref{totalvariance}{Total variance of values}
\funcref{variance}{variance of values}
\end{funclist}
\subsection{Geometrical functions}
\begin{funclist}
\funcref{hypot}{Hypotenuse of triangle}
\funcref{norm}{Euclidian norm}
\end{funclist}

\section{Functions and Procedures}

\begin{function}{arccos}
\Declaration
Function arccos(x : float) : float;
\Description
\var{Arccos} returns the inverse cosine of its argument \var{x}. The
argument \var{x} should lie between -1 and 1 (borders included). 
\Errors
If the argument \var{x} is not in the allowed range, an
\var{EInvalidArgument} exception is raised.
\SeeAlso
\seef{arcsin}, \seef{arcosh}, \seef{arsinh}, \seef{artanh}
\end{function}

\FPCexample{ex1}

\begin{function}{arcosh}
\Declaration
Function arcosh(x : float) : float;
Function arccosh(x : float) : float;
\Description
\var{Arcosh} returns the inverse hyperbolic cosine of its argument \var{x}. 
The argument \var{x} should be larger than 1. 

The \var{arccosh} variant of this function is supplied for \delphi 
compatibility.
\Errors
If the argument \var{x} is not in the allowed range, an \var{EInvalidArgument}
exception is raised.
\SeeAlso
\seef{cosh}, \seef{sinh}, \seef{arcsin}, \seef{arsinh}, \seef{artanh},
\seef{tanh}
\end{function}

\FPCexample{ex3}

\begin{function}{arcsin}
\Declaration
Function arcsin(x : float) : float;
\Description
\var{Arcsin} returns the inverse sine of its argument \var{x}. The
argument \var{x} should lie between -1 and 1. 
\Errors
If the argument \var{x} is not in the allowed range, an \var{EInvalidArgument}
exception is raised.
\SeeAlso
\seef{arccos}, \seef{arcosh}, \seef{arsinh}, \seef{artanh}
\end{function}

\FPCexample{ex2}


\begin{function}{arctan2}
\Declaration
Function arctan2(x,y : float) : float;
\Description
\var{arctan2} calculates \var{arctan(y/x)}, and returns an angle in the
correct quadrant. The returned angle will be in the range $-\pi$ to
$\pi$ radians.
The values of \var{x} and \var{y} must be between -2\^{}64 and 2\^{}64,
moreover \var{x} should be different from zero.

On Intel systems this function is implemented with the native intel
\var{fpatan} instruction.
\Errors
If \var{x} is zero, an overflow error will occur.
\SeeAlso
\seef{arccos}, \seef{arcosh}, \seef{arsinh}, \seef{artanh}
\end{function}

\FPCexample{ex6}

\begin{function}{arsinh}
\Declaration
Function arsinh(x : float) : float;
Function arcsinh(x : float) : float;
\Description
\var{arsinh} returns the inverse hyperbolic sine of its argument \var{x}. 

The \var{arscsinh} variant of this function is supplied for \delphi 
compatibility.
\Errors
None.
\SeeAlso
\seef{arcosh}, \seef{arccos}, \seef{arcsin}, \seef{artanh}
\end{function}

\FPCexample{ex4}


\begin{function}{artanh}
\Declaration
Function artanh(x : float) : float;
Function arctanh(x : float) : float;
\Description
\var{artanh} returns the inverse hyperbolic tangent of its argument \var{x},
where \var{x} should lie in the interval [-1,1], borders included.

The \var{arctanh} variant of this function is supplied for \delphi compatibility.
\Errors
In case \var{x} is not in the interval [-1,1], an \var{EInvalidArgument}
exception is raised.
\SeeAlso
\seef{arcosh}, \seef{arccos}, \seef{arcsin}, \seef{artanh}
\Errors
\SeeAlso
\end{function}

\FPCexample{ex5}


\begin{function}{ceil}
\Declaration
Function ceil(x : float) : longint;
\Description
\var{Ceil} returns the lowest integer number greater than or equal to \var{x}.
The absolute value of \var{x} should be less than \var{maxint}.
\Errors
If the asolute value of \var{x} is larger than maxint, an overflow error will
occur.
\SeeAlso
\seef{floor}
\end{function}

\FPCexample{ex7}

\begin{function}{cosh}
\Declaration
Function cosh(x : float) : float;
\Description
\var{Cosh} returns the hyperbolic cosine of it's argument {x}.
\Errors
None.
\SeeAlso
\seef{arcosh}, \seef{sinh}, \seef{arsinh}
\end{function}

\FPCexample{ex8}


\begin{function}{cotan}
\Declaration
Function cotan(x : float) : float;
\Description
\var{Cotan} returns the cotangent of it's argument \var{x}. \var{x} should
be different from zero.
\Errors
If \var{x} is zero then a overflow error will occur.
\SeeAlso
\seef{tanh}
\end{function}

\FPCexample{ex9}


\begin{function}{cycletorad}
\Declaration
Function cycletorad(cycle : float) : float;
\Description
\var{Cycletorad} transforms it's argument \var{cycle}
(an angle expressed in cycles) to radians.
(1 cycle is $2 \pi$ radians).
\Errors
None.
\SeeAlso
\seef{degtograd}, \seef{degtorad}, \seef{radtodeg},
\seef{radtograd}, \seef{radtocycle}
\end{function}

\FPCexample{ex10}


\begin{function}{degtograd}
\Declaration
Function degtograd(deg : float) : float;
\Description
\var{Degtograd} transforms it's argument \var{deg} (an angle in degrees)
to grads.

(90 degrees is 100 grad.)
\Errors
None.
\SeeAlso
\seef{cycletorad}, \seef{degtorad}, \seef{radtodeg},
\seef{radtograd}, \seef{radtocycle}
\end{function}

\FPCexample{ex11}


\begin{function}{degtorad}
\Declaration
Function degtorad(deg : float) : float;
\Description
\var{Degtorad} converts it's argument \var{deg} (an angle in degrees) to
radians.

(pi radians is 180 degrees)
\Errors
None.
\SeeAlso
\seef{cycletorad}, \seef{degtograd}, \seef{radtodeg},
\seef{radtograd}, \seef{radtocycle}
\end{function}

\FPCexample{ex12}


\begin{function}{floor}
\Declaration
Function floor(x : float) : longint;
\Description
\var{Floor} returns the largest integer smaller than or equal to \var{x}.
The absolute value of \var{x} should be less than \var{maxint}.
\Errors
If \var{x} is larger than \var{maxint}, an overflow will occur.
\SeeAlso
\seef{ceil}
\end{function}

\FPCexample{ex13}


\begin{procedure}{frexp}
\Declaration
Procedure frexp(x : float;var mantissa : float; var exponent : integer);
\Description
\var{Frexp} returns the mantissa and exponent of it's argument
\var{x} in \var{mantissa} and \var{exponent}.
\Errors
None
\SeeAlso
\end{procedure}

\FPCexample{ex14}


\begin{function}{gradtodeg}
\Declaration
Function gradtodeg(grad : float) : float;
\Description
\var{Gradtodeg} converts its argument \var{grad} (an angle in grads)
to degrees.

(100 grad is 90 degrees)
\Errors
None.
\SeeAlso
\seef{cycletorad}, \seef{degtograd}, \seef{radtodeg},
\seef{radtograd}, \seef{radtocycle}, \seef{gradtorad}
\end{function}

\FPCexample{ex15}


\begin{function}{gradtorad}
\Declaration
Function gradtorad(grad : float) : float;
\Description
\var{Gradtorad} converts its argument \var{grad} (an angle in grads)
to radians.

(200 grad is pi degrees).
\Errors
None.
\SeeAlso
\seef{cycletorad}, \seef{degtograd}, \seef{radtodeg},
\seef{radtograd}, \seef{radtocycle}, \seef{gradtodeg}
\end{function}

\FPCexample{ex16}


\begin{function}{hypot}
\Declaration
Function hypot(x,y : float) : float;
\Description
\var{Hypot} returns the hypotenuse of the triangle where the sides
adjacent to the square angle have lengths \var{x} and \var{y}.

The function uses Pythagoras' rule for this.
\Errors
None.
\SeeAlso
\end{function}

\FPCexample{ex17}


\begin{function}{intpower}
\Declaration
Function intpower(base : float;exponent : longint) : float;
\Description
\var{Intpower} returns \var{base} to the power \var{exponent},
where exponent is an integer value.
\Errors
If \var{base} is zero and the exponent is negative, then an
overflow error will occur.
\SeeAlso
\seef{power}
\end{function}

\FPCexample{ex18}


\begin{function}{ldexp}
\Declaration
Function ldexp(x : float;p : longint) : float;
\Description
\var{Ldexp} returns $2^p x$.
\Errors
None.
\SeeAlso
\seef{lnxp1}, \seef{log10},\seef{log2},\seef{logn}
\end{function}

\FPCexample{ex19}


\begin{function}{lnxp1}
\Declaration
Function lnxp1(x : float) : float;
\Description
\var{Lnxp1} returns the natural logarithm of \var{1+X}. The result
is more precise for small values of \var{x}. \var{x} should be larger
than -1.
\Errors
If $x\leq -1$ then an \var{EInvalidArgument} exception will be raised.
\SeeAlso
\seef{ldexp}, \seef{log10},\seef{log2},\seef{logn}
\end{function}

\FPCexample{ex20}

\begin{function}{log10}
\Declaration
Function log10(x : float) : float;
\Description
\var{Log10} returns the 10-base logarithm of \var{X}.
\Errors
If \var{x} is less than or equal to 0 an 'invalid fpu operation' error
will occur.
\SeeAlso
\seef{ldexp}, \seef{lnxp1},\seef{log2},\seef{logn}
\end{function}

\FPCexample{ex21}


\begin{function}{log2}
\Declaration
Function log2(x : float) : float;
\Description
\var{Log2} returns the 2-base logarithm of \var{X}.
\Errors
If \var{x} is less than or equal to 0 an 'invalid fpu operation' error
will occur.
\SeeAlso
\seef{ldexp}, \seef{lnxp1},\seef{log10},\seef{logn}
\end{function}

\FPCexample{ex22}


\begin{function}{logn}
\Declaration
Function logn(n,x : float) : float;
\Description
\var{Logn} returns the n-base logarithm of \var{X}.
\Errors
If \var{x} is less than or equal to 0 an 'invalid fpu operation' error
will occur.
\SeeAlso
\seef{ldexp}, \seef{lnxp1},\seef{log10},\seef{log2}
\end{function}

\FPCexample{ex23}

\begin{function}{max}
\Declaration
Function max(Int1,Int2:Cardinal):Cardinal;
Function max(Int1,Int2:Integer):Integer;
\Description
\var{Max} returns the maximum of \var{Int1} and \var{Int2}.
\Errors
None.
\SeeAlso
\seef{min}, \seef{maxIntValue}, \seef{maxvalue}
\end{function}

\FPCexample{ex24}

\begin{function}{maxIntValue}
\Declaration
function MaxIntValue(const Data: array of Integer): Integer;
\Description
\var{MaxIntValue} returns the largest integer out of the \var{Data}
array.

This function is provided for \delphi compatibility, use the \seef{maxvalue}
function instead.
\Errors
None.
\SeeAlso
\seef{maxvalue}, \seef{minvalue}, \seef{minIntValue}
\end{function}

\FPCexample{ex25}


\begin{function}{maxvalue}
\Declaration
Function maxvalue(const data : array of float) : float;
Function maxvalue(const data : array of Integer) : Integer;
Function maxvalue(const data : PFloat; Const N : Integer) : float;
Function maxvalue(const data : PInteger; Const N : Integer) : Integer;
\Description
\var{Maxvalue} returns the largest value in the \var{data} 
array with integer or float values. The return value has 
the same type as the elements of the array.

The third and fourth forms accept a pointer to an array of \var{N} 
integer or float values.
\Errors
None.
\SeeAlso
\seef{maxIntValue}, \seef{minvalue}, \seef{minIntValue}
\end{function}

\FPCexample{ex26}

\begin{function}{mean}
\Declaration
Function mean(const data : array of float) : float;
Function mean(const data : PFloat; Const N : longint) : float;
\Description
\var{Mean} returns the average value of \var{data}.

The second form accepts a pointer to an array of \var{N} values.
\Errors
None.
\SeeAlso
\seep{meanandstddev}, \seep{momentskewkurtosis}, \seef{sum}
\end{function}

\FPCexample{ex27}

\begin{procedure}{meanandstddev}
\Declaration
Procedure meanandstddev(const data : array of float; 
                        var mean,stddev : float);
procedure meanandstddev(const data : PFloat;
  Const N : Longint;var mean,stddev : float);
\Description
\var{meanandstddev} calculates the mean and standard deviation of \var{data}
and returns the result in \var{mean} and \var{stddev}, respectively.
Stddev is zero if there is only one value.

The second form accepts a pointer to an array of \var{N} values.
\Errors
None.
\SeeAlso
\seef{mean},\seef{sum}, \seef{sumofsquares}, \seep{momentskewkurtosis}
\end{procedure}

\FPCexample{ex28}


\begin{function}{min}
\Declaration
Function min(Int1,Int2:Cardinal):Cardinal;
Function min(Int1,Int2:Integer):Integer;
\Description
\var{min} returns the smallest value of \var{Int1} and \var{Int2};
\Errors
None.
\SeeAlso
\seef{max}
\end{function}

\FPCexample{ex29}

\begin{function}{minIntValue}
\Declaration
Function minIntValue(const Data: array of Integer): Integer;
\Description
\var{MinIntvalue} returns the smallest value in the \var{Data} array.

This function is provided for \delphi compatibility, use \var{minvalue}
instead.
\Errors
None
\SeeAlso
\seef{minvalue}, \seef{maxIntValue}, \seef{maxvalue}
\end{function}

\FPCexample{ex30}


\begin{function}{minvalue}
\Declaration
Function minvalue(const data : array of float) : float;
Function minvalue(const data : array of Integer) : Integer;
Function minvalue(const data : PFloat; Const N : Integer) : float;
Function minvalue(const data : PInteger; Const N : Integer) : Integer;
\Description
\var{Minvalue} returns the smallest value in the \var{data} 
array with integer or float values. The return value has 
the same type as the elements of the array.

The third and fourth forms accept a pointer to an array of \var{N} 
integer or float values.
\Errors
None.
\SeeAlso
\seef{maxIntValue}, \seef{maxvalue}, \seef{minIntValue}
\end{function}

\FPCexample{ex31}


\begin{procedure}{momentskewkurtosis}
\Declaration
procedure momentskewkurtosis(const data : array of float;
  var m1,m2,m3,m4,skew,kurtosis : float);
procedure momentskewkurtosis(const data : PFloat; Const N : Integer;
  var m1,m2,m3,m4,skew,kurtosis : float);
\Description
\var{momentskewkurtosis} calculates the 4 first moments of the distribution
of valuesin \var{data} and returns them in \var{m1},\var{m2},\var{m3} and
\var{m4}, as well as the \var{skew} and \var{kurtosis}.
\Errors
None.
\SeeAlso
\seef{mean}, \seep{meanandstddev}
\end{procedure}

\FPCexample{ex32}

\begin{function}{norm}
\Declaration
Function norm(const data : array of float) : float;
Function norm(const data : PFloat; Const N : Integer) : float;
\Description
\var{Norm} calculates the Euclidian norm of the array of data.
This equals \var{sqrt(sumofsquares(data))}.

The second form accepts a pointer to an array of \var{N} values.
\Errors
None.
\SeeAlso
\seef{sumofsquares}
\end{function}

\FPCexample{ex33}


\begin{function}{popnstddev}
\Declaration
Function popnstddev(const data : array of float) : float;
Function popnstddev(const data : PFloat; Const N : Integer) : float;
\Description
\var{Popnstddev} returns the square root of the population variance of
the values in the  \var{Data} array. It returns zero if there is only one value.

The second form of this function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{popnvariance}, \seef{mean}, \seep{meanandstddev}, \seef{stddev},
\seep{momentskewkurtosis}
\end{function}

\FPCexample{ex35}


\begin{function}{popnvariance}
\Declaration
Function popnvariance(const data : array of float) : float;
Function popnvariance(const data : PFloat; Const N : Integer) : float;
\Description
\var{Popnvariance} returns the square root of the population variance of
the values in the  \var{Data} array. It returns zero if there is only one value.

The second form of this function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{popnstddev}, \seef{mean}, \seep{meanandstddev}, \seef{stddev},
\seep{momentskewkurtosis}
\end{function}

\FPCexample{ex36}


\begin{function}{power}
\Declaration
Function power(base,exponent : float) : float;
\Description
\var{power} raises \var{base} to the power \var{power}. This is equivalent
to \var{exp(power*ln(base))}. Therefore \var{base} should be non-negative.
\Errors
None.
\SeeAlso
\seef{intpower}
\end{function}

\FPCexample{ex34}


\begin{function}{radtocycle}
\Declaration
Function radtocycle(rad : float) : float;
\Description
\var{Radtocycle} converts its argument \var{rad} (an angle expressed in
radians) to an angle in cycles.

(1 cycle equals 2 pi radians)
\Errors
None.
\SeeAlso
\seef{degtograd}, \seef{degtorad}, \seef{radtodeg},
\seef{radtograd}, \seef{cycletorad}
\end{function}

\FPCexample{ex37}


\begin{function}{radtodeg}
\Declaration
Function radtodeg(rad : float) : float;
\Description
\var{Radtodeg} converts its argument \var{rad} (an angle expressed in
radians) to an angle in degrees.

(180 degrees equals pi radians)
\Errors
None.
\SeeAlso
\seef{degtograd}, \seef{degtorad}, \seef{radtocycle},
\seef{radtograd}, \seef{cycletorad}
\end{function}

\FPCexample{ex38}


\begin{function}{radtograd}
\Declaration
Function radtograd(rad : float) : float;
\Description
\var{Radtodeg} converts its argument \var{rad} (an angle expressed in
radians) to an angle in grads.

(200 grads equals pi radians)
\Errors
None.
\SeeAlso
\seef{degtograd}, \seef{degtorad}, \seef{radtocycle},
\seef{radtodeg}, \seef{cycletorad}
\end{function}

\FPCexample{ex39}


\begin{function}{randg}
\Declaration
Function randg(mean,stddev : float) : float;
\Description
\var{randg} returns a random number which - when produced in large
quantities - has a Gaussian distribution with mean \var{mean} and 
standarddeviation \var{stddev}. 
\Errors
None.
\SeeAlso
\seef{mean}, \seef{stddev}, \seep{meanandstddev}
\end{function}

\FPCexample{ex40}


\begin{procedure}{sincos}
\Declaration
Procedure sincos(theta : float;var sinus,cosinus : float);
\Description
\var{Sincos} calculates the sine and cosine of the angle \var{theta},
and returns the result in \var{sinus} and \var{cosinus}.

On Intel hardware, This calculation will be faster than making 2 calls
to clculatet he sine and cosine separately.
\Errors
None.
\SeeAlso
\seef{arcsin}, \seef{arccos}.
\end{procedure}

\FPCexample{ex41}


\begin{function}{sinh}
\Declaration
Function sinh(x : float) : float;
\Description
\var{Sinh} returns the hyperbolic sine of its argument \var{x}.
\Errors
\SeeAlso
\seef{cosh}, \seef{arsinh}, \seef{tanh}, \seef{artanh}
\end{function}

\FPCexample{ex42}


\begin{function}{stddev}
\Declaration
Function stddev(const data : array of float) : float;
Function stddev(const data : PFloat; Const N : Integer) : float;
\Description
\var{Stddev} returns the standard deviation of the values in \var{Data}.
It returns zero if there is only one value.

The second form of the function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{mean}, \seep{meanandstddev}, \seef{variance}, \seef{totalvariance}
\end{function}

\FPCexample{ex43}


\begin{function}{sum}
\Declaration
Function sum(const data : array of float) : float;
Function sum(const data : PFloat; Const N : Integer) : float;
\Description
\var{Sum} returns the sum of the values in the \var{data} array.

The second form of the function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{sumofsquares}, \seep{sumsandsquares}, \seef{totalvariance}
, \seef{variance}
\end{function}

\FPCexample{ex44}


\begin{function}{sumofsquares}
\Declaration
Function sumofsquares(const data : array of float) : float;
Function sumofsquares(const data : PFloat; Const N : Integer) : float;
\Description
\var{Sumofsquares} returns the sum of the squares of the values in the \var{data} 
array.

The second form of the function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{sum}, \seep{sumsandsquares}, \seef{totalvariance}
, \seef{variance}
\end{function}

\FPCexample{ex45}


\begin{procedure}{sumsandsquares}
\Declaration
Procedure sumsandsquares(const data : array of float;
  var sum,sumofsquares : float);
Procedure sumsandsquares(const data : PFloat; Const N : Integer;
  var sum,sumofsquares : float);
\Description
\var{sumsandsquares} calculates the sum of the values and the sum of 
the squares of the values in the \var{data} array and returns the
results in \var{sum} and \var{sumofsquares}.

The second form of the function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{sum}, \seef{sumofsquares}, \seef{totalvariance}
, \seef{variance}
\end{procedure}

\FPCexample{ex46}


\begin{function}{tan}
\Declaration
Function tan(x : float) : float;
\Description
\var{Tan} returns the tangent of \var{x}.
\Errors
If \var{x} (normalized) is pi/2 or 3pi/2 then an overflow will occur.
\SeeAlso
\seef{tanh}, \seef{arcsin}, \seep{sincos}, \seef{arccos}
\end{function}

\FPCexample{ex47}


\begin{function}{tanh}
\Declaration
Function tanh(x : float) : float;
\Description
\var{Tanh} returns the hyperbolic tangent of \var{x}.
\Errors
None.
\SeeAlso
\seef{arcsin}, \seep{sincos}, \seef{arccos}
\end{function}

\FPCexample{ex48}


\begin{function}{totalvariance}
\Declaration
Function totalvariance(const data : array of float) : float;
Function totalvariance(const data : PFloat; Const N : Integer) : float;
\Description
\var{TotalVariance} returns the total variance of the values in the 
\var{data} array. It returns zero if there is only one value.

The second form of the function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{variance}, \seef{stddev}, \seef{mean}
\end{function}

\FPCexample{ex49}


\begin{function}{variance}
\Declaration
Function variance(const data : array of float) : float;
Function variance(const data : PFloat; Const N : Integer) : float;
\Description
\var{Variance} returns the variance of the values in the 
\var{data} array. It returns zero if there is only one value.

The second form of the function accepts a pointer to an array of \var{N}
values.
\Errors
None.
\SeeAlso
\seef{totalvariance}, \seef{stddev}, \seef{mean}
\end{function}

\FPCexample{ex50}
