R:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));{零延迟威廉线}
PERIODD:=10;
EMA1:=EMA(R,PERIODD);
EMA2:=EMA(EMA1,5);
DIFFERENCE:=EMA1-EMA2;
ZEROLAGEMA:=EMA1+DIFFERENCE;
PR:100-Abs(ZEROLAGEMA), COLORRED ,LINETHICK1;
MOVEAVG:MA(PR,5), COLORWHITE ,LINETHICK1;
K:=15;
FFILTER:=(K/100)*STD(PR-REF(PR,1),10);
XA:=IF(PR<REF(PR,1),PR,0);
XN:=BARSLAST(XA>0 );
AMALOW:=REF(PR,XN);
YA:=IF(PR>REF(PR,1),PR,0);
YN:=BARSLAST(YA>0) ;
AMAHIGH :=REF(PR,YN);
RR:=IF( AMAHIGH-PR>FFILTER,-1,0) ;
TT:=IF( PR- AMALOW>FFILTER,1,RR) ;
80, LINETHICK1;
20, LINETHICK1;
