通达信平步青云主图拉升有效突破压力 源码分享

VAR1:=STRCAT(HYBLOCK,' ');
VAR2:=STRCAT(VAR1,DYBLOCK);
VAR3:=STRCAT(VAR2,' ');
VAR4:=EMA(CLOSE,8)-EMA(CLOSE,13);
VAR5:=EMA(VAR4,6);
VAR6:=2*(VAR4-VAR5);
VAR7:=EVERY(VAR4>REF(VAR4,1),BARSLASTCOUNT(VAR4>VAR5))AND VAR4>VAR5;
VAR8:=EVERY(VAR6>REF(VAR6,1),BARSLASTCOUNT(VAR4>VAR5))AND VAR4>VAR5;
VAR9:=REF(MAX(C,O),BARSLAST(VAR7)+1);
VAR10:=REF(MAX(C,O),BARSLAST(VAR8)+1);
VAR11:=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(IF(VAR10>=VAR9,VAR10,VAR9))+1)=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(BBI>REF(BBI,1)AND C>BBI));
VAR12:=EVERY(VAR4VAR13:=EVERY(VAR6VAR14:=MIN(VAR12,VAR13);
VAR15:=LLV(IF(CVAR16:=BARSLAST(VAR11)=1;
VAR17:=REF(MAX(C,O),BARSLAST(VAR16)+1);
VAR27:=BARSLAST(VAR15)=1;
VAR28:=REF(MIN(C,O),BARSLAST(VAR27)+1);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(VAR3,GNBLOCK)),COLOR00C0C0;
压力:DRAWLINE(BARSLAST(VAR11)=0,IF(C>O,C,MAX(C,O)),BARSNEXT(VAR11),REF(IF(C>O,C,MAX(C,O)),BARSLAST(VAR11)),1),DOTLINE,COLORYELLOW;
支撑:DRAWLINE(BARSLAST(VAR15)=0,IF(C突破:CROSS(C,VAR17),NODRAW,COLORWHITE;
STICKLINE(突破,C,O,2,0),COLORWHITE;
破位:CROSS(VAR28,C),NODRAW,COLORLIGREEN;
STICKLINE(破位,C,O,2,0),COLORLIGREEN;