通达信冠军一号改编主图及选股指标公式源码

通达信冠军一号改编主图及选股指标公式源码

源码正文：

HH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORYELLOW,LINETHICK1{XG51};
LL:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORYELLOW,LINETHICK1{XG51};
D90H:=ema(HH,90),COLORWHITE,LINETHICK1{XG51};
D90L:=Ema(LL,90),COLORWHITE,LINETHICK1{XG51};
D90:(D90H+D90L)/2,COLORRED,LINETHICK1{XG51};
D1:=EMA(D90,10),COLORRED,LINETHICK1{XG51};
D2:=EMA(D1,10),COLORRED,LINETHICK1{XG51};
YM:EMA(SLOPE((CLOSE+HIGH+LOW)/3,24)*20+(CLOSE+HIGH+LOW)/3,48),COLORWHITE,LINETHICK1;  
YM1:=EMA(YM,5),COLORWHITE,LINETHICK1{XG51};
YM2:=EMA(YM1,5),COLORWHITE,LINETHICK1{XG51};
YMUP:=YM>YM2{XG51};
IF(YMUP,YM,DRAWNULL),LINETHICK1,COLORWHITE{XG51};
IF(YMUP,YM1,DRAWNULL),LINETHICK1,COLORWHITE{XG51};
YMD:=YM<=YM2{XG51};
IF(YMD,YM,DRAWNULL),LINETHICK1,COLORCYAN{XG51};
IF(YMD,YM1,DRAWNULL),LINETHICK1,COLORCYAN{XG51};
D90D:=EMA((CLOSE+HIGH+LOW)/3,5)<=D90{XG51};
D90UP:=EMA((CLOSE+HIGH+LOW)/3,5)>D90{XG51};
D90A:IF(D90UP,D90,DRAWNULL),LINETHICK1,COLORWHITE{XG51};
D90B:IF(D90UP,D1,DRAWNULL),LINETHICK1,COLORLICYAN{XG51};
XG:=D90UP AND REF(YMD,1) AND YMUP AND RANGE(YM/D90,1,1.1){XG51};
DRAWICON(XG,L*0.98,9){X~G.5!1~C~N~{};