Re: ROC -- Two Indicators -- .gif

[Clyde Lee <clydelee@xxxxxxx>]

The attached  .gif  shows both of the indicators for which
I have included the source code below.

I have also attached an   .ela   file for these three
functions/indicators.

This was originally done some time ago for a "trend following"
system but may be of use to those examining  ROC   .

Clyde Lee

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


{ *******************************************************************

 Study  : MomentumMultiple2

 Last Edit : 3/10/98

 Provided By : FuturesMagic (c) Copyright 1997,1998

********************************************************************}
Input:  Length(Numeric);

Value5 = 1/AvgTrueRange(21);

Value1=XAverage(Close - Close[Length],9)  *Value5
      +XAverage(Close - Close[Length*2],7)*.707*Value5
      +XAverage(Close - Close[Length*3],5)*.577*Value5
      +XAverage(Close - Close[Length*5],3)*.447*Value5;

MomentumMultiple2 = Value1;


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

{ *******************************************************************

 Study  : Momentum-Multiple

 Last Edit : 8/12/97

 Provided By : FuturesMagic (c) Copyright 1997

********************************************************************}
Input:  Length(1);

Value1=XAverage(Close - Close[Length],9);
Value2=XAverage(Close - Close[Length*2],7)*.707;
Value3=XAverage(Close - Close[Length*3],5)*.577;
Value4=XAverage(Close - Close[Length*5],3)*.447;


Value5 = 1/AvgTrueRange(21);
Plot1(Value1*Value5,"M*1");
Plot2(Value2*Value5,"M*2");
Plot3(Value3*Value5,"M*3");
Plot4(Value4*Value5,"M*4");



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



{ *******************************************************************

 Study  : Momentum-Multiple2

 Last Edit : 3/10/98

 Provided By : FuturesMagic (c) Copyright 1997,1998

********************************************************************}
Input:  Length(1),Smooth(13);

Vars:  Xalph(2/(Smooth+1)),Xbeta(1-Xalph),Init(0);

Value1=MomentumMultiple2(LENGTH);
If init=0 then begin
 Value9 = Value1;
 init=1;
End;

Value9=Value1*Xalph+Value9*Xbeta;

If Value1>0 then Value2=Value1 else Value2=0;
If Value1<0 then Value3=Value1 else Value3=0;

Plot4(Value9,"smo");
Plot2(Value2,"P1..4+");
Plot3(Value3,"P1..4-");
Plot1(0,"zero");



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








> RANDALL L. REED wrote:
> RJ and All,
>

--
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Clyde Lee   Chairman/CEO        (Home of SwingMachine)
SYTECH Corporation              email:   <clydelee@xxxxxxx>
7910 Westglen, Suite 105        Work:    (713) 783-9540
Houston,  TX  77063             Fax:     (713) 783-1092
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Attachment Converted: "c:\eudora\attach\Momenmul.ela"

Attachment Converted: "c:\eudora\attach\spmm0312.gif"