涨停王 分时副图源码

涨停王
{买卖}
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(ISLASTBAR,100 * VAR1/VAR5,0);
VAR7:=IF(ISLASTBAR,100 * VAR2/VAR5,0);
VAR8:=IF(ISLASTBAR,100 * VAR3/VAR5,0);
VAR9:=IF(ISLASTBAR,100 * VAR4/VAR5,0);
{机构买:=VAR1;
机构卖:=VAR2;
散户买:=VAR3;
散户卖:=VAR4;}

机构买:VAR1,LINETHICK9,COLOR031BFA;
机构卖:VAR2,LINETHICK9,COLORFFFF55;
散户买:VAR3,COLOR5FFFFF,DOTLINE;
散户卖:VAR4,COLOR55FF55,DOTLINE;

{DRAWTEXT(CROSS(机构买,1500),2500,'机会'),COLORYELLOW,LAYER0,LINETHICK4;}
{DRAWTEXTREL(1003,870,'机构买'),LINETHICK2,COLORRED;
DRAWTEXTREL(1003,570,'机构卖'),LINETHICK2,COLORFFFF55;
DRAWTEXTREL(1003,320,'散户买'),LINETHICK2,COLORWHITE;
DRAWTEXTREL(1003,50,'散户卖'),LINETHICK2,COLORYELLOW;}
A787:=BARSSINCE(V>0)+1;
均价787:=SUM(C*V,A787)/SUM(V,A787);

机:=FILTER(((CROSS(机构买,机构卖) OR (机构卖=0 AND CROSS(机构买,10))) AND C/DYNAINFO(3)>1.001 AND 机构买>机构卖),2400);
DRAWTEXT(机 AND C/DYNAINFO(3)>0.0113 AND C>=均价787 AND C> DYNAINFO(3),(机构买+1000)*1.35,'机会'),COLORF000FF,LINETHICK5;

风:=FILTER(((CROSS(机构卖,机构买) OR (机构买=0 AND CROSS(机构卖,100))) AND DYNAINFO(3)/C>1.0001 AND 机构买<机构卖),2400);
风2:=FILTER((CROSS(散户卖,机构买) OR (机构买=0 AND CROSS(机构卖,100))) AND DYNAINFO(3)/C>1.001,2400);
DRAWTEXT((风 OR 风2) AND DYNAINFO(3)/C>0.0113 AND C<=均价787 AND C< DYNAINFO(3),(机构买+1000)*1.35,'风险'),COLORFFFF00,LINETHICK5;