Re: [amibroker] Re: Identifying Pnf Patterns, AmiBroker Email List Archive

On 4/23/07, wavemechanic <fimdot@xxxxxxxxx> wrote:

Peter:

Using a box size of 10 reduced the columns to 6 rather than StockCharts 8. The main problem (see previous screen shots) is that with the same box size and reversal (1 x 3) as StockCharts the two charts are different which suggests a difference in logic, code, etc. Which one is right? Since posting the two screenshots, I checked them against Metastock and as far as I can tell without dates apfxtraders chart is the same. Unless there are other parameters that I'm not aware of it looks like StockCharts is the odd one. I have sent the Metastock chart to StockCharts to see if they can explain the difference. Let's see what they say (hopefully, more than we're right - period).

Bill

----- Original Message -----

From: bluesinvestor

To: amibroker@xxxxxxxxxxxxxxx

Sent: Monday, April 23, 2007 4:04 PM

Subject: Re: [amibroker] Re: Identifying Pnf Patterns

Bill,

Change the boxsize in AB to 10 to see if that makes a difference. Most PnF charting apps have boxsize modified automatically. You will have to manually change it here.

Regards,
Peter

On 4/23/07, wavemechanic <fimdot@xxxxxxxxx> wrote:

apfxtrader:

I checked your code against StockCharts chart ( http://stockcharts.com/def/servlet/SC.pnf?chart=$NDX,PLTADANRBO[PA][D][F1!3!!!2!20]&pref=G) for ^NDX. Screen shots of both are attached. As you can see, the number of columns (and reversal levels) is different. For example, looking at the more recent columns (from the last major drop), StockCharts has 8 columns and your code produces 16. Might there be a factor of two difference somewhere? I played around with the four "/ 2" in the code but that did not seem to have any effect. Any idea what is going on?

Bill

----- Original Message -----

From: apfxtrader

To: amibroker@xxxxxxxxxxxxxxx

Sent: Monday, April 23, 2007 12:46 PM

Subject: [amibroker] Re: Identifying Pnf Patterns

SUNW P&F Chart (Box=1, Reverse = 3)

Below is the code to chart only Stocks.
You can control the right margin space for PF Chart, Last value close, Horizontal Grid, and Price Axis through variables:

shiftChart =0;
shiftLastClose =1;
shiftGrid =7;
shiftPriceAxis = 2;

//-----------COPY HERE-------------------------------------------

GraphXSpace = 5;

SetChartBkColor(ParamColor("BackGroundColor", colorBlack));
GraphColor = ParamColor("GarphColor",colorLightGrey);
GridColor = ParamColor("GridColor", ColorRGB(39,49, 67) );

Box =Param("Box", 1, 0.2, 5, 0.2);

shiftChart =0;
shiftLastClose =1;
shiftGrid =7;
shiftPriceAxis = 2;

Reverse = Param("Reverse", 3, 1, 5);
j = 0;
PFL[0] = Box * ceil(Low[0]/Box) + Box;
PFH[0] = Box * floor(High[0]/Box);
direction = 0;

for( i = 1; i < BarCount; i++ )
{
if(direction[j] == 0)
{
if(Low[i] <= PFL[j] - Box)
{
PFL[j] = Box * ceil(Low[i]/Box);
}
else
{
if(High[i] >= PFL[j] + Reverse*Box)
{
j++;
direction[j] = 1;
PFH[j] = Box * floor(High[i]/Box);
PFL[j] = PFL[j - 1] + Box;

}
}
}
else
{
if(High[i] >= PFH[j] + Box)
{
PFH[j] = Box * floor(High[i]/Bx);
}
else
{
if( Low[i] <= PFH[j] - Reverse * Box )
{
j++;
direction[j] = 0;
PFH[j] = PFH[j - 1] - Box;
PFL[j] = Box * ceil(Low[i]/Box);

}
}
}
}
delta = BarCount - j -1;
direction = Ref(direction, - delta);
Hi = Ref(PFH, -delta) + Box/2;
Lo = Ref(PFL, -delta)- Box/2;
Cl = IIf(direction == 1, Hi, Lo);
Op = IIf(direction == 1, Cl - Box, Cl + Box);

PlotOHLC(Op, Hi, Lo, Cl,"", GraphColor , stylePointAndFigure|styleNoLabel, 0, 0 ,shiftChart);

Last = Ref( LastValue(C), -(BarCount-1));
Plot( Last,"", colorRed,styleNoLine|styleDots, 0 , 0, shiftLastClose);

// selected value
Value= IIf(direction>0, SelectedValue(Hi)-box/2, SelectedValue(Lo)+box/2);

//-----------------------------------------------------------------------
//        GRID CONSTRUCTION
//----------------------------------------------------------------------

PlotGridLines = ParamToggle("PlotdGid", "Yes|No", 0);

if (PlotGridLines)
{
begin = SelectedValue(BarIndex());
end = LastValue(BarIndex());
period = end-begin +1;

if( begin<end)
{

ScreenHigh =LastValue( HHV(cl, period )) + box;
ScreenLow =LastValue( LLV( Cl, period) )-box;

top= LineArray( begin-shiftGrid, screenHigh, end, screenhigh, 0 , 1);
Bot= LineArray( begin-shiftGrid, screenlow, end, screenLow, 0, 1);

Plot( top, "", gridColor,styleLine|styleNoLabel , 0, 0,shiftGrid);
Plot( bot, "", gridColor,styleLine|styleNoLabel, 0 , 0 , shiftGrid);

VerticalGrid = IIf ( BarIndex() >= begin, IIf(direction==1, screenHigh, screenLow), Null);

Plot (VerticalGrid, "", gridColor, styleStaircase|styleNoLabel, 0,0, 1);

    format = 8.2;

    //while ( LastValue(bot)< LastValue(top)-0.5*box)

    for ( n=LastValue(bot); n< LastValue(top); n = n+box)
    {
&nbp;
    Plot( bot , "", gridColor, styleLine|styleNoLabel, 0, 0 ,shiftGrid);


    text = NumToStr(LastValue(bot) + 0.5*box, format);
    xposition = BarCount+shiftPriceaxis;
    yPosition = LastValue(bot)+0.27*box;

    PlotText(text, xPosition , yPosition, colorWhite);

    bot = bot + box;
    }
}

}

//---------------------------------------------------------------------
//    TITLE
//----------------------------------------------------------------------

Title = "\n" +
" Instrument : " + Name() + FullName()+"\n " +
"Formula : " + " Point & Figure (High/Low Range)" + "\n " +
"Box : " + NumToStr(Box, 4.4) + "     " +
"Reverse : " + NumToStrReverse, 2.0) + "\n " +
"ATR : " + WriteVal(LastValue(ATR(100)), format = 4.4);

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.5.1/765 - Release Date: 4/17/2007 5:20 PM

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 269.5.1/765 - Release Date: 4/17/2007 5:20 PM