|
以下是通达信变色线主图源码（无源码的请下载附件导入）
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;
828211549.jpg
| 
