I have found the file in EL, however I stmumbled on some problems when trying to compile the code on my OEC plattform. Some of the words in this code end up to be errors in my plattform. Under is the code, and I have attached a picture of the words it did not understand.
Any ideas?
Here it is in EL:
inputs:
LeftStrength( 3 ) ,
RightStrength( 3 ),
LookBackLength( 100 ) ;
variable:
ID(-1),
Offset( 0 ) ,
HighValue1(0),
HighValue2(0),
LowValue1(0),
LowValue2(0),
Value1(0);
Offset = .15 * Average( Range, 5 ) ;
if PivotHighVSBar( 1, High, LeftStrength, RightStrength, RightStrength + 1 ) <> -1 then
begin
HighValue1 = PivotHighVS(1, High, Leftstrength, RightStrength, LookBackLength );
HighValue2 = PivotHighVS(2, High, Leftstrength, RightStrength, LookBackLength );
if HighValue2 <> -1 and ( ( HighValue1 >= HighValue2 - Offset ) and ( HighValue1 <= HighValue2 + Offset ) ) then
begin
ID = Text_New(Date[RightStrength], Time[RightStrength], High[RightStrength] + Offset, "DT");
Text_SetStyle(ID, 2, 1 ) ;
Text_SetColor(ID, yellow);
Value1 = 1;
end ;
if HighValue2 <> -1 and HighValue1 > HighValue2 and value1 = 0 then
begin
ID = Text_New(Date[RightStrength], Time[RightStrength], High[RightStrength] + Offset, "HH");
Text_SetStyle(ID, 2, 1 ) ;
Text_SetColor(ID, Green);
end
else if HighValue2 <> -1 and HighValue1 < HighValue2 and value1 = 0 then
begin
ID = Text_New(Date[RightStrength], Time[Rightstrength], High[RightStrength] + Offset, "LH");
Text_SetStyle(ID, 2, 1 ) ;
Text_SetColor(ID, Red);
end ;
Value1 = 0;
end ;
if PivotLowVSBar( 1, Low, LeftStrength, RightStrength, RightStrength + 1 ) <> -1 then
begin
LowValue1 = PivotLowVS(1, Low, Leftstrength, RightStrength, LookBackLength );
LowValue2 = PivotLowVS(2, Low, Leftstrength, RightStrength, LookBackLength );
if LowValue2 <> -1 and ( ( LowValue1 >= LowValue2 - Offset ) and ( LowValue1 <= LowValue2 + Offset ) ) then
begin
ID = Text_New(Date[RightStrength], Time[RightStrength], Low[RightStrength] - Offset, "DB");
Text_SetStyle(ID, 2, 0 ) ;
Text_SetColor(ID, yellow);
Value1 = 1;
end;
if LowValue2 <> -1 and LowValue1 < LowValue2 and Value1 = 0 then
begin
ID = Text_New(Date[RightStrength], Time[RightStrength], Low[RightStrength] - Offset, "LL");
Text_SetStyle(ID, 2, 0 ) ;
Text_SetColor(ID, Red);
end
else if LowValue2 <> -1 and LowValue1 > LowValue2 and Value1 = 0 then
begin
ID = Text_New(Date[RightStrength], Time[RightStrength], Low[RightStrength] - Offset, "HL");
Text_SetStyle(ID, 2, 0 ) ;
Text_SetColor(ID, Green);
end;
Value1 = 0;
end ;
