Class TEstadistica (unit Gauss_5) |
Inherits from
TForm
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.
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;
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;
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;