|
以下是通达信量价齐升、五山荒野版主图幅图选股源码（无源码的请下载附件导入）
{主图}
ZT:=C>REF(C,1)*1.095 AND C=H;
M5:MA(C,5);
M10:MA(C,10);
YT:=BARSLAST(C>O);
LY:=REF(L,YT);
TJ1:=REF(EVERY(L>M5,2),1) AND REF(EXIST(ZT,5),1);
TJ2:=BETWEEN(L/M5,0.995,1.005) AND C>REF(C,5) AND V>REF(V,5) AND C>M5 AND H<REF(LY,1);
TJ3:=REF(EVERY(L>M5,2),1) AND REF(EXIST(ZT,10),1);
TJ4:=BETWEEN(L/M10,0.99,1.01) AND C>REF(C,10) AND V>REF(V,10) AND C>M10 AND H<REF(LY,1);
XG:=TJ1 AND TJ2;
XG1:=TJ3 AND TJ4;
DRAWICON(CROSS(XG OR XG1,0.5),L*0.95,1);
STICKLINE(CROSS(XG OR XG1,0.5),C,O,2,0),COLORYELLOW;
STICKLINE(CROSS(XG OR XG1,0.5),L,H,0,0),COLORYELLOW;
{幅图}
ZT:=C>REF(C,1)*1.095 AND C=H;
M5:=MA(C,5);
M10:=MA(C,10);
YT:=BARSLAST(C>O);
LY:=REF(L,YT);
TJ1:=REF(EVERY(L>M5,2),1) AND REF(EXIST(ZT,5),1);
TJ2:=BETWEEN(L/M5,0.995,1.005) AND C>REF(C,5) AND V>REF(V,5) AND C>M5 AND H<REF(LY,1);
TJ3:=REF(EVERY(L>M5,2),1) AND REF(EXIST(ZT,10),1);
TJ4:=BETWEEN(L/M10,0.99,1.01) AND C>REF(C,10) AND V>REF(V,10) AND C>M10 AND H<REF(LY,1);
XG2:=TJ1 AND TJ2;
XG1:=TJ3 AND TJ4;
XG:=XG1 OR XG2;
STICKLINE(CROSS(XG,0.5),0,6,1.2,0),COLORYELLOW;
{选股}
ZT:=C>REF(C,1)*1.095 AND C=H;
M5:=MA(C,5);
M10:=MA(C,10);
YT:=BARSLAST(C>O);
LY:=REF(L,YT);
TJ1:=REF(EVERY(L>M5,2),1) AND REF(EXIST(ZT,5),1);
TJ2:=BETWEEN(L/M5,0.995,1.005) AND C>REF(C,5) AND V>REF(V,5) AND C>M5 AND H<REF(LY,1);
TJ3:=REF(EVERY(L>M5,2),1) AND REF(EXIST(ZT,10),1);
TJ4:=BETWEEN(L/M10,0.99,1.01) AND C>REF(C,10) AND V>REF(V,10) AND C>M10 AND H<REF(LY,1);
XG2:=TJ1 AND TJ2;
XG1:=TJ3 AND TJ4;
XG:CROSS(XG1 OR XG2,0.5);
7011857.jpg
70111083.jpg
|
