| The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information.... |
Home  MathPack DataTable Interface of SDL_DataTable |
|
  |
|
Interface of SDL_DataTable |
|
const
DT_NameWidth = 50; { maximum length of col/row names }
DT_MaxColOrRows = 2000000000 div (DT_NameWidth+1);
DT_NominalID_Width = 10; // maximum length of nominal/ordinal identifiers
DT_MaxNominalIDs = 25; // maximum number of nominal/ordinal identifiers
{$IFDEF PAIDVERS}
SDLVersionInfo = 'datatable_r1000_full';
IsLightEd = false;
{$ELSE}
SDLVersionInfo = 'datatable_r1000_lighted';
IsLightEd = true;
{$ENDIF}
release = 1000;
csNAN = $01; { cell states: not a number }
csUndefined = $02; { undefined or empty cell }
csUser1 = $04; { user defined cell type }
csUser2 = $08; { user defined cell type }
csUser3 = $10; { user defined cell type }
csImputed = $20; { cell contains imputed data }
csMarkedA = $40; { cell is marked, type 1 }
csMarkedB = $80; { cell is marked, type 2 }
csReset = $00; { cell is not marked at all }
csNone = $00; { cell is not marked at all }
csAll = $FF; { any kind of mark }
type
TCSVDelimiters = (csvComma, csvColon, csvSemicolon, csvTab, csvUnknown);
TMScaleType = (stUnknown, stNominal, stOrdinal, stInterval, stRatio);
TNominalIDStr = string[DT_NominalID_Width];
TVTypeSpec = record
MScaleType : TMScaleType; // measurement scale type of variable
IDs : array[1..DT_MaxNominalIDs] of TNominalIDStr;
end;
const
CSVDelimiters : array [TCSVDelimiters] of char =
(',',':',';',#9, #0);
MScaleTypeNames : array[TMScaleType] of string =
('Unknown', 'Nominal', 'Ordinal', 'Interval', 'Ratio');
type
TDTNameStr = string[DT_NameWidth]; { col/row header type }
ESDLDataTableError = class(ESDLError); { exception type to indicate errors }
TDataTableResizeEvent = procedure (Sender: TObject; OldColumns, OldRows,
NewColumns, NewRows: longint) of object;
TDataTable = class(TComponent)
private
FOnChange : TNotifyEvent;
FOnChangeSetup : TNotifyEvent;
FOnResize : TDataTableResizeEvent;
FComment : string; { comment on data }
FRowAtt : array of byte; { class information on objects }
FColAtt : array of byte; { class information on features }
FVType : array of TVTypeSpec; { measurement scale type }
FCState : array of array of byte; { array of cell states }
FColName : array of TDTNameStr; { column names }
FRowName : array of TDTNameStr; { row names }
FNrOfCols : longint; { number of columns of data matrix }
FNrOfRows : longint; { number of columns of data matrix }
{$IFDEF PAIDVERS}
FVNState : TQuotedStrState; { state of var parser }
FVNName : string; { intermediary name for var. parsing }
{$ENDIF}
FSortIncludeHd : boolean; { flag to indicate sorting mode }
FOnSortExchange : TSortExchgEvent;
FExtMatAssigned : boolean;
procedure ExchangeDuringSort (Sender: TObject; ExchgWhat: byte;
index1, index2, first, last: longint);
function GetRowAttrib (RowNr: longint): byte;
function GetCellState (ACol, ARow: longint): byte;
function GetColAttrib (ColNr: longint): byte;
function GetMScaleType (ColNr: longint): TMScaleType;
function GetColName (ColNr: longint): TDTNameStr;
function GetElem (ACol, ARow: longint): double;
function GetElemNominal (ACol, ARow: longint): TNominalIDStr;
function GetIsNumber (ACol, ARow: longint): boolean;
function GetIsEmpty (ACol, ARow: longint): boolean;
function GetIsImputed (ACol, ARow: longint): boolean;
function GetRowName (RowNr: longint): TDTNameStr;
function GetNominalID (ColIx, OrdVal: integer): TNominalIDStr;
procedure DataHasChanged (Sender: TObject);
procedure SetRowAttrib (RowNr: longint; Attrib: byte);
procedure SetCellState (ACol, ARow: longint; const Value: byte);
procedure SetColAttrib (ColNr: longint; Attrib: byte);
procedure SetMScaleType (ColNr: longint; MScaleType: TMScaleType);
procedure SetColName (ColNr: longint; HLine: TDTNameStr);
procedure SetElem (ACol, ARow: longint; const Value: double);
procedure SetElemNominal (ACol, ARow: longint;
const Value: TNominalIDStr);
procedure SetFComment (cmt: string);
procedure SetIsEmpty (ACol, ARow: longint; const Value: boolean);
procedure SetIsImputed (ACol, ARow: longint; const Value: boolean);
procedure SetNrCols (NrCols: longint);
procedure SetNrRows (NrRows: longint);
procedure SetRowName (RowNr: longint; HLine: TDTNameStr);
procedure SetNominalID (ColIx, OrdVal: integer;
MScaleID: TNominalIDStr);
protected
public
NumericData : TMatrix; { data matrix }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function AddNominalID (Col: integer;
MScaleID: TNominalIDStr): integer;
procedure AssignAnotherDataMatrix (NewDMat: TMatrix);
procedure ChangedData;
procedure ChangedSetup;
procedure Clear;
procedure ClearNominalIDs (Col: integer);
function CRCofNamesAndAttributes: string;
function CRCofCellStates: string;
function ExportAsASC (FName: string;
Precision: integer): string; overload;
function ExportAsASC (OutStream: TStream;
Precision: integer): string; overload;
function ImportASC (FName: string): integer; overload;
function ImportASC (InStream: TStream): integer; overload;
function ImportASC (ClipBd: TClipBoard): integer; overload;
{$IFNDEF DOTNET}
function ExportAsCSV (FName: string; Precision: integer;
Delimiter: TCSVDelimiters; IncludeColHeaders,
IncludeRowHeaders: boolean): string; overload;
function ExportAsCSV (FName: string; Precision: integer;
Delimiter: TCSVDelimiters; IncludeColHeaders,
IncludeRowHeaders,
IncludeRowAttributes: boolean): string; overload;
function ImportFromCSV (FName: string; Delimiter: TCSVDelimiters;
IncludeColHeaders, IncludeRowHeaders: boolean): integer;
{$ENDIF}
property Elem[ACol, ARow: longint]: double
read GetElem write SetElem; default;
property ElemNominal[ACol, ARow: longint]: TNominalIDStr
read GetElemNominal write SetElemNominal;
property CellState[ACol, ARow: longint]: byte
read GetCellState write SetCellState;
procedure Resize (NrCols, NrRows: longint);
property RowAttrib [ix: longint]: byte
read GetRowAttrib write SetRowAttrib;
property ColAttrib [ix: longint]: byte
read GetColAttrib write SetColAttrib;
function CountMarkedCellsInColumn (Col: integer;
StateMask: byte): integer;
function CountMarkedCellsInRow (Row: integer;
StateMask: byte): integer;
function IfColHasCellState (col: longint; CellState: byte): boolean;
function IfRowHasCellState (row: longint; CellState: byte): boolean;
procedure InsertRow (ix: longint);
procedure InsertColumn (ix: longint);
property IsNumber[ACol, ARow: longint]: boolean read GetIsNumber;
property IsEmpty[ACol, ARow: longint]: boolean
read GetIsEmpty write SetIsEmpty;
property IsImputed[ACol, ARow: longint]: boolean
read GetIsImputed write SetIsImputed;
property ColName[ix: longint]: TDTNameStr
read GetColName write SetColName;
procedure CopyContentsFrom (ExtTab: TDataTable);
function CountEmptyCells (LowCol, LowRow, HighCol,
HighRow: integer): integer;
function CountImputedCells (LowCol, LowRow, HighCol,
HighRow: integer): integer;
function CountNumCells (LowCol, LowRow, HighCol,
HighRow: integer): integer;
function CountValidCells (LowCol, LowRow, HighCol,
HighRow: integer): integer;
procedure ExchangeColumns (c1, c2: integer);
procedure ExchangeRows (r1, r2: integer);
function GeometricMeanOfNumCells (LowCol, LowRow, HighCol,
HighRow: integer; var NumData: integer): double;
function HarmonicMeanOfNumCells (LowCol, LowRow, HighCol,
HighRow: integer; var NumData: integer): double;
procedure MeanCenterNumCellColumns (Means: TVector);
procedure MeanCenterNumCellRows (Means: TVector);
function MeanVarOfNumCells (LowCol, LowRow, HighCol,
HighRow: integer; var Mean, Variance: double): integer;
function MeanVarOfMarkedCells (LowCol, LowRow, HighCol,
HighRow: integer; CellState: byte;
var Mean, Variance: double): integer;
function MinMaxOfNumCells (LowCol, LowRow, HighCol,
HighRow: integer; var Minimum, Maximum: double): integer;
function MinMaxOfMarkedCells (LowCol, LowRow, HighCol,
HighRow: integer; CellState: byte;
var Minimum, Maximum: double): integer;
function MinMaxOfValidCells (LowCol, LowRow, HighCol,
HighRow: integer; var Minimum, Maximum: double): integer;
procedure MirrorColumns;
procedure MirrorRows;
property MScaleType [Col: longint]: TMScaleType
read GetMScaleType write SetMScaleType;
property NominalID [Col, Ord: longint]: TNominalIDStr
read GetNominalID write SetNominalID;
function OrdinalOfNominalID (Col: longint; ID: TNominalIDStr;
IgnoreCase: boolean): integer;
function PercentileOfNumCells (prob: double; LowCol, LowRow, HighCol,
HighRow: integer; var NumData: integer): double;
function QuartilesOfNumCells (LowCol, LowRow, HighCol,
HighRow: integer; var Q1, Q2, Q3: double;
var NumData: integer): boolean;
procedure StandardizeNumCellColumns (Means, StdDevs: TVector);
procedure StandardizeNumCellRows (Means, StdDevs: TVector);
function SumOfNumCells (LowCol,LowRow,HighCol,HighRow: integer;
var NumData: integer): double;
function SumOfMarkedCells (LowCol,LowRow,HighCol,HighRow: integer;
CellState: byte; var NumData: integer): double;
procedure RemoveRow (ix: longint);
procedure RemoveColumn (ix: longint);
property RowName[ix: longint]: TDTNameStr
read GetRowName write SetRowName;
procedure SortCols (SortRowIx: integer; Ascending: boolean;
LowCol, LowRow, HighCol, HighRow: integer;
IncludeHeaders: boolean);
procedure SortRows (SortColIx: integer; Ascending: boolean;
LowCol, LowRow, HighCol, HighRow: integer;
IncludeHeaders: boolean);
procedure SortColAttributes (Ascending: boolean;
LowCol, LowRow, HighCol, HighRow: integer);
procedure SortColNames (Ascending: boolean;
LowCol, LowRow, HighCol, HighRow: integer);
procedure SortRowAttributes (Ascending: boolean;
LowCol, LowRow, HighCol, HighRow: integer);
procedure SortRowNames (Ascending: boolean;
LowCol, LowRow, HighCol, HighRow: integer);
procedure SetAllCellStates (CellState: byte);
function FindColIndex (ColID: TDTNameStr): integer;
function FindRowIndex (RowID: TDTNameStr): integer;
function ReadFromASC (FName: string; PosX, PosY: longint;
ReplaceIDs: boolean): integer; overload;
function ReadFromASC (InStream: TStream; PosX, PosY: longint;
ReplaceIDs: boolean): integer; overload;
function ReadFromASC (ClipBd: TClipBoard; PosX, PosY: longint;
ReplaceIDs: boolean): integer; overload;
procedure UnmarkAllCells;
published
property Comment: string
read FComment write SetFComment;
property NrOfColumns: longint
read FNrOfCols write SetNrCols;
property NrOfRows: longint
read FNrOfRows write SetNrRows;
property OnChange: TNotifyEvent
read FOnChange write FOnChange;
property OnChangeSetup: TNotifyEvent
read FOnChangeSetup write FOnChangeSetup;
property OnResize: TDataTableResizeEvent
read FOnResize write FOnResize;
property OnSortExchange: TSortExchgEvent
read FOnSortExchange write FOnSortExchange;
end;
|
|
Last Update: 2008-Oct-29
