软件名称：[B]OCS[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2009-08-04 18:36:42
软件简介:

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]

[url=http://www.70822.com/soft/sort013/sort05/down-11455.html]OCS[/url]