[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [amibroker] Re: Identifying Pnf Patterns



PureBytes Links

Trading Reference Links

Peter:
 
I agree that Wright is the standard.  If StockCharts matches Wright then the code and Metastock are off (probably by a factor somewhere).  Can you post a link for Wright's charts?
 
Bill
----- Original Message -----
Sent: Monday, April 23, 2007 5:31 PM
Subject: Re: [amibroker] Re: Identifying Pnf Patterns

Bill,

I have compared your images to Dorsey Wright (arguably the standard for PnF) and they match Stockcharts graph (at first glance).

Just an FYI.

Peter

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 -----
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
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



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
__._,_.___

Please note that this group is for discussion between users only.

To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com

For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/

For other support material please check also:
http://www.amibroker.com/support.html





SPONSORED LINKS
Investment management software Investment property software Investment software
Investment tracking software Return on investment software

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___