有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

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

CASDAQ

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

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
1 F6 E: |) o& F% U# q到公式区里收一下，多了去了

axcqy

已解决；谢谢！

我赢8888

给你原码

* S% C8 a9 B  Q8 ~- Nif datacount<3 then exit;
3 J) D& w7 S2 Zdw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
; y- j, A7 K+ F* }6 I: R上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
9 A+ l; a8 U! c" f下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
, T: G: m! J' X; _9 g$ bDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
! l7 K# v1 e( l2 {$ ~3 z3 U% ~DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
7 t& Z& M, R6 W( ]; u" D  dLL:=L;
pL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
8 e  n- O* P! E$ Lfor i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
; u% t' P1 d2 @( q% }  if tk=1 and pL<=HH[i-1] then tk:=0;
* L9 o/ X( m5 d4 D! T6 y; v! C9 H  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
9 c. ^" g6 K) C5 T8 h6 TDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
/ ?2 ^0 }4 }7 b% f7 i# j5 rDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
# w5 ]" ^. l" y1 w/ H+ @/ S8 a向上跳空未回补:count(tk=1,0),linethick0;
2 B& Y0 A# t/ l  F; O! ]& }向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
5 x- l( x% H1 J" A' I1 b7 N3 \
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
# x2 G7 p4 O: u) M$ A下突缺口:=h

! X3 l7 L2 B! J4 e; d" z, x" g

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
  d0 i% h, g2 a, i: Q( o给你原码
  G8 y& |4 j3 ~5 {: z
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
/ d; D; v/ x1 O) i. u$ o6 t+ j下突缺口:=h

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

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
# V4 W+ v1 Q2 f* O# x
[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
for p=datacount-1 downto 1 do begin
  @0 [+ n- ?( y9 q. Y; a3 Y  if fh[p]<fh[p+1] then
2 O  f2 P1 a$ M5 J" C- [  i     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
     fl[p]:=fl[p+1];
end;
qk:=l>ref(h,1)OR H<ref(L,1);
G:=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));
3 ~6 z; |9 p# |8 fS:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
7 H- t$ l4 V. otj:=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;
9 O2 t( h' q8 r, e5 V) J: pDD:=DATE;
' j7 R) G& F+ C. i' W# \最近缺口日: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));
' |6 q* E" o$ u+ R2 ]# MS2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
' a' i* f4 P( A* f8 \6 ]A:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
, }& u/ ?8 F+ e, k! J% jSTICKLINE(w,S1,S2,15,0),COLORGRAY;
. V3 [/ g/ u" h/ a. z3 fDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
& P) F- }2 ^3 G9 Ehh:=h;LL:=L;DD:=DATE;
1 |7 n* T4 B- ~+ M; c# o) Q3 }gb:=SYSPARAM(1);
% L) j+ k8 X& J4 }0 ^9 o上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
2 V( _% v  n) ^; x& S- z) s, ls1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
; G4 s5 M8 |+ m/ W6 \, Rx2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
3 `9 S$ y: a8 _' @( p, @# ~# m下突位置1:=gb-x1[gb]+1,LINETHICK0;
* l0 p0 P& j5 e* x8 fDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
+ S; e( K: v! x5 C$ f- ]$ mDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
9 B! p4 z& E; r) D- VDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
$ P! J& M0 r" W2 f, T/ ]' X' T8 zXQD:=DD[下突位置1];
7 r* M( l7 S' B+ G5 E6 B2 KBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
" _8 b- Y% M+ B# ]* gBXQ:=FILTER(BXQ,XQS-下突位置1);
) E. d, q8 P7 X/ N0 F  Z; N7 LSQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
( }- Z$ {2 e: g: Z: n3 I( A( i上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
7 m; e; I$ D" F4 B* m! X下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
BSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
$ q/ [8 K( [0 W7 _& [3 q6 ]DRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
6 H  N; M( s* O( ADRAWTEXT(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;
. X0 `6 t8 m6 R3 ~' y$ x3 v% \& ?' E: r//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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