lazarus-ccr/applications/lazstats/source/forms/tools/calculatorunit.pas

unit CalculatorUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Math,
  FunctionsLib, Globals;

type

  { TCalculatorForm }

  TCalculatorForm = class(TForm)
    ReturnBtn: TButton;
    NEdit: TEdit;
    Label1: TLabel;
    sevenbtn: TButton;
    dividebtn: TButton;
    multbtn: TButton;
    subtractbtn: TButton;
    Addbtn: TButton;
    ZeroBtn: TButton;
    ChangeSignBtn: TButton;
    PeriodBtn: TButton;
    MemInBtn: TButton;
    MemOutBtn: TButton;
    MemPlusBtn: TButton;
    eightbtn: TButton;
    EqualBtn: TButton;
    sinbtn: TButton;
    cosbtn: TButton;
    tanbtn: TButton;
    Combobtn: TButton;
    ClearEntryBtn: TButton;
    MeanBtn: TButton;
    VarBtn: TButton;
    StdDevBtn: TButton;
    natlogbtn: TButton;
    ninebtn: TButton;
    log10btn: TButton;
    sqrbtn: TButton;
    sqrtbtn: TButton;
    ytopowerxbtn: TButton;
    etoxbtn: TButton;
    tentoxbtn: TButton;
    expbtn: TButton;
    absbtn: TButton;
    PiBtn: TButton;
    nPrbtn: TButton;
    fourbtn: TButton;
    nfactorialbtn: TButton;
    fivebtn: TButton;
    sixbtn: TButton;
    onebtn: TButton;
    twobtn: TButton;
    threebtn: TButton;
    XEdit: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    procedure absbtnClick(Sender: TObject);
    procedure AddbtnClick(Sender: TObject);
    procedure ChangeSignBtnClick(Sender: TObject);
    procedure etoxbtnClick(Sender: TObject);
    procedure PiBtnClick(Sender: TObject);
    procedure VarBtnClick(Sender: TObject);
    procedure MeanBtnClick(Sender: TObject);
    procedure StdDevBtnClick(Sender: TObject);
    procedure ClearEntryBtnClick(Sender: TObject);
    procedure CombobtnClick(Sender: TObject);
    procedure cosbtnClick(Sender: TObject);
    procedure dividebtnClick(Sender: TObject);
    procedure eightbtnClick(Sender: TObject);
    procedure EqualBtnClick(Sender: TObject);
    procedure expbtnClick(Sender: TObject);
    procedure fivebtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure fourbtnClick(Sender: TObject);
    procedure log10btnClick(Sender: TObject);
    procedure MemInBtnClick(Sender: TObject);
    procedure MemOutBtnClick(Sender: TObject);
    procedure MemPlusBtnClick(Sender: TObject);
    procedure multbtnClick(Sender: TObject);
    procedure natlogbtnClick(Sender: TObject);
    procedure nfactorialbtnClick(Sender: TObject);
    procedure ninebtnClick(Sender: TObject);
    procedure nPrbtnClick(Sender: TObject);
    procedure onebtnClick(Sender: TObject);
    procedure PeriodBtnClick(Sender: TObject);
    procedure ReturnBtnClick(Sender: TObject);
    procedure sevenbtnClick(Sender: TObject);
    procedure sinbtnClick(Sender: TObject);
    procedure sixbtnClick(Sender: TObject);
    procedure sqrbtnClick(Sender: TObject);
    procedure sqrtbtnClick(Sender: TObject);
    procedure subtractbtnClick(Sender: TObject);
    procedure tanbtnClick(Sender: TObject);
    procedure tentoxbtnClick(Sender: TObject);
    procedure threebtnClick(Sender: TObject);
    procedure twobtnClick(Sender: TObject);
    procedure XEditKeyPress(Sender: TObject; var Key: char);
    procedure ytopowerxbtnClick(Sender: TObject);
    procedure ZeroBtnClick(Sender: TObject);
  private
    { private declarations }
    Xmemory : double; // value in the memory
    X : double; // value in register
    TempX : double; // temporary storage of last entry
    keyentered : double;  // numeric key press value
    operation : integer; // operation to be performed upon press of equal sign
    NoStack : integer; // no. in memory stack
    stack : DblDyneVec;
    Xint, Xint2 : integer;
  public
    { public declarations }
  end; 

var
  CalculatorForm: TCalculatorForm;

implementation

{$R *.lfm}

uses
  Utils;

{ TCalculatorForm }

procedure TCalculatorForm.FormShow(Sender: TObject);
begin
  XEdit.Text := '';
  Xmemory := 0.0;
  X := 0.0;
  keyentered := 0.0;
  NoStack := 0;
  SetLength(stack,1000);
  NEdit.Text := '0';
  XEdit.SetFocus;
end;

procedure TCalculatorForm.fourbtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '4';
end;

procedure TCalculatorForm.log10btnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := log10(X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.MemInBtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, Xmemory) then
    XEdit.Text := '';
end;

procedure TCalculatorForm.MemOutBtnClick(Sender: TObject);
begin
  XEdit.Text := FloatToStr(Xmemory);
end;

procedure TCalculatorForm.MemPlusBtnClick(Sender: TObject);
var
  value: Double;
begin
  if TryStrToFloat(XEdit.Text, value) then
  begin
    stack[NoStack] := stack[NoStack] + value;
    NoStack := NoStack + 1;
    NEdit.Text := IntToStr(NoStack);
    XEdit.Text := '';
  end;
end;

procedure TCalculatorForm.multbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, TempX) then
  begin
    XEdit.Text := '';
    operation := 2; // multiply
  end;
end;

procedure TCalculatorForm.natlogbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := ln(X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.nfactorialbtnClick(Sender: TObject);
var
  n : integer;
begin
  if TryStrToInt(XEdit.Text, n) then
  begin
    n := factorial(n);
    XEdit.Text := IntToStr(n);
  end;
end;

procedure TCalculatorForm.ninebtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '9';
end;

procedure TCalculatorForm.nPrbtnClick(Sender: TObject);
begin
  if TryStrToInt(XEdit.Text, Xint) then
  begin
    operation := 7;
    XEdit.Text := '';
  end;
end;

procedure TCalculatorForm.onebtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '1';
end;

procedure TCalculatorForm.PeriodBtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '.';
end;

procedure TCalculatorForm.ReturnBtnClick(Sender: TObject);
begin
  stack := nil;
end;

procedure TCalculatorForm.sevenbtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '7';
end;

procedure TCalculatorForm.sinbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := sin(DegToRad(X));
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.sixbtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '6';
end;

procedure TCalculatorForm.sqrbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := X * X;
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.sqrtbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := sqrt(X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.subtractbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, TempX) then
  begin
    XEdit.Text := '';
    operation := 3;  // subtract
  end;
end;

procedure TCalculatorForm.tanbtnClick(Sender: TObject);
begin
  if TryStrTofloat(XEdit.Text, X) then
  begin
    X := tan(DegToRad(X));
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.tentoxbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := power(10,X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.threebtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '3';
end;

procedure TCalculatorForm.twobtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '2';
end;

procedure TCalculatorForm.XEditKeyPress(Sender: TObject; var Key: char);
begin
//  XEdit.Text := XEdit.Text + Key;
end;

procedure TCalculatorForm.ytopowerxbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, tempX) then
  begin
    operation := 5;
    XEdit.Text := '';
  end;
end;

procedure TCalculatorForm.ZeroBtnClick(Sender: TObject);
begin
  XEdit.text := XEdit.Text + '0';
end;

procedure TCalculatorForm.ClearEntryBtnClick(Sender: TObject);
begin
  XEdit.Text := '';
end;

procedure TCalculatorForm.CombobtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, tempX) then
  begin
    operation := 6;
    XEdit.Text := '';
  end;
end;

procedure TCalculatorForm.cosbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := cos(DegToRad(X));
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.AddbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, TempX) then
  begin
    XEdit.Text := '';
    operation := 4; // add
  end;
end;

procedure TCalculatorForm.ChangeSignBtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := -X;
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.etoxbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := exp(X); //power(2.71828182845905, X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.PiBtnClick(Sender: TObject);
begin
  X := Pi;
  XEdit.Text := FloatToStr(X);
end;

procedure TCalculatorForm.absbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := abs(X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.VarBtnClick(Sender: TObject);
var
  Sum, SSQ: double;
  NCount: double;
  i, index: integer;
begin
  if not TryStrToFloat(NEdit.Text, NCount) then    // wp: why read the same Edit into two variables?
    exit;
  if not TryStrToInt(NEdit.Text, index) then
    exit;
  Sum := 0.0;
  SSQ := 0.0;
  if NCount < 1 then
  begin
    ErrorMsg('No values in stack memory');
    exit;
  end
  else
  begin
      for i := 0 to index - 1 do
      begin
          Sum := Sum + stack[i];
          SSQ := SSQ + (stack[i] * stack[i]);
      end;
//      Sum := Sum / Ncount;  // mean
//      SSQ := SSQ / Ncount;
      SSQ := SSQ - (Sum * Sum) / Ncount;
      SSQ := SSQ / (Ncount - 1.0);
      XEdit.Text := FloatToStr(SSQ);
  end;
end;

procedure TCalculatorForm.MeanBtnClick(Sender: TObject);
Var
  Sum : double;
  Ncount : double;
  i, index : integer;
begin
  if not TryStrToFloat(NEdit.Text, NCount) then     // wp: why two variables?
    exit;
  if not TryStrToInt(NEdit.Text, index) then
    exit;
  Sum := 0.0;
  if Ncount < 1 then
  begin
    ErrorMsg('No values in stack memory');
    exit;
  end
  else
  begin
       for i := 0 to index - 1 do Sum := Sum + stack[i];
       Sum := Sum / Ncount;
       XEdit.Text := FloatToStr(Sum);
  end;
end;

procedure TCalculatorForm.StdDevBtnClick(Sender: TObject);
VAR
  Sum, SSQ : double;
  Ncount : double;
  i, index : integer;
begin
  if not TryStrToFloat(NEdit.Text, NCount) then     // wp: why two variables?
    exit;
  if not TryStrToInt(NEdit.Text, index) then
    exit;
  Sum := 0.0;
  SSQ := 0.0;
  if Ncount < 1 then
  begin
    ShowMessage('No values in stack memory');
    exit;
  end
  else
  begin
      for i := 0 to index - 1 do
      begin
          Sum := Sum + stack[i];
          SSQ := SSQ + (stack[i] * stack[i]);
      end;
//      Sum := Sum / Ncount;  // mean
//      SSQ := SSQ / Ncount;
      SSQ := SSQ - (Sum * Sum) / Ncount;
      SSQ := SSQ / (Ncount - 1.0);
      SSQ := sqrt(SSQ);
      XEdit.Text := FloatToStr(SSQ);
  end;
end;

procedure TCalculatorForm.dividebtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, TempX) then
  begin
    XEdit.Text := '';
    operation := 1; // //divide
  end;
end;

procedure TCalculatorForm.eightbtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '8';
end;

procedure TCalculatorForm.EqualBtnClick(Sender: TObject);
var
  x1, x2: double;
  editVal: Double;
begin
  if not TryStrToFloat(XEdit.Text, editVal) then
    exit;

  case (operation) of
       1 : begin // divide operation
         x1 := tempX;
         x2 := x1 / editVal;
         XEdit.Text := FloatToStr(x2);
       end;
       2 : begin // nultiply operation
         x1 := tempX;
         x2 := x1 * editVal;
         XEdit.Text := FloatToStr(x2);
       end;
       3 : begin
         x1 := tempX; // subtract operation
         x2 := x1 - editVal;
         XEdit.Text := FloatToStr(x2);
       end;
       4 : begin
         x1 := tempX; // Add operation
         x2 := x1 + editVal;
         XEdit.Text := FloatToStr(x2);
       end;
       5 : begin  // y to the X power (Y stored in tempx first, x in register)
         X := power(tempX, editVal);
         XEdit.Text := FloatToStr(X);
       end;
       6 : begin  // combinations of x things out of N
           X := combos(editVal,tempX);
           XEdit.Text := FloatToStr(X);
       end;
       7 : begin // permutations of x things out of N
           if TryStrToInt(XEdit.Text, XInt2) then
           begin
             Xint := factorial(Xint) div (factorial(Xint - Xint2));
             XEdit.Text := IntToStr(Xint);
           end;
       end;
  end;
end;

procedure TCalculatorForm.expbtnClick(Sender: TObject);
begin
  if TryStrToFloat(XEdit.Text, X) then
  begin
    X := exp(X);
    XEdit.Text := FloatToStr(X);
  end;
end;

procedure TCalculatorForm.fivebtnClick(Sender: TObject);
begin
  XEdit.Text := XEdit.Text + '5';
end;


end.