分时组合(买卖分水岭,资金博弈\机构买卖)

这个指标比较直观地表示出个股的分时涨跌,资金的进出,包括能动力,希望高手进行优化:

MA25:EMA(CLOSE,25);
买卖分水岭:EMA(CLOSE,905);
STICKLINE((MA25 > 买卖分水岭),MA25,买卖分水岭,1,0),Color0000FF;
STICKLINE((MA25 < 买卖分水岭),MA25,买卖分水岭,1,0),Color00FF00;
DRAWICON(CROSS(MA25,买卖分水岭),(买卖分水岭 * 0.98),6);

{资金博弈}
分钟数:IF(TIME0/60-570<=130,TIME0/60-570,TIME0/60-660),PRECIS0,linethick0;
总成交量:=SUM(VOL,分钟数+1)/100;
总成交额:=SUM(AMOUNT,分钟数+1)/10000;
{逐笔总量:=SUM(ordervol(1,0)-ordervol(2,0),分钟数)/100;
逐笔总额:ma((逐笔总量/总成交量*总成交额),0),linethick2,colorred;}
特单净量:=SUM(ordervol(1,3)-ordervol(2,3),分钟数)/100;
特单净额:特单净量/总成交量*总成交额,colorred;
主力净量:=SUM(ordervol(1,2)-ordervol(2,2),分钟数)/100;
主力净额:主力净量/总成交量*总成交额,colorff00ff;
散户净量:=SUM(-(ordervol(1,1)-ordervol(2,1)),分钟数)/100;
散户净额:散户净量/总成交量*总成交额,colorgreen;
drawicon(cross(主力净额,散户净额),主力净额*1.8,1),align1;
0,colorgreen;

VAR0:=VOL/CLOSE/2;
VAR1:=SUM(IF(VAR0 > 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0);
VAR2:=SUM(IF(VAR0 > 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0);
VAR3:=SUM(IF(VAR0 < 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0);
VAR4:=SUM(IF(VAR0 < 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0);
VAR5:=VAR1 + VAR2 + VAR3 + VAR4;
VAR6:=IF(BARSTATUS=2,100 * VAR1/VAR5,0);
VAR7:=IF(BARSTATUS=2,100 * VAR2/VAR5,0);
VAR8:=IF(BARSTATUS=2,100 * VAR3/VAR5,0);
VAR9:=IF(BARSTATUS=2,100 * VAR4/VAR5,0);
机构买盘:VAR1,LINETHICK3,COLORFF55FF;
机构卖盘:VAR2,LINETHICK3,COLORFFFF55;
散户买盘:VAR3,COLOR5555FF;
散户卖盘:VAR4,COLOR55FF55;
DRAWTEXTREL(950,870,'机构买盘'),COLORFF00ff;
DRAWTEXTREL(950,570,'机构卖盘'),COLORFFFF00;
DRAWTEXTREL(950,320,'散户买盘'),COLOR0000FF;
DRAWTEXTREL(950,50,'散户卖盘'),COLOR00FF00;
IF BARSTATUS=2 THEN BEGIN
DRAWTEXTREL(1030,870,'' + FLOOR(VAR6) + '%'),COLORFF00FF;
END
IF BARSTATUS=2 THEN BEGIN
LOOP0:=FLOOR(VAR7);
VAR10:='' + LOOP0;
VAR11:=VAR10 + '%';
DRAWTEXTREL(1030,570,VAR11),COLORFFFF00;
END
IF BARSTATUS=2 THEN BEGIN
LOOP1:=FLOOR(VAR8);
VAR12:='' + LOOP1;
VAR13:=VAR12 + '%';
DRAWTEXTREL(1030,320,VAR13),COLOR0000FF;
END
IF BARSTATUS=2 THEN BEGIN
LOOP2:=FLOOR(VAR9);
VAR14:='' + LOOP2;
VAR15:=VAR14 + '%';
DRAWTEXTREL(1030,50,VAR15),COLOR00FF00;
END;