通达信分时均价线公式主图源码

以下是通达信分时均价线公式主图源码（无源码的请下载附件导入）

C,COLORWHITE;

ZSTJJ,COLORYELLOW;

IF(ZSTJJ/DYNAINFO(3)>1.05,ZSTJJ,DRAWNULL),COLORRED,LINETHICK3;

IF(ZSTJJ/DYNAINFO(3)<1.03,ZSTJJ,DRAWNULL),COLORGREEN;

MA5:=MA.MA1#DAY;

IF(BETWEEN(MA5,DYNAINFO(5),DYNAINFO(6)),MA5,DRAWNULL),COLORWHITE,LINETHICK2;

DRAWTEXT_FIX(1,0,0,0,STRCAT('MA5：',STRCAT(VAR2STR(MA5,2),'元'))),COLORWHITE;

IF(C>ZSTJJ,C,DRAWNULL),COLORRED,LINETHICK2;

GL:=C/ZSTJJ;

GLH:=GL=HHV(GL,0);

GLL:=GL=LLV(GL,0);

DRAWICON(FILTER(GLH AND GL>1.06,3),C,2);

DRAWICON(FILTER(GLL AND GL<0.95,3),C,1);

JV:=SUM(AMO,0)/100000000;

DRAWTEXT_FIX(1,0,0.9,0,STRCAT('成交额：',STRCAT(VAR2STR(JV,2),'亿'))),COLORFFFF00;

最高涨幅:=NK.庄O#DAY;

DRAWTEXT_FIX(1,0.892,0,0,STRCAT('最高：',STRCAT(VAR2STR(最高涨幅,2),'%'))),COLORLIMAGENTA;

放量:=CROSS(SUM(V,0),NK.庄I#DAY);

DRAWTEXT(放量,C,'放量'),COLORFFFF00;

今开:DYNAINFO(4);

IF(今开>=C,今开,DRAWNULL),COLORFFFF00,LINETHICK2;

IF(今开<C,今开,DRAWNULL),COLORRED,LINETHICK2;

DRAWTEXT(ISLASTBAR,今开,'今开'),COLORWHITE;

昨半:NK.庄Z#DAY,COLORFF00FF;

DRAWTEXT(ISLASTBAR,昨半,'昨半'),COLORFF00FF;

时间:=TIME2=100000;

N:=BARSLAST(时间);

CS1:CONST(IF(N,MAX(REF(HHV(H,0),N),DYNAINFO(4)),HHV(H,0))),DOTLINE,COLORFF00FF,LINETHICK2;

CS2:CONST(IF(N,MIN(REF(LLV(L,0),N),DYNAINFO(4)),LLV(L,0))),DOTLINE,COLORGREEN,LINETHICK2;

DRAWICON(CROSS(C,CS1),CS1,1);

DRAWICON(CROSS(C,CS2),CS2,2);

DRAWTEXT(ISLASTBAR,CS1,'左锋'),COLOR00FFFF;

DRAWTEXT(ISLASTBAR,CS2,'支撑'),COLORGREEN;

Y:="NK.庄Y#DAY";

KJ6:REFDATE(Y,DATE),COLORCYAN,LINETHICK2;

DRAWTEXT(ISLASTBAR,KJ6,'昨高'),COLORFFFF00;

K:="NK.庄K#DAY";

KJ5:REFDATE(K,DATE),COLORYELLOW,LINETHICK2;

DRAWTEXT(ISLASTBAR,KJ5,'昨收'),COLORYELLOW;

量能饱和:100*(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)),NODRAW;

DRAWRECTREL(100,30,390,50,RGB(0,200,200));

DRAWRECTREL(100,30,90+CONST(量能饱和*300/100),50,RGB(250,105,0));

DRAWTEXT_FIX(1,0,0.03,0,STRCAT(STRCAT('量能饱和度: ',CON2STR(量能饱和,1)),' ％ ')),COLORYELLOW;