TRO Dynamic Fibs SR

free & uncensored discussion arena for TheRumpledOne

Moderator: moderators

User avatar
TheRumpledOne
rank: 10000+ posts
rank: 10000+ posts
Posts: 11440
Joined: Sun May 14, 2006 9:31 pm
Reputation: 45
Location: Oregon
Real name: Avery T. Horton, Jr.
Gender: None specified
Contact:

TRO Dynamic Fibs SR

Postby TheRumpledOne » Sat Jul 28, 2007 5:36 pm

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.
Attachments
TRO_DYNAMICFIBSSR.ELD
(11.14 KiB) Downloaded 1433 times
IT'S NOT WHAT YOU TRADE, IT'S HOW YOU TRADE IT!

Please do NOT PM me with trading or coding questions, post them in a thread.

Please add www.kreslik.com to your ad blocker white list.
Thank you for your support.

User avatar
Patch
rank: 500+ posts
rank: 500+ posts
Posts: 941
Joined: Sat Jan 06, 2007 6:13 pm
Reputation: 0
Location: Virginia
Real name: Jeff
Gender: Male
Contact:

Postby Patch » Mon Jul 30, 2007 4:06 am

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

zeller4
rank: 150+ posts
rank: 150+ posts
Posts: 152
Joined: Sat Jul 29, 2006 9:16 pm
Reputation: 0
Location: Geneva, FL
Gender: None specified

Re: TRO Dynamic Fibs SR

Postby zeller4 » Mon Jul 30, 2007 8:21 pm

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

User avatar
TheRumpledOne
rank: 10000+ posts
rank: 10000+ posts
Posts: 11440
Joined: Sun May 14, 2006 9:31 pm
Reputation: 45
Location: Oregon
Real name: Avery T. Horton, Jr.
Gender: None specified
Contact:

Postby TheRumpledOne » Wed Aug 01, 2007 1:27 pm

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) );
IT'S NOT WHAT YOU TRADE, IT'S HOW YOU TRADE IT!



Please do NOT PM me with trading or coding questions, post them in a thread.

skeeter
rank: <50 posts
rank: <50 posts
Posts: 20
Joined: Tue Jul 31, 2007 11:57 am
Reputation: 0
Gender: Male

TRO Dynamic Fibs SR

Postby skeeter » Wed Aug 01, 2007 3:08 pm

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?

Please add www.kreslik.com to your ad blocker white list.
Thank you for your support.

User avatar
TheRumpledOne
rank: 10000+ posts
rank: 10000+ posts
Posts: 11440
Joined: Sun May 14, 2006 9:31 pm
Reputation: 45
Location: Oregon
Real name: Avery T. Horton, Jr.
Gender: None specified
Contact:

Re: TRO Dynamic Fibs SR

Postby TheRumpledOne » Thu Aug 02, 2007 2:22 pm

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.
IT'S NOT WHAT YOU TRADE, IT'S HOW YOU TRADE IT!



Please do NOT PM me with trading or coding questions, post them in a thread.

skeeter
rank: <50 posts
rank: <50 posts
Posts: 20
Joined: Tue Jul 31, 2007 11:57 am
Reputation: 0
Gender: Male

Postby skeeter » Fri Aug 03, 2007 11:38 pm

Can I get them not to display?

User avatar
TheRumpledOne
rank: 10000+ posts
rank: 10000+ posts
Posts: 11440
Joined: Sun May 14, 2006 9:31 pm
Reputation: 45
Location: Oregon
Real name: Avery T. Horton, Jr.
Gender: None specified
Contact:

Postby TheRumpledOne » Sun Aug 05, 2007 3:39 am

You can turn off the trade triggers by setting the inputs iStop and iTrade to FALSE.
IT'S NOT WHAT YOU TRADE, IT'S HOW YOU TRADE IT!



Please do NOT PM me with trading or coding questions, post them in a thread.

zeller4
rank: 150+ posts
rank: 150+ posts
Posts: 152
Joined: Sat Jul 29, 2006 9:16 pm
Reputation: 0
Location: Geneva, FL
Gender: None specified

Re: TRO Dynamic Fibs SR

Postby zeller4 » Sun Aug 05, 2007 4:02 am

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

User avatar
TheRumpledOne
rank: 10000+ posts
rank: 10000+ posts
Posts: 11440
Joined: Sun May 14, 2006 9:31 pm
Reputation: 45
Location: Oregon
Real name: Avery T. Horton, Jr.
Gender: None specified
Contact:

Postby TheRumpledOne » Sun Aug 05, 2007 4:40 am

Actually, the SR3 in eSignal has these tradetriggers but it doesn't have the stops.
IT'S NOT WHAT YOU TRADE, IT'S HOW YOU TRADE IT!



Please do NOT PM me with trading or coding questions, post them in a thread.

Please add www.kreslik.com to your ad blocker white list.
Thank you for your support.


Return to “TheRumpledOne”