| [Overview][Constants][Types][Classes][Procedures and functions] | 
Return 4 first moments of distribution
Source position: line 0
| procedure momentskewkurtosis( | 
| const data: array [] of float; | 
| var m1: float; | 
| var m2: float; | 
| var m3: float; | 
| var m4: float; | 
| var skew: float; | 
| var kurtosis: float | 
| ); | 
| const data: PFloat; | 
| const N: Integer; | 
| var m1: float; | 
| var m2: float; | 
| var m3: float; | 
| var m4: float; | 
| var skew: float; | 
| var kurtosis: float | 
| ); | 
momentskewkurtosis calculates the 4 first moments of the distribution of valuesin data and returns them in m1,m2,m3 and m4, as well as the skew and kurtosis.
None.
| 
 | Return mean value of array | |
| 
 | Return mean and standard deviation of array | 
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:=1 to 1000 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.