有没有显示缺口的公式？

axcqy

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

samyongq

没有。
# i: l5 g6 _( X& P' k3 J4 b$ w3 c不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

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

CASDAQ

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

axcqy

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

axcqy

已解决；谢谢！

我赢8888

给你原码
! K0 J1 l5 G1 ^4 P5 q
if datacount<3 then exit;
" D. L( b" C5 T6 X$ @dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
% D; j; L) V+ ~下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
% X) c1 q, N  N# p7 KDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
) w, w. t5 e) y$ K+ x! BLL:=L;
pL:=LL[datacount]; pH:=0;
+ h+ J. F# _$ ^, n% d! \tk:=if(上突缺口,1,if(下突缺口,-1,0));
' {5 B' A1 ?: n0 j% {3 {for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
- i4 s) n; c+ `  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;
0 j. ?. M$ W8 }4 RDRAWTEXT(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;
向上跳空未回补:count(tk=1,0),linethick0;
, [# m, G  s5 U0 w4 s& K* q& R向下跳空未回补:count(tk=-1,0),linethick0

axcqy

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

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

: M4 j* B+ [! F6 h

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
1 a5 }' ]6 u# J% q- {给你原码

. T/ W" P/ T* L% K% A! v7 ?9 ~5 V1 Jif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
2 _6 k; n2 F+ [- v3 u9 l3 y0 D5 \下突缺口:=h

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

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
2 k  t" E( [9 s' T
[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
' I; \/ q5 L) A3 D& O" qfor p=datacount-1 downto 1 do begin
! J" F4 l8 `" f; Z/ j0 p) @' h- f6 N* a  if fh[p]<fh[p+1] then
* E4 z9 L5 r( x- C/ }. k     fh[p]:=fh[p+1];
. b, G8 i; d. f! ]* s. E  if fl[p]>fl[p+1] then
$ q+ T  m; I2 u# ~1 \. S     fl[p]:=fl[p+1];
8 Y% b/ e5 O+ N1 Send;
qk:=l>ref(h,1)OR H<ref(L,1);
) \9 H) P+ L7 f  c& U0 Y0 |. pG:=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));
+ L' k' T0 `7 @4 D3 I6 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;
DD:=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));
/ D5 L! C! `* m8 X- OS2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
; [# C1 D" Q4 ^! J( DA:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
0 \) r7 ?$ B6 ]; M+ oSTICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
$ R5 Y1 k" k" l+ M, F" Y4 ?hh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
8 p3 B+ M3 ~! Z0 m" Y下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
8 K- ?$ w" p& y$ ^* \! us1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
- q$ S. \$ a# ~; B) M- X! Ox2:=SUMBARS(下突缺口,2);
% |! _2 I# M, o( A: x& X1 G: k- V7 I上突位置1:=gb-s1[gb]+1,LINETHICK0;
5 H" s  K2 F) E$ P% r, ^. M% H下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
9 J# D+ s: p$ a4 x& nDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
' d3 f: I% S* sDRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
: x7 g5 R- A: P+ U" b1 EXQ1:=LL[下突位置1-1];
, S* j# X$ f. R, t& K& P7 o% eXQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
4 [9 ]; _3 W& i2 W1 ~2 T) @% mBXQ:=FILTER(BXQ,XQS-下突位置1);
9 }' o) K' I# WSQ1:=HH[上突位置1-1];
+ A4 C+ _; [6 M+ ]SQD:=DD[上突位置1];
上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
$ }' E: E  ?% V1 nBSQ:=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 G8 N. R4 `: H5 Q. h- z/ A# wDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
/ a  ?5 |5 L: X" C* g$ E//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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