有没有显示缺口的公式？

axcqy

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

samyongq

没有。
% J, U- B  e3 V' n- b, R+ R不过我知道通达信里，可以设置一下，显示最新的缺口。

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

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

: d! D- e6 U& n" L) \" ?非常不错；公式可以上传吗？

CASDAQ

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

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
+ [) b" k/ E' w, n6 A4 x+ C8 V- R5 B到公式区里收一下，多了去了

0 y! T' s' x# _& v  _, b2 z6 z9 T& p

axcqy

已解决；谢谢！

我赢8888

给你原码

if datacount<3 then exit;
( D: F; ?. E3 t% i) D& U* @dw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
' d: V7 V7 M1 J下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
% F8 v+ W6 x# _+ J/ W' a4 @DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
4 |) t! V: W1 vHH:=H;
LL:=L;
pL:=LL[datacount]; pH:=0;
  n( v, ^) c- M/ Y* Qtk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
, q+ V' m' }3 [. G7 o  if tk=1 and pL<=HH[i-1] then tk:=0;
) P+ P$ ^  Z9 V* t  if tk=-1 and pH>=LL[i-1] then tk:=0;
end;
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
1 @0 W$ ?  y( SDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
+ }9 ~0 O" ~6 g' GDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
5 M% t; I! f' O2 k, O  K, u. {向上跳空未回补:count(tk=1,0),linethick0;
9 h4 P$ o: w% n$ D* J/ s向下跳空未回补:count(tk=-1,0),linethick0

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
9 e. T& k5 n, b2 H' a3 a5 A给你原码

, E) H: A- C' x  t% h4 w  z  Qif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
; w& J; T+ W) j0 I) K6 X下突缺口:=h

# O+ {2 t2 u) `2 v# g8 a1 w( n

axcqy

原帖由 我赢8888 于 2009-11-1 20:44 发表
' O, j2 X+ M; b' I( \给你原码

if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
. F% `- b, w/ S% J# S下突缺口:=h

$ J; }- F" F* H& F行12  语法错误；不知是什原因

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
& V1 {; c3 x* l9 c
[ 本帖最后由 笨奔 于 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
, _: C* @! H' ~! k     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
     fl[p]:=fl[p+1];
; F3 W: G% b) Y1 ]+ Bend;
qk:=l>ref(h,1)OR H<ref(L,1);
. R' I; k7 n- t7 \G:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
" }9 N9 n" U3 h& O; {" q9 rD:=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));
2 m5 E4 z! _( W6 Xtj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
% Z. x* r) E- e3 N: A7 X' gw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
DD:=DATE;
2 Q) O- P! t( |- |' l最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
  }- ^, {3 N% u+ ]+ SS1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
, r/ M! t0 K( T6 D, x; A6 g( \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);
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w,S1,S2,15,0),COLORGRAY;
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
hh:=h;LL:=L;DD:=DATE;
, M3 f7 ]& y2 ?4 [+ F7 H2 bgb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
* g" ~% @; H* a, P$ s8 |5 L" vXQS:=ubound(下突缺口),LINETHICK0;
& i# d+ P; d0 T( }. ^) q  f  Z$ ^$ X& fs1:=SUMBARS(上突缺口,1);
  |7 z' D8 L2 [1 k) T. `9 p* Ds2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
/ b4 p% E3 i6 |( O2 q% r( |1 Kx2:=SUMBARS(下突缺口,2);
. H/ D) D8 x: Y" K6 |8 c: D' `上突位置1:=gb-s1[gb]+1,LINETHICK0;
+ J" Z3 j9 w$ i9 ^) m! f下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
# H! f3 p) G* S+ Z& P% MDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
: a; U: A9 f; ~! S* o& uDRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
5 @7 _/ o* M8 Q% }; R% W0 VBXQ:=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);
) O, r  K2 R& `! Z. rDRAWTEXT(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;
/ q7 s# M( l  VDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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