金叉上移主图及选股指标 通达信公式(附图)

[复制链接]
查看123 | 回复0 | 2021-8-20 19:54:18 | 显示全部楼层 |阅读模式

M30:=MA(C,30);
M60:=MA(C,60);
DRAWBAND(M30,RGB(233,0,18),M60,RGB(21,174,103));
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
T1:=BARSLAST(CROSS(M30,M60));
T2:=REF(T1,T1+1)+T1+1;
D1:DRAWLINE(CURRBARSCOUNT=CONST(T1)+1,M30,REF(CURRBARSCOUNT=CONST(T1)+1,1),REF(M30,1),1),DOTLINE,COLORGREEN;
D2:DRAWLINE(CURRBARSCOUNT=CONST(T2)+1,M30,REF(CURRBARSCOUNT=CONST(T2)+1,1),REF(M30,1),1),DOTLINE,COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=CONST(T1)+1,M30*1.02,VARCAT(VARCAT('金叉价:',VAR2STR(C,2)),'元'))COLORYELLOW,DRAWABOVE;
DRAWTEXT(CURRBARSCOUNT=CONST(T2)+1,M30*1.02,VARCAT(VARCAT('金叉价:',VAR2STR(C,2)),'元'))COLORYELLOW,DRAWABOVE;
A1:=REF(LLV(L,T1+1),SUMBARS(CROSS(M30,M60),0));
A2:=REF(LLV(L,T1+1),SUMBARS(CROSS(M30,M60),1));
V1:=REF(HHV(V,T1+1),SUMBARS(CROSS(M30,M60),0));
V2:=REF(HHV(V,T1+1),SUMBARS(CROSS(M30,M60),1));
A3:=A1>A2 AND V1>V2;
A4:=CROSS(A3,0.5) AND D1>D2 AND C/D1<1.3;
A5:=BARSLAST(A4);
XG:=COUNT(C>REF(C,A5),A5)=1 AND C>REF(C,A5);
DRAWICON(XG,LOW,1);
DRAWLINE(A4,C,REF(A4,1),REF(C,1),1),COLORYELLOW,LINETHICK2;
DRAWTEXT(A4,C,'双金叉上移'),DRAWABOVE,COLORYELLOW;

{
选股通达信公式(附图):

M30:=MA(C,30);
M60:=MA(C,60);
T1:=BARSLAST(CROSS(M30,M60));
T2:=REF(T1,T1+1)+T1+1;
D1:=DRAWLINE(CURRBARSCOUNT=CONST(T1)+1,M30,REF(CURRBARSCOUNT=CONST(T1)+1,1),REF(M30,1),1);
D2:=DRAWLINE(CURRBARSCOUNT=CONST(T2)+1,M30,REF(CURRBARSCOUNT=CONST(T2)+1,1),REF(M30,1),1);
A1:=REF(HHV(H,T1+1),SUMBARS(CROSS(M30,M60),0));
A2:=REF(HHV(H,T1+1),SUMBARS(CROSS(M30,M60),1));
V1:=REF(HHV(V,T1+1),SUMBARS(CROSS(M30,M60),0));
V2:=REF(HHV(V,T1+1),SUMBARS(CROSS(M30,M60),1));
A3:=A1>A2 AND V1>V2;
A4:=CROSS(A3,0.5) AND D1>D2 AND C/D1<1.3;
A5:=BARSLAST(A4);
XG:COUNT(C>REF(C,A5),A5)=1 AND C>REF(C,A5);
}

14O2531Z060-1O44.jpg

14O2531Z060-1O44.jpg

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则