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

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

作者: 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 发表
0 {" r+ y, M( b" `5 ]( Y你看这个行吗

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

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

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

原帖由 CASDAQ 于 2009-11-1 20:23 发表
: j6 g1 p1 M( G& P9 H( i ^, E2 N9 ^到公式区里收一下，多了去了

作者: 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;
# a" }* s5 l; E5 I& U' b  if HH>pH then pH:=HH;$ X7 y# k+ Z% O+ v( j. X" ]
  if tk=1 and pL<=HH[i-1] then tk:=0;. {2 g0 V8 e% H+ T: h7 s' M
  if tk=-1 and pH>=LL[i-1] then tk:=0;3 f' U* ^( F) B9 `( D
end;
4 C0 p2 \( t) Q8 z' I1 T( |3 X- wDRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
8 Z1 H: ], D* B& h$ O. ?  CDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
- f) {7 W8 q' }# y+ c& \DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;' B3 i! |" \' J( P
DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
) @3 x# [7 k  w向上跳空未回补:count(tk=1,0),linethick0;* T# X7 e; f! K
向下跳空未回补:count(tk=-1,0),linethick0
作者: axcqy 时间: 2009-11-1 20:50

原帖由 我赢8888 于 2009-11-1 20:44 发表   ^& @4 u! D( J
给你原码$ l: W# e6 @; G' F% G  v. X

3 V7 n/ m0 K9 Jif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
; X6 o6 ?7 }, I4 R) Z. j. F- C1 h下突缺口:=h
" U9 A# `! `4 ~- t) l8 X2 a8 o

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

原帖由 我赢8888 于 2009-11-1 20:44 发表
5 k9 `2 f2 M& g6 M给你原码: _1 P% _! T! }" i, E

) O) \5 g3 v) j* Fif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
8 V, M( S" r  ~2 }' t, ^下突缺口:=h
- h4 I& z; D. `9 E
行12  语法错误；不知是什原因
作者: 笨奔 时间: 2009-11-1 21:21
缺口是很重要的,  J  {% G- L/ Z
黄为向上跳空缺口,兰向下跳空缺口
1 q  `: E3 T( E2 G2 @, n! h7 J3 t) X+ Z" p5 B, g
[ 本帖最后由笨奔于 2009-11-1 21:27 编辑 ]
作者: xmhenry 时间: 2009-11-1 22:07
在副图里显示缺口比较好. 例如, 30MIN图里就可把本周期/日线周期/周线的缺口大小/高/低点都表示出来
作者: shongshu 时间: 2009-11-1 22:16
标题: 【飞狐】缺口跟踪
fh:=h;fl:=l;
8 L* Q+ U( z! v0 Ifor p=datacount-1 downto 1 do begin# }6 w! s6 }" u5 w  u) _, z
  if fh[p]<fh[p+1] then1 g; d! h: Q8 E; L# ]' }
   fh[p]:=fh[p+1];, Y8 G9 v- n& }  w7 {& I
  if fl[p]>fl[p+1] then
6 \9 Z) ?  u  S7 s, L. Q* ^    fl[p]:=fl[p+1];
8 N' h; l6 U6 i5 }+ j( }8 j2 lend;6 g. B1 O% I$ n2 r" O$ p) u( C  c% D8 I  t) f
qk:=l>ref(h,1)OR H<ref(L,1);. f- Y0 K: u9 v% E" {* t- Q
G:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));6 p1 z% g! u) Q& @; v1 \
D:=IF(l>ref(h,1),ref(H,1),IF(H<ref(L,1),H,0));; C* k9 @: C5 e! V
S:=IF(l>ref(h,1),2,IF(H<ref(L,1),1,0));* r5 A& K$ G3 w) H7 s* B, q' w, {
tj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;% \; Q* a* u3 W9 P, L* X( M( l' C
w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;: G* J2 F9 J3 r" y2 ?7 B! ]
DD:=DATE;% `. X9 L6 i# G' z$ d9 n
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;( |8 L6 {/ i7 u( m
S1:=IF(ref(S,W-1)=2,ref(fL,w-1),IF(ref(S,W-1)=1,ref(fH,w-1),0));$ C" C0 }' A( \+ f- s% |& @
S2:=IF(ref(S,W-1)=2,ref(D,w-1),IF(ref(S,W-1)=1,ref(G,w-1),0));
8 P0 m1 f  S& V( u1 jA:=MAX(S1,S2);
5 H  _) U9 t% o5 f# |" bB:=MIN(S1,S2);3 z5 w$ q# u# i: z" C
缺口:B[datacount],COLORWHITE,LINETHICK,,PRECISION2;1 ~* ^3 V4 m" K: J, K8 }0 B
→:A[datacount],COLORWHITE,LINETHICK,PRECISION2;& S4 ]: K- z6 t
STICKLINE(w,S1,S2,15,0),COLORGRAY;& Q! s5 L& p# y
DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),COLOR0099CC,ALIGN2;{显示缺口数字  可删除}
: T& A' G' P# G; Ghh:=h;LL:=L;DD:=DATE;% }! B3 I  T: ^
gb:=SYSPARAM(1);
3 ?" X; [5 z# M% V) f) K上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;/ r* L1 W0 R/ j2 _4 C) K4 e
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;2 B, Y( r* ^7 M; B1 x
XQS:=ubound(下突缺口),LINETHICK0;
6 S* G) {9 U8 O$ F% L$ Q+ z- ~s1:=SUMBARS(上突缺口,1);
5 N  V& b4 \3 ]8 t+ V7 l1 |s2:=SUMBARS(上突缺口,2);* P& I3 D+ E- ~' ]3 G& [4 D
x1:=SUMBARS(下突缺口,1);
, a! p/ V, j) u& }+ x! wx2:=SUMBARS(下突缺口,2);7 l% R/ w$ _/ p7 V+ L# H. L
上突位置1:=gb-s1[gb]+1,LINETHICK0;
! M0 s( f1 R. ~. K下突位置1:=gb-x1[gb]+1,LINETHICK0;
. z6 q8 P$ `1 C0 gDRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;: \" N- h; n! Q6 J* A$ b  o. ^
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
5 X3 B" s8 ]$ _1 CDRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;' k: ]- l4 \" |; S- _/ v3 i
DRAWTEXT(上突缺口,ref(h,1),'△'),COLOR00EEFF,PXUP15,ALIGN0;, ~( o+ H7 n; b+ l5 i7 D
XQ1:=LL[下突位置1-1];
$ w* M- Q% Q' g- `7 kXQD:=DD[下突位置1];
* Y( m0 f" R- z& @BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
+ C3 C8 }; b7 q# _6 wBXQ:=FILTER(BXQ,XQS-下突位置1);
* ~* J* `6 R  ESQ1:=HH[上突位置1-1];
$ [$ \4 K+ ]* HSQD:=DD[上突位置1];1 n/ H/ \' H( @6 T2 O
上缺日:IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;: G5 [# \/ R6 G1 ?5 Y6 E
下缺日:IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;$ d( [) t* ?# D1 D
BSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
1 l; F" X! U. u4 K- s1 b& m6 BDRAWTEXT(BSQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口\n '+numtostr(SQ1,2)),COLORFF99FF;5 s. A' `0 s; O# T: x
DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;: X# _/ _- `0 @5 ?" l: Y
DRAWTEXT(BXQ,(o+c)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口\n '+numtostr(XQ1,2)),COLOREEEE66;
, f- }; F7 c! f$ p6 sDRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
. N4 I  K- b' |4 S7 L//
作者: 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