通达信变色线主图源码

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;