有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

原帖由 我赢8888 于 2009-11-1 19:40 发表
2 j7 K" w/ ~( V你看这个行吗

/ R" n' Q$ _6 J4 `5 a非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

( x# X4 I8 Z! v8 e

axcqy

已解决；谢谢！

我赢8888

给你原码
3 h- [" f( m; [. i" n
if datacount<3 then exit;
dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
* l& L5 r, A" i" {6 o5 g上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
6 ]; L# s: F5 V9 i; \下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
3 \; n+ I, f- ~; M4 cDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
7 X! f7 ], R- SHH:=H;
LL:=L;
4 G% i, `: x: s1 f9 c* PpL:=LL[datacount]; pH:=0;
7 `0 _' F) e+ Ctk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
  if tk=1 and pL<=HH[i-1] then tk:=0;
  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
/ p" G4 U6 C3 g& b: I8 M& ?DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
. R- s! M# w% ?  z4 ?4 }DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
6 Q: i+ ~$ ]- Q' c向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
+ U0 V6 A9 b& d) X6 _
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

' y4 T/ `. C/ x6 z; F

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
  P- g1 `. g% ~! A给你原码

3 _3 C" r0 u2 i0 o; gif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

8 i' r: B0 p( y" x5 n1 Z行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口

) H3 V2 f( N1 h* g# A. o( u+ {[ 本帖最后由 笨奔 于 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
/ b! k/ y7 R$ z     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
     fl[p]:=fl[p+1];
" x) S& ~4 h! h1 r4 e! @( M! uend;
/ G9 f, A( r8 I8 z/ `+ N0 {qk:=l>ref(h,1)OR H<ref(L,1);
) _! Y$ x  |2 T, F3 p% eG:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
! r: z* K9 X7 f3 ]" ?- E0 k' \D:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
( i& D* W9 `/ GS:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
+ i4 v( h7 c; [8 Ow:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
DD:=DATE;
, C( |" d, F' m& y3 G7 L最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
% }- B9 I5 N& l; {$ ]: 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));
A:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
+ q) I/ ^' A! l) A4 e0 h/ C: _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;
% Y* }/ `. y3 x9 o, Ygb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
0 c0 y) I7 r' x8 ^: p+ y. }XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
; ^3 P8 h6 J4 O0 rs2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
+ d: ?  U# b; Q: I# N7 }x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
) E$ @  S" k$ L; M/ g下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
4 \+ u$ _6 e! x* T* i+ _2 nDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
' H9 t1 `! }; W: C$ v. w7 iDRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
% E3 m4 v; m% ?. c( R" U0 ?( XXQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
2 l! s3 k5 h  x8 l) x& ?BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
. a; a* `* k( l' lSQD:=DD[上突位置1];
2 v/ x9 c& O/ G3 `) k6 E0 r上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
6 e- \- K2 l- s8 q' p0 ]7 p下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
6 @! u; ~. X% g% d; xBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
& Y( _( O0 a  x( g6 c$ Y$ cDRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
, x! P! T" u4 R2 oDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
& T! t" L4 K) _4 }( [DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
6 i1 q8 H+ S1 C! m) l! Y- ^DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
5 h0 ^# Q, X  f- B( w* X//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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