BBD比例，比正版直观还好看{BBD比例}
VAR0:=HOUR;
VAR1:=VOL;
VAR2:=VAR1/CAPITAL;
VAR3:=BIGORDER(1,2) + BIGORDER(2,2);
VAR4:=BIGORDER(1,2) - BIGORDER(2,2);
{VAR5:=VAR2 * VAR3 * 100;}
VAR6:=VAR2 * VAR4 ;
IF VAR0 > 0 THEN BEGIN
VOLUME:VAR1,VOLSTICK;
END
ELSE BEGIN
{VAR7:=CAPITAL * VAR5/1000;}
VAR8:CAPITAL * VAR6/8,LINETHICK0;
{VAR9:=CLOSE - REF(CLOSE,1);}
{LOOP1:=VAR9 >= 0;
LOOP2:=VAR7 * 3;}
{STICKLINE(LOOP1,LOOP2,VAR1,7.6,3);}
{LOOP3:=VAR9 < 0;}
{STICKLINE(LOOP3,LOOP2,VAR1,7.6,3);}
{VAR10:=VAR1/MA(VAR1,55) * 100;}
END
STICKLINE(VAR8 < 0,0,VAR8 * -1,8.5,0),COLORff0000;
STICKLINE(VAR8 < 0,0,VAR8 * -1,8,0),COLORff3300;
STICKLINE(VAR8 < 0,0,VAR8 * -1,7,0),COLORff3300;
STICKLINE(VAR8 < 0,0,VAR8 * -1,6,0),COLORff5500;
STICKLINE(VAR8 < 0,0,VAR8 * -1,5,0),COLORff7700;
STICKLINE(VAR8 < 0,0,VAR8 * -1,4,0),COLORff9900;
STICKLINE(VAR8 < 0,0,VAR8 * -1,3,0),COLORffBB00;
STICKLINE(VAR8 < 0,0,VAR8 * -1,2,0),COLORffDD00;
STICKLINE(VAR8 < 0,0,VAR8 * -1,1,0),COLORffff00;
{red色bbd}
STICKLINE(VAR8 >= 0,0,VAR8 ,7.5,0),COLOR000055;
STICKLINE(VAR8 >= 0,0,VAR8 ,7.5,0),COLOR000055;
STICKLINE(VAR8 >= 0,0,VAR8 ,6,0),COLOR000066;
STICKLINE(VAR8 >= 0,0,VAR8 ,5,0),COLOR000077;
STICKLINE(VAR8 >= 0,0,VAR8 ,4,0),COLOR000099;
STICKLINE(VAR8 >= 0,0,VAR8 ,3,0),COLOR0000BB;
STICKLINE(VAR8 >= 0,0,VAR8 ,2,0),COLOR0000DD;
STICKLINE(VAR8 >= 0,0,VAR8 ,1,0),COLOR0000ff;
{没有其它颜色的原因是财务数据不全。};
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
