以下是通达信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;
