软件名称：[B]飞狐用金字塔等价K线[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：0 Bytes
官方主页：Home Page
更新时间：2012-11-26 06:43:57
软件简介:

{等价K线 }

INPUT:N(5,1,100);
fc:=c;fo:=o;cc:0*c,PRECISION4,LINETHICK0;oo:0*c,PRECISION4,LINETHICK0;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin
  if i=1 and fc>fo then
  cc:=fc;
  oo:=fc;
  if i=1 and fc<fo then
  cc:=fc;
  oo:=fc;
  if i>1 then
  cc:=cc[i-1];
  oo:=oo[i-1];
  if i>1 and fc>cc*(1+n/1000) then begin
  cc:=cc[i-1]*(1+n/1000);
  oo:=cc[i-1];
end;
  if i>1 and fc<oo/(1+n/1000) then begin
  oo:=oo[i-1]/(1+n/1000);
  cc:=oo[i-1];
end;
  if oo=oo[i-1] then
    t1:=t1[i-1]+1;
  if cc=cc[i-1] then
    t2:=t2[i-1]+1;
end;
o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1);
格子点数:abs(cc-oo),PRECISION4,linethick0;
STICKLINE(c1=oo,ref(cc,1),ref(oo,1),1,1)COLORRED;
STICKLINE(c1=oo,cc,oo,8,1)COLORRED;
STICKLINE(o1=cc,ref(cc,1),ref(oo,1),1,1)COLORCYAN;
STICKLINE(o1=cc,cc,oo,8,1)COLORCYAN;
 

经过编辑，本公式不能通过测试，估计是源码错

[url=http://www.70822.com/soft/sort013/sort02/down-55356.html]飞狐用金字塔等价K线[/url]