Hello,

Im trying to export Renko data values based on GSPC (SP500) ticker. 
The Renko  chart is displayed fine. 
The problem is that exported   renkoquotes.csv file  contains empty values. 

Next    I have    tried  AddToComposite and it  fails to load Renko values  in 
composite.

Does anyone  have clue why is this happening?

Any help would be appreciated how to solve this.

Drazen


PS  ------------  Please see   AFL code below



// Renko  Chart 2nd
// Graham Kavanagh  13 Aug 2004 ver D
// Custom Indicator, date axis does not apply

SetBarsRequired(10000,10000);
ATRdivisor=Param(" ATR divisor ",1,0.1,10,0.1);
Brick=5;

//reverse =1;
REVERSE=Param("Rev",3,1,10,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[0];
RKO[j] = CF[0] + 1;

down[j] = 1;  // By default the first bar is a down bar.
up[j] = 0;

// Loop to produce the Renko values in number of bricks

for( i=1; i<BarCount-1; i++ )
{
if( CF[i] <= RKC[j] - 1 && down[j] ) // Continue down
{
num = RKC[j] - CF[i];
for( x=1; x<=num; x++ )
{
j++;
up[j] = 0;
down[j] = 1;
RKC[j] = RKC[j-1] - 1;
RKO[j] = RKC[j] + 1;
}
}
else
{
if( CR[i] >= RKC[j] + Reverse && down[j] )  // Change downto up
{
num = CR[i] - RKC[j];
j++;
up[j] = 1;
down[j] = 0;
RKC[j] = RKC[j-1] + 2;
RKO[j] = RKC[j] - 1; 
for( x=2; x<=num; x++ )
{
j++;
up[j] = 1;
down[j] = 0;
RKC[j] = RKC[j-1] + 1;
RKO[j] = RKC[j] - 1;
}
}
else
{
if( CR[i] >= RKC[j] + 1 && up[j] ) // Continue Up
{
num = CR[i] - RKC[j];
for( x=1; x<=num; x++ )
{
j++;
Up[j] = 1;
Down[j] = 0;
RKC[j] = RKC[j-1] + 1;
RKO[j] = RKC[j] - 1;
}
}
else
{
if( CF[i] <= RKC[j] - Reverse && up[j] )  //Change up to down
{
num = RKC[j] - CF[i];
j++;
Up[j] = 0;
Down[j] = 1;
RKC[j] = RKC[j-1] - 2;
RKO[j] = RKC[j] + 1;
for( x=2; x<=num; x++ )
{
j++;
up[j] = 0;
down[j] = 1;
RKC[j] = RKC[j-1] - 1;
RKO[j] = RKC[j] + 1;
}
}
}
}
}
}


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

RKC = Ref( RKC, -delta );
RKO = Ref( RKO, -delta );

Up = Ref( Up, -delta );
Down = Ref( Down, -delta );



rC = RKC * Brick;
rO = RC - (Up-down)*Brick;
rH = Max(rC,rO);
rL = Min(rC,rO);

PlotOHLC( rO, rH, rL, rC, " RENKO 2nd " , 53, 64);




// THIS FAILS TO LOAD  RENKO VALUES IN COMPOSITE
/*
Buy=0;Sell=0;
AddToComposite(rC,"~Renko","C");
PlotForeign("~Renko","Renko",3,1);
*/


//  THIS FAILS TO EXPORT    RENKO VALUES
/*  
//   The following code exports quotes 

fh = fopen( "renkoquotes.csv", "w"); 
if( fh ) 
{ 
   fputs( "RenkoClose", fh ); 


   for( i = 0; i < BarCount; i++ ) 
   { 
      
     
      qs = StrFormat("%.4f, ", rC[ i ]); 
      fputs( qs, fh ); 
   } 

   fclose( fh ); 
} 







Reply via email to