有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

$ t8 z5 S+ W2 Y% a9 J非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

4 ?! \" Y3 D9 `! L: l

axcqy

已解决；谢谢！

我赢8888

给你原码
8 \% |# o, |( M
if datacount<3 then exit;
dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
7 \% S5 K- u" v- A" T) vDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
/ N- R) N5 m  J1 xDRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
1 p% {' i6 e, ~& z1 E/ o5 {HH:=H;
LL:=L;
pL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
/ a$ a/ E) ^8 ?. s: g7 \% L* ffor i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
4 j  K3 p" l2 J9 D" g6 f( z  if tk=1 and pL<=HH[i-1] then tk:=0;
  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
# B, g) ?  o- w8 w3 d. gDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(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;
+ W1 a: i# x0 a( m5 G( ~) C向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
8 [. i2 p: K8 X4 o, C, e
0 v& q1 |3 e& S' ?4 b- `$ s* o2 ?6 ^if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

* i! `* H  v) `. Q5 p7 B) F

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
  p: ]3 u' R- c" k* e
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

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

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
6 P, T+ e$ j5 e3 W6 N9 ?% J
- q% }0 v7 I! T- I1 G+ v7 `[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
& ~% r2 U* G* jfor p=datacount-1 downto 1 do begin
  if fh[p]<fh[p+1] then
     fh[p]:=fh[p+1];
, _" a1 ~/ f- Q1 V  if fl[p]>fl[p+1] then
     fl[p]:=fl[p+1];
' G! I( v8 P3 a0 V1 j) R+ ]% ~) d$ i9 C2 pend;
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));
, E1 j/ ~& B/ g, p5 gD:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
9 `0 ~6 s- }5 s" u5 X$ [$ ZS:=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 ;
9 v4 \0 `( n# V) I' Vw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
: D8 v8 u- |8 J7 s+ A& JDD:=DATE;
) `' b* R+ S: N# ]最近缺口日: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));
5 m* g2 M8 ?: Z" z$ s9 Q% lS2:=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);
/ n9 d0 l8 E: p  f( a! i9 h* XB:=MIN(S1,S2);
& D4 A! I0 q; `+ g) e  E( x5 Y3 B6 u缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
8 x: K4 L# m7 w2 v7 {& r( L+ A. X→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
% }; [. V( {' ^: G+ jSTICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
. s) h* b- ^9 k* H& Z- ohh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
# U& {) N! `0 X- eXQS:=ubound(下突缺口),LINETHICK0;
( S/ [; h9 v2 V* P5 m: |s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
0 k. @" B6 T7 Z& Bx2:=SUMBARS(下突缺口,2);
6 H; [5 {; v3 U, Z0 B) S/ m上突位置1:=gb-s1[gb]+1,LINETHICK0;
下突位置1:=gb-x1[gb]+1,LINETHICK0;
- L; Y6 e& B' e5 B9 ?' lDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
$ p, p5 Q1 m. |! n& v/ Q9 ^7 KDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
1 J8 T9 D# i; T+ L7 i0 ^DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
8 J8 S! f' [: I5 x7 q: ^3 \XQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
8 z; C' Y/ b: w, ]: ^9 ]- y: RSQ1:=HH[上突位置1-1];
8 ?4 \( v% x' c- u) G8 d' HSQD:=DD[上突位置1];
- o( B5 }. J5 X( K3 v上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日: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);
DRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
. O/ P& R+ g8 W# L- }, c  i" g9 DDRAWTEXT(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

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