Fw: Candlestick ELS Files

["Barry Silberman" <barry@xxxxxxxxxxxxxxxxxxxxx>]

To List:

Sent this several days ago to the List with an attachment of the code.  It
apparently was too large a file and was not included with the normal List
material.  So I am
sending it again without the EL attachment.   You can still cut and paste to
use it.

============================================================================

Adrian,

Here is some code for candlesticks I have.   Some come from Omega code and
some that I added.   The ELD file is attached as well as the code in text
format if you need to cut and paste.


Regards,

Barry Silberman

----- Original Message -----
From: "Adrian Pitt" <apitt@xxxxxxxxxxxxx>
To: <omega-list@xxxxxxxxxx>
Sent: Friday, July 05, 2002 9:21 AM
Subject: Candlestick ELS Files


> Does anyone know a good source for Candlestick patterns being coded in
> ELS files
> for TS2000i?  The more the better.
>
> Thanks,
>
> Adrian
>

============================================================================
==
{*******************************************************************
Description : This Indicator plots CandleStick Patterns
Provided By :  Omega Research, Inc. (c) Copyright 1999

MODIFIED BY Barry Silberman-- IE: HANGING MAN;  also added gaps: up gap with
blue dot;  down gap with magenta dot
********************************************************************}

Inputs: Tolernce(5), Length(5), Tail(3);
Variables: String1(""), TextLoc(0), String2(""), String3("");

If DataCompression = 0 and BarInterval <= 5 Then
 Commentary("This indicator must be applied to a bar interval larger than 5
ticks.")
Else
 If DataCompression = 5 Then
  Commentary("This indicator can not be applied to Point and Figure charts.
")
 Else Begin
  String1 = "";
  String2 = "";

  Condition1 = false;  {for bullish patterns}
  Condition2 = false;  {for bearish patterns}
     Condition3 = false;  {for hangman}
  Condition4 = false;  {for doji}


   If Doji(tolernce) Then Begin
   String1 = "Dj";
   String3 = "A \hbDOJI\he pattern has been identified.  ";
   Condition4 = True;
  End;

  If _Hammer(Length, tail) Then Begin
   String1 = "Ha";
   String3 = "A \hbHAMMER\he pattern has been identified.  ";
   Condition1 = True;
  End;

  If _HangingMan(Length, tail) Then Begin
   String1 = "HM";
   String3 = "A \hbHANGING MAN\he pattern has been identified.  ";
   Condition3 = True;
  End;

     If _ShootingStar(Tail, Length) Then Begin
   String1 = "SS";
   String3 = "A \hbSHOOTING STAR\he pattern has been identified.  ";
   Condition2 = True;
  End;

  If _BearishEngulfing(length) Then Begin
   String1 = "BeE";
   String3 = "A BEARISH ENGULFING pattern has been identified.  "+"Please
see \hbBullish & Bearish Engulfing Lines\he.  ";
   Condition2 = True;
  End;

  If _BullishEngulfing(length) Then Begin
   String1 = "BuE";
   String3 = "A BULLISH ENGULFING pattern has been identified.  "+"Please
see \hbBullish & Bearish Engulfing Lines\he.  ";
   Condition1 = True;
  End;

  If _DarkCloud(length) Then Begin
   String1 = "DC";
   String3 = "A \hbDARK CLOUD cover\he pattern has been identified.  ";
   Condition2 = True;
  End;

  If MorningStar(length) Then Begin
   String1 = "MS";
   String3 = "A \hbMORNING STAR\he pattern has been identified.  ";
   Condition1 = True;
  End;

  If _EveningStar(length) Then Begin
   String1 = "ES";
   String3 = "A \hbEVENING STAR\he pattern has been identified.  ";
   Condition2 = True;
  End;

  If CommentaryEnabled Then
   String2 = ("DJ = Doji "+newline+"Ha = Hammer"+Newline+"HM =
HangingMan"+Newline+"SS = ShootingStar"+
   Newline + "BeE= BearishEngulfing"+ Newline+ "BuE= BullishEngulfing"+
NewLine+ "DC = DarkCloud"+ Newline+
   "MS = MorningStar"+ Newline+ "ES = EveningStar"+Newline+Newline);


   If Condition1 Then Begin
   String2 = String2 + String3;
  { Plot1(High, "CndlPH");
   Plot2(Low, "CndlPL");  }
   Value1 = Text_New(Date, Time, High, String1);
   TextLoc = Text_SetStyle(Value1,  2, 1);
   If GetBackGroundColor = Tool_White Then
    Value2 = Text_SetColor(Value1, Tool_Red)
   Else
    Value2 = Text_SetColor(Value1, Tool_cyan);
  End;


   If Condition2 Then Begin
   String2 = String2 + String3;
  { Plot1(High, "CndlPH");
   Plot2(Low, "CndlPL");  }
   Value1 = Text_New(Date, Time, High, String1);
   TextLoc = Text_SetStyle(Value1,  2, 1);
   If GetBackGroundColor = Tool_White Then
    Value2 = Text_SetColor(Value1, Tool_Red)
   Else
    Value2 = Text_SetColor(Value1, Tool_magenta);
  End;


  If Condition3 Then Begin
   String2 = String2 + String3;
  { Plot1[1](High[1], "CndlPH");
   Plot2[1](Low[1], "CndlPL");  }
   Value1 = Text_New(Date[1], Time, High, String1);
   TextLoc = Text_SetStyle(Value1,  2, 1);
   If GetBackGroundColor = Tool_White Then
    Value2 = Text_SetColor(Value1, Tool_Red)
   Else
    Value2 = Text_SetColor(Value1, Tool_magenta);
  End;


        If Condition4 Then Begin
   String2 = String2 + String3;
  { Plot1(High, "CndlPH");
   Plot2(Low, "CndlPL");  }
   Value1 = Text_New(Date, Time, High, String1);
   TextLoc = Text_SetStyle(Value1,  2, 1);
   If GetBackGroundColor = Tool_White Then
    Value2 = Text_SetColor(Value1, Tool_Red)
   Else
    Value2 = Text_SetColor(Value1, Tool_white);
  End;


 If AtCommentaryBar Then
  Commentary(String2);
 End;


{gap up}
Condition5 = Low > High of 1 bar ago;

{gap down}
Condition6 = High < Low of 1 bar ago;

Inputs: PLOTINCR(1);

If condition5 then
 plot3(low - PLOTINCR*MINMOVE POINTS, "Gap Up", yellow, default, 2);

If condition6 then
 plot4(high + PLOTINCR*MINMOVE POINTS, "Gap down", yellow, default, 2);