Discussion about Renko : (from Varun's thread)

[ankur07090]

Bhai,
you are also good with AMI coding

Not too much in AFL coding but some copy paste and editing...

 

[monkeybusiness]

Not too much in AFL coding but some copy paste and editing...

Better than my copy pasting

 

[extremist]

http://www.traderji.com/community/threads/my-system-my-trades.103908/page-833#post-1248826

I guess you corrected some errors, so thought about it. Many people here are asking for it.

vo wale....
tht was the reverse function error tht i removed only.
'm not tht great coder to play with renko code. way above my grade.
only kelvinhand or may be happyji can help

Kelvin in my coding guru.
he helped me 2-3 occasions in my early days

 

[timepass]

Members, please suggest which posts about renko from Varun's thread should be moved here. That thread does seem to be getting cluttered.

 

[extremist]

Members, please suggest which posts about renko from Varun's thread should be moved here. That thread does seem to be getting cluttered.

http://www.traderji.com/community/threads/my-system-my-trades.103908/page-830#post-1248734

only this of value.....
else is crap.
and share kya kare .... jisne code dala vo nahi chahta share karna.....

 

[monkeybusiness]

Copy paste code based on Happy Ji's idea.

SetChartOptions(0,chartShowArrows|chartShowDates);
//_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
//Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );



_SECTION_BEGIN("SuperTrend");



SetBarsRequired(100000,0);
GraphXSpace = 15;

SetTradeDelays(1,1,1,1);
BRICK = Param("BRICK",1,1,99,1);
Factor=2;//Param("Factor",3,1,10,1);
iATR = BRICK*Factor;
//Pd=7;//Param("ATR Periods",7,1,100,1);
Up =  ceil(H/BRICK)*BRICK+iATR;
Dn = floor(L/BRICK)*BRICK-iATR;

TrendUp=TrendDown=Null;
trend[0]=1;
changeOfTrend=0;
flag=flagh=0;

for (i = 1; i <BarCount-1; i++) {
      TrendUp[i] = Null;
      TrendDown[i] = Null;
    
      trend[i]=1;
 
      
      if (Close[i]>Up[i-1]) {
        trend[i]=1;
        if (trend[i-1] == -1) changeOfTrend = 1;
        
      }
      else if (Close[i]<Dn[i-1]) {
        trend[i]=-1;
        if (trend[i-1] == 1) changeOfTrend = 1;
      }
      else if (trend[i-1]==1) {
        trend[i]=1;
        changeOfTrend = 0;     
      }
      else if (trend[i-1]==-1) {
        trend[i]=-1;
        changeOfTrend = 0;
      }

      if (trend[i]<0 && trend[i-1]>0) {
        flag=1;
      }
      else {
        flag=0;
      }
      
      if (trend[i]>0 && trend[i-1]<0) {
        flagh=1;
      }
      else {
        flagh=0;
      }
      
      if (trend[i]>0 && Dn[i]<Dn[i-1]){
        Dn[i]=Dn[i-1];
      }
      
      if (trend[i]<0 && Up[i]>Up[i-1])
        { Up[i]=Up[i-1];
      }
      
      if (flag==1)
      {  Up[i]=(H[i]+L[i])/2+(Factor*iATR[i]);;
        }
      if (flagh==1)
        { Dn[i]=(H[i]+L[i])/2-(Factor*iATR[i]);;
        }
      if (trend[i]==1) {
        TrendUp[i]=Dn[i];
        if (changeOfTrend == 1) {
            TrendUp[i-1] = TrendDown[i-1];
            changeOfTrend = 0;
        }
      }
      else if (trend[i]==-1) {
        TrendDown[i]=Up[i];
        if (changeOfTrend == 1) {
            TrendDown[i-1] = TrendUp[i-1];
            changeOfTrend = 0;
        }
      }
  }
//Plotohlc(iATR,iATR,Ref(iATR,-1),Ref(iATR,-1),"",colorcycle,styleCandle);
Plot(TrendUp,"Trend",colorGreen,styleLine|styleThick,0,0,1,8);
Plot(TrendDown,"Down",colorRed,styleLine|styleThick,0,0,1,8);

_SECTION_END();

 

[toocool]

Great initiative

 

[Ajax]

every 1 is wanting renko afl. Here it is from Amibroker official library.
Play around ........

 

[Ajax]

_SECTION_BEGIN( "renko" );
// Modified Renko Chart with custom date axis
// and high/low winks
// Loosely based on Renko chart formula by G. Kavanagh
// from AmiBroker on-line formula library (id=521)
// Modifications & fixes TJ 2014
// Enhanced by Mark Huang June 2015

function FillRun( dir, num, changedir )
{
global i, j, modified, dt, RKC, RKO, RKD, RKH, RKL, RKC2, RKO2, RKD2, RKH2, RKL2, rounds;

for ( x = 1; x <= num; x++ )
{
if ( j == BarCount-1 )
{
rounds++;
j = 0;

if ( rounds % 2 == 0 )
{
RKC[j] = RKC2[barcount - 1];
RKO[j] = RKO2[barcount - 1];
RKD[j] = RKD2[barcount - 1];
RKH[j] = RKH2[barcount - 1];
RKL[j] = RKL2[barcount - 1];
}
else
{
RKC2[j] = RKC[barcount - 1];
RKO2[j] = RKO[barcount - 1];
RKD2[j] = RKD[barcount - 1];
RKH2[j] = RKH[barcount - 1];
RKL2[j] = RKL[barcount - 1];
}
}
j++;

extra = ( changedir AND x == 1 ) * dir;

if ( rounds % 2 == 1 )
{
RKC2[ j ] = RKC2[ j - 1 ] + dir + extra;
RKO2[ j ] = RKC2[ j - 1 ] + IIf( modified, 0, extra );
RKD2[ j ] = dt[ i ];
RKH2[ j ] = High[ i - 1 ];
RKL2[ j ] = Low[ i - 1 ];
}
else
{
RKC[ j ] = RKC[ j - 1 ] + dir + extra;
RKO[ j ] = RKC[ j - 1 ] + IIf( modified, 0, extra );
RKD[ j ] = dt[ i ];
RKH[ j ] = High[ i - 1 ];
RKL[ j ] = Low[ i - 1 ];
}
}
}

SetBarsRequired( sbrAll, sbrAll );
Brick = Param( "Brick Size", 1, 0.0001, 100, 0.001 );
reverse = 2;
intra = 0; //ParamToggle( "Intraday", "No|Yes", 0 );
if(interval() < inDaily) intra = 1;
modified = ParamToggle( "Modified", "No|Yes", 0 );
startBar = 0; //Param( "Start Bar", 0, 0, BarCount - 1, 1 );

// Convert the closing price to rising and falling rounded bricks
CF = ceil( C / Brick );
CR = floor( C / Brick );

// initialize first element
j = 0;
RKC[j] = CF[startBar];
RKO[j] = CF[startBar] + 1;
//RKD = 0;
//RKH = 0;
//RKL = 0;
dt = IIf( intra, floor( TimeNum() / 100 ), DateNum() );

dir = -1; // 1 is up, -1 is down
//RKC2 = RKO2 = RKD2 = RKH2 = RKL2 = 0;
// Loop to produce the Renko values in number of bricks
rounds = 0;

for ( i = startBar + 1; i <= BarCount - 1; i++ )
{
/*
if ( j >= BarCount )
{
if ( rounds == 0 )
rounds = 1;
else
rounds = 0;

//break; // no more room -> finish
j = 0;

if ( ! rounds )
{
RKC[j] = RKC2[barcount - 1];
RKO[j] = RKO2[barcount - 1];
RKD = 0;
RKH = 0;
RKL = 0;
}
else
{
RKC2[j] = RKC[barcount - 1];
RKO2[j] = RKO[barcount - 1];
RKD2 = 0;
RKH2 = 0;
RKL2 = 0;
}
}
*/

if ( rounds % 2 == 1 )
{
if ( CF <= RKC2[j] - 1 AND dir < 0 ) // Continue down
{
num = RKC2[j] - CF;

FillRun( dir, num, False );
}
else
if ( CR >= RKC2[j] + Reverse AND dir < 0 ) // Change down to up
{
num = CR - RKC2[j];
dir = 1;

FillRun( dir, num, True );
}
else
if ( CR >= RKC2[j] + 1 AND dir > 0 ) // Continue Up
{
num = CR - RKC2[j];
FillRun( dir, num, False );
}
else
if ( CF <= RKC2[j] - Reverse AND dir > 0 ) // Change up to down
{
num = RKC2[j] - CF;
dir = -1;

FillRun( dir, num, True );
}

}
else // rounds %2 == 0
{
if ( CF <= RKC[j] - 1 AND dir < 0 ) // Continue down
{
num = RKC[j] - CF;

FillRun( dir, num, False );
}
else
if ( CR >= RKC[j] + Reverse AND dir < 0 ) // Change down to up
{
num = CR - RKC[j];
dir = 1;

FillRun( dir, num, True );
}
else
if ( CR >= RKC[j] + 1 AND dir > 0 ) // Continue Up
{
num = CR - RKC[j];
FillRun( dir, num, False );
}
else
if ( CF <= RKC[j] - Reverse AND dir > 0 ) // Change up to down
{
num = RKC[j] - CF;
dir = -1;

FillRun( dir, num, True );
}
}
}

// move the chart to right end of chart space, ie last brick on last bar position
delta = BarCount - 1 - j;

if ( rounds % 2 == 0 )
{
RKCx = Ref( RKC, -delta );

RKOx = Ref( RKO, -delta );

RKDx = Ref( RKD, -delta );

RKHx = Ref( RKH, -delta );

RKLx = Ref( RKL, -delta );

if ( rounds > 0 )
{
for ( k = 0; k < delta; k ++ )
{
// remember: RKC2[0] == RKC[barcount -1]
RKCx[k] = RKC2[barcount - 1 - delta + k];
RKOx[k] = RKO2[barcount - 1 - delta + k];
RKDx[k] = RKD2[barcount - 1 - delta + k];
RKHx[k] = RKH2[barcount - 1 - delta + k];
RKLx[k] = RKL2[barcount - 1 - delta + k];
}
}
}
else
{

RKCx = Ref( RKC2, -delta );

RKOx = Ref( RKO2, -delta );

RKDx = Ref( RKD2, -delta );

RKHx = Ref( RKH2, -delta );

RKLx = Ref( RKL2, -delta );

if ( rounds > 0 )
{
for ( k = 0; k < delta; k ++ )
{
RKCx[k] = RKC[barcount - 1 - delta + k];
RKOx[k] = RKO[barcount - 1 - delta + k];
RKDx[k] = RKD[barcount - 1 - delta + k];
RKHx[k] = RKH[barcount - 1 - delta + k];
RKLx[k] = RKL[barcount - 1 - delta + k];
}
}
}


C = RKCx * Brick;

O = RKOx * Brick;

H = IIf( modified, RKHx, Max( C, O ) );

L = IIf( modified, RKLx, Min( C, O ) );

Plot( C, "", IIf( C > O, colorGreen, colorRed ), styleCandle );

m1 = MA( ( C + H + L ) / 3, 8 );

m2 = MA( C, 8 );

Plot( m1, "SMA Typ", colorBlue );

Plot( m2, "SMA Renko", colorOrange );

Cover = Cross( m2, m1 );

Sell = Cross( m1, m2 );

Short = Sell AND C < O;

Buy = Cover AND C > O;

PlotShapes( shapeUpArrow * Buy, colorGreen, 0, m1 );

PlotShapes( shapeDownArrow * Sell, colorRed, 0, m1 );

PlotShapes( shapeHollowUpArrow * Cover, colorGreen, 0, m1, -25 );

PlotShapes( shapeHollowDownArrow * Short, colorRed, 0, m1, -25 );

color = IIf( Flip( Buy, Sell ), ColorRGB( 220, 255, 220 ),
IIf( Flip( Short, Cover ), ColorRGB( 255, 220, 220 ), colorWhite ) );

Plot( 1, "", color, styleArea | styleOwnScale, 0, 1, 0, -1 );

xnum = floor( RKDx / 1000 );

XChange = IIf( xnum != Ref( xnum, -1 ), 1, Null );

Plot( XChange, "", colorGrey50, styleHistogram | styleOwnScale, 0, 1 );

// Draw renko-date axis
MonthNames = "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec";

fvb = FirstVisibleValue( BarIndex() );

lvb = LastVisibleValue( BarIndex() );

for ( i = fvb; i < lvb; i++ )
{
if ( XChange[ i ] )
{
if ( intra )
datetext = StrFormat( "%02gh", floor ( RKDx[ i ] / 100 ) );
else
if ( ( xnum[ i ] % 100 ) == 1 )
datetext = StrFormat( "%04.0f", 1900 + ( xnum[ i ] / 100 ) );
else
datetext = StrExtract( MonthNames, ( xnum[ i ] % 100 ) - 1 );

PlotText( datetext , i, LowestVisibleValue( Low ), colorGrey50, colorWhite );
}
}

Title = Name() + StrFormat( " - 20%06.0f", RKDx % 1000000 ) + " - Renko Chart : Last Value = " + RKC * Brick + " H: " + RKH + " L: " + RKL + ", Brick Size = " + Brick;

GraphXSpace = 5;
_SECTION_END();

 

[Happy_Singh]

Nice a separate thread finally, Thanks Moderators

Was going to post the complete code for Modified ST, but MB already done that . . .

Can use Brick size 5 for Nifty Future, with BNF 10 or can try 15/20

Happy