通达信变色线主图

 VAR1:=HIGH-REF(HIGH,1);

VAR2:=REF(LOW,1)-LOW;

VAR3:=EMA(IF(VAR1>0 AND VAR1>VAR2,VAR1,0),21);

VAR4:=EMA(IF(VAR2>0 AND VAR2>VAR1,VAR2,0),21);

VAR5:=VAR3*100/TR;

VAR6:=VAR4*100/TR;

VAR7:=EMA((VAR5-VAR6)/(VAR6+VAR5)*100,6)*2;

VAR8:=EMA(VAR7,6);

VAR9:=EMA(VAR7,20);

VAR10:=(VAR7-2*VAR9+VAR8)/2;

VAR11:=EMA(DCLOSE,12)-EMA(DCLOSE,26);

VAR12:=EMA(VAR11,9);{}

VAR13:=(VAR11-VAR12)*2;

VAR14:=EMA(CLOSE,12)-EMA(CLOSE,26);

VAR15:=EMA(VAR14,9);

VAR16:=(VAR14-VAR15)*2;

VAR17:=MA(C,13);

VAR18:=SMA(VAR17,3,1);

{慢}

IF(VAR10>=0,VAR18,DRAWNULL),COLORRED;

IF(VAR10>=0 AND VAR10<=REF(VAR10,1),VAR18,DRAWNULL),COLORGREEN;

IF(VAR10<0,VAR18,DRAWNULL),COLORBLACK;

IF(VAR10<0 AND VAR10>=REF(VAR10,1),VAR18,DRAWNULL),COLORWHITE;

{中}

IF(VAR16>=0,VAR18*0.997,DRAWNULL),COLORRED;

IF(VAR16>=0 AND VAR16<=REF(VAR16,1),VAR18*0.997,DRAWNULL),COLORGREEN;

IF(VAR16<0,VAR18*0.997,DRAWNULL),COLORBLACK;

IF(VAR16<0 AND VAR16>=REF(VAR16,1),VAR18*0.997,DRAWNULL),COLORWHITE;

{快}

IF(VAR13>=0,VAR18*0.995,DRAWNULL),COLORRED;

IF(VAR13>=0 AND VAR13<=REF(VAR13,1),VAR18*0.995,DRAWNULL),COLORGREEN;

IF(VAR13<0,VAR18*0.995,DRAWNULL),COLORBLACK;

IF(VAR13<0 AND VAR13>=REF(VAR13,1),VAR18*0.995,DRAWNULL),COLORWHITE;

原理解析：
 VAR1赋值:最高价-1日前的最高价
VAR2赋值:1日前的最低价-最低价
如果VAR1>0 AND VAR1>VAR2返回VAR1否则返回0
如果VAR2>0 AND VAR2>VAR1返回VAR2否则返回0
VAR5赋值:VAR3*100/TR
VAR6赋值:VAR4*100/TR
VAR7赋值:EMA((VAR5-VAR6)/(VAR6+VAR5)*100,6)*2
VAR8赋值:VAR7的6日指数移动平均
VAR9赋值:VAR7的20日指数移动平均
VAR10:=(VAR7-2*VAR9+VAR8)/2
VAR11:=D收盘价的12日指数移动平均-D收盘价的26日指数移动平均
VAR12:=VAR11的9日指数移动平均
{}
VAR13:=(VAR11-VAR12)*2
VAR14:=收盘价的12日指数移动平均-收盘价的26日指数移动平均
VAR15:=VAR14的9日指数移动平均
VAR16:=(VAR14-VAR15)*2
VAR17:=C的13日简单移动平均
VAR17的3日[1日权重]移动平均
如果VAR10>=0返回VAR18否则返回DRAWNULL
IF(VAR10>=0 AND VAR10<=1日前的VAR10,VAR18,DRAWNULL),画绿色
如果VAR10<0返回VAR18否则返回DRAWNULL
IF(VAR10<0 AND VAR10>=1日前的VAR10,VAR18,DRAWNULL),画白色
如果VAR16>=0返回VAR18*0.997否则返回DRAWNULL
IF(VAR16>=0 AND VAR16<=1日前的VAR16,VAR18*0.997,DRAWNULL),画绿色
如果VAR16<0返回VAR18*0.997否则返回DRAWNULL
IF(VAR16<0 AND VAR16>=1日前的VAR16,VAR18*0.997,DRAWNULL),画白色
如果VAR13>=0返回VAR18*0.995否则返回DRAWNULL
IF(VAR13>=0 AND VAR13<=1日前的VAR13,VAR18*0.995,DRAWNULL),画绿色
如果VAR13<0返回VAR18*0.995否则返回DRAWNULL
IF(VAR13<0 AND VAR13>=1日前的VAR13,VAR18*0.995,DRAWNULL),画白色