大智慧成交量副图 源码

大智慧成交量副图 源码

主力增减一目了然。

 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 * 100;
 IF VAR0 > 0 THEN BEGIN
 VOLUME:VAR1,VOLSTICK;
 END
 ELSE BEGIN
 VAR7:=CAPITAL * VAR5/1000;
 VAR8:=CAPITAL * VAR6/100;
 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(LOOP1,LOOP2,VAR1,7.6,3),COLORRED;
 STICKLINE(LOOP3,LOOP2,VAR1,7.6,3),COLORGREEN;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,8.5,0),COLOR777777;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,8,0),COLOR111111;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,7,0),COLOR333333;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,6,0),COLOR555555;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,5,0),COLOR777777;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,4,0),COLOR999999;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,3,0),COLORBBBBBB;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,2,0),COLORDDDDDD;
 STICKLINE(VAR8 < 0,VAR1 - VAR8,VAR1 + VAR8 * 5,1,0),COLORWHITE;
 STICKLINE(VAR10 > 100,0,VAR1,5,0),COLOR000011;
 STICKLINE(VAR10 > 100,0,VAR1,4,0),COLOR000033;
 STICKLINE(VAR10 > 100,0,VAR1,3,0),COLOR000055;
 STICKLINE(VAR10 > 100,0,VAR1,2,0),COLOR000077;
 STICKLINE(VAR10 > 100,0,VAR1,1,0),COLOR000099;
 STICKLINE(VAR8 >= 0,VAR1 - VAR8,VAR1 + VAR8 * 5,7.5,0),COLOR005555;
 STICKLINE(VAR8 >= 0,VAR1 - VAR8,VAR1 + VAR8 * 5,6,0),COLOR006666;
 STICKLINE(VAR8 >= 0,VAR1 - VAR8,VAR1 + VAR8 * 5,5,0),COLOR007777;
 STICKLINE(VAR8 >= 0,VAR1 - VAR8,VAR1 + VAR8 * 5,4,0),COLOR009999;
 STICKLINE(VAR8 >= 0,VAR1 - VAR8,VAR1 + VAR8 * 5,3,0),COLOR00BBBB;
 STICKLINE(VAR8 >= 0,VAR1 - VAR8,VAR1 + VAR8 * 5,2,0),COLOR00DDDD;
 STICKLINE(VAR8 >= 0,VAR