Page 1 of 1

_TRO_OHL

Posted: Sat Oct 20, 2007 5:10 pm
by TheRumpledOne
_TRO_OHL




TRO OHL indicates if the open is equal to the high or the low. This will help identify if a stock is likely to continue to go up/down.

Simple, yet effective.

ELD attached.

PS. _HiOp and _OpLo are in one of the MOTHERLODES.

Code: Select all

{ _TRO_OHL  }
   
{Attn: TradeStation
if this indicator is posted on the TradeStation Forum, I, TheRumpledOne, did NOT post it there,
so I can't be blamed for this indicator having my contact info.}


{Programmer:  Avery T. Horton, Jr.  aka TheRumpledOne,
gifts and donations accepted, PO Box 43575, Tucson, AZ 85733 }

{ ? Copyright 2007 Avery T. Horton, Jr.}

// xAppType = GetAppInfo(aiApplicationType);      // cUnknown = 0 cChart = 1  cRadarScreen = 2 cOptionStation = 3


variables:
 
xPeriods(60),
xInterval(0),

xAppType(0),
sFirstPass(true),
 
xInd(0),
tInd(""),
tAlert("")    ;

variables:
 
FG1(white),
BG1(black),

fg2(white),
bg2(black),

fg3(white),
bg3(black),

fg4(white),
bg4(black);
   



{commentary variables}
      
variables:
xcomm(0),
oComm1( "" ),    
oComm2( "" ),    
oComm3( "" ),    
oComm4( "" ),    
oComm5( "" ),
oComm6( "" ),
oComm7( "" ),
oComm8( "" ),
oComm9( "" ),    
oComm10( "" );
   

variables:

xDate(0),
xTime(0),         
xOpen(0),   
xClose(0),
xHigh(0),
xLow(0);

   

{first time through}
if barnumber = 1
then begin
   
{ APP TYPE TEST }
 
xAppType = GetAppInfo(aiApplicationType);        // cUnknown = 0 cChart = 1  cRadarScreen = 2 cOptionStation = 3

 
end; {if barnumber = 1}

{ INITIALIZE }

FG1 = WHITE;
BG1 = BLACK;

fg2 = WHITE;
bg2 = BLACK;

fg3 = WHITE;
bg3 = BLACK;

fg4 = WHITE;
bg4 = BLACK;

tInd   = "";
tAlert  = "";

xDate   = Date ;

xTime   = Time ;

xOpen    =  Open;

xClose   =  Close;

xHigh    =  High;

xLow    =  Low;

{ PROCESSING }
 


{ Alert criteria }

If xlow = xopen
then begin
   Bg1 = green;
   Fg1 = BLACK;
   tAlert = "Low = Open" ;
end
else
If xhigh = xopen
then begin
   Bg1 = red;
   Fg1 = white;
   tAlert = "High = Open" ;
end;
 

{ PLOT }

Plot1( tAlert , "Message", fg1 ) ;
SetPlotBGColor( 1, bg1);


xComm = _fCommentary(oComm1, oComm2, oComm3, oComm4, oComm5, oComm6, oComm7, oComm8, oComm9, oComm10);

CommentaryCl(oComm1 );

CommentaryCl(oComm2 );
CommentaryCl(oComm3 );
CommentaryCl(oComm4 );
CommentaryCl(oComm5 );
CommentaryCl(oComm6 );
CommentaryCl(oComm7 );
CommentaryCl(oComm8 );
CommentaryCl(oComm9 );
CommentaryCl(oComm10 );

Posted: Sat Oct 20, 2007 10:19 pm
by stationmichal
Thank you TRO.
You have made many contibutions to the Tradestation codes. You are also the "one man band" for the Kreslik forum. (':-({|=')

It appears that the forum is "dying" because of no new ideas. Please keep the forum "alive and active". (':D')

I suggest that you open threads to discuss and RESEARCH on TREND for
1) Day traders (time frame 1, 5, 15 minutes)
2) Swing traders (time frame 60m, daily, weekly).
3) Forex traders.

This may bring more experts to this forum.('=D>')