lazarus-ccr/applications/lazstats/source_orig/simplechisqrunit.pas

unit SimpleChiSqrUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Grids, MainUnit, Globals, FunctionsLib, OutPutUnit, DataProcs;

type

  { TSimpleChiSqrForm }

  TSimpleChiSqrForm = class(TForm)
    ComputeBtn: TButton;
    Label7: TLabel;
    ProbEdit: TEdit;
    Label6: TLabel;
    TotChiSqrEdit: TEdit;
    Label5: TLabel;
    ResetBtn: TButton;
    ReturnBtn: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    NcatsEdit: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    ObservedGrid: TStringGrid;
    ExpectedGrid: TStringGrid;
    ChiSqrGrid: TStringGrid;
    procedure ComputeBtnClick(Sender: TObject);
    procedure NcatsEditExit(Sender: TObject);
    procedure ResetBtnClick(Sender: TObject);
  private
    { private declarations }
    NoCats : integer;
  public
    { public declarations }
  end; 

var
  SimpleChiSqrForm: TSimpleChiSqrForm;

implementation

{ TSimpleChiSqrForm }

procedure TSimpleChiSqrForm.NcatsEditExit(Sender: TObject);
begin
     NoCats := StrToInt(NcatsEdit.Text);
     ObservedGrid.RowCount := NoCats+1;
     ExpectedGrid.RowCount := NoCats+1;
     ChiSqrGrid.RowCount := NoCats+1;
end;

procedure TSimpleChiSqrForm.ComputeBtnClick(Sender: TObject);
var
  TotalChiSqr : double;
  ChiSqr, Obs, Exp, ChiProb, NObs, NExp : double;
  i : integer;
  outline : string;
begin
     OutPutFrm.RichEdit.Clear;
     OutPutFrm.RichEdit.Lines.Add('Simple Chi-Square Analysis Results');
     OutPutFrm.RichEdit.Lines.Add('Category  ChiSquare');
     TotalChiSqr := 0.0;
     NObs := 0.0;
     NExp := 0.0;
     for i := 1 to NoCats do
     begin
          Obs := StrToFloat(ObservedGrid.Cells[0,i]);
          NObs := NObs + 1;
          Exp := StrToFloat(ExpectedGrid.Cells[0,i]);
          NExp := NExp + 1;
          chisqr := sqr(Obs - Exp) / Exp;
          outline := format('%8.3f',[chisqr]);
          ChiSqrGrid.Cells[0,i] := outline;
          TotalChiSqr := TotalChiSqr + chisqr;
          outline := format('    %2d   %8.3f',[i,chisqr]);
          OutPutFrm.RichEdit.Lines.Add(outline);
     end;
     OutPutFrm.RichEdit.Lines.Add('');
     TotChiSqrEdit.Text := FloatToStr(TotalChiSqr);
     ChiProb := 1.0 - ChiSquaredProb(TotalChiSqr,NoCats);
     ProbEdit.Text := FloatToStr(ChiProb);
     outline := format('Number Observed = %8.3f',[NObs]);
     OutPutFrm.RichEdit.Lines.Add(outline);
     outline := format('Number Expected = %8.3f',[NExp]);
     OutPutFrm.RichEdit.Lines.Add(outline);
     outline := format('ChiSquare = %8.3f with Probability of a larger value = %8.3f',
        [TotalChiSqr,ChiProb]);
     OutPutFrm.RichEdit.Lines.Add(outline);
     OutPutFrm.ShowModal;
     OutPutFrm.RichEdit.Clear;
end;

procedure TSimpleChiSqrForm.ResetBtnClick(Sender: TObject);
begin
  NoCats := 1;
  ObservedGrid.RowCount := NoCats + 1;
  ExpectedGrid.RowCount := NoCats + 1;
  ChiSqrGrid.RowCount := NoCats + 1;
  NCatsEdit.Text := '1';
  ObservedGrid.Cells[0,0] := 'Observed';
  ExpectedGrid.Cells[0,0] := 'Expected';
  ChiSqrGrid.Cells[0,0] := 'ChiSquared';
end;

initialization
  {$I simplechisqrunit.lrs}

end.