bbd比例,比正版直观还好看(大智慧)

[复制链接]
查看168 | 回复0 | 2021-8-21 14:05:00 | 显示全部楼层 |阅读模式

VAR0:=HOUR;
VAR1:=VOL;
VAR2:=VAR1/CAPITAL*100;
VAR4:=BIGORDER(1) - BIGORDER(2);
VAR6:VAR2 * VAR4 ;
IF VAR0 > 0 THEN BEGIN
VOLUME:VAR1,VOLSTICK;
END
ELSE BEGIN
VAR8:=CAPITAL * VAR6;
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;

{没有其它颜色的原因是财务数据不全。};

202108211323.jpg

202108211323.jpg

202108211323.jpg

202108211323.jpg

 

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则