The middle pane used in the above charts is a smoothed version of the indicator code. Here is the code used translated straight from EL Code. The code runs in Wealth-Lab Developer
------------------------------------------------------------
var j,hh,b,f : integer;
const Len = 5;
var R2: array[0..Len] of integer;
var PR: array[0..Len] of float;
var UMindicator : integer = CreateSeries;
var Value33 : float;
var Bar : integer;
for Bar := Len to BarCount - 1 do
begin
for j := 0 to Len do
begin
PR[Len-j] := @#Close[Bar-(Len-j)];
R2[j] := j;
end;
for hh := 0 to Len do
begin
for j := 0 to Len-2 do
begin
var first : integer = Len-R2[j];
var second : integer = Len-R2[j+1];
if @#close[Bar-first] > @#close[Bar - second] then
begin
b := R2[j];
R2[j] := R2[j+1];
R2[j+1] := b;
end
end
end;
Value33 := 0;
for j := 0 to Len do
begin
Value33 := Value33+Power((R2[j]-j),2);
end;
@UMindicator[Bar] := 1-(6*Value33)/(Power(Len,3)-Len);
end;
PlotSeries(UMindicator, CreatePane(60, false, true), #blue, #thin);
var pane : integer = CreatePane(60,false, true);
PlotSeries(SMASeries(UMindicator,2), pane, #blue, #thin);
PlotSeries(SMASeries(SMASeries(UMindicator,2),3),pane, #red, #thin);
---------------------------------------------------------------
- Spydertrader