input:N(3,1,100),N1(7,1,100),P(1,1,100),N3(6,1,100);
xClose:=EMA((Open+High+Low+Close)/4,n) ;
xOpen:=EMA((Ref(Open,1) + Ref(xClose,1))/2,n);
Tempg:=Max(High, xOpen);
xHigh:=EMA(Max(Tempg, xClose),n);
Temp:=Min(Low,XOpen);
xLow:=EMA(Min(Temp, xClose),n);
o1:=If(xOpen<xclose, xopen, xclose);
c1:=If(xOpen<xclose, xclose, xopen);
stickline(xOpen>=xClose,xHigh,xLow,1,1),colorred;
stickline(xOpen>=xClose,c1,o1,6,1),colorred;
stickline(xOpen<xClose,xHigh,xLow,1,1),colorgreen;
stickline(xOpen<xClose,c1,o1,6,1),colorgreen;
x1:=Ref(C,1);
x2:=WMA(Max(C-x1,0),N)/WMA(abs(C-x1),N1)*100;
x3:=((3*WMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5)-
2*WMA(WMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5),3)-50)+50);
x4:=(x2+x3)/2;
x5:=WMA(C+(x4/50-1)*(MA(C,30)/20)*p,3);
yellow:x5,coloryellow,linethick2;
n2c:=2*n3;
n3c:=2*n2c;
Var1:=Ref(Close,1);
Var3:=WMA(Max(Close-Var1,0),n3)/WMA(abs(Close-Var1),n3)*100;
Var4:=WMA(Max(Close-Var1,0),n2c)/WMA(abs(Close-Var1),n2c)*100;
Var5:=WMA(Max(Close-Var1,0),n3c)/WMA(abs(Close-Var1),n3c)*100;
Var6:=If(Cross(Var3,Var5),Low,Ref(Low,BarsSince(Cross(Var3,Var5))));
Var7:=If(Cross(Var5,Var3),High,Ref(High,BarsSince(Cross(Var5,Var3))));
Var8:=If(Close>=MA(Close,20),80,50);
Var9:=If(Close>=MA(Close,20),50,20);
VarA:=If(Var3<Var8 AND Ref(Var3,1)>=Var8,HHV(Ref(High,1),BARSLAST(Var3>=Var8 AND Ref(Var3,1)<Var8)-1),
Ref(HHV(Ref(High,1),BARSLAST(Var3>=Var8 AND Ref(Var3,1)<Var8)+1), BARSLAST(Var3<Var8 AND Ref(Var3,1))));
VarB:=If(High>VarA,Low,Ref(Low,BARSLAST(High>VarA)));
VarC:=If(High>VarA,Var3,Ref(Var3,BARSLAST(High>VarA)));
VarD:=If(High>VarB AND Var3<VarC AND Var3<Var5,High,Ref(High,BARSLAST(High>VarB AND Var3<VarC AND Var3<Var5)));
VarE:=If(Var3>Var9 AND Ref(Var3,1)<=Var9,LLV(Ref(Low,1),BARSLAST(Var3<=Var9 AND Ref(Var3,1)>Var9)+1),
Ref(LLV(Ref(Low,1),BARSLAST(Var3<=Var9 AND Ref(Var3,1)>Var9)+1),BARSLAST(Var3>Var9 AND Ref(Var3,1))));
VarF:=If(Low<VarE,High,Ref(High,BARSLAST(Low<VarE)));
Var10:=If(Low<VarE,Var3,Ref(Var3,BARSLAST(Low<VarE)));
Var11:=If(Low<VarF AND Var3>Var10 AND Var3>Var5,Low,Ref(Low,BARSLAST(Low<VarF AND Var3>Var10 AND Var3>Var5)));
PRES: Var11,COLORGRAY;
SUP: VarD,colorB958E2;
drawtext(Cross(x5,pres ),xlow,'●'),colorblue,align0;
drawtext(Cross(sup,x5 ),xhigh,'●'),COLORMAGENTA,align0;
drawtext(Cross(x5,pres ),xlow,'8'),colorwhite,align0;
drawtext(Cross(sup,x5 ),xhigh,'8'),COLORwhite,align0;
