通达信魔鬼K线副图源码

VAR1:=REF(OPEN,1);
VAR2:=SMA(MAX(OPEN-VAR1,0),6,1)/SMA(ABS(OPEN-VAR1),6,1)*100;
VAR3:=REF(CLOSE,1);
VAR4:=SMA(MAX(CLOSE-VAR3,0),6,1)/SMA(ABS(CLOSE-VAR3),6,1)*100;
VAR5:=REF(HIGH,1);
VAR6:=SMA(MAX(HIGH-VAR5,0),6,1)/SMA(ABS(HIGH-VAR5),6,1)*100;
VAR7:=REF(LOW,1);
VAR8:=SMA(MAX(LOW-VAR7,0),6,1)/SMA(ABS(LOW-VAR7),6,1)*100;

STICKLINE(VAR4 VAR2,VAR2,VAR4,5,0),COLORGREEN , ;
STICKLINE(VAR4 VAR2,VAR2,VAR4,5,0),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR4,VAR4,VAR6,0.5,1),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR4,VAR4,VAR6,0.5,1),COLORRED ,;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR4,VAR4,VAR8,0.5,1),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR2,VAR2,VAR8,0.5,1),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR2,VAR2,VAR8,0.5,1),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR2,VAR2,VAR6,0.5,1),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR2,VAR2,VAR6,0.5,1),COLORRED , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR4,VAR4,VAR8,0.5,1),COLORGREEN , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR4,VAR4,VAR6,0.5,1),COLORGREEN , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR4,VAR4,VAR8,0.5,1),COLORGREEN , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR4,VAR2,VAR8,0.5,1),COLORGREEN ,;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR6 VAR4,VAR2,VAR8,0.5,1),COLORGREEN , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR2,VAR2,VAR6,0.5,1), COLORGREEN , ;
STICKLINE(VAR4 VAR2 AND VAR6 VAR8 AND VAR8 VAR2,VAR2,VAR6,0.5,1),COLORGREEN , ;