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;{显示缺口数字可删除}
{点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
