有没有显示缺口的公式？

axcqy

如题！那位朋友可以上传一个谢谢！

samyongq

没有。
3 t. v! S( P' B2 i不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

原帖由 我赢8888 于 2009-11-1 19:40 发表
你看这个行吗

* w% L5 }- L7 ^; b8 r非常不错；公式可以上传吗？

CASDAQ

到公式区里收一下，多了去了

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
到公式区里收一下，多了去了

( u* t9 O4 _9 \

axcqy

已解决；谢谢！

我赢8888

给你原码

" ?  C7 [$ ?& W0 W- v0 V% l) }if datacount<3 then exit;
dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
: y! w: }! E+ j+ Y% T3 ]4 [DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
# W- W! O; [, S3 q, B! `' K4 i( SLL:=L;
7 Z  t& S  W( S; c. {pL:=LL[datacount]; pH:=0;
+ W" `3 G  j3 }3 T# W8 ytk:=if(上突缺口,1,if(下突缺口,-1,0));
8 V* p; i; n3 m! V9 \$ {  H* Wfor i=datacount-1 downto 2 do begin
" Y' ^/ Z/ f7 E  E; g7 W  if LL<pL then pL:=LL;
2 R0 L$ s6 w# Y  h6 a: H  if HH>pH then pH:=HH;
  if tk=1 and pL<=HH[i-1] then tk:=0;
' `5 S  h/ g5 }8 ^5 Z" G  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
' N, U, g- F/ [; L5 k' O! s; WDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
1 N( \( y$ W3 A. [* ADRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
1 `9 ]9 w: Y; t# x向上跳空未回补:count(tk=1,0),linethick0;
2 T8 w( i4 \- S; C* O. X; }向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
( I- g6 b1 |! D, z7 p& _$ K$ J
. H8 ^0 o7 n5 i' u- U/ u# _if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
" @! \! }% m9 h$ z- f- E给你原码
) y4 l: v( U- ]8 g; N
1 m, [+ f" L  [5 lif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
: O4 ]' s" o; i; C* M
0 t# ^# h, D/ v  l# _; F[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

在副图里显示缺口比较好. 例如, 30MIN图里就可把本周期/日线周期/周线的缺口大小/高/低点都表示出来

shongshu

fh:=h;fl:=l;
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
/ V+ ?5 E2 |" W     fl[p]:=fl[p+1];
end;
( q  P, b! I5 g( h  dqk:=l>ref(h,1)OR H<ref(L,1);
G:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
D:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
* t+ ~# f9 U1 h& RS:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
' d/ J% S" }0 a' r' ^% `tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
& d9 _1 X0 R4 z0 `, P0 hw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
DD:=DATE;
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
1 s8 m. ]4 \- ]' h& qS1:=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));
+ u1 e. n: i) _1 |: c8 I- f% U1 \A:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
6 Q) y( ~: k& C) USTICKLINE(w,S1,S2,15,0),COLORGRAY;
* G! b% y# ~2 o, G- ]1 G+ PDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
1 K* U# X- l; p& U2 k/ B- ^% O( ehh:=h;LL:=L;DD:=DATE;
% E  J( w$ ~* p8 _: l# L5 Egb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
* k0 D- [" T0 `! \下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
9 C* W# }/ v) qs2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
2 W0 k6 Y5 V2 b( w3 px2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
1 r7 ^% G3 l2 ~/ v1 [; Z6 F下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
1 @; v0 @8 e0 T; D8 MDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
4 N8 r! h+ z- D7 f8 t7 jBXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
6 h% w* |* e2 f0 A, O6 n& \4 \( CBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
DRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
) F0 N' V- D' r- g& JDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
9 E9 Q9 g" N/ |9 D  t//

8991000

缺口和角度线相关联很深

貔貅72

前几天我去照的，很不错。共享    http://bbs.88158.cn/thread-58273-1-1.html

shongshu

大盘最近没有缺口了 成了蜂窝了  呵呵