New Page 1
- (, string,
)
.
, .
n=1 (
):
ProfitChange |
DrawdownChange |
SignalResult |
SignalDate |
8,94% |
11,67% |
Sell |
01.06.2002 |
9,68% |
2,06% |
Buy |
01.10.2002 |
0,00% |
19,86% |
Sell |
01.04.2003 |
28,79% |
2,77% |
Buy |
01.05.2003 |
13,55% |
7,23% |
Sell |
01.04.2004 |
8,93% |
7,54% |
Buy |
01.09.2004 |
27,32% |
0,00% |
Sell |
01.11.2004 |
0,00% |
16,56% |
Buy |
01.02.2005 |
4,48% |
5,90% |
Sell |
01.04.2005 |
14,83% |
0,29% |
Buy |
01.06.2005 |
6,41% |
13,35% |
Sell |
01.09.2006 |
4,24% |
3,46% |
Buy |
01.10.2006 |
0,65% |
26,92% |
Sell |
01.01.2008 |
6,32% |
7,60% |
Buy |
01.02.2008 |
29,62% |
2,06% |
Sell |
01.06.2008 |
39,62% |
3,66% |
Buy |
01.03.2009 |
6,21% |
14,39% |
Sell |
01.08.2009 |
, ProfitChange DrawdownChange
12,33% 8,55%. , ,
, , ,
.
" ",
- . " "
.
, .
, (
).
Easy Game Library .
:
unit Base;
interface
uses Classes, SysUtils;
type
TESBBaseClass=class(TPersistent)
protected
FVersion:integer;
FID:LongInt;
function
GetVersion:integer; virtual;
public
property ID:LongInt read
FID;
procedure Serialize(AStream:TStream);
virtual;
procedure Unserialize(AStream:TStream);
virtual;
end;
implementation
procedure SerializeString(AString:string; AStream:TStream);
var l:integer;
begin
l:=Length(AString);
AStream.Write(l,Sizeof(l));
if l>0 then AStream.WriteBuffer(AString[1],l);
end;
function UnserializeString(AStream:TStream):string;
var l:integer; s:string;
begin
AStream.Read(l,Sizeof(l));
if l>0 then
begin
SetLength(s,L);
AStream.ReadBuffer(s[1],L);
end;
Result:=s;
end;
// ********************************** TESBBaseClass
*******************************
procedure TESBBaseClass.Serialize(AStream:TStream);
var sign:string; version:integer;
begin
Sign:=ClassName;
version:=GetVersion;
SerializeString(sign, AStream);
AStream.Write(version,sizeof(version));
AStream.Write(FID,sizeof(FID));
end;
procedure TESBBaseClass.Unserialize(AStream:TStream);
var sign:string;
begin
sign:=UnserializeString(AStream);
if sign<>ClassName then Raise Exception.Create('TESBBaseClass.Unserialize:
() '+ClassName);
AStream.Read(FVersion,sizeof(FVersion));
AStream.Read(FID,sizeof(FID));
end;
function TESBBaseClass.GetVersion:integer;
begin
Result:=1;
end;
end. |
.
, .
( , ),
,
.
.
, ,
.
|