有没有显示缺口的公式？

axcqy

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

samyongq

没有。
( Y8 U8 {! I. R4 @不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

/ f) r* _  ?2 Y# U1 k+ h0 W非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

2 k! p) _% R! `5 G

axcqy

已解决；谢谢！

我赢8888

给你原码
' V* `2 a8 ?. }, N4 X% p, R
if datacount<3 then exit;
dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
) D% [: O4 K9 `( h% l' g( {# C( X5 C上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
, u- C! B, ]0 _) U$ A9 RDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
) x7 K" M( g0 t  X: ~HH:=H;
+ b8 G2 q2 g8 z$ N* ILL:=L;
7 j7 D0 u9 a6 k4 D. SpL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
$ Q0 G9 {! L1 F% r# f9 N  if HH>pH then pH:=HH;
  if tk=1 and pL<=HH[i-1] then tk:=0;
  s! Q0 r) O; H. o) M  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
) G+ R8 h: ~" dDRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
1 s  R9 g; v( u1 D- D向上跳空未回补:count(tk=1,0),linethick0;
向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
$ h$ c  s" B' i9 V+ y& E* g
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
. [8 Q( ^( l" A# \下突缺口:=h

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
4 a9 h7 u" B0 r. [& n
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
9 W9 C  b1 v. ], d. {! X3 `, h/ a下突缺口:=h

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

笨奔

缺口是很重要的,
1 O3 U3 [& Q6 l2 n! o) s黄为向上跳空缺口,兰向下跳空缺口
$ O9 ~' a% G# }( t* u
5 `. c( Z2 m! u/ ~# O[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
for p=datacount-1 downto 1 do begin
  if fh[p]<fh[p+1] then
     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
4 ^; l; B2 F5 Y& D# U1 P' q+ m8 q     fl[p]:=fl[p+1];
end;
qk:=l>ref(h,1)OR H<ref(L,1);
+ o) ~+ [- Q( l$ ~0 wG:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
- K- @, |8 ~) s( Z) F' R" A5 A3 QD:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
, e  E3 J/ B7 `S:=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 ;
% H8 [0 b( O/ U" ^3 h( Z4 Dw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
" X* O& O5 X6 s' vDD:=DATE;
4 w; ^1 K. k: N( F; b最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
  x0 F5 T& q) i% xS1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
7 k0 [7 N; V- b& S- Z/ S, ?3 kS2:=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);
0 ]2 u* m) J7 X+ g2 d/ D7 S缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
1 |. t9 ^( c1 V2 DDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
# `6 k# o" I/ B5 o) {  ngb:=SYSPARAM(1);
% m9 Q# g0 l; u/ G上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
3 W8 ~$ Q% ?$ R) B2 \# M! n下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
% \/ H( k( T6 m; W; l% xs1:=SUMBARS(上突缺口,1);
* W+ P5 N( V6 _" y6 Is2:=SUMBARS(上突缺口,2);
  K4 r! i: |; O  Q+ {% V, v% Gx1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
. V7 D) }' n  j! v) r3 q" A3 z/ mDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
/ }  w1 Y0 [6 P  k2 HDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
$ l( H# [5 X0 y% ~+ AXQ1:=LL[下突位置1-1];
/ Q* h3 S3 c- j5 N3 J' SXQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
% k- f9 q5 n$ [1 m* @& k上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
7 H+ M4 T1 t1 s8 f下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
$ s) _; N% k  R; 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;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
& k, H. ~8 s0 jDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
9 M- I! I8 b: `9 u4 {8 ?//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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