Pascal / math / momentskewkurtosis

arccos, arccosh, arcosh, arcsin, arcsinh, arctan2, arctanh, arsinh, artanh, ceil, ClearExceptions, cosh, cotan, cycletorad, degtograd, degtorad, DivMod, EnsureRange, floor, Frexp, GetExceptionMask, GetPrecisionMode, GetRoundMode, GetSSECSR, gradtodeg, gradtorad, hypot, ifthen, InRange, intpower, IsInfinite, IsNan, IsZero, ldexp, lnxp1, log10, log2, logn, Max, MaxIntValue, maxvalue, mean, meanandstddev, Min, MinIntValue, minvalue, � momentskewkurtosis, norm, popnstddev, popnvariance, power, radtocycle, radtodeg, radtograd, randg, SameValue, SetExceptionMask, SetPrecisionMode, SetRoundMode, SetSSECSR, Sign, sincos, sinh, stddev, sum, sumofsquares, sumsandsquares, tan, tanh, totalvariance, variance,

Funcion: momentskewkurtosis()
Sintaxis:

procedure momentskewkurtosis(
 
  const data: array [] of float;
 
  var m1: float;
 
  var m2: f

Descripcion: Regresa los cuarto primeros momentos de distrubucion
Ejemplo:

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.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal