在此谢过瘦石老师辛勤力作。
说明:简化一下,隐去了部分条件,解决了主图压缩问题,看的更清晰些。
擅自改动,请瘦石老师见谅。
{分时五线谱}
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;}