https://www.kreslik.com/forums/
. Thanks a lot TRO.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);
OMG !!!!
