有没有显示缺口的公式？

axcqy

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

shongshu

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

貔貅72

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

8991000

缺口和角度线相关联很深

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
     fl[p]:=fl[p+1];
4 z% H. e' S  x9 Gend;
qk:=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));
  i2 V0 a- a9 S! _6 Q5 h3 w! I8 PD:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
S:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
" N. Z6 c/ w6 j4 Dtj:=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;
" Z% q2 r: d# w7 x2 h: T* Q+ ADD:=DATE;
2 V: h0 Z3 y' T4 X最近缺口日: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));
S2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
: e6 \/ n! B/ L+ Z8 p6 {: kA:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
" A& _1 b. ~8 Q. e( c→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
& z; R( @$ _( jgb:=SYSPARAM(1);
% x3 h* K& _1 |0 U# X上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
" [/ q' B1 H) r4 d6 ]下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
1 J3 [4 v' U, C; n8 mXQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
, O2 @+ U  @/ T& }0 Px1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
# ~0 z2 t! ?+ X% R上突位置1:=gb-s1[gb]+1,LINETHICK0;
下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
: ]" A( |; I1 m6 j. Q# gDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
( H9 X- ]: c0 Z0 j# E& vXQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
7 d$ M, ?7 ?% k0 h" V% G  [2 \0 [$ aBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
8 k& X- a' \) `  t% r, M2 B5 c9 wSQD:=DD[上突位置1];
- y+ [5 X2 s/ _) e( Q. g上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
" O+ A0 L* H8 |1 l! p) z$ z7 fBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
% `$ J# _, `2 X$ NDRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
$ Z; _& d% V- O; }DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
2 v7 q) {) y' D& j7 ^7 d6 `, r9 CDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
4 H" {+ ?+ T' H$ `0 t5 m//

xmhenry

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

笨奔

缺口是很重要的,
7 l* `: o9 |+ ~9 H: a( H3 R3 \黄为向上跳空缺口,兰向下跳空缺口

9 r6 l4 f: {3 {5 w6 m4 }0 _. p[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
4 j) K+ L1 x- {" G给你原码
2 J" j! p, T. i! U* @+ m
* Y) J6 M8 d9 N: T2 k& I6 {if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

! u( X/ M, ]" p$ a7 J$ D- L行12  语法错误；不知是什原因

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
. w' m  ~: R1 v; p
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
9 Z! m' ^( \( q) c) \下突缺口:=h

$ M) p; E3 [9 s6 a& x- k) `$ i0 g

我赢8888

给你原码

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;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
; E$ A, C: t; D6 a8 BDRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
. I' n. Z$ J+ }# M  P; z& WHH:=H;
LL:=L;
- _1 s# ?- R2 v6 J  \. i! U* FpL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
9 n, \$ y1 e$ w' w* j  if HH>pH then pH:=HH;
  if tk=1 and pL<=HH[i-1] then tk:=0;
( M5 B3 D# O6 s5 U  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
& x  J# ~( \0 X  ]5 cDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
2 U5 m, v& U( d; Q" D: LDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
" Z0 ~! U" z* x2 y: f8 R7 h; _4 b2 r向下跳空未回补:count(tk=-1,0),linethick0

axcqy

已解决；谢谢！

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
3 j) J7 |# q- N4 B! s8 ^到公式区里收一下，多了去了

CASDAQ

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

axcqy

原帖由 我赢8888 于 2009-11-1 19:40 发表
. ^4 P1 i: L& A: B你看这个行吗

非常不错；公式可以上传吗？

我赢8888

你看这个行吗

我赢8888

缺口公式多了去了

samyongq

没有。
+ b, ^( ]" }7 H不过我知道通达信里，可以设置一下，显示最新的缺口。