PureBytes Links
Trading Reference Links
|
Hi,
where can
i download the associated DLL from?
thanks
-john
<BLOCKQUOTE dir=ltr
>
----- Original Message -----
<DIV
>From:
<A title=bluesinvestor@xxxxxxxxxxxxx
href="">bluesinvestor
To: <A title=amibroker@xxxxxxxxxxxxxxx
href="">amibroker@xxxxxxxxxxxxxxx
Sent: Wednesday, June 30, 2004 7:34
PM
Subject: RE: [amibroker] Bullish Percent
Index Code #1
<SPAN
>Tools->Plug-ins
<SPAN
>
<SPAN
>Do you have
‘Point & Figure Plug-in’?
<SPAN
>
<SPAN
>Regards,
<SPAN
>Peter
<SPAN
>
<DIV
>
<FONT
face="Times New Roman" size=3>
<SPAN
>From:<FONT
face=Tahoma size=2> John
Ingle [mailto:jcingle_2000@xxxxxxxxx] <SPAN
>Sent: Wednesday, June 30, 2004 9:15
PMTo: <st1:PersonName
w:st="on"><A
href="">amibroker@xxxxxxxxxxxxxxx<SPAN
>Subject: RE: [amibroker] Bullish Percent
Index Code #1
<SPAN
>
<SPAN
>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.
<SPAN
>
<SPAN
>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.
<SPAN
>
<SPAN
>If this is correct I am getting a sntax error: Line
12, Column 13:
<SPAN
>xo=xocalcPnF(------------^
<SPAN
>Error 23.Syntax
error
<SPAN
>
<SPAN
>Can you assist
please.
<SPAN
>
<SPAN
>Thanks,
<SPAN
>John<SPAN
>bluesinvestor
<bluesinvestor@xxxxxxxxxxxxx>
wrote:
<BLOCKQUOTE
>
<SPAN
>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.
<SPAN
>
<SPAN
>Even though
Tomasz has included the ability to chart Xs and Os, 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.
<SPAN
>
<SPAN
>There is
also an attempt to create the BPNYSE, but I did not test completely and I
havent taken the time to test recently either.
<SPAN
>
<SPAN
>If there
are any questions please let me know.
<SPAN
>
<SPAN
>Regards,
<SPAN
>Peter
<SPAN
>
<SPAN
>
<SPAN
>// This DLL is invoked by calling
xocalcPnF(boxsize[0=traditional],reversal)<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" color=green size=2><SPAN
>// There will be 3 values returned by
the DLL: PnFBuySell, PnFCol and PnFVal<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" color=green size=2><SPAN
>// For PnFBuySell: 1=Buy /
0=Sell<SPAN
><FONT
face="Courier New" color=green size=2><SPAN
>// For PnFCol: 1=X /
0=O<SPAN
><FONT
face="Courier New" color=green size=2><SPAN
>// For PnFVal: This is the value that
would be expressed on a traditional PnF chart.<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New">xo=<FONT
face="Courier New" size=2>xocalcPnF<FONT
color=black>(<FONT
color=fuchsia>0<FONT
color=black>,<FONT
color=fuchsia>3<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New">Color=<FONT
face="Courier New" size=2>IIf<FONT
color=black>(PnFBuySell == <FONT
color=fuchsia>1<FONT
color=black> <SPAN
>AND PnFCol == <FONT
color=fuchsia>1<FONT
color=black>, <SPAN
>colorBlue,<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New"> <FONT
face="Courier New" size=2>IIf<FONT
color=black>(PnFBuySell == <FONT
color=fuchsia>1<FONT
color=black> <SPAN
>AND PnFCol == <FONT
color=fuchsia>0<FONT
color=black>, <SPAN
>colorYellow,<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New"> <FONT
face="Courier New" size=2>IIf<FONT
color=black>(PnFBuySell == <FONT
color=fuchsia>0<FONT
color=black> <SPAN
>AND PnFCol == <FONT
color=fuchsia>1<FONT
color=black>, <SPAN
>colorOrange,<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New"> <FONT
face="Courier New" size=2>IIf<FONT
color=black>(PnFBuySell == <FONT
color=fuchsia>0<FONT
color=black> <SPAN
>AND PnFCol == <FONT
color=fuchsia>0<FONT
color=black>, <SPAN
>colorRed,<FONT
color=fuchsia>1<FONT
color=black><SPAN
>))));<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>Plot<FONT
color=black>(PnFVal,<FONT
color=fuchsia>"PnF"<FONT
color=black>,Color,<FONT
color=fuchsia>1<FONT
color=black>+<FONT
color=fuchsia>4<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>Plot<FONT
color=black>(<SPAN
>C,<FONT
color=fuchsia>"C"<FONT
color=black>,Color,<FONT
color=fuchsia>64<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New"><SPAN
>Filter=<SPAN
>C><FONT
face="Courier New" color=fuchsia size=2><SPAN
>0<FONT
face="Courier New" color=black size=2><SPAN
>;<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(<SPAN
>C,<FONT
color=fuchsia>"Close"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(PnFBuySell,<FONT
color=fuchsia>"Buy/Sell"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier
New" size=2><SPAN
>AddColumn<FONT
color=black>(PnFCol,<FONT
color=fuchsia>"<U1:PLACE
u2:st="on"><st1:place
w:st="on">Col"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(PnFVal,<FONT
color=fuchsia>"Val"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(MarketID<FONT
color=black>(<FONT
color=fuchsia>0<FONT
color=black>),<FONT
color=fuchsia>"ID"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddTextColumn<FONT
color=black>(MarketID<FONT
color=black>(<FONT
color=fuchsia>1<FONT
color=black>),<FONT
color=fuchsia>"Market"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" color=green size=2><SPAN
>//AddColumn(GetExtraData("HasOptions"),"Optionable");<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(<SPAN
>C>MA<FONT
color=black>(<SPAN
>C,<FONT
color=fuchsia>50<FONT
color=black>),<FONT
color=fuchsia>"10Wk"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(<SPAN
>C>MA<FONT
color=black>(<SPAN
>C,<FONT
color=fuchsia>150<FONT
color=black>),<FONT
color=fuchsia>"30Wk"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(EMA<FONT
color=black>(<SPAN
>C,<FONT
color=fuchsia>5<FONT
color=black>)>EMA<FONT
color=black>(<SPAN
>C,<FONT
color=fuchsia>15<FONT
color=black>),<FONT
color=fuchsia>"5-15"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(RelStrength<FONT
color=black>(<FONT
color=fuchsia>"!DJI"<FONT
color=black>),<FONT
color=fuchsia>"RS"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(IndustryID<FONT
color=black>(),<FONT
color=fuchsia>"IID"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddTextColumn<FONT
color=black>(IndustryID<FONT
color=black>(<FONT
color=fuchsia>1<FONT
color=black>),<FONT
color=fuchsia>"Industry"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>(SectorID<FONT
color=black>(),<FONT
color=fuchsia>"SID"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddTextColumn<FONT
color=black>(SectorID<FONT
color=black>(<FONT
color=fuchsia>1<FONT
color=black>),<FONT
color=fuchsia>"Sector"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" size=2>AddColumn<FONT
color=black>((Ref<FONT
color=black>(<SPAN
>C,-<FONT
color=fuchsia>1<FONT
color=black>)-<SPAN
>L)/(<SPAN
>H-<SPAN
>L)*<FONT
color=fuchsia>100<FONT
color=black>,<FONT
color=fuchsia>"Range"<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New">x=<FONT
face="Courier New" size=2>IIf<FONT
color=black>(MarketID<FONT
color=black>()==<FONT
color=fuchsia>3<FONT
color=black>,AddToComposite<FONT
color=black>(PnFBuySell,<FONT
color=fuchsia>"%BPNYSEcalc"<FONT
color=black>,<FONT
color=fuchsia>"X"<FONT
color=black>),<FONT
color=fuchsia>0<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New">y=<FONT
face="Courier New" size=2>IIf<FONT
color=black>(MarketID<FONT
color=black>()==<FONT
color=fuchsia>3<FONT
color=black> <SPAN
>AND (PnFBuySell==<FONT
color=fuchsia>0<FONT
color=black> <SPAN
>OR PnFBuySell==<FONT
color=fuchsia>1<FONT
color=black>),AddToComposite<FONT
color=black>(<FONT
color=fuchsia>1<FONT
color=black>,<FONT
color=fuchsia>"%BPNYSEcalc"<FONT
color=black>,<FONT
color=fuchsia>"V"<FONT
color=black>),<FONT
color=fuchsia>0<FONT
color=black><SPAN
>);<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New" color=green size=2><SPAN
>/*x=MarketID()==3;<FONT
face="Courier New" color=green size=2><SPAN
><FONT
face="Courier New">y=MarketID()==3 AND (PnFBuySell==0 OR
PnFBuySell==1);<FONT
face="Courier New">AddColumn(x,"X");<FONT
face="Courier New">AddColumn(y,"Y");*/<FONT
face="Courier New" color=black size=2><SPAN
><FONT
face="Courier New"><SPAN
>Buy=<FONT
face="Courier New" color=fuchsia size=2><SPAN
>0<FONT
face="Courier New" color=black size=2><SPAN
>;<FONT
face="Courier New" color=blue size=2><SPAN
>
<DIV
>
<FONT
face="Times New Roman" size=3>
<SPAN
>From:<FONT
face=Tahoma size=2> john
gibb [mailto:jgibb1@xxxxxxxxxxxxx] <SPAN
>Sent: Wednesday, June 30, 2004 10:06
AMTo: <U1:PERSONNAME
u2:st="on"><st1:PersonName
w:st="on">amibroker@xxxxxxxxxxxxxxx<SPAN
>Subject: Re: [amibroker] Bullish
Percent Index Code #1
<SPAN
>
<SPAN
>Hi
Graham,
<SPAN
>
<SPAN
>I use only EOD data and you
mention "real time basis", so I might not be the best to give you
feedback.
<SPAN
>
<SPAN
>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)
<SPAN
>
<SPAN
>Should
it?
<SPAN
>
<SPAN
>-john
<SPAN
>
<SPAN
>----- Original Message -----
<SPAN
>From: "Graham"
<<FONT face=Arial
size=2><SPAN
>gkavanagh@xxxxxxxxxxxxx<FONT
face=Arial size=2><SPAN
>>
<SPAN
>To: <<A
href=""><SPAN
>amibroker@xxxxxxxxxxxxxxx<FONT
face=Arial size=2><SPAN
>>
<SPAN
>Sent: Tuesday, June 29, 2004
8:43 PM
<SPAN
>Subject: [amibroker] Bullish
Percent Index Code #1
<SPAN
>
<SPAN
>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,Graham<A
href=""><SPAN
>http://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!<A
href=""><FONT
face=Arial size=2><SPAN
>http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/GHeqlB/TM<FONT
face=Arial size=2><SPAN
>--------------------------------------------------------------------~->
Check AmiBroker web page at:<A
href=""><SPAN
>http://www.amibroker.com/<FONT
face=Arial size=2>Check
group FAQ at: <A
href=""><FONT
face=Arial size=2><SPAN
>http://groups.yahoo.com/group/amibroker/files/groupfaq.html<FONT
face=Arial size=2>
Yahoo! Groups Links<*> To visit your group on the web, go
to: <A
href=""><FONT face=Arial
size=2><SPAN
>http://groups.yahoo.com/group/amibroker/<FONT
face=Arial size=2><SPAN
><*> To unsubscribe from
this group, send an email to: <A
href=""><FONT face=Arial
size=2><SPAN
>amibroker-unsubscribe@xxxxxxxxxxxxxxx<FONT
face=Arial size=2><SPAN
><*> Your use of Yahoo!
Groups is subject to: <A
href=""><SPAN
>http://docs.yahoo.com/info/terms/<FONT
face=Arial size=2><SPAN
> <FONT
face="Courier New" size=2>Check AmiBroker web
page at:<SPAN
><FONT
face="Courier New"><A
href="">http://www.amibroker.com/<FONT
face="Courier New">Check group FAQ at: <A
href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html
<SPAN
><FONT face="Courier New"
size=2>Check AmiBroker web page
at:<SPAN
><FONT
face="Courier New"><A
href="">http://www.amibroker.com/<FONT
face="Courier New">Check group FAQ at: <A
href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html
> ATTACHMENT part 2 application/x-zip-compressed
name=PnF.zip
<FONT
face="Times New Roman" size=3>
<SPAN
>Do you Yahoo!?<A
href="">Yahoo!
Mail - 50x more storage than other providers!
<SPAN
>Check AmiBroker web page at:<FONT
face="Courier New" size=2><SPAN
><FONT
face="Courier New"><A
href="">http://www.amibroker.com/<FONT
face="Courier New">Check group FAQ at: <A
href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Check AmiBroker web page at:<A
href="">http://www.amibroker.com/Check
group FAQ at: <A
href="">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
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.
|