有没有显示缺口的公式？

axcqy

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

samyongq

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

我赢8888

缺口公式多了去了

我赢8888

你看这个行吗

axcqy

原帖由 我赢8888 于 2009-11-1 19:40 发表
# {2 K1 v" |3 z/ y% F2 V- c, g- ^你看这个行吗

/ B8 K* z- v" X" n, y+ w非常不错；公式可以上传吗？

CASDAQ

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

axcqy

原帖由 CASDAQ 于 2009-11-1 20:23 发表
; s% i  a/ h( b9 L6 G9 \( ?0 d到公式区里收一下，多了去了

axcqy

已解决；谢谢！

我赢8888

给你原码

+ b8 g" L6 }; J8 l$ p- ?% Sif datacount<3 then exit;
* v/ O) b9 K9 Vdw:=IF(STKTYPE=0 or STKTYPE=13,c*1/500,MINDIFF);
9 @2 W1 p4 L# Z$ H上突缺口:=l>REF(c,1)+dw,COLORRED,LINETHICK0;
( `3 i( Z; O$ h5 v, b# R下突缺口:=h<REF(c,1)-dw,COLORCYAN,LINETHICK0;
7 h' V5 [7 C/ o2 [: c1 aDRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
& \$ p* a$ r9 u' G4 TDRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
& R" ?1 H( i! m$ s- o2 PHH:=H;
LL:=L;
4 a1 Y- S$ w1 FpL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
; \/ B* P9 f. ]4 j% }% s  if LL<pL then pL:=LL;
  if HH>pH then pH:=HH;
3 i! _# E' P. L- }- u6 d6 }9 ]. J  if tk=1 and pL<=HH[i-1] then tk:=0;
, I0 j) `3 r6 Z" P! D" E- `6 E  if tk=-1 and pH>=LL[i-1] then tk:=0;
) i/ ~& ^& g* w. p8 Pend;
8 H2 Z2 [% i( t, GDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
$ Q/ t8 B) e; _0 w. P5 fDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
. E- k, p# Z; E$ Q# v2 TDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
8 k3 i) D) D+ E% D向上跳空未回补:count(tk=1,0),linethick0;
向下跳空未回补:count(tk=-1,0),linethick0

axcqy

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

if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
7 O& x. r) ~( T( i$ k下突缺口:=h

axcqy

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

0 @# h/ s5 P) c! ~+ \if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
下突缺口:=h

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

笨奔

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口
4 G) W7 |0 x" a+ h
+ M6 I3 K- [+ i8 [0 v" V[ 本帖最后由 笨奔 于 2009-11-1 21:27 编辑 ]

xmhenry

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

shongshu

fh:=h;fl:=l;
for p=datacount-1 downto 1 do begin
' i9 }; y( ?% S0 G3 `: v/ T( R! B2 W  if fh[p]<fh[p+1] then
     fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
     fl[p]:=fl[p+1];
& ]3 J9 G7 Q) G; H! }+ N. b+ U+ k# Yend;
qk:=l>ref(h,1)OR H<ref(L,1);
: v4 \3 T* @2 L. QG:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
5 ], V/ n$ K( P7 aD:=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));
tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
5 @) P: v8 @  N$ s% Y" W0 C9 `w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
DD:=DATE;
# e5 j. P6 a7 {1 H最近缺口日: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));
% p9 a' t3 C* _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);
8 K, `- ~# h; _$ N- C9 y( T缺口: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;
gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
1 C$ c5 }4 R( k( b+ X4 `下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
" r* Q* V' Q+ C0 A7 n; N. r& o' Vs2:=SUMBARS(上突缺口,2);
* l8 b3 r! D: H4 R, D+ Yx1:=SUMBARS(下突缺口,1);
# k, A: `7 k" V' Q1 A  t5 F5 Nx2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
( ]; f3 q- M& q下突位置1:=gb-x1[gb]+1,LINETHICK0;
  p) `, i: {/ b$ C& ]; A* UDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
) I8 ?6 m3 R( w. [- X" t, W8 KDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
) ?4 N6 y+ ~7 t* K0 fDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
0 R  W% T4 Y; U* r$ V3 ]7 kBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
* y" ]3 B) H1 q& W9 JBXQ:=FILTER(BXQ,XQS-下突位置1);
2 I- ]6 }/ g7 s3 K2 x* kSQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
7 \( n( H. K" i- |1 ?* [; X5 h下缺日: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;
+ b; w) Y9 d* m' jDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
" j8 `2 }! y" B8 _DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
8 y% d6 Y; m0 e; {; q//

8991000

缺口和角度线相关联很深

貔貅72

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

shongshu

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