通达信自适应移动均线

（盗用一下壹瓣杺埖老师所说的“自适应均线”这个概念）
这个指标是根据已知来预测未来的，所以只是参考。
指标表面上只有一两条均线，但却是有玄机的。
简单说一下指标的原理：
下图是一张用未来函数ZIG找出的股票前期波段高低点。

{公式在线提供：www.gszx.com.cn}
  

试想如果有这么一条均线，前期（我指定为D=8天以前）的两个低点（或更多）在该均线处都受到支撑，即它经过点1、点2或点3，那么可以认为下一次股价回调到该均线时，将受到一定程度的支撑，如果支撑失败股价跌破该均线，则认为该均线将成为压力线。
       我的目的便是找到这样的一条均线，以D天前的高低点为‘依据点’，如果周期为T的一条均线经过前期的‘依据点’最多，则画出该周期T的均线，EMA（C，T）。其中周期T是是会根据情况自动调整的，也就是说画出的均线会自动调整到最佳。
如果同时有两条或两条以上均线有相同多个‘依据点’，则会自动画出两条或两条以上的均线。
当然，当股价盘整走势时，有时画出的均线并不具有参考价值。而且为了说明方法，我举的例子是比较理想的。

上图是将均线附上去后的主图，图中的小人头是指假设小人头位置是最近一日的K线（通过调节D可以移动小人头，观察以前的均线情况）。上图图中的均线经过1、3两点，在图中小人头标记的那天，我们可以预测下一个支撑位5以及后面的压力位6' 。

指标源码：
{D:2 222 8}
DRAWICON(CURRBARSCOUNT=D-7 AND NOT(CURRBARSCOUNT=1),L,4);
{波段高低点}
G:=ZIG((H+MAX(C,O))/2,5);
G1:=G>REF(G,1) AND G>REFX(G,1);
D1:=G D:=ZIG((L+MIN(C,O))/2,5);
G2:=D>REF(D,1) AND D>REFX(D,1);
D2:=D GG:=FILTER(G1 OR G2,5) AND CURRBARSCOUNT>D;
DD:=FILTER(D1 OR D2,5) AND CURRBARSCOUNT>D;
{前期高低点距今}
GB1:=BARSLAST(GG);         
GB2:=REFV(GB1,GB1+1)+GB1+1;
GB3:=REFV(GB1,GB2+1)+GB2+1;
GB4:=REFV(GB1,GB3+1)+GB3+1;
DB1:=BARSLAST(DD);         
DB2:=REFV(DB1,DB1+1)+DB1+1;
DB3:=REFV(DB1,DB2+1)+DB2+1;
DB4:=REFV(DB1,DB3+1)+DB3+1;
{均线}
E2:=EMA(C,20);
               A21:=REFV(100*ABS(G-E2)/E2,GB1)<2; A22:=REFV(100*ABS(G-E2)/E2,GB2)<2;
               A23:=REFV(100*ABS(G-E2)/E2,GB3)<2; A24:=REFV(100*ABS(G-E2)/E2,GB4)<2;
               B21:=REFV(100*ABS(D-E2)/E2,DB1)<2; B22:=REFV(100*ABS(D-E2)/E2,DB2)<2;
               B23:=REFV(100*ABS(D-E2)/E2,DB3)<2; B24:=REFV(100*ABS(D-E2)/E2,DB4)<2;
               CX2:=A21+A22+A23+A24+B21+B22+B23+B24,NODRAW;
E3:=EMA(C,30);
               A31:=REFV(100*ABS(G-E3)/E3,GB1)<2; A32:=REFV(100*ABS(G-E3)/E3,GB2)<2;
               A33:=REFV(100*ABS(G-E3)/E3,GB3)<2; A34:=REFV(100*ABS(G-E3)/E3,GB4)<2;
               B31:=REFV(100*ABS(D-E3)/E3,DB1)<2; B32:=REFV(100*ABS(D-E3)/E3,DB2)<2;
               B33:=REFV(100*ABS(D-E3)/E3,DB3)<2; B34:=REFV(100*ABS(D-E3)/E3,DB4)<2;
               CX3:=A31+A32+A33+A34+B31+B32+B33+B34,NODRAW;
E4:=EMA(C,40);
               A41:=REFV(100*ABS(G-E4)/E4,GB1)<2; A42:=REFV(100*ABS(G-E4)/E4,GB2)<2;
               A43:=REFV(100*ABS(G-E4)/E4,GB3)<2; A44:=REFV(100*ABS(G-E4)/E4,GB4)<2;
               B41:=REFV(100*ABS(D-E4)/E4,DB1)<2; B42:=REFV(100*ABS(D-E4)/E4,DB2)<2;
               B43:=REFV(100*ABS(D-E4)/E4,DB3)<2; B44:=REFV(100*ABS(D-E4)/E4,DB4)<2;
               CX4:=A41+A42+A43+A44+B41+B42+B43+B44,NODRAW;
E5:=EMA(C,50);
               A51:=REFV(100*ABS(G-E5)/E5,GB1)<2; A52:=REFV(100*ABS(G-E5)/E5,GB2)<2;
               A53:=REFV(100*ABS(G-E5)/E5,GB3)<2; A54:=REFV(100*ABS(G-E5)/E5,GB4)<2;
               B51:=REFV(100*ABS(D-E5)/E5,DB1)<2; B52:=REFV(100*ABS(D-E5)/E5,DB2)<2;
               B53:=REFV(100*ABS(D-E5)/E5,DB3)<2; B54:=REFV(100*ABS(D-E5)/E5,DB4)<2;
               CX5:=A51+A52+A53+A54+B51+B52+B53+B54,NODRAW;
E6:=EMA(C,60);
               A61:=REFV(100*ABS(G-E6)/E6,GB1)<2; A62:=REFV(100*ABS(G-E6)/E6,GB2)<2;
               A63:=REFV(100*ABS(G-E6)/E6,GB3)<2; A64:=REFV(100*ABS(G-E6)/E6,GB4)<2;
    
MCX:=MAX(CX2,MAX(CX3,MAX(CX4,MAX(CX5,MAX(CX6,MAX(CX7,MAX(CX8,MAX(CX9,MAX(CX10,MAX(CX11,CX12))))))))));
P2:=CX2=MCX AND MCX>1; P3:=CX3=MCX AND MCX>1; P4:=CX4=MCX AND MCX>1; P5:=CX5=MCX AND MCX>1;P6:=CX6=MCX AND MCX>1;
P7:=CX7=MCX AND MCX>1; P8:=CX8=MCX AND MCX>1; P9:=CX9=MCX AND MCX>1; P10:=CX10=MCX AND MCX>1; P11:=CX11=MCX AND MCX&g
NOTEXT01:IF(NOTEXTEE0>=REF(NOTEXTEE0,1) AND 周期>1,NOTEXTEE0,DRAWNULL),COLORRED,LINETHICK2;
NOTEXT02:IF(NOTEXTEE0<=REF(NOTEXTEE0,1) AND 周期>1,NOTEXTEE0,DRAWNULL),COLORGREEN,LINETHICK2;
DRAWNUMBER(ISLASTBAR,EMA(C,周期),EMA(C,周期));
DRAWKLINE(H,O,L,C);

          B61:=REFV(100*ABS(D-E6)/E6,DB1)<2; B62:=REFV(100*ABS(D-E6)/E6,DB2)<2;
               B63:=REFV(100*ABS(D-E6)/E6,DB3)<2; B64:=REFV(100*ABS(D-E6)/E6,DB4)<2;
               CX6:=A61+A62+A63+A64+B61+B62+B63+B64,NODRAW;
E7:=EMA(C,70);
               A71:=REFV(100*ABS(G-E7)/E7,GB1)<2; A72:=REFV(100*ABS(G-E7)/E7,GB2)<2;
               A73:=REFV(100*ABS(G-E7)/E7,GB3)<2; A74:=REFV(100*ABS(G-E7)/E7,GB4)<2;
               B71:=REFV(100*ABS(D-E7)/E7,DB1)<2; B72:=REFV(100*ABS(D-E7)/E7,DB2)<2;
               B73:=REFV(100*ABS(D-E7)/E7,DB3)<2; B74:=REFV(100*ABS(D-E7)/E7,DB4)<2;
               CX7:=A71+A72+A73+A74+B71+B72+B73+B74,NODRAW;
E8:=EMA(C,80);
               A81:=REFV(100*ABS(G-E8)/E8,GB1)<2; A82:=REFV(100*ABS(G-E8)/E8,GB2)<2;
               A83:=REFV(100*ABS(G-E8)/E8,GB3)<2; A84:=REFV(100*ABS(G-E8)/E8,GB4)<2;
               B81:=REFV(100*ABS(D-E8)/E8,DB1)<2; B82:=REFV(100*ABS(D-E8)/E8,DB2)<2;
               B83:=REFV(100*ABS(D-E8)/E8,DB3)<2; B84:=REFV(100*ABS(D-E8)/E8,DB4)<2;
               CX8:=A81+A82+A83+A84+B81+B82+B83+B84;
E9:=EMA(C,90);
               A91:=REFV(100*ABS(G-E9)/E9,GB1)<2; A92:=REFV(100*ABS(G-E9)/E9,GB2)<2;
               A93:=REFV(100*ABS(G-E9)/E9,GB3)<2; A94:=REFV(100*ABS(G-E9)/E9,GB4)<2;
               B91:=REFV(100*ABS(D-E9)/E9,DB1)<2; B92:=REFV(100*ABS(D-E9)/E9,DB2)<2;
               B93:=REFV(100*ABS(D-E9)/E9,DB3)<2; B94:=REFV(100*ABS(D-E9)/E9,DB4)<2;
               CX9:=A91+A92+A93+A94+B91+B92+B93+B94;
E10:=EMA(C,100);
               A101:=REFV(100*ABS(G-E10)/E10,GB1)<2; A102:=REFV(100*ABS(G-E10)/E10,GB2)<2;
               A103:=REFV(100*ABS(G-E10)/E10,GB3)<2; A104:=REFV(100*ABS(G-E10)/E10,GB4)<2;
               B101:=REFV(100*ABS(D-E10)/E10,DB1)<2; B102:=REFV(100*ABS(D-E10)/E10,DB2)<2;
               B103:=REFV(100*ABS(D-E10)/E10,DB3)<2; B104:=REFV(100*ABS(D-E10)/E10,DB4)<2;
               CX10:=A101+A102+A103+A104+B101+B102+B103+B104;
E11:=EMA(C,110);
               A111:=REFV(100*ABS(G-E11)/E11,GB1)<2; A112:=REFV(100*ABS(G-E11)/E11,GB2)<2;
               A113:=REFV(100*ABS(G-E11)/E11,GB3)<2; A114:=REFV(100*ABS(G-E11)/E11,GB4)<2;
               B111:=REFV(100*ABS(D-E11)/E11,DB1)<2; B112:=REFV(100*ABS(D-E11)/E11,DB2)<2;
               B113:=REFV(100*ABS(D-E11)/E11,DB3)<2; B114:=REFV(100*ABS(D-E11)/E11,DB4)<2;
               CX11:=A111+A112+A113+A114+B111+B112+B113+B114;
E12:=EMA(C,120);
               A121:=REFV(100*ABS(G-E12)/E12,GB1)<2; A122:=REFV(100*ABS(G-E12)/E12,GB2)<2;
               A123:=REFV(100*ABS(G-E12)/E12,GB3)<2; A124:=REFV(100*ABS(G-E12)/