[RT] Responsive Moving Average

[James Taylor <jptaylor@xxxxxxxxxxxxxxx>]

Here's the code for the responsive moving average, as detailed in the
January edition of S&C Magazine.

Wishing all Cheers and a happy and prosperous new year, and hopes that
during 2000 we will see and dramatic end to the greatest speculative
equities & real estate bubbles in the history of the US.


{*******************************************************************}
{ Indicator:  ResponsiveMA                                          }
{ Copyright 1999. James Taylor                                      }
{                 TechTrading.com                                   }
{                                                                   }
{ Based on research conducted by Dr. Joe Sharp                      }
{ as detailed in January 200 issue of Stocks & Commodities Magazine }
{*******************************************************************}
Inputs: N(10);
Vars: SMA(0), S(0), ModMA(0), J(0), i(0);

SMA = Average(Close, N);

i = 1;
S = 0;
for J = 0 to (N - 1) Begin
	S = S + ((N - i)/2) * Close[J];
    i = i + 2;
End;

ModMA = SMA + ((6 * S) / ((N + 1) * N));

Plot1(ModMA, "ModMA");