|
PureBytes Links
Trading Reference Links
|
Just in case you did not get a copy of this code.....I found a back up
in my old files. I was sure that it was posted to this list. If it
wasn't, it is now.
John
John
Subject: Omega-World Junk
Resent-Date: Thu, 7 May 1998 21:05:23 -0700
Resent-From: omega-list@xxxxxxxxxx
Date: Thu, 07 May 1998 10:42:02 PDT
From: "Alan Savant" <the_savant@xxxxxxxxxxx>
To: omega-list@xxxxxxxxxx
Input:JK1(012279);
If JK1=012279 and CurrentDate<=980601
then begin;
IF H<H[1] and H[1]<H[2] and L<L[1] and L[1]<L[2] Then Buy Highest(o,2)+1
point Stop;
IF H>H[1] and H[1]>H[2] and L>L[1] and L[1]>L[2] Then Sell Lowest(o,2)-
1 point Stop;
end;
If JK1=053152 then begin;
IF H<H[1] and H[1]<H[2] and L<L[1] and L[1]<L[2] Then Buy Highest(o,2)+1
point Stop;
IF H>H[1] and H[1]>H[2] and L>L[1] and L[1]>L[2] Then Sell Lowest(o,2)-
1 point Stop;
end;
{if Date > Date[1] then begin
PRINT(file("C:\pa\31"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
////////////////////////////////
Input: Length(9),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF (C of data2 >Highest(High of data2,Length)[1]) and (C[1] of data2 <
Highest(High of data2,Length)[2]) Then Buy at Market;
IF (C of data2 < Lowest(Low of data2,Length)[1]) and (C[1] of data2>
Lowest(Low of data2,Length)[2]) Then ExitLong at Market;
end;
If JK1=053152 then begin;
IF (C of data2 >Highest(High of data2,Length)[1]) and (C[1] of data2 <
Highest(High of data2,Length)[2]) Then Buy at Market;
IF (C of data2 < Lowest(Low of data2,Length)[1]) and (C[1] of data2>
Lowest(Low of data2,Length)[2]) Then ExitLong at Market;
end;
{if Date > Date[1] then begin
PRINT(file("C:\pa\30"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
//////////////////////////////////
Input: PH(((H+L+C)/3*2)-L),PL(((H+L+C)/3*2)-H),Length(28),
Length2(28),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
Buy Highest(PH,Length)+1 point Stop;
ExitLong Lowest(L,Length2) Stop;
Sell Lowest(PL,Length)- 1 point Stop;
ExitShort Highest(H,Length2) Stop;
end;
If JK1=053152 then begin;
Buy Highest(PH,Length)+1 point Stop;
ExitLong Lowest(L,Length2) Stop;
Sell Lowest(PL,Length)- 1 point Stop;
ExitShort Highest(H,Length2) Stop;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\29"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
//////////////////////////////////
Input: VarA(9),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF C of data2 <Average(C of data2,VarA) Then Buy at Market;
IF C of data2 >Average(C of data2,VarA) Then Sell at Market;
end;
If JK1=053152 then begin;
IF C of data2 <Average(C of data2,VarA) Then Buy at Market;
IF C of data2 >Average(C of data2,VarA) Then Sell at Market;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\28"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
///////////////////////////////
Input: VarA(5),VarB(4),VarC(3),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF (DayOfWeek(date)=VarA and C < Average(C,3)) OR (DayOfWeek(date)=VarB
and C > Average(C,3)) OR (DayOfWeek(Date)=VarC and C >Average(C,3)) Then
Buy at Market;
end;
If JK1=053152 then begin;
IF (DayOfWeek(date)=VarA and C < Average(C,3)) OR (DayOfWeek(date)=VarB
and C > Average(C,3)) OR (DayOfWeek(Date)=VarC and C >Average(C,3)) Then
Buy at Market;
end;
{if Date > Date[1] then begin
PRINT(file("C:\pa\27"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
////////////////////////////////
Input: Input1(45),Input2(45),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
If JK1=053152 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
{if Date > Date[1] then begin
PRINT(file("C:\pa\26"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
//////////////////////////////////
Input: Input1(45),Input2(60),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
If JK1=053152 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\25"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;
}
//////////////////////////////////
Input: Input1(45),Input2(45),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
If JK1=053152 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\24"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
//////////////////////////////////
Input: Input1(65),Input2(50 ),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
If JK1=053152 then begin;
IF L > Average(H,Input2) Then Buy at Market;
IF H<Average(L,Input1) Then Sell at Market;
end;
{if Date > Date[1] then begin
PRINT(file("C:\pa\23"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;
}
///////////////////////////////////
Input:JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF DayOfWeek(Date)=5 and C < Average(C,3) Then Buy at Market;
end;
If JK1=053152 then begin;
IF DayOfWeek(Date)=5 and C < Average(C,3) Then Buy at Market;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\22"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
////////////////////////////////////
Input:JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF C <H-(Range/6) and C >C[1] Then Buy h Stop;
IF C >L+(Range/6) and C < C[1] Then Sell l Stop;
end;
If JK1=053152 then begin;
IF C <H-(Range/6) and C >C[1] Then Buy h Stop;
IF C >L+(Range/6) and C < C[1] Then Sell l Stop;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\21"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;
}
/////////////////////////////////////
Input: VarA(5),JK1(012279);
If JK1=012279 and CurrentDate<=980601 then begin;
IF C >C[1] Then Buy C + (Range*0.9) Stop;
IF MarketPosition=1 and BarsSinceEntry>=VarA-1
Then ExitLong at Market;
IF C < C[1] Then Sell C-(Range *1.8) Stop;
IF MarketPosition=-1 and BarsSinceEntry>=VarA-1
Then ExitShort at Market;
end;
If JK1=053152 then begin;
IF C >C[1] Then Buy C + (Range*0.9) Stop;
IF MarketPosition=1 and BarsSinceEntry>=VarA-1
Then ExitLong at Market;
IF C < C[1] Then Sell C-(Range *1.8) Stop;
IF MarketPosition=-1 and BarsSinceEntry>=VarA-1
Then ExitShort at Market;
end;
{
if Date > Date[1] then begin
PRINT(file("C:\pa\20"),
DATE:6:0,",",
DayOfWeek(date):1:0,",",
CurrentTime:4:0,",",
OpenPositionProfit+NetProfit,",",
NetProfit,",",
MaxidDrawdown,",",
MarketPosition:1:0);
END;}
|