pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Use TAChart in MultXvsYUnit. Some cosmetics.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7630 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-08-23 14:31:05 +00:00
parent f380f1d6f3
commit db4a9f929b
8 changed files with 241 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applications/lazstats/LazStats.chm
View File

Binary file not shown.

BIN
applications/lazstats/docs/HelpNDoc/LazStats.hnd
View File

Binary file not shown.

5
applications/lazstats/source/LazStats.lpi
View File

@ -1424,11 +1424,6 @@
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>

7
applications/lazstats/source/LazStats.lpr
View File

@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, tachartlazaruspkg, tachartprint, lhelpcontrolpkg,
Globals, LicenseUnit, OptionsUnit, MainDM, MainUnit, utils, chartunit;
Globals, LicenseUnit, OptionsUnit, MainDM, MainUnit; //, utils, chartunit;
{$R LazStats.res}
@ -26,8 +26,9 @@ begin
else
Application.Terminate;
end;
Application.CreateForm(TMainDataModule, MainDataModule);
Application.CreateForm(TOS3MainFrm, OS3MainFrm);
Application.CreateForm(TMainDataModule, MainDataModule);
Application.CreateForm(TOS3MainFrm, OS3MainFrm);
Application.Run;
end.

329
applications/lazstats/source/forms/analysis/descriptive/multxvsyunit.pas
View File

@ -3,11 +3,12 @@
unit MultXvsYUnit;
{$mode objfpc}{$H+}
{$i ../../../LazStats.inc}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Buttons, Clipbrd,
MainUnit, Globals, OutputUnit, DataProcs, DictionaryUnit, ContextHelpUnit;
@ -52,7 +53,7 @@ type
procedure GroupOutBtnClick(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean);
procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
procedure XInBtnClick(Sender: TObject);
procedure XOutBtnClick(Sender: TObject);
procedure YInBtnClick(Sender: TObject);
@ -60,8 +61,12 @@ type
private
{ private declarations }
FAutoSized: Boolean;
procedure PlotXY(var XValues: DblDyneMat; YValues: DblDyneMat;
{$IFDEF USE_TACHART}
procedure PlotXY(const XValues, YValues: DblDyneMat; MinGrp: Integer);
{$ELSE}
procedure PlotXY(const XValues, YValues: DblDyneMat;
MaxX, MinX, MaxY, MinY: double; N, NoY, MinGrp: integer);
{$ENDIF}
procedure UpdateBtnStates;
public
@ -73,36 +78,42 @@ var
implementation
{$R *.lfm}
uses
Math,
BlankFrmUnit;
{$IFDEF USE_TACHART}
TATypes,
ChartUnit,
{$ELSE}
BlankFrmUnit,
{$ENDIF}
Math, Utils;
{ TMultXvsYFrm }
procedure TMultXvsYFrm.ResetBtnClick(Sender: TObject);
VAR i : integer;
var
i : integer;
begin
VarList.Clear;
for i := 1 to NoVariables do
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
XEdit.Text := '';
YEdit.Text := '';
GroupEdit.Text := '';
DescChk.Checked := false;
LinesChk.Checked := false;
XInBtn.Enabled := true;
YInBtn.Enabled := true;
GroupInBtn.Enabled := true;
XOutBtn.Enabled := false;
YOutBtn.Enabled := false;
GroupOutBtn.Enabled := false;
VarList.Clear;
for i := 1 to NoVariables do
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
XEdit.Text := '';
YEdit.Text := '';
GroupEdit.Text := '';
DescChk.Checked := false;
LinesChk.Checked := false;
UpdateBtnStates;
end;
procedure TMultXvsYFrm.VarListSelectionChange(Sender: TObject; User: boolean);
begin
UpdateBtnStates;
end;
procedure TMultXvsYFrm.GroupInBtnClick(Sender: TObject);
var
i: integer;
@ -116,31 +127,32 @@ begin
UpdateBtnStates;
end;
procedure TMultXvsYFrm.ComputeBtnClick(Sender: TObject);
var
i, j, k, N, NoGrps, XCol, YCol, GrpCol, Grp, MinGrp, MaxGrp: integer;
NoSelected, MaxGrpSize: integer;
selected, NoInGrp: IntDyneVec;
YValues, XValues: DblDyneMat;
Means, StdDevs: DblDyneVec;
MinX, MaxX, MinY, MaxY, X, Y, temp: double;
cellstring: string;
lReport: TStrings;
i, N, NoGrps, XCol, YCol, GrpCol, Grp, MinGrp, MaxGrp: integer;
MinX, MaxX, MinY, MaxY, X, Y: double;
cellstring: string;
MaxGrpSize: integer;
NoInGrp: IntDyneVec = nil;
XValues: DblDyneMat = nil;
YValues: DblDyneMat = nil;
Means: array[0..1] of Double = (0.0, 0.0);
StdDevs: array[0..1] of Double = (0.0, 0.0);
selected: array[0..2] of Integer = (0, 0, 0);
NoSelected: Integer = 3;
begin
MaxGrpSize := 0;
SetLength(selected, 3);
MaxX := -1.0e308;
MinX := 1.0e308;
MaxY := -1.0e308;
MinY := 1.0e308;
MinGrp := MaxInt;
MaxGrp := -MaxInt;
MaxX := -Infinity;
MinX := Infinity;
MaxY := -Infinity;
MinY := Infinity;
// Get selected variables
XCol := 0;
YCol := 0;
GrpCol := 0;
N := 0;
// Get selected variables
for i := 1 to NoVariables do
begin
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
@ -148,86 +160,90 @@ begin
if (cellstring = YEdit.Text) then selected[1] := i;
if (cellstring = GroupEdit.Text) then selected[2] := i;
end;
XCol := selected[0];
YCol := selected[1];
GrpCol := selected[2];
NoSelected := 3;
if (XCol = 0) or (YCol = 0) or (GrpCol = 0) then
begin
MessageDlg('No variable selected.', mtError, [mbOK], 0);
ErrorMsg('No variable selected.');
exit;
end;
// Get number of groups
MinGrp := MaxInt;
MaxGrp := -MaxInt;
for i := 1 to NoCases do
begin
Grp := StrToInt(OS3MainFrm.DataGrid.Cells[GrpCol,i]);
if (Grp > MaxGrp) then MaxGrp := Grp;
if (Grp < MinGrp) then MinGrp := Grp;
Grp := StrToInt(OS3MainFrm.DataGrid.Cells[GrpCol, i]);
MaxGrp := Max(MaxGrp, Grp);
MinGrp := Min(MinGrp, Grp);
end;
NoGrps := (MaxGrp - MinGrp) + 1;
lReport := TStringList.Create;
try
lReport.Add('X VERSUS Y FOR GROUPS PLOT');
lReport.Add('');
SetLength(XValues, NoGrps, NoCases); // NoCases is over-dimensioned and will be trimmed later.
SetLength(YValues, NoGrps, NoCases); // dto.
SetLength(NoInGrp, NoGrps);
for i := 0 to NoGrps - 1 do NoInGrp[i] := 0;
SetLength(YValues, NoCases+1, NoGrps+1);
SetLength(XValues, NoCases+1, NoGrps+1);
SetLength(Means, 2);
SetLength(StdDevs, 2);
SetLength(NoInGrp, NoGrps);
N := 0;
for i := 1 to NoCases do
begin
if (not GoodRecord(i, NoSelected, selected))then continue;
inc(N);
X := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol, i]);
MaxX := Max(MaxX, X);
MinX := Min(MinX, X);
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol, i]);
MaxY := Max(MaxY, Y);
MinY := Min(MinY, Y);
Grp := StrToInt(OS3MainFrm.DataGrid.Cells[GrpCol, i]) - MinGrp;
XValues[Grp, NoInGrp[Grp]] := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol, i]);
YValues[Grp, NoInGrp[Grp]] := Y;
inc(NoInGrp[Grp]);
MaxGrpSize := Max(MaxGrpsize, NoInGrp[Grp]);
end;
// Trim XValues and YValues to correct dimension.
SetLength(XValues, NoGrps);
SetLength(YValues, NoGrps);
for grp := 0 to NoGrps-1 do
begin
SetLength(XValues[grp], NoInGrp[grp]);
SetLength(YValues[grp], NoInGrp[grp]);
end;
// get descriptive data
if DescChk.Checked then
begin
for i := 1 to NoCases do
begin
if (not GoodRecord(i,NoSelected,selected)) then continue;
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol,i]);
X := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
Means[0] := Means[0] + X;
StdDevs[0] := StdDevs[0] + sqr(X);
Means[1] := Means[1] + Y;
StdDevs[1] := StdDevs[1] + sqr(Y);
end;
for i := 0 to 1 do
begin
Means[i] := 0.0;
StdDevs[i] := 0.0;
end;
for i := 0 to NoGrps - 1 do
NoInGrp[i] := 0;
for i := 1 to NoCases do
begin
if (not GoodRecord(i,NoSelected,selected))then continue;
inc(N);
X := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
if (X > MaxX) then MaxX := X;
if (X < MinX) then MinX := X;
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol,i]);
if (Y > MaxY) then MaxY := Y;
if (Y < MinY) then MinY := Y;
Grp := StrToInt(OS3MainFrm.DataGrid.Cells[GrpCol,i]);
Grp := Grp - MinGrp;
NoInGrp[Grp] := NoInGrp[Grp] + 1;
if (NoInGrp[Grp] > MaxGrpSize) then MaxGrpSize := NoInGrp[Grp];
YValues[NoInGrp[Grp]-1,Grp] := Y;
XValues[NoInGrp[Grp]-1,Grp] := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
StdDevs[i] := StdDevs[i] - sqr(Means[i]) / N;
StdDevs[i] := sqrt(StdDevs[i] / (N - 1));
Means[i] := Means[i] / N;
end;
// get descriptive data
if (DescChk.Checked) then
begin
for i := 1 to NoCases do
begin
if (not GoodRecord(i,NoSelected,selected)) then continue;
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol,i]);
X := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
Means[0] := Means[0] + X;
StdDevs[0] := StdDevs[0] + X * X;
Means[1] := Means[1] + Y;
StdDevs[1] := StdDevs[1] + Y * Y;
end;
for i := 0 to 1 do
begin
StdDevs[i] := StdDevs[i] - (Means[i] * Means[i]) / N;
StdDevs[i] := sqrt(StdDevs[i] / (N - 1));
Means[i] := Means[i] / N;
end;
lReport := TStringList.Create;
try
lReport.Add('X VERSUS Y FOR GROUPS PLOT');
lReport.Add('');
lReport.Add('X variable: ' + XEdit.Text);
lReport.Add('Y variable: ' + YEdit.Text);
lReport.Add('');
lReport.Add('VARIABLE MEAN STANDARD DEVIATION');
lReport.Add(' X %9.3f %14.3f', [Means[0], StdDevs[0]]);
@ -235,42 +251,24 @@ begin
lReport.Add('');
DisplayReport(lReport);
finally
lReport.Free;
end;
// sort on X
for i := 0 to NoGrps - 1 do
begin
for j := 0 to MaxGrpSize-2 do
begin
for k := j+1 to MaxGrpSize - 1 do
begin
if (XValues[j,i] > XValues[k,i]) then // swap
begin
temp := XValues[j,i];
XValues[j,i] := XValues[k,i];
XValues[k,i] := temp;
temp := YValues[j,i];
YValues[j,i] := YValues[k,i];
YValues[k,i] := temp;
end;
end;
end;
end;
BlankFrm.Image1.Canvas.Clear;
BlankFrm.Show;
PlotXY(XValues, YValues, MaxX, MinX, MaxY, MinY, MaxGrpSize, NoGrps, MinGrp);
finally
lReport.Free;
NoInGrp := nil;
StdDevs := nil;
Means := nil;
XValues := nil;
YValues := nil;
end;
// sort on X
for i := 0 to NoGrps - 1 do
SortOnX(XValues[i], YValues[i]);
// Plot data
PlotXY(XValues, YValues{$IFNDEF USE_TACHART}, MaxX, MinX, MaxY, MinY, MaxGrpSize, NoGrps{$ENDIF}, MinGrp);
NoInGrp := nil;
XValues := nil;
YValues := nil;
end;
procedure TMultXvsYFrm.FormActivate(Sender: TObject);
var
w: Integer;
@ -290,18 +288,20 @@ begin
FAutoSized := true;
end;
procedure TMultXvsYFrm.FormCreate(Sender: TObject);
begin
Assert(OS3MainFrm <> nil);
if DictionaryFrm = nil then Application.CreateForm(TDictionaryFrm, DictionaryFrm);
if BlankFrm = nil then Application.CreateForm(TBlankFrm, BlankFrm);
end;
procedure TMultXvsYFrm.FormShow(Sender: TObject);
begin
ResetBtnClick(self);
end;
procedure TMultXvsYFrm.GroupOutBtnClick(Sender: TObject);
begin
if GroupEdit.Text <> '' then
@ -312,6 +312,7 @@ begin
UpdateBtnStates;
end;
procedure TMultXvsYFrm.HelpBtnClick(Sender: TObject);
begin
if ContextHelpForm = nil then
@ -319,6 +320,7 @@ begin
ContextHelpForm.HelpMessage((Sender as TButton).Tag);
end;
procedure TMultXvsYFrm.XInBtnClick(Sender: TObject);
var
i: integer;
@ -332,6 +334,7 @@ begin
UpdateBtnStates;
end;
procedure TMultXvsYFrm.XOutBtnClick(Sender: TObject);
begin
if XEdit.Text <> '' then
@ -342,6 +345,7 @@ begin
UpdateBtnStates;
end;
procedure TMultXvsYFrm.YInBtnClick(Sender: TObject);
var
i: integer;
@ -355,6 +359,7 @@ begin
UpdateBtnStates;
end;
procedure TMultXvsYFrm.YOutBtnClick(Sender: TObject);
begin
if YEdit.Text <> '' then
@ -365,8 +370,48 @@ begin
UpdateBtnStates;
end;
// routine to plot X versus multiple Y values
procedure TMultXvsYFrm.plotxy(var XValues: DblDyneMat; YValues: DblDyneMat;
// Routine to plot X versus multiple Y values for several groups
// 1st index: group index, 2nd index: point index within group
{$IFDEF USE_TACHART}
procedure TMultXvsYFrm.PlotXY(const XValues, YValues: DblDyneMat; MinGrp: Integer);
var
pt: TPlotType;
grp: Integer;
clr: TColor;
grpName: String;
sym: TSeriesPointerStyle;
begin
if Length(XValues) <> Length(YValues) then
begin
ErrorMsg('Incorrect dimension of XValues and YValues');
exit;
end;
if ChartForm = nil then
ChartForm := TChartForm.Create(Application)
else
ChartForm.Clear;
// Titles
ChartForm.SetTitle(LabelEdit.Text);
ChartForm.SetXTitle(XEdit.Text);
chartForm.SetYTitle(YEdit.Text);
if LinesChk.Checked then pt := ptLinesAndSymbols else pt := ptSymbols;
for grp := 0 to Length(XValues)-1 do
begin
clr := DATA_COLORS[grp mod Length(DATA_COLORS)];
sym := DATA_SYMBOLS[grp mod Length(DATA_SYMBOLS)];
grpName := Format('%s = %d', [GroupEdit.Text, grp + MinGrp]);
ChartForm.PlotXY(pt, XValues[grp], YValues[grp], grpName, clr, sym);
end;
ChartForm.Show;
end;
{$ELSE}
procedure TMultXvsYFrm.PlotXY(const XValues, YValues: DblDyneMat;
MaxX, MinX, MaxY, MinY: double; N, NoY, MinGrp: integer);
var
xpos, ypos, hleft, hright, vtop, vbottom, imagewide : integer;
@ -374,6 +419,12 @@ var
valincr, Yvalue, Xvalue, value : double;
Title: string;
begin
if BlankFrm = nil then
Application.CreateForm(TBlankFrm, BlankFrm)
else
BlankFrm.Image1.Canvas.Clear;
BlankFrm.Show;
Title := LabelEdit.Text;
BlankFrm.Caption := Title;
BlankFrm.Show;
@ -460,6 +511,17 @@ begin
BlankFrm.Image1.Canvas.Font.Color := DATA_COLORS[j mod Length(DATA_COLORS)];
Grp := MinGrp + j;
Title := 'GROUP ' + IntToStr(Grp);
for i := 0 to N - 1 do
begin
xpos := hleft + ceil(hwide * ( (XValues[j, i] - MinX) / (MaxX - MinX)));
ypos := vtop + ceil(vhi * ( (MaxY - YValues[j, i]) / (MaxY - MinY)));
if (i = 0) then
BlankFrm.Image1.Canvas.MoveTo(xpos, ypos);
if LinesChk.Checked then
BlankFrm.Image1.Canvas.LineTo(xpos, ypos);
BlankFrm.Image1.Canvas.Ellipse(xpos, ypos, xpos+5, ypos+5);
end;
(*
for i := 1 to N do
begin
ypos := vtop + ceil(vhi * ( (MaxY - YValues[i-1,j]) / (MaxY - MinY)));
@ -470,6 +532,7 @@ begin
BlankFrm.Image1.Canvas.LineTo(xpos, ypos);
BlankFrm.Image1.Canvas.Ellipse(xpos, ypos, xpos+5, ypos+5);
end;
*)
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
@ -480,6 +543,8 @@ begin
BlankFrm.Image1.Canvas.Font.Color := clBlack;
end;
{$ENDIF}
procedure TMultXvsYFrm.UpdateBtnStates;
var
@ -502,8 +567,6 @@ begin
GroupOutBtn.Enabled := (GroupEdit.Text <> '');
end;
initialization
{$I multxvsyunit.lrs}
end.

1
applications/lazstats/source/forms/misc/chartunit.lfm
View File

@ -75,6 +75,7 @@ object ChartForm: TChartForm
Caption = 'Close'
Default = True
ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 2
end
end

27
applications/lazstats/source/forms/misc/chartunit.pas
View File

@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ExtDlgs, TAGraph, TACustomSeries, TASeries, PrintersDlgs,
StdCtrls, ExtDlgs, PrintersDlgs,
TAGraph, TACustomSeries, TASeries, TATypes,
Globals;
type
@ -26,6 +27,7 @@ type
PrintDialog: TPrintDialog;
SaveBtn: TButton;
SavePictureDialog: TSavePictureDialog;
procedure CloseBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
@ -42,7 +44,7 @@ type
procedure HorLine(y: Double; AColor: TColor; ALineStyle: TPenStyle; ALegendTitle: String);
function PlotXY(AType: TPlotType; x, y: DblDyneVec; LegendTitle: string;
AColor: TColor; xTitles: StrDynevec = nil): TChartSeries;
AColor: TColor; ASymbol: TSeriesPointerStyle = psCircle): TChartSeries;
procedure Vertline(x: Double; AColor: TColor; ALineStyle: TPenStyle; ALegendTitle: String);
procedure SetFooter(const ATitle: String);
@ -61,7 +63,7 @@ implementation
uses
Math, Printers, OSPrinters,
TAChartUtils, TATypes, TADrawerSVG, TAPrint;
TAChartUtils, TADrawerSVG, TAPrint;
{ TChartForm }
@ -84,6 +86,11 @@ begin
CloseBtn.Constraints.MinWidth := w;
end;
procedure TChartForm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TChartForm.FormCreate(Sender: TObject);
begin
Clear;
@ -169,10 +176,9 @@ begin
end;
function TChartForm.PlotXY(AType: TPlotType; x, y: DblDyneVec;
LegendTitle: string; AColor: TColor; xTitles: StrDynevec = nil): TChartSeries;
LegendTitle: string; AColor: TColor; ASymbol: TSeriesPointerStyle = psCircle): TChartSeries;
var
i, n: Integer;
s: String;
begin
case AType of
ptLines, ptSymbols, ptLinesAndSymbols:
@ -184,7 +190,7 @@ begin
if AType in [ptSymbols, ptLinesAndSymbols] then
begin
TLineSeries(Result).Pointer.Brush.Color := AColor;
TLineSeries(Result).Pointer.Style := psCircle;
TLineSeries(Result).Pointer.Style := ASymbol;
end;
end;
ptHorBars, ptVertBars:
@ -197,18 +203,11 @@ begin
n := Min(Length(x), Length(y));
for i := 0 to n-1 do
begin
if (xTitles <> nil) and (i <= Length(xTitles)) then
s := xTitles[i]
else
s := '';
Result.AddXY(x[i], y[i], s);
end;
Result.AddXY(x[i], y[i]);
Result.Title := LegendTitle;
Chart.AddSeries(Result);
Chart.Legend.Visible := Chart.SeriesCount > 0;
Chart.Prepare;
end;
procedure TChartForm.SaveBtnClick(Sender: TObject);

63
applications/lazstats/source/units/globals.pas
View File

@ -5,43 +5,30 @@ unit Globals;
interface
uses
Classes, SysUtils, Graphics;
const TOL = 0.0005;
Type IntDyneVec = array of integer;
Type DblDyneVec = array of double;
Type BoolDyneVec = array of boolean;
Type DblDyneMat = array of array of double;
Type IntDyneMat = array of array of integer;
Type DblDyneCube = array of array of array of double;
Type IntDyneCube = array of array of array of integer;
Type DblDyneQuad = array of array of array of array of double;
Type IntDyneQuad = array of array of array of array of integer;
Type StrDyneVec = array of string;
Type StrDyneMat = array of array of string;
Type CharDyneVec = array of char;
type POINT3D = record
x, y, z : double;
end;
Type POINTint = record
x, y : integer;
end;
Classes, SysUtils, Graphics, TATypes;
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);
@ -75,12 +62,13 @@ var
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;
DEFAULT_CONFIDENCE_LEVEL_PERCENT = 95.0;
DEFAULT_ALPHA_LEVEL = 0.05;
DEFAULT_BETA_LEVEL = 0.20;
@ -89,6 +77,9 @@ const
clMaroon, clRed, clBlue, clGreen, clNavy, clTeal,
clAqua, clLime, clFuchsia, clGray, clSilver, clOlive
);
DATA_SYMBOLS: array[0..5] of TSeriesPointerStyle = (psRectangle, psCircle, psDiamond,
psDownTriangle, psHexagon, psFullStar);
DIVIDER = '===========================================================================';
DIVIDER_SMALL = '---------------------------------------------------------------------------';