DimsaMathParser/uFunctionGroup.pas at master · dimsa/DimsaMathParser · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit uFunctionGroup;

interface

uses
  uParserValue, uExpressionParser;

type
  TFunction = class(TExpression)
  protected
    procedure SetText(const AValue: String); override;
  end;

  TFunctionType = class of TFunction;

  TSin = class(TFunction)
  public
    function Value: Double; override;
  end;

  TCos = class(TFunction)
  public
    function Value: Double; override;
  end;

  TSqr = class(TFunction)
  public
    function Value: Double; override;
  end;

  TSqrt = class(TFunction)
  public
    function Value: Double; override;
  end;

  const
    CFuncNames: array[0..3] of string = ('sin','cos','sqr','sqrt');
    CFuncNamesCount = 4;
    CFastFuncNames: array[0..3] of TFunctionType = (TSin, TCos, TSqr, TSqrt);

implementation

{ TSin }

function TSin.Value: Double;
begin
  Result := Sin(Inherited);
end;

{ TCos }

function TCos.Value: Double;
begin
  Result := Cos(Inherited);
end;

{ TSqr }

function TSqr.Value: Double;
begin
  Result := Sqr(Inherited);
end;

{ TSqrt }

function TSqrt.Value: Double;
begin
  Result := Sqrt(Inherited);
end;

{ TFunction }

procedure TFunction.SetText(const AValue: String);
var
  vText: string;
begin
  inherited;

  vText := Expression;
  Delete(vText, 1, Pos('(', vText));
  Delete(vText, Length(vText), 1);
  FExpression := vText;
end;

end.