p1:=5;p2:=35;
ma1:=ma((high+low)/2,p1);
ma2:=ma((high+low)/2,p2);
k:=p2+p1/1.618;
st1:=barpos-barssince(ma1>=ma2);
st2:=barpos-barssince(ma1<ma2);
start:=lbound(ma2);
if start=0 then exit;
up[st1[datacount]]:=0;
var2[st2[datacount]]:=0;
dn[st2[datacount]]:0,colorffffff;

for i=start+1 to datacount do begin
  if ma1[i]>=ma2[i] then begin
    if i>st1[datacount] then begin
      var1[i]:=ma1[i]-ma2[i];
      up[i]:p*(2*var1[i]+(k-1)*up[i-1])/(k+1);
    end;
    if i>st2[datacount] then begin
      var2[i]:=var2[i-1];
      dn[i]:=dn[i-1];
    end;
  end else begin
    if i>st1[datacount] then begin
      var1[i]:=var1[i-1];
      up[i]:=up[i-1];
    end;
    if i>st2[datacount] then begin
      var2[i]:=ma1[i]-ma2[i];
      dn[i]:=p*(2*var2[i]+(k-1)*dn[i-1])/(k+1);
    end;
  end
end;
osc:ma1-ma2,stick,colorgreen;
[i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i];[/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i]