有没有显示缺口的公式？

axcqy

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

samyongq

没有。
& E0 r% p3 {* I' i3 J. H0 g% Z不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

: f6 P& I: d9 o; E" r! M非常不错；公式可以上传吗？

CASDAQ

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

axcqy

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

axcqy

已解决；谢谢！

我赢8888

给你原码

# a2 w2 M& H, T% ]2 uif 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;
4 T% G0 A3 y9 ^$ I! T* k" [DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
, a7 T, U! w1 T# [) ]' ]  M! G) Q0 sDRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
LL:=L;
( m7 @  V% B) ypL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
5 w& k' c; ], K. ]1 u  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;
7 k  c# q0 \( ]end;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
$ b$ Q7 h6 H- HDRAWSL(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 发表
给你原码

if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

) Z9 v* o6 }. ?/ k" O

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
给你原码
0 U. q% }7 y  d% D6 @
& \  k  A! c3 Z, E# ^/ @3 Gif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
; g% H& s: A( c* E: T下突缺口:=h

6 S/ q$ U7 a+ \& R7 j  G4 a+ U8 r行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口

; k) d% s( e# T* ~6 d4 z[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
! T; j4 L4 U" |+ Q( \. b  cfor 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
+ O2 O, H$ a$ A& w$ ^5 x8 h     fl[p]:=fl[p+1];
end;
9 R# x6 R/ i- `% Yqk:=l>ref(h,1)OR H<ref(L,1);
9 }7 [- F0 G" K% D8 b5 x, n" A) R! NG:=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));
$ A8 [: e! N! d; L2 q6 L, wS:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
# p$ {' {1 e& m' rtj:=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;
6 R2 [# R+ m* J6 V& D! _DD:=DATE;
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
/ E' ]/ I0 x1 V/ l/ N- KS1:=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);
( \, H+ U% O- J6 L: C( y缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
+ A+ a1 v, d  Z) |5 m' C, _) K→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
3 S8 R5 t2 T5 p' qSTICKLINE(w,S1,S2,15,0),COLORGRAY;
) [6 p4 v: v2 p9 j+ z. Y3 D1 @DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
. b$ s6 _7 O0 L( o8 x' x% I4 r9 Q! @. ?hh:=h;LL:=L;DD:=DATE;
gb:=SYSPARAM(1);
3 q) Y7 f+ w% p: u6 g5 N上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
5 @! m, X, q: E# x% pXQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
5 J% G0 G& E) k- n/ |s2:=SUMBARS(上突缺口,2);
; K- S. [% f' d8 C6 z' X/ Lx1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
7 a- z$ s* u4 x$ M6 |* o* H上突位置1:=gb-s1[gb]+1,LINETHICK0;
$ }# q$ J; u6 O+ f: {0 D! P( o下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
$ }4 A! C' y6 f- u1 i( FDRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
/ ~/ j7 u) L  Z; FXQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
5 b9 @1 y6 N( V6 VBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
4 X* u5 t* g- k/ L' U. b# z上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
: p2 t. `' A* r* e6 c5 ~1 p* l+ y下缺日: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;
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
. q7 n9 m( b& u! E; V6 m0 uDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
' C3 S: v/ P; m$ ?8 D( |//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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