|
希望对大家有所帮助下面是源码：
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,VAR1 - VAR8,VAR1 + VAR8 * 5,1,0),COLORYELLOW;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,7.5,0),COLOR0000AA;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,7,0),COLOR0000AA;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,6,0),COLOR0000BB;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,5,0),COLOR0000CC;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,4,0),COLOR0000DD;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,3,0),COLOR0000EE;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,2,0),COLORRED;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,1,0),COLORRED;
STICKLINE(VAR9 >= 0,0,VAR7 * 3,0,0),COLORRED;
STICKLINE(VAR9 < 0,0,VAR7 * 3,8.5,0),COLOR777777;
STICKLINE(VAR9 < 0,0,VAR7 * 3,8,0),COLOR001100;
STICKLINE(VAR9 < 0,0,VAR7 * 3,7,0),COLOR003300;
STICKLINE(VAR9 < 0,0,VAR7 * 3,6,0),COLOR005500;
STICKLINE(VAR9 < 0,0,VAR7 * 3,5,0),COLOR007700;
STICKLINE(VAR9 < 0,0,VAR7 * 3,4,0),COLOR009900;
STICKLINE(VAR9 < 0,0,VAR7 * 3,3,0),COLOR00BB00;
STICKLINE(VAR9 < 0,0,VAR7 * 3,2,0),COLOR00DD00;
STICKLINE(VAR9 < 0,0,VAR7 * 3,1,0),COLORGREEN;
价位轴:0,LINETHICK2,COLORBLUE;
202108211321.jpg
|
