VAR1:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;
 VAR2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 BBB: SMA(VAR2,5,1)-8,LINETHICK2,COLORRED;

P:=1.5;
 OB:=BBB;
 A1:=REF(OB,P)=HHV(OB,2*P+1);
 B1:=FILTER(A1,P);
 C1:=BACKSET(B1,P+1);
 D1:=FILTER(C1,P);{高点}

A2:=REF(OB,P)=LLV(OB,2*P+1);
 B2:=FILTER(A2,P);
 C2:=BACKSET(B2,P+1);
 D2:=FILTER(C2,P);{低点}
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); 
 S11:=R11>REF(R11,1);
压力线:DRAWLINE(D1,OB,S11,OB,1),LINETHICK1,COLORFFFF00,POINTDOT;
 T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
 U11:=T11>REF(T11,1);
支撑线:DRAWLINE(D2,OB,U11,OB,1),COLORFFFF00,POINTDOT;

 PX:=5;
 OBX:=BBB;
 A1X:=REF(OBX,PX)=HHV(OBX,2*PX+1);
 B1X:=FILTER(A1X,PX);
 C1X:=BACKSET(B1X,PX+1);
 D1X:=FILTER(C1X,PX);{高点}
A2X:=REF(OBX,PX)=LLV(OBX,2*PX+1);
 B2X:=FILTER(A2X,PX);
 C2X:=BACKSET(B2X,PX+1);
 D2X:=FILTER(C2X,PX);{低点}
R11X:=BACKSET(ISLASTBAR,BARSLAST(D1X)+1); 
 S11X:=R11X>REF(R11X,1);
压力线X:DRAWLINE(D1X,OBX,S11X,OBX,1),LINETHICK1,COLORGREEN,LINETHICK2;
 T11X:=BACKSET(ISLASTBAR,BARSLAST(D2X)+1);
 U11X:=T11X>REF(T11X,1);
支撑线X:DRAWLINE(D2X,OBX,U11X,OBX,1),COLORGREEN,LINETHICK2;