通达信支撑阻力源码附图

Z1:=STRCAT(HYBLOCK,' ');
 Z2:=STRCAT(Z1,DYBLOCK);
 Z3:=STRCAT(Z2,' ');
 DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;
 ZF:=ABS(100*(H-L)/REF(C,1))>3;
 DIF:=EMA(CLOSE,8)-EMA(CLOSE,13);
 DEA:=EMA(DIF,6);
 MACD:=2*(DIF-DEA);

GD1:=EVERY(DIF>REF(DIF,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;
 GD2:=EVERY(MACD>REF(MACD,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;

高点1:=REF(MAX(C,O),BARSLAST(GD1)+1);
高点2:=REF(MAX(C,O),BARSLAST(GD2)+1);
高点:=IF(高点2>=高点1,高点2,高点1);
 AA:=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(高点)+1)=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(BBI>REF(BBI,1)AND C>BBI));
压力:DRAWLINE(BARSLAST(AA)=0,IF(C>O,C,MAX(C,O)),BARSNEXT(AA),REF(IF(C>O,C,MAX(C,O)),BARSLAST(AA)),1),COLORGREEN,LINETHICK3;
 LD1:=EVERY(DIF  LD2:=EVERY(MACD  LD:=MIN(LD1,LD2);
低点1:=REF(MIN(C,O),BARSLAST(LD1)+1);
低点2:=REF(MIN(C,O),BARSLAST(LD2)+1);
低点:=IF(低点2<=低点1,低点1,低点2);
 BB:=LLV(IF(C 支撑:DRAWLINE(BARSLAST(BB)=0,IF(C  PP1:=BARSLAST(AA)=1;
 YLX:=REF(MAX(C,O),BARSLAST(PP1)+1);
突破:CROSS(C,YLX),NODRAW,COLORWHITE;
 STICKLINE(突破,C,O,2,0),COLORWHITE;
 DIF突破:=REF(DIF,BARSLAST(PP1)+1);
有效突破:=突破 AND DIF>DIF突破;
 {STICKLINE(有效突破,C,O,2,0),COLORYELLOW};
 PP2:=BARSLAST(BB)=1;
 ZCX:=REF(MIN(C,O),BARSLAST(PP2)+1);
破位:CROSS(ZCX,C),NODRAW,COLORLIGREEN;
 STICKLINE(破位,C,O,2,0),COLORLIGREEN;
 PP7:=BARSLAST(破位)=1;
破位K线:=REF(O,BARSLAST(PP7)+1);
突破破位:CROSS(C,破位K线),NODRAW,COLORLIMAGENTA;
 STICKLINE(突破破位 AND C>O AND MACD>REF(MACD,1),C,O,2,0),COLORLIMAGENTA;