You've already forked lazarus-ccr
045c799d49
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
123 lines
3.1 KiB
ObjectPascal
123 lines
3.1 KiB
ObjectPascal
unit DataSmoothUnit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, Buttons, MainUnit, Globals, functionsLib, OutPutUnit, DataProcs,
|
|
DictionaryUnit, contexthelpunit;
|
|
|
|
type
|
|
|
|
{ TSmoothDataForm }
|
|
|
|
TSmoothDataForm = class(TForm)
|
|
CancelBtn: TButton;
|
|
HelpBtn: TButton;
|
|
Label3: TLabel;
|
|
ComputeBtn: TButton;
|
|
RepeatEdit: TEdit;
|
|
Label1: TLabel;
|
|
ResetBtn: TButton;
|
|
VariableEdit: TEdit;
|
|
InBtn: TBitBtn;
|
|
Label2: TLabel;
|
|
Memo1: TMemo;
|
|
OutBtn: TBitBtn;
|
|
VarList: TListBox;
|
|
procedure ComputeBtnClick(Sender: TObject);
|
|
procedure InBtnClick(Sender: TObject);
|
|
procedure OutBtnClick(Sender: TObject);
|
|
procedure ResetBtnClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
SmoothDataForm: TSmoothDataForm;
|
|
|
|
implementation
|
|
|
|
{ TSmoothDataForm }
|
|
|
|
procedure TSmoothDataForm.ResetBtnClick(Sender: TObject);
|
|
VAR i : integer;
|
|
begin
|
|
VarList.Clear;
|
|
for i := 1 to NoVariables do
|
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
|
RepeatEdit.Text := '1';
|
|
VariableEdit.Text := '';
|
|
InBtn.Visible := true;
|
|
OutBtn.Visible := false;
|
|
end;
|
|
|
|
procedure TSmoothDataForm.InBtnClick(Sender: TObject);
|
|
VAR index : integer;
|
|
begin
|
|
index := VarList.ItemIndex;
|
|
VariableEdit.Text := VarList.Items.Strings[index];
|
|
VarList.Items.Delete(index);
|
|
InBtn.Visible := false;
|
|
OutBtn.Visible := true;
|
|
end;
|
|
|
|
procedure TSmoothDataForm.ComputeBtnClick(Sender: TObject);
|
|
VAR
|
|
DataPts, OutPts : DblDyneVec;
|
|
value, dblvalue, avg : double;
|
|
VarCol, result, N, Reps, intvalue, i, j, col : integer;
|
|
varlabel, strvalue : string;
|
|
begin
|
|
N := NoCases;
|
|
SetLength(DataPts,N);
|
|
SetLength(OutPts,N);
|
|
Reps := StrToInt(RepeatEdit.Text);
|
|
varlabel := VariableEdit.Text;
|
|
for i := 1 to NoVariables do
|
|
if varlabel = OS3MainFrm.DataGrid.Cells[i,0] then VarCol := i;
|
|
for i := 1 to N do
|
|
begin
|
|
value := StrToFloat(OS3MainFrm.DataGrid.Cells[VarCol,i]);
|
|
DataPts[i-1] := value;
|
|
end;
|
|
// repeat smoothing for Reps times
|
|
OutPts[0] := DataPts[0];
|
|
OutPts[N-1] := DataPts[N-1];
|
|
for j := 1 to Reps do
|
|
begin
|
|
for i := 1 to N-2 do
|
|
begin
|
|
avg := (DataPts[i-1] + DataPts[i] + DataPts[i+1]) / 3.0;
|
|
OutPts[i] := avg;
|
|
end;
|
|
if j < Reps then
|
|
for i := 0 to N-1 do DataPts[i] := OutPts[i];
|
|
end;
|
|
// Create a new variable and copy smoothed data into it.
|
|
strvalue := 'Smoothed';
|
|
col := NoVariables + 1;
|
|
DictionaryFrm.NewVar(NoVariables+1);
|
|
DictionaryFrm.DictGrid.Cells[1,NoVariables] := strvalue;
|
|
OS3MainFrm.DataGrid.Cells[NoVariables,0] := strvalue;
|
|
for i := 0 to N-1 do OS3MainFrm.DataGrid.Cells[col,i+1] := FloatToStr(OutPts[i]);
|
|
end;
|
|
|
|
procedure TSmoothDataForm.OutBtnClick(Sender: TObject);
|
|
begin
|
|
VarList.Items.Add(VariableEdit.Text);
|
|
VariableEdit.Text := '';
|
|
OutBtn.Visible := false;
|
|
InBtn.Visible := true;
|
|
end;
|
|
|
|
initialization
|
|
{$I datasmoothunit.lrs}
|
|
|
|
end.
|
|
|