TRO BUY ZONE DAILY, WEEKLY, MONTHLY

[TheRumpledOne]

TRO BUY ZONE DAILY, WEEKLY, MONTHLY



TRO BUYZONE DWM - buy zone for daily, weekly and monthly open price.

RADAR ONLY! Use TRO PLOT to plot daily, weekly and monthly open price on charts.


ELD attached.

[cvax]

Could I please get the code for this one? Sorry I can't view ELDs . Thanks a lot TRO.

[TheRumpledOne]

Code: Select all

[LegacyColorValue = true];

{ _TRO_BuyZone_DWM }
   

{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.}


// Value1 = GetAppInfo(aiApplicationType);        // returns a value that identifies the calling window type

// cUnknown = 0 cChart = 1  cRadarScreen = 2 cOptionStation = 3


inputs:
iDecimals(4),
iStartDate(currentdate),   


iDailyOpen(dailyopen),

iWeeklyOpen(openw(0)),

iMonthlyOpen(openm(0)),


iOpenBuyZone(.0003),
   
iBuyZoneHI(.0004),           {inside ask must be <= (OPEN + iBuyZoneHI) to place buy order}
iBuyZoneLO(.0004),          {inside bid must be >= (OPEN - iBuyZoneLO) to place buy order}

   

//iCode("114401258"),
 
   
//iAlertMessage("LD Session"),

   LongTopColor( blue),
   LongBotColor( blue) ,

   OpenColor( white),

   ShortTopColor( red),
   ShortBotColor( red);
   
variables:

FG1(white),
BG1(black),

FG2(white),
BG2(black),

FG3(white),
BG3(black),

FG4(white),
BG4(black),
      

   ClOp( 0 ),
   OpCl( 0 ),

tMsg(""),
tAlert(""),
Candle(0),
CandleDaily(0),
BuyZone( 0 ),
xBuyZone(0),
tBuyZone(""),

sFirstPass(true),
xAppType(0),

xBuyZoneHI(0),           {inside ask must be <= (OPEN + iBuyZoneHI) to place buy order}
xBuyZoneLO(0),          {inside bid must be >= (OPEN - iBuyZoneLO) to place buy order}

ShortDiff( 0 ),
LongDiff( 0 ),
tShortDiff( "" ),
tLongDiff( "" ),

xDailyOpen( 0 ),
   ShortBot( 0 ),
   ShortTop( 0 ),
   LongTop( 0 ),
   LongBot( 0 ) ;
variables:

xMonthlyOpen( 0 ),   

wShortDiff( 0 ),
wLongDiff( 0 ),
twShortDiff( "" ),
twLongDiff( "" ),

xWeeklyOpen( 0 ),
   wShortBot( 0 ),
   wShortTop( 0 ),
   wLongTop( 0 ),
   wLongBot( 0 ) ;

variables:
   
//xCode(iCode),

float ErrorCode( -1 ),

float zDailyOpen( 0 ),
 
int RtnVal( 0 ) ;

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

{first time through}

if sFirstPass
then begin
   
sFirstPass = false;

//if xCode = ""
//   then xCode = NumToStr(BarType,0) + NumToStr(BarInterval,0) + NumToStr(SessionStartTime(0,1),0) ;

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

end; {if sFirstPass}


{ INITIALIZE }

tAlert = "";

FG1 = WHITE;
BG1 = BLACK;

fg2 = WHITE;
bg2 = BLACK;

fg3 = WHITE;
bg3 = BLACK;

fg4 = WHITE;
bg4 = BLACK;

//tAlert  = iAlertMessage;

{*************************************************}
{    C A L C U L A T I O N S                      }
{*************************************************}
 
if lastbaronchart
or date >= iStartDate
then begin

//zDailyOpen = GVGetNamedFloat( GetSymbolName + xCode + "_DailyOpen" , ErrorCode ) ;


{*************************************************}
{    C A L C U L A T I O N S                      }
{*************************************************}

xdailyopen = iDailyOpen ;

LongTop    = xdailyopen + iBuyZoneHI;
LongBot    = xdailyopen + iOpenBuyZone;

ShortTop   = xdailyopen - iOpenBuyZone;
ShortBot   = xdailyopen - iBuyZoneLO;

ShortDiff   = ShortTop - close  ;

LongDiff   = close - LongBot  ;

tShortDiff = numtostr( ShortDiff , iDecimals ) ;

tLongDiff  = numtostr( LongDiff , iDecimals ) ;


{*************************************************}
{  weekly  C A L C U L A T I O N S                      }
{*************************************************}

xWeeklyOpen = iWeeklyOpen ;
xMonthlyOpen = iMonthlyOpen ;

wLongTop    = xWeeklyOpen + iBuyZoneHI;
wLongBot    = xWeeklyOpen + iOpenBuyZone;

wShortTop   = xWeeklyOpen - iOpenBuyZone;
wShortBot   = xWeeklyOpen - iBuyZoneLO;

wShortDiff   = ShortTop - close  ;

wLongDiff   = close - LongBot  ;

twShortDiff = numtostr( ShortDiff , iDecimals ) ;

twLongDiff  = numtostr( LongDiff , iDecimals ) ;

{ Alert criteria }



If close < xdailyopen
and close > ShortTop
then begin
   tBuyZone = "Wait " + tShortDiff ;
   FG1 = RED;
   BG1 = YELLOW;
end
else
If close > xdailyopen
and close < LongBot
then begin
   tBuyZone = "Wait " + tLongDiff ;
   FG1 = BLACK;
   BG1 = YELLOW;
end;

If close crosses below xdailyopen
then begin
   tBuyZone = "X Open " + tShortDiff ;
   FG1 = RED;
   BG1 = YELLOW;
end
else
   
If close crosses above xdailyopen
then begin
   tBuyZone = "X Open " + tLongDiff ;
   FG1 = BLACK;
   BG1 = YELLOW;
end
else

If close crosses below LongTop
then begin
   tBuyZone = "X LgTOP " + tLongDiff ;
   FG1 = RED;
   BG1 = YELLOW;
end
else

If close crosses above LongBot
then begin
   tBuyZone = "X LgBOT " + tLongDiff ;
   FG1 = BLACK;
   BG1 = YELLOW;
end
else
   
If close > LongTop
then begin
   tBuyZone = "ABOVE " + tLongDiff ;
   FG1 = GREEN;
   BG1 = BLACK;
end
else

If close crosses below ShortTop
then begin
   tBuyZone = "X ShTOP " + tShortDiff ;
   FG1 = red;
   BG1 = YELLOW;
end
else

If close crosses above ShortBot
then begin
   tBuyZone = "X ShBOT " + tShortDiff ;
   FG1 = black;
   BG1 = YELLOW;
end
else
   
If close < ShortBot
then begin
   tBuyZone = "BELOW " + tShortDiff ;
   FG1 = RED;
   BG1 = BLACK;
end
else
   
If close > LongBot
and close <= LongTop
then begin
   tBuyZone = "BUY " + tLongDiff ;
   FG1 = BLACK;
   BG1 = green;
end
else
   
If close >= ShortBot
and close < ShortTop
then begin
   tBuyZone = "SHORT " + tShortDiff ;
   FG1 = BLACK;
   BG1 = red;
end;


if close = xdailyopen
then begin
   tAlert = "At Daily Open" ;
   FG2 = BLACK;
   BG2 = white;
end
else

if close > xdailyopen
then begin
   FG2 = green;
   BG2 = BLACK;
end
else
if close < xdailyopen
then begin
   FG2 = red;
   BG2 = BLACK;
end;




if close = xWeeklyOpen
then begin
   tAlert = "At Weekly Open" ;
   FG3 = BLACK;
   BG3 = white;
end
else
if close > xWeeklyOpen
then begin
   FG3 = green;
   BG3 = BLACK;
end
else
if close < xWeeklyOpen
then begin
   FG3 = red;
   BG3 = BLACK;
end;


if close = xMonthlyOpen
then begin
   tAlert = "At Monthly Open" ;
   FG4 = BLACK;
   BG4 = white;
end
else
if close > xMonthlyOpen
then begin
   FG4 = green;
   BG4 = BLACK;
end
else
if close < xMonthlyOpen
then begin
   FG4 = red;
   BG4 = BLACK;
end;

{ Alert }

//if tAlert <> iAlertMessage
if tAlert <> ""
   then Alert( tAlert ) ;

{ PLOTS }

Plot1( tBuyZone, "BuyZone", fg1 ) ;
SetPlotBGColor( 1, bg1);

Plot2( xdailyopen, "dailyopen", FG2 ) ;
SetPlotBGColor( 2, BG2);


Plot3( xWeeklyopen, "weeklyopen", FG3 ) ;
SetPlotBGColor( 3, BG3);


Plot4( xMonthlyOpen, "monthlyOpen", FG4 ) ;
SetPlotBGColor( 4, BG4);

end; //  if lastbaronchart


if xAppType = 2
then begin
   
if close > xDailyOpen
   then tMsg = tAlert + " +" + numtostr( ClOp, iDecimals )
   else tMsg = tAlert + " -" + numtostr( OpCl, iDecimals ) ;

//   Plot6( tMsg, "Message", FG1 ) ;
   
end; // if xAppType = 2

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 );


Commentary(" ");

Commentary("Open   = ", numtostr( Open,iDecimals) , NewLine);
Commentary("Opend(0)  = ", numtostr( Opend(0),iDecimals) , NewLine);
Commentary("xdailyopen  = ", numtostr( xdailyopen ,iDecimals) , NewLine);

Commentary(" ");

Commentary("LongTop   = ", numtostr( LongTop,iDecimals) , NewLine);
Commentary("LongBot   = ", numtostr( LongBot,iDecimals) , NewLine);
Commentary("ShortTop   = ", numtostr( ShortTop,iDecimals) , NewLine);
Commentary("ShortBot   = ", numtostr( ShortBot,iDecimals) , NewLine);


Commentary("iOpenBuyZone   = ", numtostr( iOpenBuyZone,iDecimals) , NewLine);
Commentary("iBuyZoneHI   = ", numtostr( iBuyZoneHI,iDecimals) , NewLine);
Commentary("iBuyZoneLO   = ", numtostr( iBuyZoneLO,iDecimals) , NewLine);



Commentary(" ");

Commentary("ErrorCode   = ", numtostr( ErrorCode , 0 ) , NewLine);


[jana]

"RADAR ONLY! Use TRO PLOT to plot daily, weekly and monthly open price on charts. "

Does this plot on charts also? I see your 'Radar Only", but I do not see it on any time frame chart.

Now I can vent!

OMG !!!!

I have lerked for a while and just this last week used only, By/Sell and Gridiron. All I can say is, simply awesome TRO!!!

Raped, Robbed & Pillaged all week!!!

[TheRumpledOne]

jana:

TRO BUYZONE DWM - is for RADAR SCREEN.

I didn't code it to work on charts because I can use TRO PLOT to do that.

[C-Trader]

Does TRO BuyZone DWM work for stocks if you change the inputs? If so what area is the "buy/short zone" Like for the regular buy zone there is a Long bottom and Long Top and a short bottom and short top.

[TheRumpledOne]

I think it should work for stocks.

The buy zone is the area around the open price for the interval.