有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

  {' F: d& q, a- J+ Z% r" z非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

* q+ T, J5 F- r; q& Z0 h

axcqy

已解决；谢谢！

我赢8888

给你原码

& h* r9 ^6 T# \4 @if datacount<3 then exit;
% o- c: j0 {5 v0 Vdw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
7 t# a$ L/ [) ?1 y! k2 x. ?上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
LL:=L;
/ A' w0 _9 Q! q) npL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
+ |* c% H+ F% z% Y( y7 e  if LL<pL then pL:=LL;
7 Y5 U4 ^7 s3 W2 z- e  if HH>pH then pH:=HH;
, @7 z) G3 Z1 x" C5 e  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;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
: x: Q% j( h0 d/ W0 P* ^4 h. @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;
向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
' g' L, B6 W2 q/ D7 r2 T
# Y( R0 I7 ~0 @8 A6 Q* M$ h6 A# |( A/ }if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
, o: k8 ?/ A1 J+ n8 p
7 U% o  n( i4 dif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

. ]4 o8 j& L2 e2 H5 ^! k行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
$ Z# b1 h. h+ A0 S% G+ i+ }
[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
3 V) J4 Y( R3 R7 L8 |3 Lfor p=datacount-1 downto 1 do begin
2 j& v: i5 R, N( I! g  if fh[p]<fh[p+1] then
; @; [. \! s. ^# S3 ?7 I3 }1 z' h2 x     fh[p]:=fh[p+1];
( w4 }+ a' l  J9 q2 X  if fl[p]>fl[p+1] then
     fl[p]:=fl[p+1];
end;
: a  s* H; S5 e& Hqk:=l>ref(h,1)OR H<ref(L,1);
' z: b$ Z% {" {8 D1 XG:=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));
0 h. L; W* F7 G* h$ dtj:=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;
8 h! R) K; k0 l" `( ^最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
  f  X4 V% A7 T  a( d. BS1:=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);
( d0 }) B/ R; v; B! _8 k; L+ E7 n缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
& i" S: d7 ^  O$ v+ n4 BDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
7 h; w) t! Q" u: X9 L上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
9 l3 X5 b3 T4 C, X) V下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
- ?" V' W. o0 c9 YXQS:=ubound(下突缺口),LINETHICK0;
% U! A. @, @$ n5 p. S5 R9 k# J8 _1 Ks1:=SUMBARS(上突缺口,1);
; ?& y& L& C5 Y9 w0 M; p! r. q( g/ ys2:=SUMBARS(上突缺口,2);
' B5 L% i8 w- |* x8 S! kx1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
5 \1 v) B; r+ b$ P$ d5 E, hDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
8 P  R$ _( R. f. ^" x' nDRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
5 I# c; r0 P' x( x  H' i8 l' a( B6 hXQ1:=LL[下突位置1-1];
+ I* @+ |' H, JXQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
( A2 M, t+ @+ H9 vBXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
1 m* |) |7 ^$ X# W9 j6 U上缺日: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);
4 x! e$ N) E: N5 sDRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
) W1 `. d3 J+ J% A( S2 p/ aDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
* m0 Z5 v& s2 m! m% _DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
0 x# V* n; N2 K//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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