有没有显示缺口的公式？

axcqy

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

samyongq

没有。
% c! N; j- s2 Y. J不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

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

CASDAQ

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

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
) K! a' a1 k) L7 ~5 f# ^到公式区里收一下，多了去了

: p* @( q% Q& H0 I

axcqy

已解决；谢谢！

我赢8888

给你原码
) d% i1 ~. T; f7 ^$ F
: |5 z# Y' B- J/ |) p* ]: @if datacount<3 then exit;
/ W% R# W  ?- u  H0 Ldw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
+ b7 l4 R) U- C# L, P2 k下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
2 Y1 _+ K, c: x& J; O( rDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
: ]; U+ ~" e7 ]+ r2 F' b8 ZDRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
: i- m5 U- x0 v; `HH:=H;
LL:=L;
$ Q  j0 X9 j' Y; j9 BpL:=LL[datacount]; pH:=0;
. m0 L7 t1 }) ctk:=if(上突缺口,1,if(下突缺口,-1,0));
+ D( f3 r; t) e& Cfor i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
9 S* h5 Q, i" _2 {, b7 |; a  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;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
5 n- C) e& R& F7 s* ?7 bDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
# S- s& H) N8 g9 }5 K6 y向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
7 A  Q0 a5 C2 c) N7 `, V给你原码
. s* X' V& g& F) p4 m
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
+ P" v, p- d) E0 L; J6 P1 c下突缺口:=h

& [8 g# j6 X6 D" v

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
. x: V+ {' s% h( \3 [5 ^3 e给你原码

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

# ^& t$ G! g$ `: n9 n/ B, ?行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
) ?7 _* H* G7 t3 h/ ]; q
[ 本帖最后由 笨奔 于 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
- V( U* u+ h% m( ]     fh[p]:=fh[p+1];
/ Z+ R, b* f# d+ y3 P& T  if fl[p]>fl[p+1] then
, b3 n: [' B$ A: I) H4 M0 @     fl[p]:=fl[p+1];
. j( x! D! q; {4 oend;
6 l* _! s; [  Z# @; K; T! h2 P! a1 Wqk:=l>ref(h,1)OR H<ref(L,1);
8 [# p2 @6 C# p7 J; s1 b- ?G:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
& {1 m( t$ v* j. J  V$ ^8 J% i% SD:=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));
# k0 z# L. D& atj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
, T, C4 T' D! N& Mw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
0 b, d1 g; \! \1 ^1 G! Q: }2 rDD:=DATE;
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
# n# t& t( p: n5 NS1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
. j4 K5 I5 n0 s# g" C' g/ 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;
- m3 I* f6 S* ASTICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
* ]4 e9 r  X; N8 i! Hgb:=SYSPARAM(1);
; H' ~7 r; s0 I" K. p( W7 A上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
+ ?) J8 `- ~/ ^4 q" N* i下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
% i0 w2 F% m% Y7 d5 d3 g4 c* b# }x1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
, N/ o$ \. v7 ]' O2 u' j下突位置1:=gb-x1[gb]+1,LINETHICK0;
/ x1 x2 V4 {2 U* e* l# EDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
. R, w& {; f; @: {! f* `/ {& kDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
' J) B+ W+ s7 h5 K5 H* ~$ b( N) {XQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
6 @5 f9 [  l" yBXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
. h) [" P: P% P8 W+ C) u) xSQD:=DD[上突位置1];
% f4 S4 |! r- b, U: ]* p  x上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
( a* X  F0 K' g( Q) v2 dBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
$ N& y, [# v1 s+ Z, k9 ?DRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
/ W0 j5 P' X2 E* b: K) N# ^DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
  b( A; ]( l: r& \3 q0 d- [//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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