Class TEstadistica (unit Gauss_5)

Inherits from

TForm

Constructors



Functions

procedure BB3dClick(Sender: TObject);


procedure BBImprimirClick(Sender: TObject);


procedure BCerrarClick(Sender: TObject);

To show the line of limit inferior in Chart #Mostrar la linea de limite inferior en el grafico

procedure BRecalcularClick(Sender: TObject);

The table Datos[.

procedure CB1Click(Sender: TObject);

Demo

procedure EditLimInfChange(Sender: TObject);


procedure EditLimSupChange(Sender: TObject);


procedure EditSigmaChange(Sender: TObject);


procedure EditTolInfChange(Sender: TObject);


procedure EditTolSupChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormShow(Sender: TObject);


procedure SECantidadKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Marsaglia-Bray algorithm

procedure Timer1Timer(Sender: TObject);


function IntPower(X: Extended; I: Integer): Extended;

Functio of librari Math.

function Power(Base, Exponent: Extended): Extended;

Power: Raise base to any power.

function RandG(Mean, StdDev: Extended): Extended;

RandG produces random numbers with Gaussian distribution about the mean.

Properties

Events

Variables

AS1 : TVolumeSeries;


BB3d : TBitBtn;


BBImprimir : TBitBtn;


BCerrar : TBitBtn;


BRecalcular : TBitBtn;


BS1 : TBarSeries;


Cantidad : TLabel;


CB1 : TCheckBox;


Chart1 : TChart;


Chart2 : TChart;


EditAlto : TMaskEdit;


EditBajo : TMaskEdit;


EditCpKLim : TEdit;


EditCpKTol : TEdit;


EditCpl : TEdit;


EditCpLim : TEdit;


EditCpTol : TEdit;


EditCpu : TEdit;


EditCr : TEdit;


EditCrTol : TEdit;


EditFX : TEdit;


EditIncertidumbre : TEdit;


EditKurt : TEdit;


EditLimInf : TMaskEdit;


EditLimSup : TEdit;


EditMa : TEdit;


EditMas3 : TEdit;


EditMedia : TEdit;


EditMenos3 : TEdit;


EditMuestras : TEdit;


EditReco : TEdit;


EditSigma : TEdit;


EditSkew : TEdit;


EditTolInf : TMaskEdit;


EditTolSup : TMaskEdit;


EditVarianza : TEdit;


EditZInfLim : TMaskEdit;


EditZSupLim : TEdit;


Grid1 : TStringGrid;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label23 : TLabel;


Label24 : TLabel;


Label25 : TLabel;


Label26 : TLabel;


Label27 : TLabel;


Label28 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


LS2 : TLineSeries;


LSLimInf : TFastLineSeries;


LSLimSup : TFastLineSeries;


LSMa : TFastLineSeries;


LSMas3S : TFastLineSeries;


LSMedida : TFastLineSeries;


LSMenos3S : TFastLineSeries;


LSMI : TLineSeries;


LSMS : TLineSeries;


LSTolInf : TFastLineSeries;


LSTolSup : TFastLineSeries;


Panel1 : TPanel;


SECantidad : TSpinEdit;


Timer1 : TTimer;



Constructors


Functions


procedure BB3dClick(Sender: TObject);


procedure BBImprimirClick(Sender: TObject);


procedure BCerrarClick(Sender: TObject);

To show the line of limit inferior in Chart #Mostrar la linea de limite inferior en el grafico


procedure BRecalcularClick(Sender: TObject);

The table Datos[. .] the can assign from any other unit with any quantity of values between 5 and the necessary value, 10000 in this case. Will will have functionality until find a value 0 in which consider it ended #La tabla Datos[..] la podemos traspasar desde cualquier otra unidad con cualquier cantidad de valores entre 5 y el valor necesario, 10000 en este caso. Tendrá funcionalidad hasta que encuentre un valor 0 en que la dará por terminada


procedure CB1Click(Sender: TObject);

Demo


procedure EditLimInfChange(Sender: TObject);


procedure EditLimSupChange(Sender: TObject);


procedure EditSigmaChange(Sender: TObject);


procedure EditTolInfChange(Sender: TObject);


procedure EditTolSupChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormShow(Sender: TObject);


procedure SECantidadKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Marsaglia-Bray algorithm


procedure Timer1Timer(Sender: TObject);


function IntPower(X: Extended; I: Integer): Extended;

Functio of librari Math.Pas of Delphi 32 {Funciones extraidas de la libreria Math.Pas de Delphi 32 IntPower: Raise base to an integral power. Fast.


function Power(Base, Exponent: Extended): Extended;

Power: Raise base to any power. For fractional exponents, or exponents > MaxInt, base must be > 0.


function RandG(Mean, StdDev: Extended): Extended;

RandG produces random numbers with Gaussian distribution about the mean. Useful for simulating data with sampling errors.

if Base < 0.0 then ArgError;


Properties


Events


Variables


AS1 : TVolumeSeries;


BB3d : TBitBtn;


BBImprimir : TBitBtn;


BCerrar : TBitBtn;


BRecalcular : TBitBtn;


BS1 : TBarSeries;


Cantidad : TLabel;


CB1 : TCheckBox;


Chart1 : TChart;


Chart2 : TChart;


EditAlto : TMaskEdit;


EditBajo : TMaskEdit;


EditCpKLim : TEdit;


EditCpKTol : TEdit;


EditCpl : TEdit;


EditCpLim : TEdit;


EditCpTol : TEdit;


EditCpu : TEdit;


EditCr : TEdit;


EditCrTol : TEdit;


EditFX : TEdit;


EditIncertidumbre : TEdit;


EditKurt : TEdit;


EditLimInf : TMaskEdit;


EditLimSup : TEdit;


EditMa : TEdit;


EditMas3 : TEdit;


EditMedia : TEdit;


EditMenos3 : TEdit;


EditMuestras : TEdit;


EditReco : TEdit;


EditSigma : TEdit;


EditSkew : TEdit;


EditTolInf : TMaskEdit;


EditTolSup : TMaskEdit;


EditVarianza : TEdit;


EditZInfLim : TMaskEdit;


EditZSupLim : TEdit;


Grid1 : TStringGrid;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label23 : TLabel;


Label24 : TLabel;


Label25 : TLabel;


Label26 : TLabel;


Label27 : TLabel;


Label28 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


LS2 : TLineSeries;


LSLimInf : TFastLineSeries;


LSLimSup : TFastLineSeries;


LSMa : TFastLineSeries;


LSMas3S : TFastLineSeries;


LSMedida : TFastLineSeries;


LSMenos3S : TFastLineSeries;


LSMI : TLineSeries;


LSMS : TLineSeries;


LSTolInf : TFastLineSeries;


LSTolSup : TFastLineSeries;


Panel1 : TPanel;


SECantidad : TSpinEdit;


Timer1 : TTimer;