|
PureBytes Links
Trading Reference Links
|
Your compiled code is larger than 64KB.
There was a press release not too long ago from Omega about TS2000, which is
TS5, this should fix your problem.
Otherwise, you can re-code your system into another language and call this
DLL from TS (or simply use the other language and forget TS4), or break it
into many separate systems and use the "IncludeSystem" directive -- which I
guarantee you will regret.
-- Roy
-----Original Message-----
From: Tom [SMTP:Tommy2@xxxxxxxxxxxxxx]
Sent: Monday, February 08, 1999 3:07 PM
To: Omega List
Subject: EL code error
I have been playing around with some code here and I keep getting
the
error message:
"memory error - EXE code too large"
Basically, I had some of Williams's fractal stuff and I was just
playing
with a few ideas.
The idea is simple. Use a 20 day price channel. When price breaks
above channel, buy. Add to the position at each up fractal or up
squat. The same for selling. Sell on a break below the channel and
add
to the position at each down fractal or squat.
Now to be honest, I'm not very good at this EL crap and the problem
may
be obvious to those of you who are experts. I've included the
rather
large code below. Let me know what you think.
Tom
INPUT: PtsInTic(1), TicExpnd(1),Length(20);
VAR : UpHump(FALSE), DownHump(FALSE), Expansion(0),
Move(0),P1(0),P2(0),P3(0),P4(0);
IF CurrentBar > 1 and Close > Highest(High,Length)[1] Then Buy at
Market;
IF CurrentBar > 1 and Close < Lowest(Low,Length)[1] Then Sell at
Market;
UpHump = UpFractal = 1;
DownHump = DownFractal = 1;
IF TicExpnd >= MinimumMove THEN
Move = TicExpnd
ELSE
Move = MinimumMove;
Expansion = Move * PtsInTic;
IF UpHump THEN
BEGIN
IF H[2] >= H[3] AND H[2] > H[4] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P1=HIGH[2] + Expansion Points
ELSE
BEGIN
IF SquatBar[3] = 1 AND H[2] = H[3] THEN
P1=HIGH[3] + Expansion Points
ELSE
P3=HIGH[2] + Expansion Points;
if marketposition=1 then buy at p1[1] stop;
if marketposition=1 then buy at p3[1] stop;
END;
END;
IF H[2] = H[3] AND H[3] = H[4] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P1=HIGH[2] + Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P1=HIGH[3] + Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P1=HIGH[4] + Expansion Points
ELSE
P3=HIGH[2] + Expansion Points;
if marketposition=1 then buy at p1[1] stop;
if marketposition=1 then buy at p3[1] stop;
END;
IF H[2] > H[3] AND H[2] = H[4] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P1=HIGH[2] + Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P1=HIGH[4] + Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P1=HIGH[2] + Expansion Points
ELSE
P3=HIGH[2] + Expansion Points;
if marketposition=1 then buy at p1[1] stop;
if marketposition=1 then buy at p3[1] stop;
END;
IF H[2] = H[3] AND H[3] = H[4] AND H[4] = H[5] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P1=HIGH[2] + Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P1=HIGH[3] + Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P1=HIGH[4] + Expansion Points
ELSE
IF SquatBar[5] = 1 THEN
P1=HIGH[5] + Expansion Points
ELSE
P3=HIGH[2] + Expansion Points;
if marketposition=1 then buy at p1[1] stop;
if marketposition=1 then buy at p3[1] stop;
END;
IF H[2] = H[3] AND H[3] = H[4] AND H[4] = H[5] AND H[5] = H[6]
THEN
BEGIN
IF SquatBar[2] = 1 THEN
P1=HIGH[2] + Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P1=HIGH[3] + Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P1=HIGH[4] + Expansion Points
ELSE
IF SquatBar[5] = 1 THEN
P1=HIGH[5] + Expansion Points
ELSE
IF SquatBar[6] = 1 THEN
P1=HIGH[6] + Expansion Points
ELSE
P3=HIGH[2] + Expansion Points;
if marketposition=1 then buy at p1[1] stop;
if marketposition=1 then buy at p3[1] stop;
END;
END;
IF DownHump THEN
BEGIN
IF L[2] <= L[3] AND L[2] < L[4] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P2=LOW[2] - Expansion Points
ELSE
BEGIN
IF SquatBar[3] = 1 AND L[2] = L[3] THEN
P2=LOW[3] - Expansion Points
ELSE
P4=LOW[2] - Expansion Points;
if marketposition=-1 then sell at p2[1] stop;
if marketposition=-1 then sell at p4[1] stop;
END;
END;
IF L[2] = L[3] AND L[3] = L[4] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P2=LOW[2] - Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P2=LOW[3] - Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P2=LOW[4] - Expansion Points
ELSE
P4=LOW[2] - Expansion Points;
if marketposition=-1 then sell at p2[1] stop;
if marketposition=-1 then sell at p4[1] stop;
END;
IF L[2] < L[3] AND L[2] = L[4] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P2=LOW[2] - Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P2=LOW[4] - Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P2=LOW[2] - Expansion Points
ELSE
P4=LOW[2] - Expansion Points;
if marketposition=-1 then sell at p2[1] stop;
if marketposition=-1 then sell at p4[1] stop;
END;
IF L[2] = L[3] AND L[3] = L[4] AND L[4] = L[5] THEN
BEGIN
IF SquatBar[2] = 1 THEN
P2=LOW[2] - Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P2=LOW[3] - Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P2=LOW[4] - Expansion Points
ELSE
IF SquatBar[5] = 1 THEN
P2=LOW[5] - Expansion Points
ELSE
P4=LOW[2] - Expansion Points;
if marketposition=-1 then sell at p2[1] stop;
if marketposition=-1 then sell at p4[1] stop;
END;
IF L[2] = L[3] AND L[3] = L[4] AND L[4] = L[5] AND L[5] = L[6]
THEN
BEGIN
IF SquatBar[2] = 1 THEN
P2=LOW[2] - Expansion Points
ELSE
IF SquatBar[3] = 1 THEN
P2=LOW[3] - Expansion Points
ELSE
IF SquatBar[4] = 1 THEN
P2=LOW[4] - Expansion Points
ELSE
IF SquatBar[5] = 1 THEN
P2=LOW[5] - Expansion Points
ELSE
IF SquatBar[6] = 1 THEN
P2=LOW[6] - Expansion Points
ELSE
P4=LOW[2] - Expansion Points;
if marketposition=-1 then sell at p2[1] stop;
if marketposition=-1 then sell at p4[1] stop;
END;
END;
|