3
{ Program to demonstrate the TotalVariance function. }
8
TExArray = Array[1..100] of Float;
18
ExArray[i]:=(Random-Random)*100;
19
TV:=TotalVariance(ExArray);
20
Writeln('Total variance : ',TV:8:4);
21
TV:=TotalVariance(@ExArray[1],100);
22
Writeln('Total Variance (b) : ',TV:8:4);