通达信BS压力支撑源码

VAR1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
 VAR2:=CROSS(VAR1,0.9);
 VAR3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
 VAR4:=CROSS(VAR3,0.9);
 {STICKLINE(VAR2,HIGH,HIGH*1.01,5,0),COLORGREEN;
 STICKLINE(VAR4,LOW,LOW*0.99,5,0),COLORGREEN;}
 VAR5:=IF(VAR2,HIGH,IF(VAR4,LOW,0));
 PLOYLINE(VAR5,VAR5),COLORMAGENTA;
 VAR6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
 VAR7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
 VAR8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
 AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
 VAR9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
 VARA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
 VARB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
 AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
 {坚定: STICKLINE(CROSS(VAR6,0.9),HIGH,HIGH*1.01,5,0),COLORRED;
 STICKLINE(CROSS(VAR9,0.9),LOW,LOW*0.99,5,0),COLORRED;
犹豫: STICKLINE(CROSS(VAR7,0.9),HIGH,HIGH*1.01,5,0),COLORYELLOW;
 STICKLINE(CROSS(VARA,0.9),LOW,LOW*0.99,5,0),COLORYELLOW;
等待: STICKLINE(CROSS(VAR8,0.9),HIGH,HIGH*1.01,5,0),COLORGREEN;
 STICKLINE(CROSS(VARB,0.9),LOW,LOW*0.99,5,0),COLORGREEN;}
压力: REF(HIGH,BARSLAST(VAR2)), POINTDOT,COLORRED;
 STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2)),REF(HIGH,BARSLAST(VAR2)),5,0),COLORRED;
支撑: REF(LOW,BARSLAST(VAR4)), POINTDOT,COLORMAGENTA;
 STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4)),REF(LOW,BARSLAST(VAR4)),5,0),COLORMAGENTA;
现价:CLOSE,POINTDOT,COLORWHITE;
 DRAWTEXT(CROSS(C,压力) ,L*0.98,'T'),COLOR00FF00;
 DRAWTEXT(CROSS(支撑,C) ,L*0.98,'H'),COLOR00FF00;
 BU:=CROSS(HIGH,SAR(3,1,20));
 SEL:=CROSS(SAR(3,1,20),LOW);
 DRAWTEXT(BU,LOW,'B'),COLORYELLOW,LINETHICK2;
 DRAWTEXT(SEL,1.01*HIGH,'S'),COLORGREEN,LINETHICK2;