通达信资金分布副图指标 需要L2支持 源码分享 附图

2023-12-07 通达信资金分布副图指标 需要L2支持 源码分享 附图

超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;

TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);

净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S);

大宗净流入:=(超B+大B)-(超S+大S);

超大:=(超B)-(超S);

大:=(大B)-(大S);

中:=(中B)-(中S);

小:=(小B)-(小S);

总:=ABS(超大)+ABS(大)+ABS(中)+ABS(小);

超大单:=((超B)-(超S))*1000/总;

大单:=((大B)-(大S))*1000/总;

中单:=((中B)-(中S))*1000/总;

小单:=((小B)-(小S))*1000/总;

DAZHI:=CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;

近5净入:=REF(净流入,1);

近5超:=REF(超大单,1);

近5大:=REF(大单,1);

近5中:=REF(中单,1),;

近5小:=REF(小单,1);

近10净入:=REF(净流入,2);

近10超:=REF(超大单,2);

近10大:=REF(大单,2);

近10中:=REF(中单,2),;

近10小:=REF(小单,2);

近20净入:=REF(净流入,3);

近20超:=REF(超大单,3);

近20大:=REF(大单,3);

近20中:=REF(中单,3);

近20小:=REF(小单,3);

流入:=ABS(超B+大B+中B+小B)*1000/VOL;

流出:=ABS(超S+大S+中S+小S)*1000/VOL;

近5流入:=ABS(REF(超B,1)+REF(大B,1)+REF(中B,1)+REF(小B,1))*1000/VOL;

近5流出:=ABS(REF(超S,1)+REF(大S,1)+REF(中S,1)+REF(小S,1))*1000/VOL;

近10流入:=ABS(REF(超B,2)+REF(大B,2)+REF(中B,5)+REF(小B,2))*1000/VOL;

近10流出:=ABS(REF(超S,2)+REF(大S,2)+REF(中S,5)+REF(小S,2))*1000/VOL;

近20流入:=ABS(REF(超B,3)+REF(大B,3)+REF(中B,3)+REF(小B,3))*1000/VOL;

近20流出:=ABS(REF(超S,3)+REF(大S,3)+REF(中S,3)+REF(小S,3))*1000/VOL;

净流买比:=流入*100/(流入+流出);

净流买比5:=近5流入*100/(近5流入+近5流出);

净流买比10:=近10流入*100/(近10流入+近10流出);

净流买比20:=近20流入*100/(近20流入+近20流出);

AAS:=CONST(MAX(ABS(流入),ABS(流出)))*4,NODRAW;

{ 当日 }

DRAWRECTREL(0,0,243,999.2,IF(120,RGB(10,0,0),0));

{DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0,0.001,0,'单位(万元)'),COLORDDDDDD;}

DRAWRECTREL(10,ABS(CONST(880-(ABS(净流入)*50/DAZHI))),25,880,IF(CONST(净流入)>0,RGB(170,0,170),RGB(0,155,0)));

DRAWRECTREL(48,ABS(CONST(880-(ABS(超大单)))),80,880,IF(CONST(超大单)>0,RGB(240,130,140),RGB(23,125,255)));

DRAWRECTREL(96,ABS(CONST(880-(ABS(大单)))),128,880,IF(CONST(大单)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(144,ABS(CONST(880-(ABS(中单)))),176,880,IF(CONST(中单)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(192,ABS(CONST(880-(ABS(小单)))),224,880,IF(CONST(小单)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(30,205,190,145,RGB(0,140,0));

DRAWRECTREL(30,195,190,155,RGB(0,160,0));

DRAWRECTREL(30,185,190,165,RGB(0,180,0));

DRAWRECTREL(30,175,190,175,RGB(0,210,0));

DRAWRECTREL(30,205,30+CONST(净流买比*160/100),145,RGB(140,0,0));

DRAWRECTREL(30,195,30+CONST(净流买比*160/100),155,RGB(160,0,0));

DRAWRECTREL(30,185,30+CONST(净流买比*160/100),165,RGB(180,0,0));

DRAWRECTREL(30,175,30+CONST(净流买比*160/100),175,RGB(210,0,0));

DRAWTEXT_FIX(1,0.05,0.01,0,STRCAT(STRCAT('净流买比',CON2STR(净流买比,2)),'%')),COLORYELLOW;

DRAWRECTREL(110,205,110,145,RGB(250,250,0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.2,0.001,0,'当日'),COLORFFFFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.005,1,0,'净流'),COLORFFFFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.050,1,0,'超大'),COLOR00FFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.095,1,0,'大单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,1,0,'中单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.192,1,0,'小单'),COLORGREEN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.005,0.5,0,CEILING(净流入)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.048,0.55,0,CEILING(超大单)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.096,0.63,0,CEILING(大单)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.148,0.55,0,CEILING(中单)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.192,0.47,0,CEILING(小单)),COLORYELLOW;

{5日 }

DRAWRECTREL(243,0,505,999.2,IF(120,RGB(10,0,0),0));

DRAWRECTREL(260,ABS(CONST(880-(ABS(近5净入)*25/DAZHI))),275,880,IF(CONST(近5净入)>0,RGB(180,0,180),RGB(000,155,000)));

DRAWRECTREL(301,ABS(CONST(880-(ABS(近5超)))),333,880,IF(CONST(近5超)>0,RGB(240,130,140),RGB(23,125,255)));

DRAWRECTREL(349,ABS(CONST(880-(ABS(近5大)))),381,880,IF(CONST(近5大)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(397,ABS(CONST(880-(ABS(近5中)))),429,880,IF(CONST(近5中)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(445,ABS(CONST(880-(ABS(近5小)))),477,880,IF(CONST(近5小)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(280,205,440,145,RGB(0,155,0));

DRAWRECTREL(280,205,280+CONST(净流买比5*160/100),145,RGB(160,0,0));

DRAWTEXT_FIX(1,0.3,0.01,0,STRCAT(STRCAT('净流买比',CON2STR(净流买比5,2)),'%')),COLORYELLOW;

DRAWRECTREL(360,205,360,145,RGB(250,250,0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.460,0.001,0,'前1日'),COLORFFFFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.260,1,0,'净流'),COLORFFFFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.305,1,0,'超大'),COLOR00FFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.353,1,0,'大单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.400,1,0,'中单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.447,1,0,'小单'),COLORGREEN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.260,0.5,0,CEILING(近5净入)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.301,0.55,0,CEILING(近5超)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.349,0.630,0,CEILING(近5大)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.397,0.550,0,CEILING(近5中)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.445,0.470,0,CEILING(近5小)),COLORYELLOW;

{ 10 }

DRAWRECTREL(500,0,750,999.3,IF(120,RGB(10,0,0),0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.001,0,'前2日'),COLORFFFFFF;

DRAWRECTREL(520,ABS(CONST(880-(ABS(近10净入)*25/DAZHI))),535,880,IF(CONST(近10净入)>0,RGB(180,0,180),RGB(000,155,000)));

DRAWRECTREL(565,ABS(CONST(880-(ABS(近10超)))),595,880,IF(CONST(近10超)>0,RGB(240,130,140),RGB(23,125,255)));

DRAWRECTREL(613,ABS(CONST(880-(ABS(近10大)))),645,880,IF(CONST(近10大)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(661,ABS(CONST(880-(ABS(近10中)))),693,880,IF(CONST(近10中)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(709,ABS(CONST(880-(ABS(近10小)))),741,876,IF(CONST(近10小)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(530,205,690,145,RGB(0,155,0));

{DRAWRECTREL(530,195,690,155,RGB(0,175,0));

DRAWRECTREL(530,185,690,165,RGB(0,195,0));

DRAWRECTREL(530,175,690,175,RGB(0,225,0));}

DRAWRECTREL(530,205,530+CONST(净流买比10*160/100),145,RGB(160,0,0));

{DRAWRECTREL(530,195,530+CONST(净流买比20*160/100),155,RGB(180,0,0));

DRAWRECTREL(530,185,530+CONST(净流买比20*160/100),165,RGB(200,0,0));

DRAWRECTREL(530,175,530+CONST(净流买比20*160/100),175,RGB(230,0,0));}

DRAWTEXT_FIX(1,0.55,0.01,0,STRCAT(STRCAT('净流买比',CON2STR(净流买比10,2)),'%')),COLORYELLOW;

DRAWRECTREL(610,205,610,145,RGB(250,250,0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.520,1,0,'净流'),COLORFFFFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.565,1,0,'超大'),COLOR00FFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.618,1,0,'大单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.666,1,0,'中单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.710,1,0,'小单'),COLORGREEN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.520,0.5,0,CEILING(近10净入)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.565,0.55,0,CEILING(近10超)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.613,0.63,0,CEILING(近10大)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.661,0.55,0,CEILING(近10中)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.709,0.470,0,CEILING(近10小)),COLORYELLOW;

{ 20 }

DRAWRECTREL(750,0,1001,999.3,IF(120,RGB(10,0,0),0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.95,0.001,0,'前3日'),COLORFFFFFF;

DRAWRECTREL(770,ABS(CONST(880-(ABS(近20净入)*25/DAZHI))),785,880,IF(CONST(近20净入)>0,RGB(180,0,180),RGB(000,155,000)));

DRAWRECTREL(815,ABS(CONST(880-(ABS(近20超)))),845,880,IF(CONST(近20超)>0,RGB(240,130,140),RGB(23,125,255)));

DRAWRECTREL(863,ABS(CONST(880-(ABS(近20大)))),895,880,IF(CONST(近20大)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(911,ABS(CONST(880-(ABS(近20中)))),943,880,IF(CONST(近20中)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(959,ABS(CONST(880-(ABS(近20小)))),991,876,IF(CONST(近20小)>0,RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(800,205,960,145,RGB(0,155,0));

{DRAWRECTREL(800,195,960,155,RGB(0,175,0));

DRAWRECTREL(800,185,960,165,RGB(0,195,0));

DRAWRECTREL(800,175,960,175,RGB(0,225,0));}

DRAWRECTREL(800,205,800+CONST(净流买比20*160/100),145,RGB(160,0,0));

{DRAWRECTREL(800,195,800+CONST(净流买比20*160/100),155,RGB(180,0,0));

DRAWRECTREL(800,185,800+CONST(净流买比20*160/100),165,RGB(200,0,0));

DRAWRECTREL(800,175,800+CONST(净流买比20*160/100),175,RGB(230,0,0));}

DRAWTEXT_FIX(1,0.80,0.01,0,STRCAT(STRCAT('净流买比',CON2STR(净流买比20,2)),'%')),COLORYELLOW;

DRAWRECTREL(880,205,880,145,RGB(250,250,0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.770,1,0,'净流'),COLORFFFFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.815,1,0,'超大'),COLOR00FFFF;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.863,1,0,'大单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.911,1,0,'中单'),COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.959,1,0,'小单'),COLORGREEN;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.770,0.5,0,CEILING(近20净入)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.815,0.55,0,CEILING(近20超)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.863,0.63,0,CEILING(近20大)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.911,0.55,0,CEILING(近20中)),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.959,0.470,0,CEILING(近20小)),COLORYELLOW;