通达信资金博弈成交量副图源码

DRAWRECTREL(100,200,220,150,RGB(51,153,204))NOFRAME;{青色}
DRAWRECTREL(100,200,100+240*CONST(大单流入限制/100),150,RGB(243,83,81))NOFRAME;{红色}
{机构参与度}
DRAWRECTREL(100,275,340,225,RGB(50,185,84))NOFRAME;{绿色}
DRAWRECTREL(100,275,220,225,RGB(51,153,204))NOFRAME;{青色}
DRAWRECTREL(100,275,100+240*CONST(机构参与度/100),225,RGB(243,83,81))NOFRAME;{红色}
{主动买卖比}
DRAWRECTREL(100,350,340,300,RGB(50,185,84))NOFRAME;{绿色}
DRAWRECTREL(100,350,220,300,RGB(51,153,204))NOFRAME;{青色}
DRAWRECTREL(100,350,100+240*CONST(主买C/100),300,RGB(243,83,81))NOFRAME;{红色}
{文字}
{DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'资金博弈今日持仓'),COLORLIBLUE;}
DRAWTEXT_FIX(1,0.00,0.070,0,STRCAT(STRCAT('资金流入比: ',CON2STR(总流入比,2)),' ％')),COLORWHITE;
DRAWTEXT_FIX(1,0.00,0.142,0,STRCAT(STRCAT('大单流入比: ',CON2STR(大单流入限制,2)),' ％买')),COLORWHITE;
DRAWTEXT_FIX(1,0.00,0.215,0,STRCAT(STRCAT('机构参与度: ',CON2STR(机构参与度,2)),' ％')),COLORWHITE;
DRAWTEXT_FIX(1,0.00,0.290,0,STRCAT(STRCAT('主动买卖比: ',CON2STR(主买C,2)),' ％')),COLORWHITE;

{L2资金博弈}
DRAWRECTREL(0,400,188,999,IF(120,RGB(50,50,50),0))NOFRAME;
{超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;}
净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),NODRAW;
超大单:=(超B)-(超S),NODRAW;
大单:=(大B)-(大S),NODRAW;
中单:=(中B)-(中S),NODRAW;
小单:=(小B)-(小S),NODRAW;
DAZHI:=CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;
DRAWRECTREL(5,CONST(950-(ABS(净流入)*500/DAZHI)),33,950,IF(CONST(净流入)>0,RGB(236,48,129),RGB(51,153,204)))NOFRAME;
DRAWRECTREL(41,CONST(950-(ABS(超大单)*500/DAZHI)),69,950,IF(CONST(超大单)>0,RGB(243,83,81),RGB(50,185,84)))NOFRAME;
DRAWRECTREL(77,CONST(950-(ABS(大单)*500/DAZHI)),105,950,IF(CONST(大单)>0,RGB(243,83,81),RGB(50,185,87)))NOFRAME;
DRAWRECTREL(113,CONST(950-(ABS(中单)*500/DAZHI)),141,950,IF(CONST(中单)>0,RGB(243,83,81),RGB(50,185,87)))NOFRAME;
DRAWRECTREL(149,CONST(950-(ABS(小单)*500/DAZHI)),177,950,IF(CONST(小单)>0,RGB(243,83,81),RGB(50,185,87)))NOFRAME;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.041,0.40,0,'今日资金 单位:万元'),COLORCYAN;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.006,0.51,0,INTPART(净流入)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.043,0.58,0,INTPART(超大单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.078,0.65,0,INTPART(大单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.115,0.72,0,INTPART(中单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.152,0.79,0,INTPART(小单)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.006,0.98,0,'净流入'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.040,0.98,0,'超大单'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.080,0.98,0,'大单'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.116,0.98,0,'中单'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.153,0.98,0,'小单'),COLORWHITE;

{L2资金N天统计}
N:=5;{默认5天}
DRAWRECTREL(350,400,188,999,IF(120,RGB(50,50,0),0))NOFRAME;
{超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S);
超大单:=(超B)-(超S);
大单:=(大B)-(大S);
中单:=(中B)-(中S);
小单:=(小B)-(小S);}
净流入N天和:=SUM(净流入,N);
超大单N天和:=SUM(超大单,N);
大单N天和:=SUM(大单,N);
中单N天和:=SUM(中单,N);
小单N天和:=SUM(小单,N);
DAZHIX:=CONST(MAX(ABS(净流入N天和),MAX(ABS(超大单N天和),MAX(ABS(大单N天和),MAX(ABS(中单N天和),ABS(小单N天和)))))),NODRAW;
DRAWRECTREL(230,CONST(950-(ABS(净流入N天和)*500/DAZHIX)),245,950,IF(CONST(净流入N天和)>0,RGB(192,0,64),RGB(0,128,128)))NOFRAME;
DRAWRECTREL(255,CONST(950-(ABS(超大单N天和)*500/DAZHIX)),270,950,IF(CONST(超大单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
DRAWRECTREL(280,CONST(950-(ABS(大单N天和)*500/DAZHIX)),295,950,IF(CONST(大单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
DRAWRECTREL(305,CONST(950-(ABS(中单N天和)*500/DAZHIX)),320,950,IF(CONST(中单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
DRAWRECTREL(330,CONST(950-(ABS(小单N天和)*500/DAZHIX)),345,950,IF(CONST(小单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.225,0.48,0,INTPART(净流入N天和)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.250,0.56,0,INTPART(超大单N天和)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.275,0.64,0,INTPART(大单N天和)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.300,0.72,0,INTPART(中单N天和)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.325,0.80,0,INTPART(小单N天和)),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.233,0.98,0,'净'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.257,0.98,0,'超'),COLORWHITE;

上一页  [1] [2] [3]  下一页