以下是金叉上移(鹏腾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);
