有没有显示缺口的公式？

axcqy · 发表于 2009-11-1 18:43:05

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

samyongq · 发表于 2009-11-1 18:45:26

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

我赢8888 · 发表于 2009-11-1 19:34:29

缺口公式多了去了

我赢8888 · 发表于 2009-11-1 19:40:13

你看这个行吗

axcqy · 发表于 2009-11-1 19:52:34

原帖由 我赢8888 于 2009-11-1 19:40 发表
. p6 \9 Q$ ^3 R1 w: ^ o+ f你看这个行吗

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

CASDAQ · 发表于 2009-11-1 20:23:38

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

axcqy · 发表于 2009-11-1 20:26:40

原帖由 CASDAQ 于 2009-11-1 20:23 发表 5 x$ m: a1 ]0 {- t# j Z
到公式区里收一下，多了去了

axcqy · 发表于 2009-11-1 20:39:48

已解决；谢谢！

我赢8888 · 发表于 2009-11-1 20:44:11

给你原码

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;
& s# j; C0 i( d" [" g2 \) U  if HH>pH then pH:=HH;
# O2 ^# m! G5 ?3 l& g- x: I  if tk=1 and pL<=HH[i-1] then tk:=0;; R) g; D& Z4 f" K+ ?" p) S2 k3 V
  if tk=-1 and pH>=LL[i-1] then tk:=0;# `5 v) T. t4 V3 F7 |# ]; _" ?6 h
end;1 s8 A- O  }# v0 I9 B
DRAWTEXT(tk=1,REF(c,1),'未补')COLORRED;
# b3 o; y; {% Y) f# M0 T0 A( hDRAWTEXT(tk=-1,REF(c,1),'未补')COLORCYAN;
* W/ I, V- Y. _* x" y. c1 ~DRAWSL(tk=1,REF(c,1),0,0,0)COLORRED;8 x) S5 m& k; x
DRAWSL(tk=-1,REF(c,1),0,0,0)COLORCYAN;
5 f; C7 D! R- S4 U# k4 e' D/ @* j向上跳空未回补:count(tk=1,0),linethick0;
8 ^5 @7 h) K( T+ d" e4 |; `向下跳空未回补:count(tk=-1,0),linethick0

axcqy · 发表于 2009-11-1 20:50:42

原帖由 我赢8888 于 2009-11-1 20:44 发表
4 @' F K; W$ G4 e$ Y2 {% t" Y' I给你原码
; t, v" T. ^- i% I7 a* l
- ]- L9 G, s" d0 b, j7 w, u2 Vif datacountREF(c,1)+dw,COLORRED,LINETHICK0;
8 X0 G! x0 |& ~2 j下突缺口:=h

axcqy · 发表于 2009-11-1 20:58:00

原帖由 我赢8888 于 2009-11-1 20:44 发表
4 z$ y7 u$ f6 H- l+ I给你原码
2 z9 O1 m% v$ Z2 u6 I: E9 E) J# K, d8 s
if datacountREF(c,1)+dw,COLORRED,LINETHICK0;
# a1 F5 f1 p- K0 g2 g( b6 y4 z下突缺口:=h

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

笨奔 · 发表于 2009-11-1 21:21:11

缺口是很重要的,
黄为向上跳空缺口,兰向下跳空缺口

[ 本帖最后由笨奔于 2009-11-1 21:27 编辑 ]

xmhenry · 发表于 2009-11-1 22:07:00

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

shongshu · 发表于 2009-11-1 22:16:44

fh:=h;fl:=l;
for p=datacount-1 downto 1 do begin
  if fh[p]<fh[p+1] then
   fh[p]:=fh[p+1];
  if fl[p]>fl[p+1] then
   fl[p]:=fl[p+1];
end;
qk:=l>ref(h,1)OR H<ref(L,1);
G:=IF(l>ref(h,1),L,IF(H<ref(L,1),ref(L,1),0));
D:=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 ;
w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJ*BARPOS=BARPOS)+1))+1;
DD:=DATE;
最近缺口日: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));
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;
gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=ubound(下突缺口),LINETHICK0;
s1:=SUMBARS(上突缺口,1);
s2:=SUMBARS(上突缺口,2);
x1:=SUMBARS(下突缺口,1);
x2:=SUMBARS(下突缺口,2);
上突位置1:=gb-s1[gb]+1,LINETHICK0;
下突位置1:=gb-x1[gb]+1,LINETHICK0;
DRAWTEXT(下突缺口,h,'△'),COLOREE9933,PXUP15,ALIGN0;
DRAWTEXT(下突缺口,ref(l,1),'▽'),COLOREE9933,ALIGN0;
DRAWTEXT(上突缺口,l,'▽'),COLOR00EEFF,ALIGN0;
DRAWTEXT(上突缺口,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;
BXQ:=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);
DRAWTEXT(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;
DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;
//

8991000 · 发表于 2009-11-1 22:37:09

缺口和角度线相关联很深

貔貅72 · 发表于 2009-11-2 07:57:52

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

shongshu · 发表于 2009-11-2 10:21:30

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

		自动登录	找回密码
密码			手机注册

有没有显示缺口的公式？

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

【飞狐】缺口跟踪

评分