Page 1 of 3

TRO Dynamic Fibs SR

Posted: Sat Jul 28, 2007 5:36 pm
by TheRumpledOne
TRO Dynamic Fibs SR - ENHANCEMENT



I added stop and entry "+" plots.

Yellow "+" are the stops.

Cyan "+" long entry.

Magenta "+" short entry.

There are inputs to turn on/off the fib dots and the trade dots.

Remember this indicator is DYNAMIC meaning, you'll see "+"s display and then disappear.

Example, if you see a cyan "+" for a long entry and then the price hits dynamic resistance then the cyan "+" will disappear because it's now time to consider a long exit and wait for a short entry.

I noticed a pattern on the 5 minute charts of AAPL and RIMM. Usually a green candle is followed a green candle after hitting dynamic support and usually a red candle is followed by a red candle of hitting dynamic resistance.

If you notice RIMM, you can sometimes take $1 or more per share!

DON'T BE GREEDY!


ELD attached.

Posted: Mon Jul 30, 2007 4:06 am
by Patch
Hi TRO

This is awesome and very helpful.

Thank you,

Plunder and Pillage Pips and Banks Today

Patch
In VA
God Bless You and Protect the USA

Re: TRO Dynamic Fibs SR

Posted: Mon Jul 30, 2007 8:21 pm
by zeller4
TheRumpledOne wrote:TRO Dynamic Fibs SR - ENHANCEMENT



I added stop and entry "+" plots.

Yellow "+" are the stops.

Cyan "+" long entry.

Magenta "+" short entry.

There are inputs to turn on/off the fib dots and the trade dots.

Remember this indicator is DYNAMIC meaning, you'll see "+"s display and then disappear.

Example, if you see a cyan "+" for a long entry and then the price hits dynamic resistance then the cyan "+" will disappear because it's now time to consider a long exit and wait for a short entry.

I noticed a pattern on the 5 minute charts of AAPL and RIMM. Usually a green candle is followed a green candle after hitting dynamic support and usually a red candle is followed by a red candle of hitting dynamic resistance.

If you notice RIMM, you can sometimes take $1 or more per share!

DON'T BE GREEDY!


ELD attached.



TRO, for us non-TS users, please post a .txt version unless you already made an esignal version.
thanks,
kz

Posted: Wed Aug 01, 2007 1:27 pm
by TheRumpledOne

Code: Select all

{ _TRO_Dynamic_FibsSR - draw fibs between the Support/Resistance lines }
   
{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 2006 Avery T. Horton, Jr.}

 

inputs:

   iAlert(false),
   iStartDate(1070101),  // if not intraday, date to start counting
   iPlotFibs(false),
   iPlotSR(true),
   iPlotTrade(false),
   iPlotStop(true),
   iEntryOffset(.01),
   iStopOffset(.01),
   iPrice( Close ),
   iDecimals(2),
   iPeriods(3),
//   iHigh( HighD(0) ),
//   iLow( LowD(0) ),

   iFibPlot("R"),         // "P" = projections, "R" = retracements
iFib1(.24),
iFib2(.38),
iFib3(.50),
iFib4(.62),
iFib5(.76),
iFib1Color(darkcyan ),
iFib2Color(darkbrown),
iFib3Color(darkgray),
iFib4Color(darkbrown ),
iFib5Color(darkcyan  ),
   HighColor(  red),
   LowColor(  blue),

iShortStopColor(yellow),
iShortEntryColor(magenta),
iLongStopColor(yellow),
iLongEntryColor(cyan),

   idummy("");

variables:

xLastTouch("S") ,

xShortStop(0),
xShortEntry(0),

xLongStop(0),
xLongEntry(0),

fg8(white),
bg8(black),

fg11(white),
bg11(black),

fg12(white),
bg12(black),

fg13(white),
bg13(black),

fg14(white),
bg14(black),


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

xFib1(iFib1),
xFib2(iFib2),
xFib3(iFib3),
xFib4(iFib4),
xFib5(iFib5),

tFib(""),

xLowestLow(0),
xHighestHigh(0),
xRange(0),

xPosition(0),
   
oExtremeVal( 0 ),
oExtremeBar( 0 ) ;


variables:

xBars( 0 ),
xPeriods(05),
xOldPeriods(0),

   Dynamic_R( 0 ),
   Dynamic_S( 0 ),
   OldDynamic_R( 0 ),
   OldDynamic_S( 0 ),
   PrevDynamic_R( 0 ),
   PrevDynamic_S( 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;


{ APP TYPE TEST }
 
sFirstPass = false;

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

end; {if sFirstPass}

{ INITIALIZE }

tInd   = "";
tAlert  = "";
      
{ CALCULATIONS }
         
If date this bar >= iStartDate
then begin

{save old values}
   
If Dynamic_R <> PrevDynamic_R
   then OldDynamic_R = PrevDynamic_R;
      
If Dynamic_S <> PrevDynamic_S
   then OldDynamic_S  = PrevDynamic_S ;
   
OldDynamic_R = PrevDynamic_R ;
OldDynamic_S = PrevDynamic_S ;

PrevDynamic_R = Dynamic_R ;
PrevDynamic_S = Dynamic_S ;

{ high / low for period }
   
xBars = xBars + 1;

oExtremeVal = Extremes( L, iPeriods, -1, Dynamic_S , oExtremeBar ) ; // lowest low

oExtremeVal = Extremes( H, iPeriods, 1, Dynamic_R , oExtremeBar ) ; // highest high

If Dynamic_R <> H
and Dynamic_R < PrevDynamic_R
   then if PrevDynamic_R <> 0
      then Dynamic_R = PrevDynamic_R;
   
If Dynamic_S <> L
and Dynamic_S > PrevDynamic_S       
   then if PrevDynamic_S <> 0
      then Dynamic_S = PrevDynamic_S;


If iFibPlot = "R"
Or iFibPlot = "r"
then begin
 
xLowestLow =  Dynamic_S ;

xRange        = Dynamic_R -  Dynamic_S ;

xFib1      = iFib1 * xRange + xLowestLow;
xFib2      = iFib2 * xRange + xLowestLow;
xFib3      = iFib3 * xRange + xLowestLow;
xFib4      = iFib4 * xRange + xLowestLow;
xFib5      = iFib5 * xRange + xLowestLow;
end // If iFibPlot = "R"...
else Begin

// oExtremeVal = Extremes( iLow[iPeriods], iPeriods, -1, xLowestLow , oExtremeBar ) ; // lowest low

// oExtremeVal = Extremes( iHigh[iPeriods], iPeriods, 1, xHighestHigh , oExtremeBar ) ; // highest high

xLowestLow   = Dynamic_S ;

xHighestHigh = Dynamic_R ;

xRange        = xHighestHigh - xLowestLow;

If close > OpenD(0)
then begin
xFib1      = iFib1 * xRange + xHighestHigh;  // high projections
xFib2      = iFib2 * xRange + xHighestHigh;
xFib3      = iFib3 * xRange + xHighestHigh;
xFib4      = iFib4 * xRange + xHighestHigh;
xFib5      = iFib5 * xRange + xHighestHigh;
end
else begin
xFib1      = xLowestLow - iFib1 * xRange ;  // low projections
xFib2      = xLowestLow - iFib2 * xRange ;
xFib3      = xLowestLow - iFib3 * xRange ;
xFib4      = xLowestLow - iFib4 * xRange ;
xFib5      = xLowestLow - iFib5 * xRange ;
end;

end;

// end; { If iLow <> iLow[1]... }

xShortStop      = Dynamic_R + iStopOffset ;

xLongStop      = Dynamic_S - iStopOffset ;

{ Alert criteria }

If high >= Dynamic_R
then begin
   Fg8          = red;
   Bg8          = white;
   tAlert          = "Price touched Resistance" ;
   xShortEntry      = low - iEntryOffset ;
end
else
If Low   <= Dynamic_S
then begin
   Fg8          = blue;
   Bg8          = white;
   tAlert          = "Price touched Support" ;   
   xLongEntry      = high + iEntryOffset ;
end;

{ Alert }

if iAlert
and tAlert <> ""
//and tAlert <> tAlert[1]
   then Alert( tAlert ) ;

if iPlotFibs   
then begin
   
Plot1(xFib1 , "fib1", iFib1Color ) ;

Plot2(xFib2 , "fib2", iFib2Color ) ;

Plot3(xFib3 , "fib3", iFib3Color ) ;

Plot4(xFib4 , "fib4", iFib4Color ) ;

Plot5(xFib5 , "fib5", iFib5Color ) ;

end; // iPlotFibs

if iPlotSR   
then begin

Plot6(Dynamic_R , "Resistance",    HighColor ) ;

Plot7(Dynamic_S , "Support",   LowColor ) ;

end; // iPlotSR

if iPlotTrade
then begin
   if Low[1] = Dynamic_S[1]
   and Close[1] > Low[1]
      then Plot9 (Dynamic_S[1] , "go long",   white ) ;
   
   if High[1] = Dynamic_R[1]
   and Close[1] < High[1]
      then Plot10 (Dynamic_R[1] , "go short",   white ) ;
end ; // iPlotTrade

end; // If date >= xStartDate

 
if iPlotStop
then begin


if low = Dynamic_S
   then xLastTouch = "S"
   else if high = Dynamic_R
         then xLastTouch = "R" ;

If xLastTouch = "S"
and Dynamic_S = Dynamic_S[1]
then begin
   FG14 = iLongEntryColor ;    // long entry
   FG12 = iLongStopColor ;   // long stop
   FG13 = black ;     // short entry
   FG11 = black ;     // short stop
   NoPlot(11) ;
   Plot12 (xLongStop , "long stop",   FG12 ) ;
   NoPlot(13) ;
   Plot14 (xLongEntry , "long entry",    FG14 ) ;
end
else
if xLastTouch = "R"
and Dynamic_R = Dynamic_R[1]
then begin   
   FG14 = black ;       // long entry
   FG12 = black ;      // long stop
   FG13 = iShortEntryColor;        // short entry
   FG11 = iShortStopColor ;    // short stop
   Plot11 (xShortStop , "short stop",   FG11 ) ;
   NoPlot(12) ;
   Plot13 (xShortEntry , "short entry", FG13 ) ;
   NoPlot(14) ;
end;

   

end ; // iPlotStop            

if xAppType = 2   
then begin
   
if close = xFib1
   then SetPlotBGColor( 1, white );

if close = xFib2
   then SetPlotBGColor( 2, white );

if close = xFib3
   then SetPlotBGColor( 3, white );

if close = xFib4
   then SetPlotBGColor( 4, white );

if close = xFib5
   then SetPlotBGColor( 5, white );

if close = Dynamic_R
   then SetPlotBGColor( 6, white );

if close = Dynamic_S
   then SetPlotBGColor( 7, white );

   Plot8(tAlert , "Alert", yellow ) ;
end;

CommentaryCl( "Dynamic_R: ", NumToStr( Dynamic_R , iDecimals) );

CommentaryCl( "Dynamic_S: ", NumToStr( Dynamic_S , iDecimals) );



CommentaryCl( "Open[1]: ", NumToStr(Open[1] , iDecimals) );
 

CommentaryCl( "High[1]: ", NumToStr( High[1] , iDecimals) );


CommentaryCl( "Low[1]: ", NumToStr( Low[1] , iDecimals) );

CommentaryCl( "Close[1]: ", NumToStr( Close[1] , iDecimals) );

TRO Dynamic Fibs SR

Posted: Wed Aug 01, 2007 3:08 pm
by skeeter
I just found your site. Looks very interesting.

When I put these indicators on my chart, I get a lot of stuff, but have a question. What do the blue and red crosses indicate?

Re: TRO Dynamic Fibs SR

Posted: Thu Aug 02, 2007 2:22 pm
by TheRumpledOne
skeeter wrote:I just found your site. Looks very interesting.

When I put these indicators on my chart, I get a lot of stuff, but have a question. What do the blue and red crosses indicate?


They just plot at the high/low of the candle that touched support/resistance.

Posted: Fri Aug 03, 2007 11:38 pm
by skeeter
Can I get them not to display?

Posted: Sun Aug 05, 2007 3:39 am
by TheRumpledOne
You can turn off the trade triggers by setting the inputs iStop and iTrade to FALSE.

Re: TRO Dynamic Fibs SR

Posted: Sun Aug 05, 2007 4:02 am
by zeller4
TheRumpledOne wrote:TRO Dynamic Fibs SR - ENHANCEMENT



I added stop and entry "+" plots.

Yellow "+" are the stops.

Cyan "+" long entry.

Magenta "+" short entry.

There are inputs to turn on/off the fib dots and the trade dots.

Remember this indicator is DYNAMIC meaning, you'll see "+"s display and then disappear.

Example, if you see a cyan "+" for a long entry and then the price hits dynamic resistance then the cyan "+" will disappear because it's now time to consider a long exit and wait for a short entry.

I noticed a pattern on the 5 minute charts of AAPL and RIMM. Usually a green candle is followed a green candle after hitting dynamic support and usually a red candle is followed by a red candle of hitting dynamic resistance.

If you notice RIMM, you can sometimes take $1 or more per share!

DON'T BE GREEDY!


ELD attached.



TRO,

I appreciate this new way to look at DYNAMIC FIBSSR. Have you had a chance to modify your esignal version? I'll be grateful if you would...
Thanks for your help.
zeller4

Posted: Sun Aug 05, 2007 4:40 am
by TheRumpledOne
Actually, the SR3 in eSignal has these tradetriggers but it doesn't have the stops.