|
PureBytes Links
Trading Reference Links
|
Thank you for the code, I have been wanting to try this type of charting after reading 'Point & Figure Charting' Complete Guide by Carroll Aby.
If I understand correctly the .dll should be downloaded to the plugins folder and the code below will be put in the IB of AB.
If this is correct I am getting a sntax error: Line 12, Column 13:
xo=xocalcPnF(------------^
Error 23.Syntax error
Can you assist please.
Thanks,
Johnbluesinvestor <bluesinvestor@xxxxxxxxxxxxx> wrote:
I created the attached DLL a while back and found the results to be accurate. The exploration (and BP calcs) makes calls to the QP2 DLL so if you do not have Quotes Plus just remark them out.
Even though Tomasz has included the ability to chart X’s and O’s, the scaling differences caused a problem. The code below will chart candlesticks with the appropriate color (see beginning remarks in the AFL). The solid line will also show the level where the traditional PnF chart would be.
There is also an attempt to create the BPNYSE, but I did not test completely and I haven’t taken the time to test recently either.
If there are any questions please let me know.
Regards,
Peter
// This DLL is invoked by calling xocalcPnF(boxsize[0=traditional],reversal)// There will be 3 values returned by the DLL: PnFBuySell, PnFCol and PnFVal// For PnFBuySell: 1=Buy / 0=Sell<FONT face="Courier New" color=green
size=2>// For PnFCol: 1=X / 0=O// For PnFVal: This is the value that would be expressed on a traditional PnF chart.xo=xocalcPnF(0,3);Color=IIf(PnFBuySell == 1 AND PnFCol == 1, colorBlue, <FONT face="Courier New"
size=2>IIf(PnFBuySell == 1 AND PnFCol == 0, colorYellow, IIf(PnFBuySell == 0 AND PnFCol == 1, colorOrange, IIf(PnFBuySell == 0 AND PnFCol == 0, colorRed,1))));Plot(PnFVal,"PnF",Color,1+4);Plot(C,"C",Color,64);Filter=C>0;AddColumn(C,"Close");AddColumn(PnFBuySell,"Buy/Sell");<FONT face="Courier
New" size=2>AddColumn(PnFCol,"Col");AddColumn(PnFVal,"Val");<FONT
face="Courier New" size=2>AddColumn(MarketID(0),"ID");AddTextColumn(MarketID(1),"Market");//AddColumn(GetExtraData("HasOptions"),"Optionable");AddColumn(C>MA(C,50),<FONT
color=fuchsia>"10Wk");AddColumn(C>MA(C,150),"30Wk");AddColumn(EMA(C,5)>EMA(C,15),"5-15");AddColumn(RelStrength("!DJI"),"RS");AddColumn(IndustryID(),"IID");AddTextColumn(IndustryID(1),"Industry");AddColumn(SectorID(),"SID");AddTextColumn(SectorID(1),"Sector");AddColumn((Ref(<SPAN
>C,-1)-L)/(H-L)*100,"Range");x=IIf(MarketID()==<FONT
color=fuchsia>3,AddToComposite(PnFBuySell,"%BPNYSEcalc","X"),0);y=IIf(MarketID()==3 AND (PnFBuySell==0 OR PnFBuySell==1),AddToComposite(1,"%BPNYSEcalc","V"),<FONT
color=fuchsia>0);/*x=MarketID()==3;y=MarketID()==3 AND (PnFBuySell==0 OR PnFBuySell==1);AddColumn(x,"X");AddColumn(y,"Y");*/Buy=0;
From: john gibb [mailto:jgibb1@xxxxxxxxxxxxx] Sent: Wednesday, June 30, 2004 10:06 AMTo: amibroker@xxxxxxxxxxxxxxxSubject: Re: [amibroker] Bullish Percent Index Code #1
Hi Graham,
I use only EOD data and you mention "real time basis", so I might not be the best to give you feedback.
However, for me and some symbols, the blue staircase doesn't line up on the lowest lows and highest highs. (see attached, applied to the QQQs)
Should it?
-john
----- Original Message -----
From: "Graham" <gkavanagh@xxxxxxxxxxxxx>
To: <amibroker@xxxxxxxxxxxxxxx>
Sent: Tuesday, June 29, 2004 8:43 PM
Subject: [amibroker] Bullish Percent Index Code #1
Here is stage 1 of the code on the road to producing BPI figures. This isjust the forming of the boxed values of price data. It applies only to eachstock and so far just a plot to see if the P&F values can be created on areal time basis.Looking for comments back after you have had a chance to work out what Ihave done, and what the results look like. Any suggestions on how to tidy upthe code, any errors/omissions, appreciated as sometimes I can take a longroad as an idea meanders through my head. The PF values appear as a blue staircase line on backdrop of the pricechart.Copy the code below to IB windowCheers,Grahamhttp://e-wire.net.au/~eb_kavan/<FONT face=Arial
size=2>// Bullish Percent Index// Buy Signals generated via P&F // Graham Kavanagh 30 Jun 2004SetBarsRequired(100000,100000);function ToBox( Price ){ Boxes = Min( Price, 0.25 )/0.0625 + Max( ( Min( Price, 1 )-0.25 ) ,0 )/0.125 + Max( ( Min( Price, 5 )-1 ) ,0 )/0.25 + Max( ( Min( Price, 20 )-5 ) ,0 )/0.5 + Max( ( Min( Price, 100 )-20 ) ,0 )/1 + Max( ( Min( Price, 200 )-100 ) ,0 )/2 + Max( ( Min( Price, 500 )-200 ) ,0 )/4 + Max( ( Min( Price, 1000 )-500 ) ,0 )/5 + Max( ( Min( Price, 25000 )-1000 ) ,0 )/50 + Max( ( Price-25000 ) ,0 )/500 ; return Boxes; }// round boxes down for High and up for LowLx = ceil(ToBox(L));Hx = floor(ToBox(H));// set variable values for locating peak/troughs of columnsBar = BarIndex();BarDate =
DateNum();BarTurn = 0;DateTurn = 0;DateEnd = 0;BarEnd = 0;fall = 1;rise = 0;PFC[0] = Lx[0];reverse = 3;dirn = -1; // -1=down, 1=upfor( i = 1; i < BarCount; i++ ){ if( Lx[i]<=(PFC[i-1]-1) && V[i]>0 && dirn==-1) //continue down { PFC[i] = Lx[i]; DateEnd[i] = BarDate[i]; BarEnd[i] = Bar[i]; fall[i] = 1; rise[i] = 0; } else { if( Hx[i]>=(PFC[i-1]+Reverse) && Lx[i]>PFC[i-1] && V[i]>0 && dirn==-1)//Change direction to up { dirn = 1; PFC[i] = Hx[i]; BarTurn[i] = Bar[i]; DateTurn[i] = BarDate[i]; DateEnd[i] = BarDate[i]; BarEnd[i] = Bar[i]; fall[i] = 0; rise[i] = 1; }
else { if( Hx[i]>=(PFC[i-1]+1) && V[i]>0 && dirn==1) //Continue up { PFC[i] = Hx[i]; DateEnd[i] = BarDate[i]; BarEnd[i] = Bar[i]; fall[i] = 0; rise[i] = 1; } else { if( Lx[i]<=(PFC[i-1]-Reverse) && Hx[i]<PFC[i-1] && V[i]>0 && dirn==1)//Change direction to down { dirn = -1; PFC[i] = Lx[i]; BarTurn[i] = Bar[i]; DateTurn[i] = BarDate[i]; DateEnd[i] = BarDate[i]; BarEnd[i] = Bar[i]; fall[i] = 1; rise[i] =
0; } else { PFC[i] = PFC[i-1]; rise[i] = rise[i-1]; fall[i] = fall[i-1]; } } } }}//Convert boxes to prices for check plottingb1=0 + 0.25 / 0.0625;b2=b1 + (1-0.25) / 0.125;b3=b2 + (5-1) / 0.25;b4=b3 + (20-5) / 0.5;b5=b4 + (100-20) / 1;b6=b5 + (200-100) / 2;b7=b6 + (500-200) / 4;b8=b7 + (1000-500) / 5;b9=b8 + (25000-100) / 50;function ToPrice( Value ){ Price = Min( Value, b1 ) * 0.0625 + Min( Max( Value-b1, 0 ), b2-b1 ) * 0.125 + Min( Max( Value-b2, 0 ), b3-b2 ) * 0.25 + Min( Max( Value-b3, 0 ), b4-b3 ) * 0.5 + Min( Max( Value-b4, 0 ), b5-b4 ) * 1 + Min( Max( Value-b5, 0 ), b6-b5 ) * 2 + Min( Max( Value-b6, 0 ), b7-b6 ) * 4 +
Min( Max( Value-b7, 0 ), b8-b7 ) * 5 + Min( Max( Value-b8, 0 ), b9-b8 ) * 50 + Max( Value-b9, 0 ) * 500 ; return Price; }Plot( C, "", colorBlack, styleBar);Plot( toprice(PFC), "", colorBlue, styleStaircase);//Plot( toprice(Lx), "", colorRed, styleStaircase);//Plot( toprice(Hx), "", colorGreen, styleStaircase);Title = Name()+" "+Date()+ " PFC = " + pfc + ", Rise = " + rise + ", Fall =" + fall;------------------------ Yahoo! Groups Sponsor --------------------~--> Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.Now with Pop-Up Blocker. Get it for free!http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/GHeqlB/TM--------------------------------------------------------------------~-> Check AmiBroker web page at:http://www.amibroker.com/Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html Yahoo! Groups Links<*> To visit your group on the web, go to: http://groups.yahoo.com/group/amibroker/<*> To unsubscribe from this group, send an email to: amibroker-unsubscribe@xxxxxxxxxxxxxxx<*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/ Check AmiBroker web page
at:http://www.amibroker.com/Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html Check AmiBroker web page at:http://www.amibroker.com/Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html > ATTACHMENT part 2 application/x-zip-compressed name=PnF.zip
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
Check AmiBroker web page at:
http://www.amibroker.com/
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Yahoo! Groups Sponsor
ADVERTISEMENT
Yahoo! Groups Links
To visit your group on the web, go to:http://groups.yahoo.com/group/amibroker/
To unsubscribe from this group, send an email to:amibroker-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
|