{ Downloaded From https://www.WiseStockTrader.com }
P1:=Mov(((C-LLV(L,5))/(HHV(H,5)-LLV(L,5)))*100,3,E);
P2:=Mov(((C-LLV(L,10))/(HHV(H,10)-LLV(L,10)))*100,3,E);
P3:=Mov(((C-LLV(L,15))/(HHV(H,15)-LLV(L,15)))*100,3,E);
P4:=Mov(((C-LLV(L,20))/(HHV(H,20)-LLV(L,20)))*100,3,E);

A1:=Mov(((P1-LLV(P1,5))/(HHV(P1,5)-LLV(P1,5)))*100,3,E);
A2:=Mov(((P2-LLV(P2,10))/(HHV(P2,10)-LLV(P2,10)))*100,3,E);
A3:=Mov(((P3-LLV(P3,15))/(HHV(P3,15)-LLV(P3,15)))*100,3,E);
A4:=Mov(((P4-LLV(P4,20))/(HHV(P4,20)-LLV(P4,20)))*100,3,E);

A1;
A2;
A3;
A4;