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

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

作者: 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 发表 + @% m4 T: u( Y$ W+ K5 v) e$ H% C
你看这个行吗

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

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

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

原帖由 CASDAQ 于 2009-11-1 20:23 发表 8 G9 p6 S0 k6 j$ t* S0 ^ `, Y3 u0 `
到公式区里收一下，多了去了

作者: 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. |4 S. D7 \/ ^9 U9 ]  if HH>pH then pH:=HH;
3 Z* X1 L7 s  j* P% m; m, V  a  if tk=1 and pL<=HH[i-1] then tk:=0;
% N; z% A) A( Y% N  q  D; j) N  if tk=-1 and pH>=LL[i-1] then tk:=0;+ _0 |! s$ j7 j
end;
; f' k6 G) h8 R2 D- jDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;6 C3 U3 Z: U5 Q5 k( p
DRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;1 p$ A; t" M8 {" s2 ~  H; A
DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;+ I: _7 `+ p& h8 K% w* R, h
DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
/ W2 q' y! @" o7 m向上跳空未回补:count(tk=1,0),linethick0;/ D, ]) U5 t: `+ C3 K0 x
向下跳空未回补:count(tk=-1,0),linethick0
作者: axcqy 时间: 2009-11-1 20:50

原帖由 我赢8888 于 2009-11-1 20:44 发表
; o* c4 Z+ n! z8 I' n给你原码
6 D; d/ _+ ~; b7 f( j2 ^7 w; @* Y$ C# `5 u( k* r: k. d$ J
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
2 G4 c3 `# V  o: u- m3 u; f下突缺口:=h
: r" I3 `( `7 a0 Q7 L; l

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

原帖由 我赢8888 于 2009-11-1 20:44 发表
4 F8 p# g' E) e( {给你原码
& P) T! s' \( m: u) \- N6 Q3 o
0 w; y) `; I5 t6 dif datacountREF(c,1)+dw,COLORRED,LINETHICK0;% V, a% t3 C8 q: @" K
下突缺口:=h
: e) [/ L2 j8 R% I/ V4 Y
行12  语法错误；不知是什原因
作者: 笨奔 时间: 2009-11-1 21:21
缺口是很重要的,% P/ r  G( h- M% j0 w8 a# n
黄为向上跳空缺口,兰向下跳空缺口
! z/ \- M9 e! H" \2 t  D- k3 A, U9 ]  @
[ 本帖最后由笨奔于 2009-11-1 21:27 编辑 ]
作者: xmhenry 时间: 2009-11-1 22:07
在副图里显示缺口比较好. 例如, 30MIN图里就可把本周期/日线周期/周线的缺口大小/高/低点都表示出来
作者: shongshu 时间: 2009-11-1 22:16
标题: 【飞狐】缺口跟踪
fh:=h;fl:=l;* }7 {' L! w* a7 K7 A
for p=datacount-1 downto 1 do begin
% E+ ~. F+ z' t3 L2 }6 L! }+ U  if fh[p]<fh[p+1] then
: K0 o/ ?) s. }) M    fh[p]:=fh[p+1];
6 T" D, F: L* O) N  if fl[p]>fl[p+1] then  U  U8 S1 S0 U3 f
   fl[p]:=fl[p+1];/ h4 o+ }; `0 [& ^7 U( a3 B8 j
end;5 Q; f+ ~: F1 H* }" p
qk:=l>ref(h,1)OR H<ref(L,1);7 o- t9 o/ Y. `3 \
G:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));* f+ X( D7 `+ a9 Q0 j, x2 v8 l
D:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));" [7 i- C+ ], \" O/ r2 `
S:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));: ?7 b9 ^" `. o( _4 D
tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;
7 n( T6 Q( H# q& \$ l$ A0 L* gw:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;3 j( J3 w8 u  D7 ]( n5 L: S' q5 H
DD:=DATE;2 b4 @  R6 f$ J6 \
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
) R, F/ s9 Y' s6 I# US1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));
. _. C9 V, m5 S2 f; @% b" QS2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));1 i; ~. q6 j1 j8 u7 U; n0 [
A:=MAX(S1,S2);
2 {1 S& E- w" L0 T! ^, qB:=MIN(S1,S2);# g8 K8 T( q" ]4 n/ s, @; f3 I
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;
; ^6 Q! l$ t4 p8 G) T→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;
% E) n! _: c) R8 o) O4 xSTICKLINE(w,S1,S2,15,0),COLORGRAY;
; W3 d' ~1 u& `$ X+ nDRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}8 o% d2 O$ _3 G; `0 k; Q+ y
hh:=h;LL:=L;DD:=DATE;
( H3 ]6 Z) O! y; t, J( ~* B6 Ugb:=SYSPARAM(1);' R6 F4 N7 x9 X9 w/ g$ d/ ]  m5 c) p" B$ \
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;! W2 G) M( `: B, o* T
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
- J* k2 h1 u; j. A  EXQS:=ubound(下突缺口),LINETHICK0;, a- n; Z1 _; |# `
s1:=SUMBARS(上突缺口,1);! D3 f7 M) l) y2 |
s2:=SUMBARS(上突缺口,2);
: N5 h& [' a7 \4 a2 u  ~: ^x1:=SUMBARS(下突缺口,1);
; H: ^/ w* Y+ F2 V. kx2:=SUMBARS(下突缺口,2);3 b& s$ b4 o5 E" E
上突位置1:=gb-s1[gb]+1,LINETHICK0;9 K/ o/ [# L. m( h: m4 k
下突位置1:=gb-x1[gb]+1,LINETHICK0;. H% A4 k/ d3 x+ e7 V
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
& W( S! v8 V4 b, e' hDRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;* l; q; k) {! e/ e
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;# w! s9 E" A& w( w" j' J7 b
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;
7 h( u$ T3 Q, P* a% \3 w% fXQ1:=LL[下突位置1-1];$ G1 p3 ]( s4 ~5 g9 C
XQD:=DD[下突位置1];
/ q# {, h% i% d$ G$ s4 g( {2 U8 DBXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
3 R7 Y3 }7 p; E# P7 a0 W* D4 v- RBXQ:=FILTER(BXQ,XQS-下突位置1);
' Y8 w" y. I4 t5 eSQ1:=HH[上突位置1-1];$ P/ Q- z  n" e) I4 B
SQD:=DD[上突位置1];
" A) a; c) s4 o; h5 c上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
- N! l& ?5 j- ^. X. G" J下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
0 p$ t6 C0 z. N1 @& iBSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
& t4 n: O( |5 U  {2 z# V) MDRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;
/ D8 }! z' a( [  }- F( B& y) c2 }4 kDRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
7 q5 j2 I3 H2 e2 s0 `0 aDRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;* D9 Y! p! ^4 E5 R6 r: a
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;8 `; u" O7 L$ Q8 v2 Z1 E5 P# ~/ c9 o
//
作者: 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