有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

原帖由 我赢8888 于 2009-11-1 19:40 发表
- p! s, l% V5 v$ C! u1 ]8 C+ {* I5 j3 F你看这个行吗

- ^5 w! b3 P( S# L非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

axcqy

已解决；谢谢！

我赢8888

给你原码
. t! i! N4 U3 L# c4 H# C3 \" E' V+ B
if datacount<3 then exit;
3 r! y) q. H+ v3 b$ [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;
0 U+ I4 V8 h! P6 Q# J2 [& x8 IDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
$ f) h* [0 s- {7 ?. MHH:=H;
LL:=L;
5 ~# K8 e3 b5 T0 V( P1 b5 ^- m* |pL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
& L/ W$ S" j: P+ N% W- Dfor i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
  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;
! N3 z% B' m6 f  t3 `6 mend;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
, n/ o  ?$ c) k/ Z$ W& @% i$ f2 j6 e+ VDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
8 ?/ }' o1 u0 ]* J8 n; ?2 BDRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
6 y+ G0 i% {  ?( h. gDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
7 ^6 U- j+ }: j" V- l0 p* E. V向上跳空未回补:count(tk=1,0),linethick0;
向下跳空未回补:count(tk=-1,0),linethick0

axcqy

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

# a: s: P( ~4 a4 gif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
$ t; h% |! o, D; P" o给你原码

if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
: D$ {7 C! q9 n- Q7 P/ u- ~下突缺口:=h

% e3 m. z  `! M( z行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
4 O9 y; A  _8 c9 Z. E: G黄为向上跳空缺口,兰向下跳空缺口
2 ~$ c* w2 x% t! E4 u) {- i9 d/ x
[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
for p=datacount-1 downto 1 do begin
0 T6 ]* G  [3 B- c7 ~  if fh[p]<fh[p+1] then
2 Q  s, Q- w  x( P3 E- g$ U     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
% I2 V) v5 F2 D4 D+ v2 R     fl[p]:=fl[p+1];
' [+ k# ?1 J* d* Kend;
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 k$ x4 ?9 Q" |4 IS:=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;
7 W8 d, L  U& [DD:=DATE;
. Q  H7 v& c- ]& Z1 {最近缺口日: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));
S2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
- f( U/ r( d- f) XA:=MAX(S1,S2);
1 I' h9 \0 d! u, D& m, PB:=MIN(S1,S2);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
8 Q# s4 k6 j- K, N. I6 ^* |DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
! [. R" U* K5 O: R( Q0 _gb:=SYSPARAM(1);
- E& l8 [- S" T7 u上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
0 b" k, K6 r+ Z: A- C下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
% p* J2 o5 L5 [7 H0 KXQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
8 O( z  m1 B0 t! \/ Q% }2 o下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
, ]' l  p8 _5 p) d7 [% q5 WDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
( a% ?; i# y, j- {$ b* HXQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
! b- d7 b4 i2 UBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
! }+ h* y' S- Z+ y7 S/ P+ E上缺日: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);
* G3 s) n: Y6 i8 O, ^DRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
, c8 y" w4 z' ]1 ]0 K6 d! ZDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
& L: q/ T, p9 g, t5 Z7 KDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
/ o7 B- w/ A: s& D* O3 u//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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