|
以下是通达信分时均价线公式主图源码（无源码的请下载附件导入）
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;
134599373.png
|
