查看完整版本: 关于鬼变脸ＧＢＬ指标

关于鬼变脸ＧＢＬ指标

鬼变脸指标是以前帮cwy兄设计的，最近网友常反映以前做的指标，在飞狐５．０上使用不正常．
主要问题是飞狐５．０公式系统相对４．０版本做了些改变.
另外以前做的匆忙，也因我对鬼变脸原理理解不够，造成代码也很复杂．
昨天重新做了个，应该５．０和４．０版本可以通用的，并加入了均线和三平底翻红，三平顶翻绿，选股功能和图标指示．有需要的网友可重新下载．[code]INPUT:n(5,1,999),k(1,0,1);//n为均线参数；k=0取消画图标和均线
fc:=c;fo:=o;hh:=0*c;ll:=0*c;rr:=0*c;tj:=0*c;
tj[1]:=if(fc[1]>=fo[1],1,0);
hh[1]:=max(fc[1],fo[1]);
ll[1]:=min(fc[1],fo[1]);
rr[1]:=fo[1];
for i=2 to datacount do begin
  if tj[i-1]=1 then begin
    if fc[i]>=rr[i-1] then begin
      tj[i]:=1;
      hh[i]:=max(fc[i],hh[i-1]);
      ll[i]:=min(fc[i],hh[i-1]);
      rr[i]:=ll[i];
    end; else begin
      tj[i]:=0;
      hh[i]:=hh[i-1];
      ll[i]:=fc[i];
      rr[i]:=rr[i-1];
    end;
  end; else begin
    if fc[i]<=rr[i-1] then begin
      tj[i]:=0;
      hh[i]:=max(fc[i],ll[i-1]);
      ll[i]:=min(fc[i],ll[i-1]);
      rr[i]:=hh[i];
    end; else begin
      tj[i]:=1;
      hh[i]:=fc[i];
      ll[i]:=ll[i-1];
      rr[i]:=rr[i-1];
    end;
  end;
end;
STICKLINE(tj=1,hh,ll,7,1),COLORRED;
STICKLINE(tj=0,hh,ll,7,0),COLORCYAN;
STICKLINE(ref(tj=0,1) and tj=1,rr,ll,7,0),COLORCYAN;
STICKLINE(ref(tj=1,1) and tj=0,rr,hh,7,1),COLORRED;
三平底翻红:tj=1 and ref(tj=0,1) and ref(tj=0,2) and ll=ref(ll,1) and ll=ref(ll,2),LINETHICK,COLORRED;
三平顶翻绿:tj=0 and ref(tj=1,1) and ref(tj=1,2) and hh=ref(hh,1) and hh=ref(hh,2),LINETHICK,COLORGREEN;
if k=0 then exit;
DRAWICON(三平底翻红,ll*0.98,4);DRAWICON(三平顶翻绿,hh*1.02,5);
均线:ma(c,n),COLORMAGENTA;PARTLINE(均线<=ref(均线,1),均线),COLORGREEN;[/code]

谢谢

谢谢楼主分享！:clap:

谢谢

谢谢

谢谢斑竹。:D :D :D :D :D :D :D :D

造福全人类的好东西啊，前几天我回别人的帖子还贴了图，没想到你这么快就出新版了。:clap:

谢谢

谢谢楼主分享！:clap:

谢谢楼主分享！

:clap: 非常感谢

:clap:

谢谢楼主分享！

谢谢楼主分享！