1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
program Example32;
{ Program to demonstrate the momentskewkurtosis function. }
uses math;
var distarray:array[1..1000] of float;
I:longint;
m1,m2,m3,m4,skew,kurtosis:float;
begin
randomize;
for I:=low(distarray) to high(distarray) do
distarray[i]:=random;
momentskewkurtosis(DistArray,m1,m2,m3,m4,skew,kurtosis);
Writeln ('1st moment : ',m1:8:6);
Writeln ('2nd moment : ',m2:8:6);
Writeln ('3rd moment : ',m3:8:6);
Writeln ('4th moment : ',m4:8:6);
Writeln ('Skew : ',skew:8:6);
Writeln ('kurtosis : ',kurtosis:8:6);
end.
|
