通达信分时五线分时主图指标 分时庄动提示 源码

{分时五线谱}
CC:="引用.ZL#DAY",COLOR00FF00;
现价:=C,LINETHICK2,COLORFFFF00;
均价2:SUM(C*V,BARSCOUNT(C))/SUM(V,BARSCOUNT(C)),COLOR00FFE1;
庄动:DRAWICON(CROSS(现价,引用.ZH#DAY),现价,13),COLORYELLOW;
DRAWTEXT(庄动,L*0.9985,'<---庄动'),COLORYELLOW;
RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;
MA1:=REF(C,JY);
MA2:=REF(MA1,JY);
MA3:=REF(MA2,JY);
MA4:=REF(MA3,JY);
MA5:=REF(MA4,JY);
MA6:=REF(MA5,JY);
MA7:=REF(MA6,JY);
MA8:=REF(MA7,JY);
MA9:=REF(MA8,JY);
CK:REFDATE((C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10,DATE),COLORAC59FF,CIRCLEDOT;
DRAWTEXT(ISLASTBAR,CK,' 参考线'),COLOR0000FF;
DRAWTEXT(ISLASTBAR,CK,' 参考线'),COLOR0000FF;
{DRAWTEXT(ISLASTBAR,引用.ZH#DAY,' 昨高'),COLOR0000FF;
DRAWTEXT(ISLASTBAR,引用.ZL#DAY,' 昨低'),COLOR00FF00;};

{引用}
ZH:REF(H,1);
ZL:REF(L,1);
ZHS:REF(VOL/(CAPITAL)*100,1);
ZZL:REF(VOL/10000,1);
ZRCJL:REF(VOL,1);