有没有显示缺口的公式？

axcqy

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

samyongq

没有。
, }# b0 a* r7 a& P4 Y4 T不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

/ a* S0 N0 E9 ?$ b% Y  U非常不错；公式可以上传吗？

CASDAQ

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

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
# T! b" ^0 g7 J$ s, e: O1 ^到公式区里收一下，多了去了

. {7 V) f' j2 [" v- N0 ?& W

axcqy

已解决；谢谢！

我赢8888

给你原码

, W$ ]8 W# z. h) ^$ l' ?" bif datacount<3 then exit;
dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
" s  M8 q1 ^$ J( }7 j4 ~6 k/ _下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
6 n- A6 }& m$ \) f. gDRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
LL:=L;
; g6 d! m( Q2 r3 C, f& G7 r/ O6 ~pL:=LL[datacount]; pH:=0;
5 _* o6 S: r' W4 H4 x; Ltk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
7 U3 Z+ \( Z4 U+ ?  if LL<pL then pL:=LL;
* f0 N5 p6 {' n( g+ f4 \  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;
1 S* g% I9 O( LDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
/ V& F. g" N! ~DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
向上跳空未回补:count(tk=1,0),linethick0;
; V7 Z$ x/ n/ |" A  o5 o向下跳空未回补:count(tk=-1,0),linethick0

axcqy

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

& u/ c- t2 u# r; P6 ^! ?if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

3 s# y' @- w% b! E  \

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
' J9 C: J8 U% H' m) d给你原码
& L( J9 N9 Y) ]: b/ G) z% F
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

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

笨奔

缺口是很重要的,
6 J" Q- t) \" V$ G# _# E- P2 ^1 w黄为向上跳空缺口,兰向下跳空缺口
0 N6 s' w# S; K; u4 t1 }: ^
) v. ^! n6 `! X- P' q6 {" t[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
- J2 _$ c& R) h0 i/ t7 sfor p=datacount-1 downto 1 do begin
/ `5 D6 |5 B! T. C  if fh[p]<fh[p+1] then
- g( k. t5 T, d3 p     fh[p]:=fh[p+1];
2 n! E/ v2 R1 V3 m" ?" p  if fl[p]>fl[p+1] then
( c( W. [- l; l7 ]' `3 e. X     fl[p]:=fl[p+1];
; p0 k6 S5 I7 }6 l+ {; V3 yend;
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));
S:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
) m2 i4 t! E( C6 [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;
7 n, Y9 O" V# j2 T2 ]最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
9 {8 J4 A7 M0 R4 F: IS1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
S2:=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);
, Y$ B) v  c% \3 L+ B. Z. F* q* C缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
, m  r5 J8 s2 r; X/ f→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
* A+ ~) x/ B) P' L" Hhh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
' }2 U3 G, {1 M( n, N下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
0 ?0 g. @2 ?: F. z) v: ss1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
& v2 ?* c2 m  h' e% }7 i1 z; [  L下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
2 z/ Q! p3 f. ^, h) dDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
: c  I& e: @5 l5 v8 s3 [! lDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
4 }% Z2 [' w+ k# {XQD:=DD[下突位置1];
; F1 c) B4 }9 j% o0 f5 F2 pBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
上缺日: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);
9 m/ {$ T! ^- y( ~  Z) ODRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
; `, Q, g- Y( D, C- N3 y& {/ tDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
( R# ^! g% C. J2 N//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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