var
  plot:=RSI(C,5);
  ph:=highestAll(plot);
  pl:=LowestAll(plot);
  pf:=0;
  v1:=0;
  v2:=0;
end_var

if ph <> pl then
  pf:= 10/(ph-pl);

v1:=((plot - pl) * pf) - 5;
v2:=Mov(v1, 9, W);

return (Exp(2 * v2) - 1) / (Exp(2 * v2) + 1);