金叉上移(鹏腾2009版本)主图 源码 选股 贴图

以下是金叉上移(鹏腾2009版本)主图 源码 选股 贴图（无源码的请下载附件导入）

思路：取30日与60日两次金叉，金叉窄幅上移，现最高价与最大量大于上次金叉成立最高价与最大量,可理解为w底或中型双底。

金叉上移(鹏腾2009版本)主图 源码 选股 贴图

思路：取30日与60日两次金叉，金叉窄幅上移，现最高价与最大量大于上次金叉成立最高价与最大量,可理解为w底或中型双底。

{主图}

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);

657155519.jpg