【阳光飞狐__与财富同行】

标题: 有没有显示缺口的公式？ [打印本页]

作者: axcqy 时间: 2009-11-1 18:43
标题: 有没有显示缺口的公式？
如题！那位朋友可以上传一个谢谢！

作者: samyongq 时间: 2009-11-1 18:45
没有。
不过我知道通达信里，可以设置一下，显示最新的缺口。

作者: 我赢8888 时间: 2009-11-1 19:34
缺口公式多了去了

作者: 我赢8888 时间: 2009-11-1 19:40
你看这个行吗

作者: axcqy 时间: 2009-11-1 19:52

原帖由 我赢8888 于 2009-11-1 19:40 发表
; h t c( E% @+ D5 p你看这个行吗

非常不错；公式可以上传吗？

作者: CASDAQ 时间: 2009-11-1 20:23
到公式区里收一下，多了去了

作者: axcqy 时间: 2009-11-1 20:26

原帖由 CASDAQ 于 2009-11-1 20:23 发表 / c1 x4 |" ^& | ?- q
到公式区里收一下，多了去了

作者: axcqy 时间: 2009-11-1 20:39
已解决；谢谢！

作者: 我赢8888 时间: 2009-11-1 20:44
给你原码

if 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;
DRAWICON(上突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,l,4);
DRAWICON(下突缺口 and SYSPARAM(3)-SYSPARAM(2)<300,h,5);
HH:=H;
LL:=L;
pL:=LL[datacount]; pH:=0;
tk:=if(上突缺口,1,if(下突缺口,-1,0));
for i=datacount-1 downto 2 do begin
  if LL<pL then pL:=LL;
; O# C1 u6 @1 b$ ?  s7 ]- e  if HH>pH then pH:=HH;2 u+ ^: A6 ?. S# U: \
  if tk=1 and pL<=HH[i-1] then tk:=0;, ^( t% N5 G6 k7 t
  if tk=-1 and pH>=LL[i-1] then tk:=0;' `0 }3 s1 U# C  K! x- S4 ^% i
end;
" u* x% n- p) m) L: @3 KDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
. i: k6 U) Q* n3 ]. O. O" |DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
# \3 q5 l& m  l4 WDRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;
0 u' w: H% W* o! V0 B# X/ y. WDRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;  T% D; c( t. i9 [0 a9 J, ^
向上跳空未回补:count(tk=1,0),linethick0;: E& g1 |" U# Z# S2 j3 K
向下跳空未回补:count(tk=-1,0),linethick0
作者: axcqy 时间: 2009-11-1 20:50

原帖由 我赢8888 于 2009-11-1 20:44 发表 4 A3 |! C7 q7 O. E
给你原码
/ C3 i' ?! S: H- s
; ^# Q% R( _% N9 yif datacountREF(c,1)+dw,COLORRED,LINETHICK0;; x9 h% m, f+ x% C2 f: N& z% H
下突缺口:=h

7 i; \/ U3 A2 ]: ?
作者: axcqy 时间: 2009-11-1 20:58

原帖由 我赢8888 于 2009-11-1 20:44 发表
" r5 G7 O9 w: d: H+ x3 d给你原码
0 N; I/ c& R. T
$ y: C( X; ~- \) Aif datacountREF(c,1)+dw,COLORRED,LINETHICK0;. x. h3 R4 o! p3 Y" t% T
下突缺口:=h
% V3 n) z- [0 w7 [& P
行12  语法错误；不知是什原因
作者: 笨奔 时间: 2009-11-1 21:21
缺口是很重要的,$ a' ^3 v  f" o" c/ c
黄为向上跳空缺口,兰向下跳空缺口, M' e; x6 B. i  @9 W

1 P1 ^* Z  J9 W7 U% i' B  ]- [[ 本帖最后由笨奔于 2009-11-1 21:27 编辑 ]
作者: xmhenry 时间: 2009-11-1 22:07
在副图里显示缺口比较好. 例如, 30MIN图里就可把本周期/日线周期/周线的缺口大小/高/低点都表示出来
作者: shongshu 时间: 2009-11-1 22:16
标题: 【飞狐】缺口跟踪
fh:=h;fl:=l;4 x( T# |) G. Q% @. W2 {
for p=datacount-1 downto 1 do begin
/ ?, i3 U2 V: C: {! n$ z% ~' e' l  if fh[p]<fh[p+1] then
  e4 |) M& a  d) @# [4 h! x7 s5 H    fh[p]:=fh[p+1];9 V) k( S% u, f- D' M
  if fl[p]>fl[p+1] then& J4 `6 W. R" j/ R( k
   fl[p]:=fl[p+1];2 J5 b! n9 _  }6 M/ N0 E
end;
  [3 D  o% I4 n( oqk:=l>ref(h,1)OR H<ref(L,1);
: j) g+ ?2 d; a3 |6 iG:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
# Y1 g( {; r, Q8 `* D, K8 RD:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));
0 J+ B" C; Q3 \S:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));
; K6 `' S) \  }. e0 k3 b0 xtj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
0 i9 d$ g# ~( ]7 d$ {w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;* a1 i. [1 u! m5 ~  W
DD:=DATE;; X$ d2 v! `) X9 A. F. G* w' D
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;  {$ X" O4 V4 Q) w4 G% @
S1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
( J) ?# K8 z$ @S2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
: Q( Y9 z: `5 nA:=MAX(S1,S2);9 `! n+ G( _+ V2 h: {( H9 q' m- e- e
B:=MIN(S1,S2);* S; v/ D' @( j' s6 A5 {2 Z
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;4 ~, q, F- m. A! O4 ]/ d( _& x" C0 C# F1 N
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
0 r2 n1 {9 |% b) c& ~STICKLINE(w,S1,S2,15,0),COLORGRAY;
0 I& [7 }' R& |% L' `# G8 u, mDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
! Y/ w" k7 j* l+ s+ E! Uhh:=h;LL:=L;DD:=DATE;
/ Z6 x& _; o( y; N2 v& `gb:=SYSPARAM(1);: k/ d) ~- O4 x5 C1 s4 f! E9 l  s
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
5 X) N7 O+ G0 |% _; W5 X/ `下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
& i% `, y8 X6 zXQS:=ubound(下突缺口),LINETHICK0;7 \- R. [& ^* J# A+ r. P
s1:=SUMBARS(上突缺口,1);
) A0 L- ~4 G1 ps2:=SUMBARS(上突缺口,2);
# c9 u0 G4 c1 L. ^* S. Bx1:=SUMBARS(下突缺口,1);
# B8 o2 a6 J2 N6 j  ex2:=SUMBARS(下突缺口,2);  n& S; F, J' G& l# n
上突位置1:=gb-s1[gb]+1,LINETHICK0;& d# M" u2 k+ c1 n- e: w" g- ?
下突位置1:=gb-x1[gb]+1,LINETHICK0;( \- K3 S, w4 f
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;" P6 X+ R+ @# m8 |# ]
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;. b$ h' y% x5 D3 [3 N
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;" b1 \- j$ z. k- z0 i
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;; y4 k4 F/ N' U9 |
XQ1:=LL[下突位置1-1];) u! r- \7 `: P. b# a
XQD:=DD[下突位置1];7 R- f' m3 J' K% r6 x+ F  `
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;0 d; W% z$ {1 N+ {) j
BXQ:=FILTER(BXQ,XQS-下突位置1);+ y* P' k  X* y. V. J' _
SQ1:=HH[上突位置1-1];
1 U! I- ?: l* W; M7 l9 Y3 dSQD:=DD[上突位置1];
" O! q0 L4 ^" Z3 T9 R. a# w上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;( [: [3 L  ^3 s3 u) }$ k# y, h  L
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
# [$ {) }. j( UBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);. \3 f' U, H% k
DRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;  b; U0 f- p7 a# _# v' U
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
/ R: [- Q1 E  K& J" P+ d/ vDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
1 a6 r: m; M5 A; mDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;5 e5 e8 P0 Z$ q# l" a9 F$ [
//
作者: 8991000 时间: 2009-11-1 22:37
缺口和角度线相关联很深
作者: 貔貅72 时间: 2009-11-2 07:57
前几天我去照的，很不错。共享 http://bbs.88158.cn/thread-58273-1-1.html
作者: shongshu 时间: 2009-11-2 10:21
大盘最近没有缺口了成了蜂窝了  呵呵

欢迎光临【阳光飞狐__与财富同行】 (http://bbs.88158.cn/) Powered by Discuz! X3.2