lazarus-ccr/applications/lazstats/source/units/globals.pas

unit Globals; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type
  IntDyneVec = array of integer;
  DblDyneVec = array of double;
  BoolDyneVec = array of boolean;
  DblDyneMat  = array of array of double;
  IntDyneMat = array of array of integer;
  DblDyneCube = array of array of array of double;
  IntDyneCube = array of array of array of integer;
  DblDyneQuad = array of array of array of array of double;
  IntDyneQuad = array of array of array of array of integer;
  StrDyneVec  = array of string;
  StrDyneMat = array of array of string;
  CharDyneVec = array of char;

  Point3D = record
    x, y, z: double;
  end;

  PointInt = record
    x, y: Integer;
  end;

  TFractionType = (ftPoint, ftComma);
  TMissingValueCode = (mvcSpace, mvcPeriod, mvcZero, mvcNines);
  TJustification = (jLeft, jCenter, jRight);

  TOptions = record
    DefaultDataPath: string;
    FractionType: TFractionType;
    DefaultMiss: TMissingValueCode;
    DefaultJust: TJustification;
    LHelpPath: String;
  end;

  ELazStats = class(Exception);

var
  NoCases : integer;
  NoVariables : integer;
  VarDefined : array[0..500] of boolean;
  TempStream : TMemoryStream;
  TempVarItm : TMemoryStream;
  DictLoaded : boolean;
  FilterOn : boolean;
  FilterCol : integer;
  //OpenStatPath : string;
  AItems : array[0..8] of string;
  LoggedOn : boolean = false;

  Options: TOptions = (
    DefaultDataPath: '';
    FractionType: ftPoint;
    DefaultMiss: mvcNines;
    DefaultJust: jLeft;
    LHelpPath: '<default>';
  );

const
  FractionTypeChars: array[TFractionType] of char = ('.', ',');
  MissingValueCodes: array[TMissingValueCode] of string = (' ', '.', '0', '99999');
  JustificationCodes: array[TJustification] of string[1] = ('L', 'C', 'R');

  TOL = 0.0005;

  MAX_FLOAT: Double = 1E308;

  DEFAULT_CONFIDENCE_LEVEL_PERCENT = 95.0;
  DEFAULT_ALPHA_LEVEL = 0.05;
  DEFAULT_BETA_LEVEL = 0.20;

  DIVIDER = '===========================================================================';
  DIVIDER_SMALL = '---------------------------------------------------------------------------';
  DIVIDER_AUTO = '@=';
  DIVIDER_SMALL_AUTO = '@-';

  GRAPH_BACK_COLOR = $F0FBFF;  // clCream
  GRAPH_WALL_COLOR = $808080;  // clGray
  GRAPH_FLOOR_COLOR = $C0C0C0; // clLtGray

  TAB_FILE_FILTER = 'Tab field files (*.tab)|*.tab;*.TAB|Text files (*.txt)|*.txt;*.TXT|All files (*.*)|*.*';
  CSV_FILE_FILTER = 'Comma field files (*.csv)|*.csv;*.CSV|Text files (*.txt)|*.txt;*.TXT|All files (*.*)|*.*';
  SSV_FILE_FILTER = 'Space field files (*.ssv)|*.ssv;*.SSV|Text files (*.txt)|*.txt;*.TXT|All files (*.*)|*.*';

  DEFAULT_WIDTH = 1000;
  DEFAULT_HEIGHT = 500;

implementation

end.