当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：飞狐缺口公式（源码）
软件名称：[B]飞狐缺口公式（源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：0 Bytes
官方主页：Home Page
更新时间：2009-11-14 16:59:45
软件简介:
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;{显示缺口数字 可删除}
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;{显示缺口数字 可删除}
[url=http://www.70822.com/soft/sort013/sort02/down-14413.html]飞狐缺口公式（源码）[/url]