%>
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;
{没有其它颜色的原因是财务数据不全。};
{股票教程网-http://9188edu.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}