有没有显示缺口的公式？

axcqy

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

shongshu

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

貔貅72

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

8991000

缺口和角度线相关联很深

shongshu

fh:=h;fl:=l;
: `; i0 y  L: b( qfor p=datacount-1 downto 1 do begin
  if fh[p]<fh[p+1] then
. P. _4 w+ @* q; l2 X% v3 K' k0 [3 q     fh[p]:=fh[p+1];
/ G  p  k: [, E" p, k  if fl[p]>fl[p+1] then
+ H  }6 T1 P$ h4 e) ?     fl[p]:=fl[p+1];
4 V; {4 n1 \, ^4 k+ y2 i8 M$ V+ aend;
qk:=l>ref(h,1)OR H<ref(L,1);
# c% G) u; X" q, [; Q, ZG:=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));
( r% t9 T; z$ Z( w" F- SS:=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 ;
w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
6 g: t2 x! M* t  h+ pDD:=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 d( ~9 a" H7 z1 m7 [. W1 @S2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
# k2 j7 @% q" s) \: s5 M8 bA:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
; B% H# r* A1 M→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
- E3 V7 s' i5 \" O) v! HDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
) P8 E) I, L! F# b上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
. g$ o$ `& s7 Z9 k0 N# Ms2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
: A6 W* a) d0 ^  y上突位置1:=gb-s1[gb]+1,LINETHICK0;
+ b4 ?1 l. w$ J下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
- w% l1 M* H/ pDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
# @8 X3 y6 p  L  ODRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
% W2 B1 ^4 c. @; F& IXQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
. c' _% P; q( h7 e- H1 ~SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
8 D- y/ m8 F9 HBSQ:=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;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
3 ]$ n$ m& t# p- O8 X" N1 LDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
//

xmhenry

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

笨奔

缺口是很重要的,
0 N7 b8 A8 _7 U: D" L黄为向上跳空缺口,兰向下跳空缺口

# u  Z4 J; w+ z% |4 Y[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
3 m, n" M0 s, ^. H2 \: F给你原码

" t  u3 g) A. v! [+ @' r- Y* X" Sif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

  M5 Q1 V& h4 P, @- Y5 Z* H" n行12  语法错误；不知是什原因

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
" R9 X* h2 T7 Y2 J
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

我赢8888

给你原码
1 z- o  F! L0 f, `* o! V
if datacount<3 then exit;
/ X2 k; U4 f0 tdw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
2 X- D% A; p' [2 r( M4 t0 a下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
6 D) ?0 T7 q3 y, c) c  ]DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
LL:=L;
. F9 K! y4 s7 kpL:=LL[datacount]; pH:=0;
" ^* o# }3 g& y+ Ztk:=if(上突缺口,1,if(下突缺口,-1,0));
) a) g7 G; e( g/ ~, U3 v. Mfor i=datacount-1 downto 2 do begin
, q( G7 e5 j: d" |; F  if LL<pL then pL:=LL;
2 d" G# x# V8 a% D& J" [2 N  if HH>pH then pH:=HH;
" U' ]7 a, B+ A7 _  if tk=1 and pL<=HH[i-1] then tk:=0;
  if tk=-1 and pH>=LL[i-1] then tk:=0;
( ?3 o0 p6 [: _4 o/ e$ F# aend;
, ^2 N0 l4 g- `* E8 p6 F3 x$ P, {. ?DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
- ^$ Z/ m8 u. d: ^; W# E3 W9 Y) ZDRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
# C* v5 }0 [! B$ v. k7 vDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
$ h5 G6 i2 i/ G0 a向下跳空未回补:count(tk=-1,0),linethick0

axcqy

已解决；谢谢！

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
' a' S: O/ p) t! T5 S  j到公式区里收一下，多了去了

CASDAQ

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

axcqy

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

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

我赢8888

你看这个行吗

我赢8888

缺口公式多了去了

samyongq

没有。
; d' d- |0 s% Z8 i/ C: u, J9 C, o不过我知道通达信里，可以设置一下，显示最新的缺口。