bbd比例，比正版直观还好看 大智慧

阿朱

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;

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

至阴至柔

向高手学习,感谢分享

龙行天下2

向高手学习,感谢分享

理财师

学学看看，谢谢分享

墨人人

回复 1# 阿朱


    谢谢

墨人人

回复 1# 阿朱


    垃圾，骗钱