有没有显示缺口的公式？

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
$ P. |4 L+ W& M     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
4 f: n+ w! [+ R, Z# Z     fl[p]:=fl[p+1];
" J0 @# s% ?* o' {3 k; h5 N6 w/ xend;
, Q0 z" }, q: k( O  x" _& kqk:=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));
: A2 y! h5 X! C" H! DD:=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));
: A% e' u' ]+ f  I3 }  qtj:=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;
% l8 d( Z( U& F' g2 E) z  P, Y- eDD:=DATE;
+ `& {/ j  G3 d9 ?3 B最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
* z6 r' \3 N! yS1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
0 {) s8 ^- u( t9 Y( \" O4 yS2:=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;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
( |# E! t  }4 |4 K) d1 J" \上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
- I' R" k' W6 s- c7 }* ]" u下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
6 h3 d5 _3 S+ E/ c9 X5 s上突位置1:=gb-s1[gb]+1,LINETHICK0;
下突位置1:=gb-x1[gb]+1,LINETHICK0;
" Z# }; C3 h3 n. j7 b* oDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,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;
* Z5 c) X% n, N: n* I. q; ~  s/ @BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
' `7 i6 M  {; W" x4 L, ~上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
5 J7 c, j) u9 y* F下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
# u! A0 d2 {; vBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
. o+ y4 D2 W+ w8 f" G2 aDRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
. o1 r7 T; J. j$ E1 ?: ^4 `: B, lDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
' L5 o! T/ A# e+ P/ K3 I' Q//

xmhenry

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

笨奔

缺口是很重要的,
# ?0 E' n3 l: m9 ~9 r" }3 f黄为向上跳空缺口,兰向下跳空缺口
7 e6 y, _  n( W2 t- n; W
[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

axcqy

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

if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

. R: F0 d. ]% J* M1 V行12  语法错误；不知是什原因

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
9 q- {$ M1 A. `" U5 W8 u: w给你原码

if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

- m* t1 I) w0 m! L1 \4 z( M: T

我赢8888

给你原码
5 Q& C/ J, z% J! z; U2 H7 g9 o  w
if datacount<3 then exit;
( b4 c4 z) J! \! I5 d: N- ^dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
3 _& `4 v0 }. s+ G( O: N2 h下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
1 i& m; w' m: Q  hHH:=H;
& a" j$ d: o6 _LL:=L;
pL:=LL[datacount]; pH:=0;
: v. m" {9 S# ~! ?  Ttk:=if(上突缺口,1,if(下突缺口,-1,0));
1 r7 z% Z0 K! v/ ^% ?for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
6 `: ^9 @7 Q0 l# J* `; h; L* L2 e. H0 }  _  if HH>pH then pH:=HH;
7 ]4 Y$ j  l4 R, X  if tk=1 and pL<=HH[i-1] then tk:=0;
  if tk=-1 and pH>=LL[i-1] then tk:=0;
- ?  I: v! c+ A' j& Rend;
7 R. Y: A; `1 ^& oDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
. P* d' C! A& QDRAWTEXT(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;
5 q  \/ R: V" J* f向上跳空未回补:count(tk=1,0),linethick0;
9 @$ u( c5 T5 v) Q9 c% t' c向下跳空未回补:count(tk=-1,0),linethick0

axcqy

已解决；谢谢！

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
) T5 H# Z4 [7 V9 J' R. A8 ^+ D* k' H) s到公式区里收一下，多了去了

' ^2 [* h, X, i, `  i+ @9 Y

CASDAQ

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

axcqy

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

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

我赢8888

你看这个行吗

我赢8888

缺口公式多了去了

samyongq

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