|
PureBytes Links
Trading Reference Links
|
------------------------------------------------------------------------
You cannot reply to this message via email because you have chosen not
to disclose your email address to the group.
To reply: http://groups.yahoo.com/group/equismetastock/post?act=reply&messageNum=5081
------------------------------------------------------------------------
Scoub,
I looked at this and at the web address display. If it were coded
into Metastock you would end up with a display indicator. I don't
think that's what you're looking for is it? On the other hand if you
are looking to identify the waves (5 up bars, 3 down, 5 up), it
probably has already been done.
P
--- In equismetastock@xxxx, scoubidoo68@xxxx wrote:
> Hi,
>
>
> Is possible to convert this formula for Metastock ?
>
> http://www.ensignsoftware.com/tips/tradingtips20.htm
>
> ESPL Script:
>
> Theoretical Wave Builder
> The Ensign Software Programming Language (ESPL) was used to create
the
> theoretical chart used in the first article. The complete ESPL
script is
> listed here. // Author: Howard Arrington
> // Date: 08-17-2001
> // Purpose: Create a theoretical chart file
> //
> procedure Theory;
> var
> sPattern, s24Up, s13Up, s24Dn, s13Dn: string;
> s5WaveUp, s3WaveUp, s5WaveDn, s3WaveDn: string;
> t: TDateTime;
> c,i,j,k,n,d,count: integer;
> price: real;
> begin
> s13Up:='5U3D5U'; {5 up bars, 3 down, 5 up}
> s24Up:='5U3D8U3D5U';
> s13Dn:='5D3U5D';
> s24Dn:='5D3U8D3U5D';
>
> s3WaveUp:=s24Up+s13Dn+s24Up;
> s5WaveUp:=s24Up+s13Dn+s24Up+s13Dn+s24Up;
> s3WaveDn:=s24Dn+s13Up+s24Dn;
> s5WaveDn:=s24Dn+s13Up+s24Dn+s13Up+s24Dn;
>
> sPattern:=s5WaveUp+s3WaveDn+s5WaveUp+s3WaveDn+s5WaveUp;
{Major Up}
> sPattern:=sPattern+s5WaveDn+s3WaveUp+s5WaveDn;
{Minor
> Down}
> sPattern:=sPattern+s5WaveUp+s3WaveDn+s5WaveUp+s3WaveDn+s5WaveUp;
{Major Up}
> sPattern:=sPattern+s5WaveDn+s3WaveUp+s5WaveDn+s3WaveUp+s5WaveDn;
{Major
> Down}
> sPattern:=sPattern+s5WaveUp+s3WaveDn+s5WaveUp;
{Minor Up}
> sPattern:=sPattern+s5WaveDn+s3WaveUp+s5WaveDn+s3WaveUp+s5WaveDn;
{Major
> Down}
>
> t:=EncodeDate(1990,1,1); {January 1, 1990}
> i:=1; k:=length(sPattern); n:=0; price:=500; count:=0;
> Chart(sPath+'\Hist\Theory.D');
>
> while i<k do begin
> if IsNumeric(Copy(sPattern,i,1),c) then n:=n*10+c
> else begin
> if Copy(sPattern,i,1)='U' then d:=10 else d:=-10;
> for j:=1 to n do begin
> inc(count); {count bars}
> t:=t+1; if DayOfWeek(t)=7 then t:=t+2; {skip weekends}
> SetVariable(eBarCount,count);
> SetBar(eDate,count,DateToLong(t));
> SetBar(eVolume,count,count);
> SetBar(eInterest,count,count);
> if d>0 then begin {build Up bar}
> SetBar(eOpen,count,price+1);
> SetBar(eHigh,count,price+d);
> SetBar(eLow, count,price);
> SetBar(eLast,count,price+d-1);
> end
> else begin {build Down bar}
> SetBar(eOpen,count,price-1);
> SetBar(eHigh,count,price);
> SetBar(eLow, count,price+d);
> SetBar(eLast,count,price+d+1);
> end;
> price:=price+d;
> end; n:=0; {start new quantity}
> end; inc(i); {next character in pattern}
> end;
> end;
>
> begin
> if who=1 then Theory;
> end;
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Home Selling? Try Us!
http://us.click.yahoo.com/QrPZMC/iTmEAA/MVfIAA/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/
|