通达信免费资金流向指标 源码

通达信免费资金流向指标 源码

{股海网提供：www.guhai.com.cn}

总额:=AMOUNT;
 买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
 买%:=买/AMOUNT*100;
 流入:=AMOUNT*买%/10000000000;
流出:=AMOUNT/100000000-流入;
 净流:=流入-流出;
 总额3:=SUM(AMOUNT,3);
 流入3:=SUM(流入,3);
 流出3:=SUM(流出,3);
 净流3:=SUM(流入-流出,3);
 总额5:=SUM(AMOUNT,5);
 流入5:=SUM(流入,5);
 流出5:=SUM(流出,5);
 净流5:=SUM(流入-流出,5);
 总额10:=SUM(AMOUNT,10);
 流入10:=SUM(流入,10);
 流出10:=SUM(流出,10);
 净流10:=SUM(流入-流出,10);
 画:=CONST(FINDHIGH(总额10,0,190,1));
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,30,0),ABS(画),DRAWNULL),RGB(0,30,50),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,27,26),CONST(总额),DRAWNULL),RGB(150,10,0),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,26,25),CONST(流入*100000000),DRAWNULL),RGB(250,0,250),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,25,24),CONST(流出*100000000),DRAWNULL),RGB(0,255,255),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,20,19),CONST(总额3),DRAWNULL),RGB(150,10,0),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,19,18),CONST(流入3*100000000),DRAWNULL),RGB(250,0,250),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,18,17),CONST(流出3*100000000),DRAWNULL),RGB(0,255,255),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,13,12),CONST(总额5),DRAWNULL),RGB(150,10,0),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,12,11),CONST(流入5*100000000),DRAWNULL),RGB(250,0,250),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,11,10),CONST(流出5*100000000),DRAWNULL),RGB(0,255,255),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,6,5),CONST(总额10),DRAWNULL),RGB(150,10,0),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,5,4),CONST(流入10*100000000),DRAWNULL),RGB(250,0,250),0,DRAWNULL);
 DRAWBAND(IF(BETWEEN(CURRBARSCOUNT,4,3),CONST(流出10*100000000),DRAWNULL),RGB(0,255,255),0,DRAWNULL);
 DRAWTEXT(CURRBARSCOUNT=30,画*0.89,'总额亿'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=30,画*0.78,'流入亿'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=30,画*0.67,'流出亿'),COLORCYAN;
 DRAWTEXT(CURRBARSCOUNT=30,画*0.57,'净流亿'),COLOR0099FF;
 DRAWTEXT(CURRBARSCOUNT=24,画*0.95,'1日'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=18,画*0.95,'3日'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=12,画*0.95,'5日'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=6,画*0.95,'10日'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=30,画*0.015,'(一)'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=23,画*0.015,'(三)'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=16,画*0.015,'(五)'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=9,画*0.015,'(十)'),COLORMAGENTA;
 DRAWNUMBER(CURRBARSCOUNT=25,画*0.89,CONST(总额/100000000)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=25,画*0.78,CONST(流入)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=25,画*0.67,CONST(流出)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=25,画*0.56,CONST(净流)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=19,画*0.89,CONST(总额3/100000000)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=19,画*0.78,CONST(流入3)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=19,画*0.67,CONST(流出3)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=19,画*0.56,CONST(净流3)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=13,画*0.89,CONST(总额5/100000000)), COLORDDFFFF;
 DRAWNUMBER(CURRBARSCOUNT=13,画*0.78,CONST(流入5)), COLORDDFFFF;
 DRAWNUMBER(CURRBARSCOUNT=13,画*0.67,CONST(流出5)), COLORDDFFFF;
 DRAWNUMBER(CURRBARSCOUNT=13,画*0.56,CONST(净流5)), COLORDDFFFF;
 DRAWNUMBER(CURRBARSCOUNT=7,画*0.89,CONST(总额10/100000000)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=7,画*0.78,CONST(流入10)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=7,画*0.67,CONST(流出10)),COLORYELLOW;
 DRAWNUMBER(CURRBARSCOUNT=7,画*0.56,CONST(净流10)),COLORYELLOW;