有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

4 }% @7 b/ P3 K+ A非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

! W: b% A2 d, ]4 S

axcqy

已解决；谢谢！

我赢8888

给你原码

if datacount<3 then exit;
2 h7 {) J4 n( E7 {  ddw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
$ `' c3 s7 g% `, n- [( I, g8 m上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
+ g' M7 J1 y" x* {) P  w5 J下突缺口:=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);
9 G5 c2 S9 ]; a9 f; @HH:=H;
LL:=L;
pL:=LL[datacount]; pH:=0;
% L+ L. U! [( F/ Y) ntk:=if(上突缺口,1,if(下突缺口,-1,0));
  z3 _. E! j8 k2 Tfor i=datacount-1 downto 2 do begin
/ J2 O- ^, B: h$ D3 U! V( f  if LL<pL then pL:=LL;
: r: u0 F/ I( z- a$ v  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;
, R+ `! x$ ]0 M. xend;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
0 M" E$ R8 \% q. w. t  T3 h8 P5 eDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
$ t. a, |! |- |, P5 ]- qDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
向下跳空未回补:count(tk=-1,0),linethick0

axcqy

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

! i& _% }0 m! V  `if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
6 _4 {2 [* ~0 q0 _, P' K- q给你原码

9 O: q/ C8 E2 v& J% w6 ~* e" oif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
$ R! I. d; @* Q2 d0 f1 Q% m2 k下突缺口:=h

行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
; n6 ?! T" ?: X7 u+ K" A% B" ~黄为向上跳空缺口,兰向下跳空缺口

[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
& J* j9 E$ q- Z+ Q: p0 qfor p=datacount-1 downto 1 do begin
  if fh[p]<fh[p+1] then
/ o, x7 ^/ U& M3 n9 w     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
* F( U& Q1 Y) [; f4 b% T( C     fl[p]:=fl[p+1];
end;
qk:=l>ref(h,1)OR H<ref(L,1);
9 C" A: G' H1 l! t1 {% FG:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
+ P4 S- _, @( D* C2 U& ?D:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
" ?# z- k, y6 tS:=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;
DD:=DATE;
+ y3 ~/ p* T3 J6 n. V0 |7 T9 }最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
0 _" d6 b8 B5 j% AS1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
! r- R- ]7 H+ n% z; x! tS2:=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);
: o  K- F3 [4 c8 w# h$ B$ B. o" a缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
2 m/ [/ `6 c/ X( k→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
) @1 u2 q: Y" O5 i7 zhh:=h;LL:=L;DD:=DATE;
' S, F1 A. P7 Z; F- `$ Vgb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
0 j6 G" `7 R6 H% z( G" j下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
1 W/ S" h& |( ~& qx2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
/ j$ Y2 E$ ^5 n$ R& B下突位置1:=gb-x1[gb]+1,LINETHICK0;
4 d1 Q) k; W/ R" Q* x& K) ^$ oDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
1 @: @% E4 O" `5 e( e. _# JDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
9 D& [6 u, R! bXQ1:=LL[下突位置1-1];
$ e7 q7 l8 ]/ nXQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
0 i' Y% l! g6 K% X6 _! _BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
# y# v+ a) @! b0 G6 H3 j" V% Q下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
4 C0 ^% L# R# u5 @+ t) U; f1 cBSQ:=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;
# \) Y0 h! y1 H, F! w( BDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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