通达信变色线主图源码

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;