input
    inp0:"period for FVE", 22, 10, 80;
    inp1:"period for regression line", 35, 5, 100;
end_input

var
  pds:=inp0;
  pds1:=inp1;
  mf:=C - (H + L)/2 + TypPrice - TypPrice\1\;
  fve:=CumSum(iff(mf >0.3 * C / 100,V, iff(mf < -0.3 * C / 100, -V, 0)), pds) / Mov(V, pds, S) / pds * 100;
end_var

return iff(LRS(fve, pds1) >0, 1, -1) - iff(LRS(C, pds1) >0, 1, -1);