有没有显示缺口的公式？

axcqy

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

shongshu

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

貔貅72

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

8991000

缺口和角度线相关联很深

shongshu

fh:=h;fl:=l;
( V5 B* f+ }& R$ _% i$ U# o& I3 Yfor p=datacount-1 downto 1 do begin
1 y# \& P" V9 K: Z) V/ j8 Q  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;
1 Y4 U1 A) W# P( |; M- Nqk:=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));
" ~  X4 c( w6 FD:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
& U$ k$ B& o! |: yS:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
" v4 v( \% P+ _, j  ~tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
7 t! v3 H5 A$ w: t) Mw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
" K- e! j1 ^* y+ A9 ~. j5 y/ j8 u0 hDD:=DATE;
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
S1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
3 ?( F; V1 r" [* F4 rS2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
7 n9 n% O) D: F( t- L, z' sA:=MAX(S1,S2);
( a/ h2 r4 V4 X" N( _0 JB:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
" r' L( ?; {+ m→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
, W7 ]# Y; ~  D$ k* W$ S) ?hh:=h;LL:=L;DD:=DATE;
0 i: K) [, X0 V+ C) s2 a6 |gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
9 d" Q- Q5 v2 p下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
( b( J" D4 R( m. eXQS:=ubound(下突缺口),LINETHICK0;
! U& E6 O' Z2 }6 y0 k, ]s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
% C. H+ h+ `  U0 R  bx2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
; m6 M6 F/ P9 U: l8 r' g. I下突位置1:=gb-x1[gb]+1,LINETHICK0;
) M' X: v6 b  gDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
! j. B3 H% _, K8 T- h  r; W/ qDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
9 A  h3 L" r  R  YDRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
7 q. D) O0 c, GXQ1:=LL[下突位置1-1];
; X" @+ g4 j; W  `XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
) l: E. z) R* r. i$ L* c1 w: UBXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
2 d" h4 c$ K& q2 q) h( a上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
! k! ]( R3 `% _* _$ oBSQ:=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;
: k9 t+ [* O6 q1 a* H% fDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
* x' P7 q: A+ ^" VDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
3 D  `' ~- p" C8 `! \DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
//

xmhenry

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

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
- L" @% z8 u& `- j3 B! l5 u3 u
[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码

5 F) p3 U8 W2 Y6 aif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
' B% O9 @# W' G! _' _5 o; A下突缺口:=h

( z/ A' V& Z6 R5 ^9 ^' N6 f! i" V( v行12  语法错误；不知是什原因

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
9 K4 z2 Y) C$ G给你原码
  r# j, G7 _7 c2 B% t; q
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

+ c9 ~/ \( Z/ b6 R, ~/ ]

我赢8888

给你原码
! K/ O0 Z1 l6 I0 E. n: `' c3 K- G
( i2 r  i2 J% O0 Vif datacount<3 then exit;
( C9 B+ {, Z& y: Ndw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
1 T; g5 `4 ?6 s" a) \5 a6 ODRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
; y2 [( U, Z& t" [" Y/ pLL:=L;
pL:=LL[datacount]; pH:=0;
- d) r, K5 a, c' O8 |tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
' W  N7 `8 A( b) Y( d2 I3 x  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
- }' a5 L% |! k  if tk=1 and pL<=HH[i-1] then tk:=0;
  if tk=-1 and pH>=LL[i-1] then tk:=0;
4 D8 T6 K8 R  Lend;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
, S/ a6 [1 \# }: _DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
, O# x8 B) x7 ^+ Y2 d& qDRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
" P2 ^, u0 c( Z2 ?) \DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
4 `5 C* r# n! s5 D向下跳空未回补:count(tk=-1,0),linethick0

axcqy

已解决；谢谢！

axcqy

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

CASDAQ

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

axcqy

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

* L& O0 J. [8 z$ P: j6 |非常不错；公式可以上传吗？

我赢8888

你看这个行吗

我赢8888

缺口公式多了去了

samyongq

没有。
不过我知道通达信里，可以设置一下，显示最新的缺口。