[EquisMetaStock Group] Scrounging the Internet for Metastock Point and Figure

["drl711" <drl711@xxxxxxxxx>]

While scrounging around the Internet looking for anything to do with 
Metastock and Point and Figure I found this code by Adam Hefner. 

Tried an old email address for him but it bounced back. Does anyone 
in the "coding fraternity" know how to reach this person?

Now all I need to do is figure how to:

1) extend this into a buy and sell indicator for simple P&F signals
2) apply it to handle intraday data
3) base it on the closing price,not the high and low.

At my current level of skill this should take me no longer than 137 
years 8 months 5 days, or about.

Anyone like to take a crack at it. (Pardon the expression).

My earlier offer of payment for coding services still stands, to 
qualified coders.  

Contact via email   drl711@xxxxxxxxx

======================================================================
==============================



{Point & Figure Indicator}

{ by Adam Hefner }
{Note: this will plot the high of the"x" and low of the "o" on a 
barchart}

{box value}
BS1:=Input("Box Size ?",.1,100,5);

{reversal amount}
RS1:=Input("Reversal Amount ?",1,10,1)*BS1;

{box high calculation}
BH1:=(Int(H/BS1))*BS1;

{box low calculation}
BL1:=If(((Int(L/BS1))*BS1)=L,
{then}L,
{else}((Int(L/BS1))*BS1)+BS1);


{reversal calculation}
DH1:=If((BL1>=Ref(BL1,-1))AND
((BH1-RS1)>=Ref(BL1,-1)),
{then}1,
{else}0);
DL1:=If((BH1<=Ref(BH1,-1))AND
((BL1+RS1)<=Ref(BH1,-1)),
{then}1,
{else}0);


{Determine market direction}
{NOTE: The value of D1= 
1="trend up"
-1="trend down"}
D1:=If(DH1=1 AND DL1=1,
{then}If(BarsSince(Ref(DH1=1,-1))=
BarsSince(Ref(DL1=1,-1)),
{then}If(BarsSince(
ValueWhen(3,DH1=1,DH1))<
BarsSince(
ValueWhen(3,DL1=1,DL1)),
{then}-1,
{else}1),
{else}If(BarsSince(Ref(DH1=1,-1))<
BarsSince(Ref(DL1=1,-1)),
{then}1,
{else}-1)),
{else}If(BarsSince(DH1=1)<BarsSince(DL1=1),
{then}-1,
{else}1));

{time since market reversed}
DH:=BarsSince(D1=1);
DL:=BarsSince(D1=-1);

{ plot high and low }
PH1:=HighestSince(1,DH=1,BH1);
PL1:=LowestSince(1,DL=1,BL1);
PH2:=ValueWhen(1,DH>0,PH1);
PL2:=ValueWhen(1,DL>0,PL1);
PH2;
PL2;



======================================================================
====================


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs Online - Over 14,500 titles.
No Late Fees & Free Shipping.
Try Netflix for FREE!
http://us.click.yahoo.com/vhSowB/XP.FAA/3jkFAA/BefplB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/