飞狐缺口公式
-
相关简介:C/C++ Code 复制内容到剪贴板 fh:=HIGH;fl:=LOW; for p=DATACOUNT-1downto1 do begin IFfh[p]fh[p+1]then fh[p]:=fh[p+1]; IFfl[p]fl[p+1]then fl[p]:=fl[p+1]; end; qk:=LOWREF(HI
-
文章来源:择股网作者:股海网发布时间:2009-11-14浏览次数:
C/C++ Code复制内容到剪贴板
- fh:=HIGH;fl:=LOW;
- for p=DATACOUNT-1 downto 1 do begin
- IF fh[p]<fh[p+1] then
- fh[p]:=fh[p+1];
- IF fl[p]>fl[p+1] then
- fl[p]:=fl[p+1];
- end;
- qk:=LOW>REF(HIGH,1)OR HIGH<REF(LOW,1);
- G:=IF(LOW>REF(HIGH,1),LOW,IF(HIGH<REF(LOW,1),REF(LOW,1),0));
- D:=IF(LOW>REF(HIGH,1),REF(HIGH,1),IF(HIGH<REF(LOW,1),HIGH,0));
- S:=IF(LOW>REF(HIGH,1),2,IF(HIGH<REF(LOW,1),1,0));
- tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
- w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
- DD:=DATE;
- 缺口日期:REF(DD,W-1)+1991219,LINETHICK0,COLORAAFF33;
- S1:=IF(REF(S,W-1)=2,REF(fL,w-1),IF(REF(S,W-1)=1,REF(fH,w-1),0));
- S2:=IF(REF(S,W-1)=2,REF(D,w-1),IF(REF(S,W-1)=1,REF(G,w-1),0));
- A:=MAX(S1,S2);
- B:=MIN(S1,S2);
- 缺口:B[DATACOUNT],COLORWHITE,LINETHICK,,PRECISION2;
- →:A[DATACOUNT],COLORWHITE,LINETHICK,PRECISION2;
- STICKLINE(w,S1,S2,15,0),COLORGRAY;
- DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字 可删除}
上一篇:K线叠及周量叠源码(付通达信,大智慧)
下一篇:蒂纳波利点位源码