通达信自适应均线A主图指标

源码

DIR1:=ABS(CLOSE-REF(CLOSE,5));
    VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
    ER1:=DIR1/VIR1;
    CS1:=ER1*(0.8-2/8)+2/8;
    CQ1:=CS1*CS1;
    AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;

    DIR2:=ABS(CLOSE-REF(CLOSE,10));
    VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
    ER2:=DIR2/VIR2;
    CS2:=ER2*(0.8-2/24)+2/24;
    CQ2:=CS2*CS2;
    AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;
    AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORBLUE,LINETHICK2;
    AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;