通达信自动波段划线主图源码

喜欢划线的朋友试试看。祝大家投资顺利。 里面划线部分高低点用到的未来函数不影响使用
参数【N1  1  100   4】
LC:=REF(CLOSE,1);
RA1:=REF(C,N1)=HHV(C,N1*2+1);   RA2:=REF(C,N1)=LLV(C,N1*2+1); 
RB1:=FILTER(RA1,N1);               RB2:=FILTER(RA2,N1);
RC1:=BACKSET(RB1,N1+1);            RC2:=BACKSET(RB2,N1+1);
RD1:=FILTER(RC1,N1);    RD2:=FILTER(RC2,N1);
GD1:=BARSLAST(RD1);      DD1:=BARSLAST(RD2);
GDTS:=IF(RD1,CURRBARSCOUNT,0);
DDTS:=IF(RD2,CURRBARSCOUNT,0);
GDT1:=IF(GD1,REF(GDTS,GD1),GDTS);
DDT1:=IF(DD1,REF(DDTS,DD1),DDTS);
GDCS1:=CONST(GDT1);      DDCS1:=CONST(DDT1);
GINGBUTS1:=REF(GDT1,GD1+1);   DINGBUTS1:=REF(DDT1,DD1+1);
GDCS2:=CONST(GINGBUTS1);   DDCS2:=CONST(DINGBUTS1);
GDCS13:=CONST(REF(C,GDCS1-1));  DDCS13:=CONST(REF(C,DDCS1-1));
GDCS23:=CONST(REF(C,GINGBUTS1-1));  DDCS23:=CONST(REF(C,DINGBUTS1-1));
XG1:=BACKSET(ISLASTBAR,GDCS1);  XD1:=BACKSET(ISLASTBAR,DDCS1);
XG2:=BACKSET(ISLASTBAR,GDCS2);  XD2:=BACKSET(ISLASTBAR,DDCS2);
M:=2*N1;
RA11:=REF(C,M)=HHV(C,M*2+1);    RA22:=REF(C,M)=LLV(C,M*2+1); 
RB11:=FILTER(RA11,M);               RB22:=FILTER(RA22,M);
RC11:=BACKSET(RB11,M+1);            RC22:=BACKSET(RB22,M+1);
RD11:=FILTER(RC11,M);    RD22:=FILTER(RC22,M),NODRAW;
GD11:=BARSLAST(RD11);       DD11:=BARSLAST(RD22);
GDTSS:=IF(RD11,CURRBARSCOUNT,0);
DDTSS:=IF(RD22,CURRBARSCOUNT,0);
GDT11:=IF(GD11,REF(GDTSS,GD11),GDTSS);
DDT11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
GDCS11:=CONST(GDT11);      DDCS11:=CONST(DDT11);  
GINGBUTS11:=REF(GDT11,GD11+1);   DINGBUTS11:=REF(DDT11,DD11+1);
GDCS22:=CONST(GINGBUTS11);   DDCS22:=CONST(DINGBUTS11);
STICKLINE(XG1,GDCS13*0.9999,GDCS13*1,2,1),COLORWHITE;
STICKLINE(XG2,GDCS23*0.9999,GDCS23*1,2,1),COLORGREEN;
STICKLINE(XD2,DDCS23*0.9999,DDCS23*1,2,1),COLORYELLOW;
STICKLINE(XD1,DDCS13*0.9999,DDCS13*1,2,1),COLORRED;
HIGHN:=8;LOWN:=8;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA:=REF(C,HIGHN)=HHV(C,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND C=HHV(C,HIGHN+1);
DDD:=BARSLAST(CC);
GDTSG:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(C,DDD),C);{顶部}
DINGBUTS:=IF(DDD,REF(GDTSG,DDD),GDTSG);
DINGBU1:=REF(DINGBU,DDD+1);
GDCSD:=CONST(DINGBUTS);
DINGBUTSD:=REF(DINGBUTS,DDD+1);
GDCSC:=CONST(DINGBU