希望对大家有所帮助下面是源码:
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;

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。